arcadia 1.0.0 → 1.1.0

data/lib/a-tkcommons.rb

@@ -98,7 +98,7 @@ module TkMovable
     @moving_obj_m = _moving_obj
     @moved_obj_m = _moved_obj
     @moving_obj_m.bind_append("B1-Motion", proc{|x, y| moving_do_move_obj(x,y)},"%x %y")
-    @moving_obj_m.bind_append("ButtonPress-1", proc{|e| moving_do_press(e.x, e.y)})
+    @moving_obj_m.bind_append("ButtonPress-1", proc{|x, y| moving_do_press(x, y)},"%x %y")
   end
 
   def stop_moving
@@ -128,7 +128,7 @@ module TkResizable
     @moving_obj_r = _moving_obj
     @moved_obj_r = _moved_obj
     @moving_obj_r.bind_append("B1-Motion", proc{|x, y| resizing_do_move_obj(x,y)},"%x %y")
-    @moving_obj_r.bind_append("ButtonPress-1", proc{|e| resizing_do_press(e.x, e.y)})
+    @moving_obj_r.bind_append("ButtonPress-1", proc{|x, y| resizing_do_press(x, y)},"%x %y")
   end
 
   def stop_resizing
@@ -189,7 +189,7 @@ class AGTkObjPlace
     @cursor = _cursor
     if _bind
       @obj.bind_append("Enter", proc{|x, y| do_enter(x, y)}, "%x %y")
-      @obj.bind_append("ButtonPress-1", proc{|e| do_press(e.x, e.y)})
+      @obj.bind_append("ButtonPress-1", proc{|x, y| do_press(x,y)}, "%x %y")
       @obj.bind_append("B1-Motion", proc{|x, y| do_motion(x,y)},"%x %y")
     end
   end
@@ -289,6 +289,9 @@ class TkFrameAdapter < TkFrame
   end
 
   def attach_frame(_frame, _extension = nil, _frame_index=0)
+    if _frame.kind_of?(Tk::ScrollFrame)
+      _frame = _frame.baseframe
+    end
     @frame = _frame
     refresh_layout_manager
     self.map
@@ -820,9 +823,281 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
 
   def show(_name)
   end
+  
+end
+
+
+class Tk::ScrollFrame < TkFrame
+  include TkComposite
+
+#  DEFAULT_WIDTH  = 200
+#  DEFAULT_HEIGHT = 200
+
+  def baseframe
+    #@frame
+    @base
+  end
+  
+  def initialize_composite(keys={})
+    #@frame.configure(:width=>DEFAULT_WIDTH, :height=>DEFAULT_HEIGHT)
+
+    # create scrollbars
+#    @h_scroll = TkScrollbar.new(@frame, 'orient'=>'horizontal')
+#    @v_scroll = TkScrollbar.new(@frame, 'orient'=>'vertical')
 
+    @v_scroll = Arcadia.wf.scrollbar(@frame,{'orient'=>'vertical'})
+    @h_scroll = Arcadia.wf.scrollbar(@frame,{'orient'=>'horizontal'})
+
+
+    # create a canvas widget
+    @canvas = TkCanvas.new(@frame, 
+                           :borderwidth=>0, :selectborderwidth=>0, 
+                           :highlightthickness=>0)
+
+    # allignment
+    TkGrid.rowconfigure(@frame, 0, 'weight'=>1, 'minsize'=>0)
+    TkGrid.columnconfigure(@frame, 0, 'weight'=>1, 'minsize'=>0)
+    @canvas.grid('row'=>0, 'column'=>0, 'sticky'=>'news')
+    @frame.grid_propagate(false)
+
+    # assign scrollbars
+    @canvas.xscrollbar(@h_scroll)
+    @canvas.yscrollbar(@v_scroll)
+
+    # convert hash keys
+    keys = _symbolkey2str(keys)
+
+    # check options for the frame
+    framekeys = {}
+    if keys.key?('classname')
+       keys['class'] = keys.delete('classname')
+    end
+    if @classname = keys.delete('class')
+      framekeys['class'] = @classname
+    end
+    if @colormap  = keys.delete('colormap')
+      framekeys['colormap'] = @colormap
+    end
+    if @container = keys.delete('container')
+      framekeys['container'] = @container
+    end
+    if @visual    = keys.delete('visual')
+      framekeys['visual'] = @visual
+    end
+    if @classname.kind_of? TkBindTag
+      @db_class = @classname
+      @classname = @classname.id
+    elsif @classname
+      @db_class = TkDatabaseClass.new(@classname)
+    else
+      @db_class = self.class
+      @classname = @db_class::WidgetClassName
+    end
+
+    # create base frame
+    @base = TkFrame.new(@canvas, framekeys)
+
+    # embed base frame
+    @cwin = TkcWindow.new(@canvas, [0, 0], :window=>@base, :anchor=>'nw')
+    @canvas.scrollregion(@cwin.bbox)
+
+    # binding to reset scrollregion
+    @base.bind('Configure'){_reset_scrollregion(nil, nil) }
+
+    # set default receiver of method calls
+    @path = @base.path
+
+    # scrollbars ON
+    vscroll(keys.delete('vscroll'){true})
+    hscroll(keys.delete('hscroll'){true})
+
+    # please check the differences of the following definitions
+#    option_methods(
+#      :scrollbarwidth
+#    )
+
+    # set receiver widgets for configure methods (with alias)
+    delegate_alias('scrollbarrelief', 'relief', @h_scroll, @v_scroll)
+
+    # set receiver widgets for configure methods
+    delegate('DEFAULT', @base)
+    delegate('background', @frame, @base, @canvas, @h_scroll, @v_scroll)
+    delegate('width', @frame)
+    delegate('height', @frame)
+    delegate('activebackground', @h_scroll, @v_scroll)
+    delegate('troughcolor', @h_scroll, @v_scroll)
+    delegate('repeatdelay', @h_scroll, @v_scroll)
+    delegate('repeatinterval', @h_scroll, @v_scroll)
+    delegate('borderwidth', @frame)
+    delegate('relief', @frame)
+
+    # do configure
+    configure keys unless keys.empty?
+
+    @canvas.yscrollcommand(proc{|first,last|
+      do_yscrollcommand(first,last)
+    })
+
+    @canvas.xscrollcommand(proc{|first,last|
+      do_xscrollcommand(first,last)
+    })
+
+  end
+  
+
+  def y_scrolled?
+    TkWinfo.mapped?(@v_scroll)
+  end
+
+  def x_scrolled?
+    TkWinfo.mapped?(@h_scroll)
+  end
+  
+  def yview_moveto(_index)
+    @canvas.yview_moveto(_index) 
+  end
+
+  def xview_moveto(_index)
+    @canvas.xview_moveto(_index) 
+  end
+     
+  def do_yscrollcommand(first,last)
+    if first != nil && last != nil
+      delta = last.to_f - first.to_f
+      if delta != @last_y_delta
+        if delta < 1 && delta > 0 && last != @last_y_last
+          vscroll(true)
+        begin
+          @v_scroll.set(first,last) if TkWinfo.mapped?(@v_scroll)
+        rescue Exception => e
+          Arcadia.runtime_error(e)
+        end
+        elsif delta == 1 || delta == 0
+          vscroll(false)
+        end
+      end
+      @last_y_last = last if last.to_f < 1
+      @last_y_delta = delta
+    end    
+  end
+  
+  def do_xscrollcommand(first,last)
+    if first != nil && last != nil
+      delta = last.to_f - first.to_f
+      if delta != @last_x_delta
+        if delta < 1 && delta > 0.2 && last != @last_x_last
+          hscroll(true)
+        begin
+          @h_scroll.set(first,last) if TkWinfo.mapped?(@h_scroll)
+        rescue Exception => e
+          Arcadia.runtime_error(e)
+        end
+        elsif delta == 1 || delta == 0
+          hscroll(false)
+        end
+      end
+      @last_x_last = last if last.to_f < 1
+      @last_x_delta = delta
+    end    
+  end
+
+  # callback for Configure event
+  def _reset_scrollregion(h_mod=nil, v_mod=nil)
+    cx1, cy1, cx2, cy2 = @canvas.scrollregion
+    x1, y1, x2, y2 = @cwin.bbox
+    @canvas.scrollregion([x1, y1, x2, y2])
+
+    if h_mod.nil? && v_mod.nil?
+      if x2 != cx2 && TkGrid.info(@h_scroll).size == 0
+        @frame.grid_propagate(true)
+        @canvas.width  = x2
+        Tk.update_idletasks
+        @frame.grid_propagate(false)
+      end
+      if y2 != cy2 && TkGrid.info(@v_scroll).size == 0
+        @frame.grid_propagate(true)
+        @canvas.height = y2
+        Tk.update_idletasks
+        @frame.grid_propagate(false)
+      end
+    else
+      @h_scroll.ungrid if h_mod == false
+      @v_scroll.ungrid if v_mod == false
+
+      h_flag = (TkGrid.info(@h_scroll).size == 0)
+      v_flag = (TkGrid.info(@v_scroll).size == 0)
+
+      @frame.grid_propagate(true)
+
+      @canvas.width  = (h_flag)? x2: @canvas.winfo_width
+      @canvas.height = (v_flag)? y2: @canvas.winfo_height
+
+      @h_scroll.grid('row'=>1, 'column'=>0, 'sticky'=>'ew') if h_mod
+      @v_scroll.grid('row'=>0, 'column'=>1, 'sticky'=>'ns') if v_mod
+
+      Tk.update_idletasks
+
+      @frame.grid_propagate(false)
+    end
+  end
+  private :_reset_scrollregion
+
+  # forbid to change binding of @base frame
+  def bind(*args)
+    @frame.bind(*args)
+  end
+  def bind_append(*args)
+    @frame.bind_append(*args)
+  end
+  def bind_remove(*args)
+    @frame.bind_remove(*args)
+  end
+  def bindinfo(*args)
+    @frame.bindinfo(*args)
+  end
+
+  # set width of scrollbar
+#  def scrollbarwidth(width = nil)
+#    if width
+#      @h_scroll.width(width)
+#      @v_scroll.width(width)
+#    else
+#      @h_scroll.width
+#    end
+#  end
+
+  # vertical scrollbar : ON/OFF
+  def vscroll(mode)
+    Tk.update_idletasks
+    st = TkGrid.info(@v_scroll)
+    if mode && st.size == 0 then
+#      @v_scroll.grid('row'=>0, 'column'=>1, 'sticky'=>'ns')
+      _reset_scrollregion(nil, true)
+    elsif !mode && st.size != 0 then
+      _reset_scrollregion(nil, false)
+    else
+      _reset_scrollregion(nil, nil)
+    end
+    self
+  end
+
+  # horizontal scrollbar : ON/OFF
+  def hscroll(mode)
+    Tk.update_idletasks
+    st = TkGrid.info(@h_scroll)
+    if mode && st.size == 0 then
+      _reset_scrollregion(true, nil)
+    elsif !mode && st.size != 0 then
+      _reset_scrollregion(false, nil)
+    else
+      _reset_scrollregion(nil, nil)
+    end
+    self
+  end
 end
 
+
+
 class TkBaseTitledFrame < TkFrame
   attr_reader :frame
   attr_reader :top
@@ -856,6 +1131,7 @@ class TkBaseTitledFrame < TkFrame
   end
 
   def create_frame
+#    return Tk::ScrollFrame.new(self).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
     return TkFrame.new(self,Arcadia.style('panel')).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
   end
 
@@ -1649,7 +1925,7 @@ end
 class TkTitledScrollFrame < TkTitledFrame
 
   def create_frame
-    return Tk::ScrollFrame.new(self,:scrollbarwidth=>10, :width=>300, :height=>200).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
+    return Tk::ScrollFrame.new(self).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
   end
 
 end
@@ -1927,9 +2203,16 @@ end
 class TkWidgetFactory
 
   module WidgetEnhancer
+
     def hint=(_hint=nil)
+      hint(_hint)
+    end
+
+    def hint(_hint=nil)
       Tk::BWidget::DynamicHelp::add(self, 'text'=>_hint) if _hint
+      self
     end
+
   end
 
   def initialize
@@ -2142,11 +2425,34 @@ class TkWidgetFactory
     ])
 
 
+    #TFrame
+    Tk::Tile::Style.configure("Arcadia.TFrame", Arcadia.style('panel'))
+
+
+
     #Tk::Tile::Style.configure(Tk::Tile::TLabel, Arcadia.style('label'))
     #TLabel
     Tk::Tile::Style.configure("Arcadia.TLabel", Arcadia.style('label'))
 
 
+    #TEntry
+    Tk::Tile::Style.layout("Arcadia.TEntry", [
+        'Entry.border', { :sticky => 'nswe', :border => 1, 
+              :children =>  ['Entry.padding',  { :sticky => 'nswe', 
+                      :children => [ 'Entry.textarea',  { :sticky => 'nswe' } ] }] } ])
+    
+    
+    Tk::Tile::Style.configure("Arcadia.TEntry", Arcadia.style('edit').update(
+         'fieldbackground' => Arcadia.style('edit')['background'],
+         'selectbackground' => 'red',
+         'selectforeground' => 'yellow'
+       )
+    )
+  
+    #TText
+    Tk::Tile::Style.configure("Arcadia.TText", Arcadia.style('text'))
+
+
     #TButton
     Tk::Tile::Style.configure("Arcadia.TButton", Arcadia.style('button').update(
       'padding'=>"0 0 0 0"
@@ -2201,6 +2507,24 @@ class TkWidgetFactory
     end
   end
 
+  def frame(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::TFrame.new(_parent,{:style=>"Arcadia.TFrame"}.update(_args), &b)
+      else
+        obj = TkFrame.new(_parent,Arcadia.style('panel').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+
   def label(_parent,_args={}, &b)
     begin
       if @use_tile
@@ -2218,6 +2542,40 @@ class TkWidgetFactory
     end
   end
 
+  def entry(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::TEntry.new(_parent,{:style=>"Arcadia.TEntry"}.update(_args), &b)
+      else
+        obj = TkEntry.new(_parent,Arcadia.style('edit').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def text(_parent,_args={}, &b)
+    begin
+#      if @use_tile
+#        obj = Tk::Tile::Text.new(_parent,{:style=>"Arcadia.TText"}.update(_args), &b)
+#      else
+        obj = TkText.new(_parent,Arcadia.style('text').update(_args), &b)
+#      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
   def button(_parent,_args={}, &b)
     begin
       if @use_tile
@@ -2667,15 +3025,16 @@ module TkScrollableWidget
     _w != nil ? @w=_w : @w=-@x
     _h != nil ? @h=_h : @h=-@y
     @widget.place(
-    'x'=>@x,
-    'y'=>@y,
-    'width' => @w,
-    'height' => @h,
-    'relheight'=>1,
-    'relwidth'=>1,
-    'bordermode'=>_border_mode
+      'x'=>@x,
+      'y'=>@y,
+      'width' => @w,
+      'height' => @h,
+      'relheight'=>1,
+      'relwidth'=>1,
+      'bordermode'=>_border_mode
     )
     @widget.raise
+    @widget_manager = 'place'
     if @v_scroll_on
       show_v_scroll(true)
     end
@@ -2690,9 +3049,13 @@ module TkScrollableWidget
     end
   end
 
+  def widget_manager
+    defined?(@widget_manager)? @widget_manager : nil
+  end
+
   def hide
     disarm_scroll_binding
-    @widget.unplace
+    @widget.unplace if widget_manager == 'place'
     @v_scroll.unpack
     @h_scroll.unpack
   end
@@ -2722,7 +3085,7 @@ module TkScrollableWidget
   def show_v_scroll(_force=false)
     if _force || !@v_scroll_on
       begin
-        @widget.place('width' => -@scroll_width-@x)
+        @widget.place('width' => -@scroll_width-@x) if widget_manager == 'place'
         @v_scroll.pack('side' => 'right', 'fill' => 'y')
         @v_scroll_on = true
         @v_scroll.raise
@@ -2743,7 +3106,7 @@ module TkScrollableWidget
   def show_h_scroll(_force=false)
     if _force || !@h_scroll_on
       begin
-        @widget.place('height' => -@scroll_width-@y)
+        @widget.place('height' => -@scroll_width-@y) if widget_manager == 'place'
         @h_scroll.pack('side' => 'bottom', 'fill' => 'x')
         @h_scroll_on = true
         @h_scroll.raise
@@ -2764,7 +3127,7 @@ module TkScrollableWidget
   def hide_v_scroll
     if @v_scroll_on
       begin
-        @widget.place('width' => 0)
+        @widget.place('width' => 0) if widget_manager == 'place'
         @v_scroll.unpack
         @v_scroll_on = false
       rescue RuntimeError => e
@@ -2778,7 +3141,7 @@ module TkScrollableWidget
   def hide_h_scroll
     if @h_scroll_on
       begin
-        @widget.place('height' => 0)
+        @widget.place('height' => 0) if widget_manager == 'place'
         @h_scroll.unpack
         @h_scroll_on = false
       rescue RuntimeError => e
@@ -2801,8 +3164,8 @@ class KeyTest < TkFloatTitledFrame
       background  Arcadia.conf("background")
       foreground  Arcadia.conf("foreground")
       #place('relwidth' => '1','relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => '0','bordermode' => 'inside','width' => '0')
-    }.bind("KeyPress"){|e|
-      @ttest.insert('end'," "+e.keysym+" ")
+    }.bind("KeyPress", "%K"){|_keysym|
+      @ttest.insert('end'," "+_keysym+" ")
       break
     }
     @ttest.extend(TkScrollableWidget).show
@@ -2820,6 +3183,7 @@ class HinnerDialog < TkFrame
       newargs.update(args) 
     end
     super(Arcadia.layout.parent_frame, newargs)
+
     case side
       when 'top'
 #        self.pack('side' =>side,'before'=>Arcadia.layout.root, 'anchor'=>'nw','fill'=>'both', 'padx'=>0, 'pady'=>0, 'expand'=>'yes')
@@ -2830,6 +3194,108 @@ class HinnerDialog < TkFrame
     @modal = false
   end
   
+  def make_scrollable_frame(_frame)
+
+
+    TkGrid.rowconfigure(_frame, 0, 'weight'=>1, 'minsize'=>0)
+    TkGrid.columnconfigure(_frame, 0, 'weight'=>1, 'minsize'=>0)
+    canvas = TkCanvas.new(_frame)
+    canvas.grid('row'=>0, 'column'=>0, 'sticky'=>'news')
+
+
+    v_scroll = Arcadia.wf.scrollbar(_frame,{'orient'=>'vertical'})
+    h_scroll = Arcadia.wf.scrollbar(_frame,{'orient'=>'horizontal'})
+
+
+  
+  
+    p_vscroll = proc{|mode|
+      st = TkGrid.info(v_scroll)
+      if mode && st.size == 0 then
+        v_scroll.grid('row'=>0, 'column'=>1, 'sticky'=>'ns')
+      elsif mode == false
+        v_scroll.ungrid 
+      end
+    }
+
+    p_hscroll = proc{|mode|
+      st = TkGrid.info(h_scroll)
+      if mode && st.size == 0 then
+        h_scroll.grid('row'=>1, 'column'=>0, 'sticky'=>'ew')
+      elsif mode == false
+        h_scroll.ungrid 
+      end
+    }
+
+    p_do_yscrollcommand = proc{|first,last|
+      if first != nil && last != nil
+        delta = last.to_f - first.to_f
+        if delta != @last_y_delta
+          if delta < 1 && delta > 0 && last != @last_y_last
+            p_vscroll.call(true)
+            begin
+              v_scroll.set(first,last)
+            rescue Exception => e
+              Arcadia.runtime_error(e)
+            end
+          elsif delta == 1 || delta == 0
+            p_vscroll.call(false)
+          end
+        end
+        @last_y_last = last if last.to_f < 1
+        @last_y_delta = delta
+      end    
+    }
+
+    p_do_xscrollcommand = proc{|first,last|
+      if first != nil && last != nil
+        delta = last.to_f - first.to_f
+        if delta != @last_x_delta
+          if delta < 1 && delta > 0 && last != @last_x_last
+            p_hscroll.call(true)
+            begin
+              h_scroll.set(first,last)
+            rescue Exception => e
+              Arcadia.runtime_error(e)
+            end
+          elsif delta == 1 || delta == 0
+            p_hscroll.call(false)
+          end
+        end
+        @last_x_last = last if last.to_f < 1
+        @last_x_delta = delta
+      end    
+    }
+
+    canvas.yscrollbar(v_scroll)
+    canvas.xscrollbar(h_scroll)
+
+
+    canvas.yscrollcommand(proc{|first,last|
+      p_do_yscrollcommand.call(first,last)
+    })
+
+    canvas.xscrollcommand(proc{|first,last|
+      p_do_xscrollcommand.call(first,last)
+    })
+
+
+
+    frame = TkFrame.new(canvas) 
+
+
+
+    frame.bind("Configure", proc{canvas.configure(:scrollregion=>canvas.bbox("all"))})
+
+
+    cwin = TkcWindow.new(canvas, 0, 0, :window=>frame)
+
+    canvas.scrollregion(cwin.bbox)
+
+    return frame
+
+  end 
+  
   def is_modal?
     @modal
   end
@@ -2860,9 +3326,9 @@ class HinnerSplittedDialog < HinnerDialog
   attr_reader :frame, :splitter_frame
   def initialize(side='top', height=100, args=nil)
     super(side, args)
-    y0 = height
+    @y0= height
     fr = TkFrame.new(self){
-      height y0 
+      height height 
       pack('side' =>side,'padx'=>0, 'pady'=>0, 'fill'=>'x', 'expand'=>'1')
     }
     splitter_frame = TkFrame.new(self, Arcadia.style('splitter')){
@@ -2882,46 +3348,71 @@ class HinnerSplittedDialog < HinnerDialog
       splitter_frame.raise
     } ,"%x %y")
      
-    splitter_frame.bind_append("ButtonRelease-1", proc{|e|
+    splitter_frame.bind_append("ButtonRelease-1", proc{
       splitter_frame.configure('cursor'=> oldcursor)
       if side == 'top'
-        h = (y0+yx).abs
+        h = (@y0+yx).abs
       elsif side == 'bottom'
-        h = (y0-yx).abs
+        h = (@y0-yx).abs
       end
-      y0 = h
+      @y0 = h
       fr.configure('height'=>h)
     })    
     @frame = fr
     @splitter_frame = splitter_frame
   end
+  
+  def height(_h=nil)
+    if _h.nil?
+      @frame.height
+    else
+      @frame.configure('height'=>_h)
+      @y0 = _h
+    end
+  end
 end
 
 class HinnerSplittedDialogTitled < HinnerSplittedDialog
-  attr_accessor :hinner_frame
+  attr_accessor :hinner_frame, :titled_frame
   def initialize(title=nil, side='top', height=100, args=nil)
     super(side, height, args)
-    btf = TkLabelTitledFrameClosable.new(self.frame, title).place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
+    @titled_frame = TkLabelTitledFrameClosable.new(self.frame, title).place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
+    @ext_proc = nil
     close = proc{
-      self.destroy
-      Tk.callback_break
+      do_close
+      #self.destroy
+      #Tk.callback_break
     }
-    btf.add_close_action(close)
-    @hinner_frame = btf.frame
-  end  
+    @titled_frame.add_close_action(close)
+    @hinner_frame = @titled_frame.frame
+    #@hinner_frame = make_scrollable_frame(@titled_frame.frame)
+    #@hinner_frame = Tk::ScrollFrame.new(@titled_frame.frame).place('x'=>0, 'y'=>0, 'relheight'=>1, 'relwidth'=>1).baseframe
+  end
+
+  def do_close
+    @ext_proc.call if !@ext_proc.nil?
+    self.destroy
+    Tk.callback_break
+  end
+
+  def on_close=(_proc)
+    @ext_proc = _proc
+  end
+ 
 end
 
 class HinnerFileDialog < HinnerDialog
   SELECT_FILE_MODE=0
   SAVE_FILE_MODE=1
   SELECT_DIR_MODE=2
-  def initialize(mode=SELECT_FILE_MODE , must_exist = nil, side='top',args=nil)
+  def initialize(mode=SELECT_FILE_MODE, must_exist=nil, label=nil, side='top',args=nil)
     super(side, args)
     @mode = mode
     if must_exist.nil?
       must_exist = mode != SAVE_FILE_MODE
     end
     @must_exist = must_exist
+    @label = label
     build_gui
     @closed = false
   end
@@ -2931,6 +3422,9 @@ class HinnerFileDialog < HinnerDialog
     @font_bold = "#{Arcadia.conf('edit.font')} bold"
     @font_metrics = TkFont.new(@font).metrics
     @font_metrics_bold = TkFont.new(@font_bold).metrics
+    if !@label.nil?
+      Arcadia.wf.label(self, 'text' => @label).pack('side' =>'left')
+    end
     @dir_text = TkText.new(self, Arcadia.style('text').update({"height"=>'1',"highlightcolor"=>Arcadia.conf('panel.background'), "bg"=>Arcadia.conf('panel.background')})).pack('side' =>'left','padx'=>5, 'pady'=>5, 'fill'=>'x', 'expand'=>'1')
     #{"bg"=>'white', "height"=>'1', "borderwidth"=>0, 'font'=>@font}
     @dir_text.bind_append("Enter", proc{ @dir_text.set_insert("end")})
@@ -2943,12 +3437,13 @@ class HinnerFileDialog < HinnerDialog
     @dir_text.tag_configure(@tag_selected,'borderwidth'=>0, 'relief'=>'flat', 'underline'=>true)
     @dir_text.tag_bind(@tag_selected,"ButtonRelease-1",  proc{ 
        self.release
+       Tk.callback_break
     } )
     @dir_text.tag_bind(@tag_selected,"Enter", proc{@dir_text.configure('cursor'=> 'hand2')})
     @dir_text.tag_bind(@tag_selected,"Leave", proc{@dir_text.configure('cursor'=> @cursor)})
     _self=self
-    @dir_text.bind_append('KeyPress'){|e|
-      case e.keysym
+    @dir_text.bind_append('KeyPress', "%K"){|_keysym|
+      case _keysym
       when 'Escape','Tab'
         i1 = @dir_text.index("insert")
         raise_candidates(i1, @dir_text.get("#{i1} linestart", i1))
@@ -2970,8 +3465,8 @@ class HinnerFileDialog < HinnerDialog
         end
       end
     }   
-    @dir_text.bind_append('KeyRelease'){|e|
-      case e.keysym
+    @dir_text.bind_append('KeyRelease', "%K"){|_keysym|
+      case _keysym
       when 'Escape','Tab', "Return"
       else
         @dir_text.tag_remove(@tag_selected,'1.0','end')
@@ -2993,8 +3488,8 @@ class HinnerFileDialog < HinnerDialog
       end
     }   
     
-    @dir_text.bind_append("Control-KeyPress"){|e|
-      case e.keysym
+    @dir_text.bind_append("Control-KeyPress", "%K"){|_keysym|
+      case _keysym
       when 'd'
         _self.close
         Tk.callback_break
@@ -3252,15 +3747,15 @@ class HinnerFileDialog < HinnerDialog
         #filter = @dir_text.get("insert -1 chars wordstart", "insert")
 
 
-        @raised_listbox.bind_append('KeyPress'){|e|
+        @raised_listbox.bind_append('KeyPress', "%K %A"){|_keysym, _char|
           is_list_for_update = false
-          case e.keysym
+          case _keysym
             when 'a'..'z','A'..'Z','0'..'9'
-              @dir_text.insert('end', e.keysym)
+              @dir_text.insert('end', _keysym)
               @dir_text.see("end")
               is_list_for_update = true
             when 'minus'
-              @dir_text.insert('end', e.char)
+              @dir_text.insert('end', _char)
               @dir_text.see("end")
               is_list_for_update = true
             when 'period'
@@ -3285,18 +3780,18 @@ class HinnerFileDialog < HinnerDialog
           end
           _update_list.call(get_filter.call) if is_list_for_update
           @raised_listbox.focus 
-          Tk.callback_break if  !["Next","Prior"].include?(e.keysym)
+          Tk.callback_break if  !["Next","Prior"].include?(_keysym)
         }
 
-        @raised_listbox.bind_append('Shift-KeyPress'){|e|
+        @raised_listbox.bind_append('Shift-KeyPress', "%K %A"){|_keysym, _char|
           is_list_for_update = false
-          case e.keysym
+          case _keysym
             when 'asterisk','underscore'
-              @dir_text.insert('end', e.char)
+              @dir_text.insert('end', _char)
               @dir_text.see("end")
               is_list_for_update = true
             when 'a'..'z','A'..'Z'
-              @dir_text.insert('end', e.keysym)
+              @dir_text.insert('end', _keysym)
               @dir_text.see("end")
               is_list_for_update = true
             
@@ -3306,8 +3801,8 @@ class HinnerFileDialog < HinnerDialog
           Tk.callback_break
         }
 
-        @raised_listbox.bind_append('KeyRelease'){|e|
-          case e.keysym
+        @raised_listbox.bind_append('KeyRelease', "%K"){|_keysym|
+          case _keysym
             when 'Return'
               _select_value.call
           end
@@ -3366,4 +3861,120 @@ class HinnerFileDialog < HinnerDialog
     return childrens_dir,childrens_file
   end 
 
-end
+end
+
+
+class HinnerStringDialog < HinnerDialog
+
+  def initialize(label=nil, side='top',args=nil)
+    super(side, args)
+    @label = label
+    build_gui
+    @closed = false
+  end
+  
+  def build_gui
+    @font = Arcadia.conf('edit.font')
+    @font_bold = "#{Arcadia.conf('edit.font')} bold"
+    @font_metrics = TkFont.new(@font).metrics
+    @font_metrics_bold = TkFont.new(@font_bold).metrics
+    if !@label.nil?
+      Arcadia.wf.label(self, 'text' => @label).pack('side' =>'left')
+    end
+    @string_text = TkText.new(self, Arcadia.style('text').update({"height"=>'1',"highlightcolor"=>Arcadia.conf('panel.background'), "bg"=>Arcadia.conf('panel.background')})).pack('side' =>'left','padx'=>5, 'pady'=>5, 'fill'=>'x', 'expand'=>'1')
+    #{"bg"=>'white', "height"=>'1', "borderwidth"=>0, 'font'=>@font}
+    @string_text.bind_append("Enter", proc{ @string_text.set_insert("end")})
+
+    
+    @tag_selected = "link_selected"
+    @string_text.tag_configure(@tag_selected,'borderwidth'=>0, 'relief'=>'flat', 'underline'=>true)
+    @string_text.tag_bind(@tag_selected,"ButtonRelease-1",  proc{ 
+       self.release
+    } )
+    @string_text.tag_bind(@tag_selected,"Enter", proc{@string_text.configure('cursor'=> 'hand2')})
+    @string_text.tag_bind(@tag_selected,"Leave", proc{@string_text.configure('cursor'=> @cursor)})
+    _self=self
+    @string_text.bind_append('KeyPress', "%K"){|_keysym|
+      case _keysym
+      when "Return"
+        _self.release
+      end
+    }   
+    @string_text.bind_append('KeyRelease', "%K"){|_keysym|
+      case _keysym
+      when 'Escape','Tab', "Return"
+      else
+        @string_text.tag_remove(@tag_selected,'1.0','end')
+        @string_text.tag_add(@tag_selected ,'1.0','end')
+      end
+    }   
+    
+    @string_text.bind_append("Control-KeyPress", "%K"){|_keysym|
+      case _keysym
+      when 'd'
+        _self.close
+        Tk.callback_break
+      end
+    }    
+
+    @close_button = Arcadia.wf.toolbutton(self){
+      command proc{_self.close}
+      image Arcadia.image_res(CLOSE_FRAME_GIF)
+    }.pack('side' =>'right','padx'=>5, 'pady'=>0)
+  end
+  
+  def string
+    @string_text.focus
+    @string_text.set_insert("end")
+    @string_text.see("end")
+
+    show_modal(false)
+    if @closed == false
+      string_selected = @string_text.get("0.1","end").strip
+      destroy  
+      string_selected
+    end
+  end
+
+  
+  def close
+    @closed=true
+    self.release
+    destroy  
+  end
+  
+
+  
+end
+
+
+
+#class Example(tk.Frame):
+#    def __init__(self, root):
+#
+#        tk.Frame.__init__(self, root)
+#        self.canvas = tk.Canvas(root, borderwidth=0, background="#ffffff")
+#        self.frame = tk.Frame(self.canvas, background="#ffffff")
+#        self.vsb = tk.Scrollbar(root, orient="vertical", command=self.canvas.yview)
+#        self.canvas.configure(yscrollcommand=self.vsb.set)
+#
+#        self.vsb.pack(side="right", fill="y")
+#        self.canvas.pack(side="left", fill="both", expand=True)
+#        self.canvas.create_window((4,4), window=self.frame, anchor="nw", 
+#                                  tags="self.frame")
+#
+#        self.frame.bind("<Configure>", self.onFrameConfigure)
+#
+#        self.populate()
+#
+#    def populate(self):
+#        '''Put in some fake data'''
+#        for row in range(100):
+#            tk.Label(self.frame, text="%s" % row, width=3, borderwidth="1", 
+#                     relief="solid").grid(row=row, column=0)
+#            t="this is the second column for row %s" %row
+#            tk.Label(self.frame, text=t).grid(row=row, column=1)
+#
+#    def onFrameConfigure(self, event):
+#        '''Reset the scroll region to encompass the inner frame'''
+#        self.canvas.configure(scrollregion=self.canvas.bbox("all"))