arcadia 0.5.1 → 0.6.0

data/lib/a-tkcommons.rb

@@ -4,6 +4,7 @@
 #
 
 require "lib/a-commons"
+require "tk/menu"
 
 class TkApplication < Application
   attr_reader :tcltk_info
@@ -192,9 +193,55 @@ class AGTkObjPlace
 
 end
 
+class TkFrameAdapter < TkFrame
+  include TkMovable
+  attr_reader :frame
+  def initialize(scope_parent=nil, *args)
+    super(scope_parent, *args)
+    @scope_parent = scope_parent
+    @movable = true
+  end
+
+  def add_moved_by(_obj)
+    @movable = true
+    start_moving(_obj, self)
+  end
+  
+  def detach_frame
+    if @frame 
+      if @movable
+        @frame.bind_remove("Configure") 
+        @frame.bind_remove("Map") 
+        @frame.bind_remove("Unmap") 
+      end
+      @frame = nil
+      self.unplace
+    end
+  end
+  
+  def attach_frame(_frame)
+    @frame = _frame
+    refresh
+    if @movable
+      @frame.bind_append("Configure",proc{ refresh})
+      @frame.bind_append("Map",proc{refresh})
+      @frame.bind_append("Unmap",proc{unplace})
+    end
+    self
+  end
+
+  
+  def refresh(_x=0, _y=0)
+    place('in'=>@frame, 'x'=>_x, 'y'=>_y, 'relheight'=> 1, 'relwidth'=>1, 'bordermode'=>'outside')
+  end
+  
+end
 
-class AGTkSplittedFrames < TkFrame
-  def initialize(parent=nil, length=10, slen=5, keys=nil)
+
+class AGTkSplittedFrames < TkFrameAdapter
+  attr_reader :frame1
+  attr_reader :frame2
+  def initialize(parent=nil, frame=nil, length=10, slen=5, keys=nil)
     if keys.nil?
       keys = Hash.new
     end
@@ -202,20 +249,22 @@ class AGTkSplittedFrames < TkFrame
     super(parent, keys)
     @parent = parent
     @slen = slen
-    #relief 'groove'
+    if frame
+      self.attach_frame(frame)
+    end
   end
 
   def maximize(_frame)
-    p = TkWinfo.parent(@parent)
+    p = TkWinfo.parent(@frame)
     if p.kind_of?(AGTkSplittedFrames)
-      p.maximize(@parent)
+      p.maximize(@frame)
     end
   end
 
   def minimize(_frame)
-    p = TkWinfo.parent(@parent)
+    p = TkWinfo.parent(@frame)
     if p.kind_of?(AGTkSplittedFrames)
-      p.minimize(@parent)
+      p.minimize(@frame)
     end
   end
 
@@ -224,18 +273,19 @@ end
 
 class AGTkVSplittedFrames < AGTkSplittedFrames
   attr_reader :left_frame, :right_frame, :splitter_frame
-  def initialize(parent=nil, width=10, slen=5, perc=false, keys=nil)
-    super(parent, width, slen, keys)
+  def initialize(parent=nil, frame=nil, width=10, slen=5, perc=false, keys=nil)
+    super(parent, frame, width, slen, keys)
     #self.place('relheight'=>1, 'relwidth'=>1, 'bordermode'=>'outside' )    
-    self.pack(:expand=>true, :fill=>:both)
+    #self.pack(:expand=>true, :fill=>:both)
     @left_frame = TkFrame.new(self, Arcadia.style('panel')){
       #relief 'flat'
     }
+    @frame1 = @left_frame
     if perc
-      p_width = TkWinfo.screenwidth(self)    
+      p_width = TkWinfo.screenwidth(self)
     		x = (p_width/100*width).to_i
     else
-      x = width
+      x = width  
     end
     
     @left_frame.place(
@@ -346,6 +396,7 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
     @right_frame = TkFrame.new(self, Arcadia.style('panel')){
       #relief 'flat'
     }
+    @frame2 = @right_frame
     @right_frame.place(
       'relwidth' => 1,
       'relx' => 0,
@@ -394,6 +445,7 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
       @last = @left_frame_obj.w
     end
     @left_frame_obj.amove(0,0)
+    @left_frame_obj.obj.place_forget if @state=='right'
     @splitter_frame_obj.amove(_w,0)
     @right_frame_obj.width = - _w - @slen
     @right_frame_obj.amove(_w + @slen,0)
@@ -414,6 +466,7 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
     end
     @right_frame_obj.width = - _w - @slen
     @right_frame_obj.amove(_w + @slen,0)
+    @right_frame_obj.obj.unplace if @state=='left'
     @splitter_frame_obj.amove(_w,0)
     @left_frame_obj.width = _w
     @left_frame_obj.go(_w,0)
@@ -450,21 +503,22 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
 end
 
 class AGTkOSplittedFrames < AGTkSplittedFrames
-  attr_reader :top_frame, :bottom_frame
-  def initialize(parent=nil, height=10, slen=5, perc=false, keys=nil)
-    super(parent, height, slen, keys)
-    self.place(
-      'relwidth' => 1,
-      'relx' => 0,
-      'x' => 0,
-      'y' => 0,
-      'relheight' => 1,
-      'rely' => 0,
-      'bordermode' => 'inside'
-    )
+  attr_reader :top_frame, :bottom_frame, :splitter_frame
+  def initialize(parent=nil, frame=nil, height=10, slen=5, perc=false, keys=nil)
+    super(parent, frame, height, slen, keys)
+#    self.place(
+#      'relwidth' => 1,
+#      'relx' => 0,
+#      'x' => 0,
+#      'y' => 0,
+#      'relheight' => 1,
+#      'rely' => 0,
+#      'bordermode' => 'inside'
+#    )
     @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
@@ -476,6 +530,7 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       'bordermode' => 'inside',
       'height' => y
     )
+    
     @top_frame_obj = AGTkObjPlace.new(@top_frame, 'y', nil, false)
     @top_frame_obj.width = 0
     @top_frame_obj.height = y
@@ -511,6 +566,7 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     @bottom_frame = TkFrame.new(self, Arcadia.style('panel')){
      # relief 'flat'
     }
+    @frame2 = @bottom_frame
     @bottom_frame.place(
       'relwidth' => 1,
       'relx' => 0,
@@ -576,6 +632,7 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       @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)
@@ -594,6 +651,7 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     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)
@@ -659,24 +717,18 @@ class TkBaseTitledFrame < TkFrame
       #anchor 'w'
     }.place('x'=>0, 'y'=>0,'height'=>@title_height, 'relwidth'=>1)
     #.pack('fill'=> 'x','ipady'=> @title_height, 'side'=>'top')
-    
-    
     @frame = create_frame
-    
-    
-    
     @button_frame=TkFrame.new(@top){
       #background  '#303b50'
       background  Arcadia.conf('titlelabel.background')
     }.pack('side'=> 'right','anchor'=> 'w')
-    
+    @buttons = Hash.new
+    @menu_buttons = Hash.new
     self.head_buttons
   end
 
   def create_frame
     return TkFrame.new(self,Arcadia.style('panel')).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
-    #pack('fill'=>'both','expand'=> 1, 'anchor'=>'center')
-    #
   end
 
   def add_button(_label,_proc=nil,_image=nil, _side= 'right')
@@ -693,6 +745,28 @@ class TkBaseTitledFrame < TkFrame
     }
   end
 
+  def add_menu_button(_name='default',_image=nil, _side= 'right')
+    @menu_buttons[_name] = TkMenuButton.new(@button_frame, Arcadia.style('titlelabel')){|mb|
+      indicatoron true
+      menu TkMenu.new(mb, Arcadia.style('titlemenu'))
+#      menu TkMenu.new(:parent=>mb, Arcadia.style('titlemenu'))
+#      menu TkMenu.new(:parent=>mb,
+#        :tearoff=>0,
+#        :background=>Arcadia.style('titlelabel')['background'],
+#        :foreground=>Arcadia.style('titlelabel')['foreground']
+#      )
+      if _image
+        image TkPhotoImage.new('dat' => _image)
+      end
+      pack('side'=> _side,'anchor'=> 'e')
+    }
+    @menu_buttons[_name]
+  end
+
+  def menu_button(_name='default')
+    @menu_buttons[_name]
+  end
+
   def head_buttons
     @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
   end
@@ -702,8 +776,9 @@ end
 
 
 class TkTitledFrame < TkBaseTitledFrame
-  attr_reader :frame
+  attr_accessor :frame
   attr_reader :top
+  attr_reader :parent
 
   def initialize(parent=nil, title=nil, img=nil , keys=nil)
     super(parent, keys)
@@ -712,12 +787,6 @@ class TkTitledFrame < TkBaseTitledFrame
     @title_label =TkLabel.new(@top, Arcadia.style('titlelabel')){
       text _text_title
       anchor  'w'
-      #font  $arcadia['conf']['all.frame.title.font']
-#      background  '#303b50'
-#      foreground  '#e8e651'
-#      font  Arcadia.conf('titlepanel.font')
-#      background  Arcadia.conf('titlepanel.background')
-#      foreground  Arcadia.conf('titlepanel.foreground')
       compound 'left'
       image  TkAllPhotoImage.new('file' => img) if img
       pack('side'=> 'left','anchor'=> 'e')
@@ -737,14 +806,30 @@ class TkTitledFrame < TkBaseTitledFrame
     @aph = Array.new
   end
 
-  def top_text(_text)
-    @top_label.text(_text)
+  def title(_text=nil)
+    if _text.nil?
+      return @title
+    else
+      @title=_text
+      if _text.strip.length == 0
+        @title_label.text('')
+      else
+        @title_label.text(_text+'::')
+      end
+    end
   end
 
-  def title(_text)
-    @title_label.text(_text+'::')
+  def top_text(_text=nil)
+    if _text.nil?
+      return @top_label.text
+    else
+      @top_label.text(_text)
+    end
   end
 
+#  def top_text(_text)
+#    @top_label.text(_text)
+#  end
 
   def add_sep(_width=0,_background =@top.background)
     TkLabel.new(@top){||
@@ -808,6 +893,115 @@ class TkTitledFrame < TkBaseTitledFrame
   end
 end
 
+
+
+#class TkFrameAdapterOld < TkFrame
+#  include TkMovable
+#  attr_reader :frame
+#  def initialize(god_parent=nil, *args)
+#    super(god_parent, *args)
+#    @god_parent = god_parent
+#    #add_moved_by(self)
+#  end
+#  
+#  def add_moved_by(_obj)
+#    start_moving(_obj, self)
+#  end
+#
+#  def detach_frame
+#    if @frame 
+#      @frame.bind_remove("Configure") 
+#      @frame.bind_remove("Map") 
+#      @frame.bind_remove("Unmap") 
+#      @frame = nil
+#    end
+#  end
+#  
+#  def attach_frame(_frame)
+#    @frame = _frame
+#    init
+#    #update
+#    reset
+#    @frame.bind_append("Configure",proc{|x,y,w,h| refresh(x,y,w,h)}, "%x %y %w %h")
+#    @frame.bind_append("Map",proc{refresh})
+#    @frame.bind_append("Unmap",proc{unplace})
+#    self
+#  end
+#
+#  def init
+#    @last_x = 0
+#    @last_y = 0
+#    @last_w = 100
+#    @last_h = 100
+#    reset_offset    
+#  end  
+#    
+#  def reset
+#    w = TkPlace.info(@frame)['width']
+#    h = TkPlace.info(@frame)['height']
+#    x = TkPlace.info(@frame)['x']
+#    y = TkPlace.info(@frame)['y']
+#    refresh(x,y,w,h)
+#  end
+#  
+#  def reset_offset
+#    @x0=0
+#    @y0=0
+#    parent = TkWinfo.parent(@frame)
+#    #parent = @frame
+#    while parent != nil && parent != @god_parent
+#      xc = TkPlace.info(parent)['x']
+#      yc = TkPlace.info(parent)['y']
+#      @x0=@x0+xc if xc
+#      @y0=@y0+yc if yc
+#      parent= TkWinfo.parent(parent)
+#    end 
+#  end
+#  
+#  def refresh(_x=nil, _y=nil, _w=nil, _h=nil)
+#    reset_offset
+#    _x=@last_x if _x.nil?
+#    _y=@last_y if _y.nil?
+#    _w=@last_w if _w.nil?
+#    _h=@last_h if _h.nil?
+#    @last_x = _x
+#    @last_y = _y
+#    @last_w = _w
+#    @last_h = _h
+#    place('x'=>_x+@x0, 'y'=>_y+@y0, 'width'=>_w, 'height'=> _h, 'bordermode'=>'outside')
+#    #place('in'=>@frame, 'relheight'=> 1, 'bordermode'=>'outside', 'relwidth'=>1)
+#  end
+#end
+
+
+#class TkTitledMovableFrame < TkTitledFrame
+#  attr_reader :wrapper
+#  def initialize(root_parent=nil, parent=nil, title=nil, img=nil , keys=nil)
+#    @root_parent = root_parent
+#    #@wrapper = TkFrameAdapter.new(@root_parent, 'background'=>'red')
+#    @wrapper = TkFrameAdapter.new(@root_parent, Arcadia.style('frame'))
+#    super(parent, title, img, keys)
+#    #@wrapper.add_moved_by(@top)
+#    @wrapper.attach_frame(@frame)
+#    @frame=@wrapper
+#  end
+#  
+#  def change_wrapper(_new_wrapper)
+#    @wrapper = _new_wrapper
+#    @frame = _new_wrapper
+#  end  
+#
+#  #  def initialize(root_parent=nil, parent=nil, title=nil, img=nil , keys=nil)
+#  #    @root_parent = root_parent
+#  #    @wrapper = TkFrameAdapter.new(@root_parent, Arcadia.style('frame'))
+#  #    super(@wrapper, title, img, keys)
+#  #    @wrapped_frame=parent
+#  #    #@wrapper.add_moved_by(@top)
+#  #    @wrapper.attach_frame(parent)
+#  #  end
+#  
+#end
+
 class TkTitledScrollFrame < TkTitledFrame
 
   def create_frame
@@ -816,6 +1010,8 @@ class TkTitledScrollFrame < TkTitledFrame
 
 end
 
+
+
 class TkResizingTitledFrame < TkFrame
   include TkResizable
   def initialize(parent=nil, *args)
@@ -882,6 +1078,7 @@ class TkFloatTitledFrame < TkBaseTitledFrame
     if @manager == 'place'
       self.place('x'=>@x_place, 'y'=>@y_place, 'width'=>@width_place, 'height'=>@height_place)
     end
+    self.raise
   end
 
   def show_grabbed