Class: AGTkOSplittedFrames
- Inherits:
-
AGTkSplittedFrames
- Object
- TkFrame
- TkFrameAdapter
- AGTkSplittedFrames
- AGTkOSplittedFrames
- Defined in:
- lib/a-tkcommons.rb
Instance Attribute Summary collapse
-
#bottom_frame ⇒ Object
readonly
Returns the value of attribute bottom_frame.
-
#splitter_frame ⇒ Object
readonly
Returns the value of attribute splitter_frame.
-
#top_frame ⇒ Object
readonly
Returns the value of attribute top_frame.
Attributes inherited from AGTkSplittedFrames
Attributes inherited from TkFrameAdapter
Instance Method Summary collapse
- #do_resize ⇒ Object
- #get_main_y ⇒ Object
- #hide(_name) ⇒ Object
- #hide_bottom ⇒ Object
- #hide_top ⇒ Object
-
#initialize(parent = nil, frame = nil, height = 10, slen = 5, perc = false, user_control = true, keys = nil) {|_self| ... } ⇒ AGTkOSplittedFrames
constructor
A new instance of AGTkOSplittedFrames.
- #maximize(_frame) ⇒ Object
- #minimize(_frame) ⇒ Object
- #show(_name) ⇒ Object
Methods inherited from TkFrameAdapter
#attach_frame, #detach_frame, #is_pack?, #is_place?, #refresh, #unmap
Constructor Details
#initialize(parent = nil, frame = nil, height = 10, slen = 5, perc = false, user_control = true, keys = nil) {|_self| ... } ⇒ AGTkOSplittedFrames
Returns a new instance of AGTkOSplittedFrames.
584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 |
# File 'lib/a-tkcommons.rb', line 584 def initialize(parent=nil, frame=nil, height=10, slen=5, perc=false, user_control=true, keys=nil) super(parent, frame, height, slen, user_control, keys) @top_frame = TkFrame.new(self, Arcadia.style('panel')){ # relief 'flat' } @frame1 = @top_frame if perc p_height = TkWinfo.screenheight(self) y = (p_height/100*height).to_i else y = height end @top_frame.place( 'relwidth' => '1', 'bordermode' => 'inside', 'height' => y ) @top_frame_obj = AGTkObjPlace.new(@top_frame, 'y', nil, false) @top_frame_obj.width = 0 @top_frame_obj.height = y @top_frame_obj.relwidth = 1 @top_frame_obj.relheight = 0 @splitter_frame = TkFrame.new(self, Arcadia.style('splitter')){ #relief 'groove' #border 1 } @splitter_frame.place( 'relx' => 0, 'x' => 0, 'y' => y, 'relwidth' => '1', 'rely' => 0, 'bordermode' => 'inside', 'height' => @slen ) @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'y', nil, user_control) @splitter_frame_obj.width = 0 @splitter_frame_obj.height = @slen @splitter_frame_obj.relwidth = 1 @splitter_frame_obj.relheight = 0 y = y + @slen @bottom_frame = TkFrame.new(self, Arcadia.style('panel')){ # relief 'flat' } @frame2 = @bottom_frame @bottom_frame.place( 'relwidth' => 1, 'relx' => 0, 'x' => 0, 'y' => y, 'height' => -y, 'relheight' => 1, 'rely' => 0, 'bordermode' => 'inside' ) @bottom_frame_obj = AGTkObjPlace.new(@bottom_frame, 'y', nil, false) @bottom_frame_obj.width = 0 @bottom_frame_obj.height = -y @bottom_frame_obj.relwidth = 1 @bottom_frame_obj.relheight = 1 if @user_control @splitter_frame.bind_append( "B1-Motion", proc{@splitter_frame.raise} ) @splitter_frame.bind_append( "ButtonRelease-1", proc{do_resize} ) = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){ background '#4966d7' } .place( 'x' => 0, 'y' => 0, 'relheight' => 1, 'bordermode' => 'outside', 'width' => 20 ) .bind_append( "ButtonPress-1", proc{hide_top} ) = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){ background '#118124' } .place( 'x' => 21, 'y' => 0, 'bordermode' => 'outside', 'width' => 20, 'relheight' => 1 ) .bind_append( "ButtonPress-1", proc{hide_bottom} ) end @state = 'middle' yield(self) if block_given? end |
Instance Attribute Details
#bottom_frame ⇒ Object (readonly)
Returns the value of attribute bottom_frame.
583 584 585 |
# File 'lib/a-tkcommons.rb', line 583 def bottom_frame @bottom_frame end |
#splitter_frame ⇒ Object (readonly)
Returns the value of attribute splitter_frame.
583 584 585 |
# File 'lib/a-tkcommons.rb', line 583 def splitter_frame @splitter_frame end |
#top_frame ⇒ Object (readonly)
Returns the value of attribute top_frame.
583 584 585 |
# File 'lib/a-tkcommons.rb', line 583 def top_frame @top_frame end |
Instance Method Details
#do_resize ⇒ Object
754 755 756 757 758 759 760 761 762 |
# File 'lib/a-tkcommons.rb', line 754 def do_resize _y = @splitter_frame_obj.y0 _h = @splitter_frame_obj.h @top_frame_obj.height = _y @top_frame_obj.go(0,_y) @bottom_frame_obj.height = -_y-_h @bottom_frame_obj.amove(0,_y + _h) #end end |
#get_main_y ⇒ Object
750 751 752 |
# File 'lib/a-tkcommons.rb', line 750 def get_main_y return 40 end |
#hide(_name) ⇒ Object
764 765 |
# File 'lib/a-tkcommons.rb', line 764 def hide(_name) end |
#hide_bottom ⇒ Object
707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 |
# File 'lib/a-tkcommons.rb', line 707 def hide_bottom if (@state=='bottom') _h = @last @state = 'middle' elsif (@state == 'top') return else _h = @bottom_frame_obj.h + @top_frame_obj.h #+ @slen @state = 'top' @last = @top_frame_obj.h #+ @slen end @bottom_frame_obj.height = - _h - @slen @bottom_frame_obj.amove(0,_h + @slen) @bottom_frame_obj.obj.unplace if @state=='top' @splitter_frame_obj.amove(0,_h) @top_frame_obj.height = _h @top_frame_obj.go(0,_h) end |
#hide_top ⇒ Object
687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 |
# File 'lib/a-tkcommons.rb', line 687 def hide_top if (@state=='top') _h = @last @state = 'middle' @top_frame_obj.height = _h @top_frame_obj.go(0,_h) elsif (@state=='bottom') return else _h = 0 @state = 'bottom' @last = @top_frame_obj.h end @top_frame_obj.amove(0,0) @top_frame_obj.obj.unplace if @state=='bottom' @splitter_frame_obj.amove(0, _h) @bottom_frame_obj.height = - _h - @slen @bottom_frame_obj.amove(0,_h + @slen) end |
#maximize(_frame) ⇒ Object
727 728 729 730 731 732 733 734 735 736 |
# File 'lib/a-tkcommons.rb', line 727 def maximize(_frame) super(_frame) case _frame when top_frame hide_bottom when bottom_frame hide_top end Tk.update end |
#minimize(_frame) ⇒ Object
738 739 740 741 742 743 744 745 746 747 |
# File 'lib/a-tkcommons.rb', line 738 def minimize(_frame) super(_frame) case _frame when top_frame hide_top when bottom_frame hide_bottom end Tk.update end |
#show(_name) ⇒ Object
767 768 |
# File 'lib/a-tkcommons.rb', line 767 def show(_name) end |