arcadia 0.13.1 → 1.0.0

data/lib/a-tkcommons.rb

@@ -261,6 +261,7 @@ class AGTkObjPlace
 
 end
 
+
 class TkFrameAdapter < TkFrame
   #include TkMovable
   attr_reader :frame
@@ -281,25 +282,50 @@ class TkFrameAdapter < TkFrame
 
   def detach_frame
     if @frame
-#      if @movable
-#        @frame.bind_remove("Configure")
-#        @frame.bind_remove("Map")
-#        @frame.bind_remove("Unmap")
-#      end
       self.bind_remove("Map")
       self.unmap(@manager_forced_to_frame)
       @frame = nil
     end
   end
 
-  def attach_frame(_frame)
+  def attach_frame(_frame, _extension = nil, _frame_index=0)
     @frame = _frame
     refresh_layout_manager
     self.map
-    self.bind("Map", proc{@frame.raise})
+    if _extension
+      @frame.bind("Map", proc{
+        if _extension.frame_raised?(_frame_index)
+          @frame.raise
+        else
+          @frame.lower
+        end
+      })
+
+      
+#      ffw = Arcadia.instance.layout.frame(_extension.frame_domain(_frame_index),_extension.name)
+#      if ffw
+#        ffw.bind("Map", proc{
+#          if _extension.frame_raised?(_frame_index)
+#            p "pack"
+#            @frame.pack
+#            @frame.raise
+#          else
+#            p "unpack"
+#            @frame.lower
+#            @frame.unpack
+#          end
+#        })
+#      end
+    else
+      self.bind("Map", proc{@frame.raise})
+    end
     self
   end
   
+  def layout_manager
+    @frame_manager
+  end
+  
   def refresh_layout_manager
     @frame_manager = TkWinfo.manager(@frame)
   end
@@ -423,9 +449,12 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
       "ButtonRelease-1",
       proc{do_resize}
       )
-      _xbutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
-        background '#4966d7'
+      _xbutton = Arcadia.wf.toolbutton(@splitter_frame){
+        image Arcadia.image_res(VERTICAL_SPLITTER_HIDE_LEFT_GIF)
       }
+#      _xbutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
+#        background '#4966d7'
+#      }
       _xbutton.place(
       'x' => 0,
       'y' => 0,
@@ -437,9 +466,12 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
       "ButtonPress-1",
       proc{hide_left}
       )
-      _ybutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
-        background '#118124'
+      _ybutton = Arcadia.wf.toolbutton(@splitter_frame){
+        image Arcadia.image_res(VERTICAL_SPLITTER_HIDE_RIGHT_GIF)
       }
+#      _ybutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
+#        background '#118124'
+#      }
       _ybutton.place(
       'x' => 0,
       'y' => 21,
@@ -666,9 +698,12 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       "ButtonRelease-1",
       proc{do_resize}
       )
-      _xbutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
-        background '#4966d7'
+      _xbutton = Arcadia.wf.toolbutton(@splitter_frame){
+        image Arcadia.image_res(HORIZONTAL_SPLITTER_HIDE_TOP_GIF)
       }
+#      _xbutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
+#        background '#4966d7'
+#      }
       _xbutton.place(
       'x' => 0,
       'y' => 0,
@@ -680,9 +715,13 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       "ButtonPress-1",
       proc{hide_top}
       )
-      _ybutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
-        background '#118124'
+
+      _ybutton = Arcadia.wf.toolbutton(@splitter_frame){
+        image Arcadia.image_res(HORIZONTAL_SPLITTER_HIDE_BOTTOM_GIF)
       }
+#      _ybutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
+#        background '#118124'
+#      }
       _ybutton.place(
       'x' => 21,
       'y' => 0,
@@ -836,15 +875,20 @@ class TkBaseTitledFrame < TkFrame
     __add_sep(_width, @button_frame)
   end
 
+  def add_fixed_progress(_max=100, _canc_proc=nil, _hint=nil)
+    __add_progress(_max, _canc_proc, @button_frame, _hint)
+  end
+
   def __add_button(_label,_proc=nil,_image=nil, _side= 'right', _frame=nil)
     return if _frame.nil?
     begin
       last = @last_for_frame[_frame]
-      @last_for_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
+#      @last_for_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
+      @last_for_frame[_frame] = Arcadia.wf.titletoolbutton(_frame){
         text  _label if _label
         image  Arcadia.image_res(_image) if _image
-        padx 0
-        pady 0
+#        padx 0
+#        pady 0
         if last
           pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
         else
@@ -865,25 +909,79 @@ class TkBaseTitledFrame < TkFrame
     args = Arcadia.style('titlelabel')
     args.update(_args) if _args
     last = @last_for_frame[_frame]
-    @last_for_frame[_frame] =  @menu_buttons[_name] = TkMenuButton.new(_frame, args){|mb|
-      menu TkMenu.new(mb, Arcadia.style('titlemenu'))
+    @last_for_frame[_frame] =  @menu_buttons[_name] = Arcadia.wf.titlecontextmenubutton(_frame, _args){|mb|
+      menu Arcadia.wf.titlemenu(mb)
+#      menu TkMenu.new(mb, Arcadia.style('titlemenu'))
       if _image
-        indicatoron false
+#        indicatoron false
         image Arcadia.image_res(_image)
       else
-        indicatoron true
+#        indicatoron true
       end
-      padx 0
+#      padx 0
       if last
         pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
       else
         pack('side'=> _side,'anchor'=> 'e')
       end
     }
+    
+#    @last_for_frame[_frame] =  @menu_buttons[_name] = TkMenuButton.new(_frame, args){|mb|
+#      menu TkMenu.new(mb, Arcadia.style('titlemenu'))
+#      if _image
+#        indicatoron false
+#        image Arcadia.image_res(_image)
+#      else
+#        indicatoron true
+#      end
+#      padx 0
+#      if last
+#        pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+#      else
+#        pack('side'=> _side,'anchor'=> 'e')
+#      end
+#    }
     @menu_buttons[_name]
   end
   private :__add_menu_button
 
+  def __add_check_button(_label,_proc=nil,_image=nil, _side= 'right', _frame=nil)
+    return if _frame.nil?
+    begin
+      last = @last_for_frame[_frame]
+#      @last_for_frame[_frame] = TkCheckButton.new(_frame, Arcadia.style('checkbox').update('background'=>_frame.background)){
+#        text  _label if _label
+#        image  Arcadia.image_res(_image) if _image
+#        padx 0
+#        pady 0
+#        if last
+#          pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+#        else
+#          pack('side'=> _side,'anchor'=> 'e')
+#        end
+#        command(_proc) if _proc
+#      }
+#      Tk::BWidget::DynamicHelp::add(@last_for_frame[_frame], 'text'=>_label) if _label
+
+      @last_for_frame[_frame] = Arcadia.wf.titlecontextcheckbutton(@panel){
+        text  _label if _label
+        variable TkVariable.new
+        image Arcadia.image_res(_image) if _image
+        if last
+          pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+        else
+          pack('side'=> _side,'anchor'=> 'e')
+        end
+        command(_proc) if _proc
+      }
+      @last_for_frame[_frame].hint=_label if _label 
+      @last_for_frame[_frame]
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e)
+    end
+  end
+  private :__add_check_button
+
   def __add_panel(_name='default', _side= 'right', _args=nil, _frame=nil)
     return if _frame.nil?
     args = Arcadia.style('panel').update('background'=>_frame.background, 'highlightbackground'=>_frame.background)
@@ -926,12 +1024,13 @@ class TkBaseTitledFrame < TkFrame
     return if _frame.nil?
     begin
       last = @last_for_state_frame[_frame]
-      @last_for_state_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
+      #@last_for_state_frame[_frame] = TkButton.new(_frame, Arcadia.style('titletoolbarbutton')){
+      @last_for_state_frame[_frame] = Arcadia.wf.titletoolbutton(_frame){
         text  _label if _label
         image  Arcadia.image_res(_image) if _image
-        font 'helvetica 8 bold'
-        padx 0
-        pady 0
+       # font 'helvetica 8 bold'
+       # padx 0
+       # pady 0
         if last
           pack('side'=> _side,'anchor'=> 'w', 'after'=>last)
         else
@@ -939,7 +1038,8 @@ class TkBaseTitledFrame < TkFrame
         end
         bind('1',_proc) if _proc
       }
-      Tk::BWidget::DynamicHelp::add(@last_for_state_frame[_frame], 'text'=>_label) if _label
+      @last_for_state_frame[_frame].hint=_label
+      #Tk::BWidget::DynamicHelp::add(@last_for_state_frame[_frame], 'text'=>_label) if _label
       @last_for_state_frame[_frame]
     rescue RuntimeError => e
       Arcadia.runtime_error(e)
@@ -947,6 +1047,34 @@ class TkBaseTitledFrame < TkFrame
   end
   private :__add_state_button
 
+  def __add_progress(_max, _canc_proc=nil, _frame=nil, _hint=nil, _side= 'left')
+    
+    return if _frame.nil?
+    begin
+      last = @last_for_frame[_frame]
+      @last_for_frame[_frame] = TkFrameProgress.new(_frame, _max)
+      if last
+        @last_for_frame[_frame].pack('side'=> _side,'anchor'=> 'e', 'after'=>last)
+      else
+        @last_for_frame[_frame].pack('side'=> _side,'anchor'=> 'e')
+      end
+      
+      @last_for_frame[_frame].on_cancel=_canc_proc if _canc_proc
+
+      Tk::BWidget::DynamicHelp::add(@last_for_frame[_frame], 'text'=>_hint) if _hint
+      @last_for_frame[_frame]
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e)
+    end
+  end
+  private :__add_progress
+
+  def __destroy_progress(_progress, _frame)
+    @last_for_frame[_frame] = nil if @last_for_frame[_frame] == _progress
+    _progress.destroy
+  end
+  private :__destroy_progress
+
   def menu_button(_name='default')
     @menu_buttons[_name]
   end
@@ -1183,11 +1311,13 @@ class TkLabelTitledFrame < TkTitledFrame
   end
 
   def shift_on
-    @left_label.foreground(Arcadia.conf('titlelabel.foreground'))
+    @left_label.state='normal'
+    #@left_label.foreground(Arcadia.conf('titlelabel.foreground'))
   end
   
   def shift_off
-    @left_label.foreground(Arcadia.conf('titlelabel.disabledforeground'))
+    @left_label.state='disable'
+    #@left_label.foreground(Arcadia.conf('titlelabel.disabledforeground'))
   end
   
   def title(_text=nil)
@@ -1204,6 +1334,17 @@ class TkLabelTitledFrame < TkTitledFrame
   end
 end
 
+class TkLabelTitledFrameClosable < TkLabelTitledFrame
+    def head_buttons
+      @bclose = add_fixed_button('[ ]',proc{}, CLOSE_FRAME_GIF)
+    end
+    
+    def add_close_action(_proc)
+      @bclose.bind_append("1", _proc)
+    end
+end
+
+
 class TkMenuTitledFrame < TkTitledFrame
   def create_left_title
     @left_menu_button = __create_left_menu_button(@top)
@@ -1216,15 +1357,17 @@ class TkMenuTitledFrame < TkTitledFrame
 
   def __create_left_menu_button(_frame)
     img=@img
-    @left_menu_button = TkMenuButton.new(_frame, Arcadia.style('titlebutton')){|mb|
-      menu TkMenu.new(mb, Arcadia.style('titlemenu'))
+    #@left_menu_button = TkMenuButton.new(_frame, Arcadia.style('titlebutton')){|mb|
+    @left_menu_button = Arcadia.wf.titlemenubutton(_frame){|mb|
+      menu Arcadia.wf.titlemenu(mb)
+      #menu TkMenu.new(mb, Arcadia.style('titlemenu'))
       if img
-        indicatoron false
+        #indicatoron false
         image Arcadia.image_res(img)
       else
-        indicatoron true
+        #indicatoron true
       end
-      padx 0
+      #padx 0
       textvariable TkVariable.new('')
       pack('side'=> 'left','anchor'=> 'e')
     }
@@ -1232,11 +1375,13 @@ class TkMenuTitledFrame < TkTitledFrame
   end
 
   def shift_on
-    @left_menu_button.foreground(Arcadia.conf('titlelabel.foreground'))
+    @left_menu_button.state='normal'
+    #@left_menu_button.foreground(Arcadia.conf('titlelabel.foreground'))
   end
   
   def shift_off
-    @left_menu_button.foreground(Arcadia.conf('titlelabel.disabledforeground'))
+    @left_menu_button.state='disable'
+    #@left_menu_button.foreground(Arcadia.conf('titlelabel.disabledforeground'))
   end
   
   def title(_text=nil)
@@ -1469,6 +1614,11 @@ class TkTitledFrameAdapter < TkMenuTitledFrame
     __add_menu_button(_name, _image, _side, _args, @transient_frame_adapter[_sender_name][:action])
   end
 
+  def add_check_button(_sender_name, _label,_proc=nil,_image=nil, _side= 'right')
+    forge_transient_adapter(_sender_name)
+    __add_check_button(_label,_proc,_image, _side, @transient_frame_adapter[_sender_name][:action])
+  end
+
   def add_panel(_sender_name, _name='default',_side= 'right', _args=nil)
     forge_transient_adapter(_sender_name)
     __add_panel(_name, _side, _args, @transient_frame_adapter[_sender_name][:action])
@@ -1484,6 +1634,15 @@ class TkTitledFrameAdapter < TkMenuTitledFrame
     __add_state_button(_label,_proc,_image, _side, @transient_frame_adapter[_sender_name][:state])
   end
 
+  def add_progress(_sender_name, _max=100, _canc_proc=nil, _hint=nil)
+    forge_transient_adapter(_sender_name)
+    __add_progress(_max, _canc_proc, @transient_frame_adapter[_sender_name][:action], _hint)
+  end
+
+  def destroy_progress(_sender_name, _progress)
+    __destroy_progress(_progress, @transient_frame_adapter[_sender_name][:action])
+  end
+
 end
 
 
@@ -1623,7 +1782,8 @@ class TkProgressframe < TkFloatTitledFrame
 
     @buttons_frame = TkFrame.new(self, Arcadia.style('panel')).pack('fill'=>'x', 'side'=>'bottom')
 
-    @b_cancel = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
+    #@b_cancel = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
+    @b_cancel = Arcadia.wf.titletoolbutton(@buttons_frame){|_b_go|
       default  'disabled'
       text  'Cancel'
       overrelief  'raised'
@@ -1647,6 +1807,58 @@ class TkProgressframe < TkFloatTitledFrame
   end
 end
 
+class TkFrameProgress < TkFrame
+  attr_accessor :max
+  def initialize(parent=nil, _max=100,  *args)
+    super(parent, Arcadia.style('panel').update({:background => Arcadia.conf('titlelabel.background')}), *args)
+    _max=1 if _max<=0
+    @max = _max
+    @progress = TkVariable.new
+    @progress.value = -1
+    Tk::BWidget::ProgressBar.new(self, :width=>50, :height=>16,
+      :background=>Arcadia.conf('titlelabel.background'),
+      :troughcolor=>Arcadia.conf('titlelabel.background'),
+      :foreground=>Arcadia.conf('progress.foreground'),
+      :variable=>@progress,
+      :borderwidth=>0,
+      :relief=>'flat',
+      :maximum=>_max).pack('side'=>'left','padx'=>0, 'pady'=>0)
+    #@b_cancel = TkButton.new(self, Arcadia.style('toolbarbutton')){|b|
+    @b_cancel = Arcadia.wf.titletoolbutton(self){|b|
+     # background  Arcadia.conf('titlelabel.background')
+     # foreground  Arcadia.conf('titlelabel.background')
+     # highlightbackground Arcadia.conf('titlelabel.background')
+     # highlightcolor Arcadia.conf('titlelabel.background')
+      image Arcadia.image_res(CLOSE_FRAME_GIF)
+     # borderwidth 0
+     # relief 'flat'
+     # padx 0
+     # pady 0
+     # anchor 'n'
+      pack('side'=>'left','padx'=>0, 'pady'=>0)
+    }
+  end
+
+  def destroy
+    @on_destroy.call if defined?(@on_destroy)
+    super
+  end
+
+  def progress(_incr=1)
+    @progress.numeric += _incr
+  end
+
+  def on_cancel=(_proc)
+    @b_cancel.bind_append('1', _proc)
+  end
+
+  def on_destroy=(_proc)
+    @on_destroy=_proc
+  end
+  
+end
+
+
 class TkBuffersChoiseView < TkToplevel
 
   def initialize
@@ -1683,7 +1895,27 @@ class TclTkInfo
   attr_reader :level
   def initialize
     @level = Tk.tk_call( "eval", "info patchlevel")
-    # @level = TclTkIp.new._eval "info patchlevel"
+
+#    info args procname 
+#    info body procname 
+#    info cmdcount 
+#    info commands ?pattern? 
+#    info complete command 
+#    info default procname arg varname 
+#    info exists varName 
+#    info globals ?pattern? 
+#    info hostname 
+#    info level ?number? 
+#    info library 
+#    info loaded ?interp? 
+#    info locals ?pattern? 
+#    info nameofexecutable 
+#    info patchlevel 
+#    info procs ?pattern? 
+#    info script 
+#    info sharedlibextension 
+#    info tclversion 
+#    info vars ?pattern?     
   end
 end
 
@@ -1691,7 +1923,15 @@ end
 #Tk.tk_call "eval","ttk::setTheme clam"
 #Tk::Tile::Style.theme_use('clam')
 
+
 class TkWidgetFactory
+
+  module WidgetEnhancer
+    def hint=(_hint=nil)
+      Tk::BWidget::DynamicHelp::add(self, 'text'=>_hint) if _hint
+    end
+  end
+
   def initialize
     if Arcadia.conf('tile.theme')
       @use_tile = true
@@ -1708,6 +1948,16 @@ class TkWidgetFactory
   end
 
   def initialize_tile_widgets
+  
+    #Widget state flags include:
+    #active,disabled,focus,pressed,selected,background,readonly,alternate,invalid,hover
+  
+  	 # Workaround for #1100117:
+    # Actually, on Aqua we probably shouldn't stipple images in
+    # disabled buttons even if it did work...
+    # don't work with Cocoa
+    Tk.tk_call("eval","ttk::style configure . -stipple {}") if OS.mac?
+  
     #TScrollbar
     Tk::Tile::Style.configure("Arcadia.TScrollbar", Arcadia.style('scrollbar'))
     Tk::Tile::Style.map("Arcadia.TScrollbar",
@@ -1746,26 +1996,410 @@ class TkWidgetFactory
     #Treeview
     #Tk::Tile::Style.configure(Tk::Tile::Treeview, Arcadia.style('treepanel'))
 
-
     #TMenubutton
-    #Tk::Tile::Style.configure(Tk::Tile::TMenubutton, Arcadia.style('menu'))
+    Tk::Tile::Style.element_create('Arcadia.Menubutton.indicator', 
+                                   :image, Arcadia.image_res(DROP_DOWN_ARROW_GIF),
+                                   :sticky=>:w)    
+
+    Tk::Tile::Style.configure("Arcadia.TMenubutton", Arcadia.style('menubutton').update(
+      'padding'=>"0 0 0 0", 
+      'width'=>0
+      )
+    )
+
+    Tk::Tile::Style.map("Arcadia.TMenubutton",
+    :background=>[:pressed, Arcadia.style('menubutton')['activebackground'], :disabled, Arcadia.style('menubutton')['background'], :active, Arcadia.style('menubutton')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('menubutton')['background'], :disabled, Arcadia.style('menubutton')['highlightbackground'], :active, Arcadia.style('menubutton')['background']],
+    :relief=>[:pressed, :flat])
+    Tk::Tile::Style.layout('Arcadia.TMenubutton', [
+        'Menubutton.border', {:children=>[
+             'Menubutton.padding', {:children=>[
+                  'Arcadia.Menubutton.indicator', {:side=>:right}, 
+                  'Menubutton.focus', {:side=>:left, :children=>['Menubutton.label']}
+             ]}
+        ]}
+    ])
+
+    #Title.TMenubutton
+    # 
+    Tk::Tile::Style.configure("Arcadia.Title.TMenubutton", Arcadia.style('titlelabel').update(
+      'padding'=>"0 0 0 0", 
+      'font'=>Arcadia.conf('titlelabel.font'), 
+      'width'=>0,
+      'foreground' => Arcadia.conf('titlelabel.foreground'),
+      )
+    )
+    Tk::Tile::Style.map("Arcadia.Title.TMenubutton",
+    :background=>[:pressed, Arcadia.style('titlelabel')['activebackground'], :disabled, Arcadia.style('titlelabel')['background'], :active, Arcadia.style('titlelabel')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('titlelabel')['background'], :disabled, Arcadia.style('titlelabel')['highlightbackground'], :active, Arcadia.style('titlelabel')['background']],
+    :relief=>[:pressed, :flat])
+    Tk::Tile::Style.layout('Arcadia.Title.TMenubutton', [
+        'Menubutton.border', {:children=>[
+             'Menubutton.padding', {:children=>[
+                  'Arcadia.Menubutton.indicator', {:side=>:right}, 
+                  'Menubutton.focus', {:side=>:left, :children=>['Menubutton.label']}
+             ]}
+        ]}
+    ])
+
+    #Title.Context.TMenubutton
+    # 
+    Tk::Tile::Style.configure("Arcadia.Title.Context.TMenubutton", Arcadia.style('titlelabel').update(
+      'padding'=>"0 0 0 0", 
+      'font'=>"#{Arcadia.conf('titlelabel.font')} italic", 
+      'width'=>0,
+      'foreground' => Arcadia.conf('titlecontext.foreground'),
+      )
+    )
+    Tk::Tile::Style.map("Arcadia.Title.Context.TMenubutton",
+    :background=>[:pressed, Arcadia.style('titlelabel')['activebackground'], :disabled, Arcadia.style('titlelabel')['background'], :active, Arcadia.style('titlelabel')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('titlelabel')['background'], :disabled, Arcadia.style('titlelabel')['highlightbackground'], :active, Arcadia.style('titlelabel')['background']],
+    :relief=>[:pressed, :flat])
+    Tk::Tile::Style.layout('Arcadia.Title.Context.TMenubutton', [
+        'Menubutton.border', {:children=>[
+             'Menubutton.padding', {:children=>[
+                  'Arcadia.Menubutton.indicator', {:side=>:right}, 
+                  'Menubutton.focus', {:side=>:left, :children=>['Menubutton.label']}
+             ]}
+        ]}
+    ])
+    
+    
+    #TCheckbutton, 
+
+    Tk::Tile::Style.element_create('Arcadia.Checkbutton.indicator', 
+                                   :image, Arcadia.image_res(CHECKBOX_0_DARK_GIF),
+                                   :map=>[
+                                     [:pressed, :selected],Arcadia.image_res(CHECKBOX_1_DARK_GIF),
+                                     :pressed,             Arcadia.image_res(CHECKBOX_0_DARK_GIF),
+                                     [:active, :selected], Arcadia.image_res(CHECKBOX_2_DARK_GIF),
+                                     :active,              Arcadia.image_res(CHECKBOX_0_DARK_GIF),
+                                     :selected,            Arcadia.image_res(CHECKBOX_1_DARK_GIF),
+                                   ], :sticky=>:w)  
+
+    Tk::Tile::Style.configure("Arcadia.TCheckbutton", Arcadia.style('checkbox').update(
+        'padding'=>"0 0 0 0", 
+        'width'=>0
+        )
+      )
+    
+    Tk::Tile::Style.layout('Arcadia.TCheckbutton', [
+        'Checkbutton.background', # this is not needed in tile 0.5 or later
+        'Checkbutton.border', {:children=>[
+             'Checkbutton.padding', {:children=>[
+                  'Arcadia.Checkbutton.indicator', {:side=>:left}, 
+                  'Checkbutton.focus', {:side=>:left, :children=>[
+                      'Checkbutton.label'
+                  ]}
+             ]}
+        ]}
+    ])    
+
+                                   
+    Tk::Tile::Style.configure("Arcadia.Title.TCheckbutton", Arcadia.style('titlelabel').update(
+        'padding'=>"0 0 0 0", 
+        'width'=>0
+        )
+      )
+    
+    Tk::Tile::Style.layout('Arcadia.Title.TCheckbutton', [
+        'Checkbutton.background', # this is not needed in tile 0.5 or later
+        'Checkbutton.border', {:children=>[
+             'Checkbutton.padding', {:children=>[
+                  'Arcadia.Checkbutton.indicator', {:side=>:left}, 
+                  'Checkbutton.focus', {:side=>:left, :children=>[
+                      'Checkbutton.label'
+                  ]}
+             ]}
+        ]}
+    ])    
+    
+    #Combobox
+    
+
+    Tk::Tile::Style.element_create('Arcadia.Combobox.indicator', 
+                                   :image, Arcadia.image_res(DROP_DOWN_ARROW_GIF),
+                                   :sticky=>:w)    
+
+    Tk::Tile::Style.configure("Arcadia.TCombobox", Arcadia.style('combobox').update(
+      'padding'=>"0 0 0 0", 
+      'width'=>0
+     # 'borderwidth'=>1,
+     # 'relief'=>'groove'      
+      )
+    )
+
+#    Tk::Tile::Style.map("Arcadia.TCombobox",
+#    :relief=>[:pressed, :flat])
+    
+    Tk::Tile::Style.layout('Arcadia.TCombobox', [
+        'Combobox.border', {:children=>[
+             'Combobox.padding', {:children=>[
+                  'Arcadia.Combobox.indicator', {:side=>:right}, 
+                  'Combobox.focus', {:side=>:left, :children=>['Combobox.label']}
+             ]}
+        ]}
+    ])
+
+
+    #Tk::Tile::Style.configure(Tk::Tile::TLabel, Arcadia.style('label'))
+    #TLabel
+    Tk::Tile::Style.configure("Arcadia.TLabel", Arcadia.style('label'))
+
 
     #TButton
-    #Tk::Tile::Style.configure(Tk::Tile::TButton, Arcadia.style('button'))
+    Tk::Tile::Style.configure("Arcadia.TButton", Arcadia.style('button').update(
+      'padding'=>"0 0 0 0"
+#      ,
+#      'borderwidth'=>1,
+#      'relief'=>'groove' 
+      )
+    )
+    Tk::Tile::Style.map("Arcadia.TButton",
+    :background=>[:pressed, Arcadia.style('button')['activebackground'], :disabled, Arcadia.style('button')['background'], :active, Arcadia.style('button')['activebackground']],
+    :foreground=>[:pressed, Arcadia.style('button')['activeforeground'], :disabled, Arcadia.style('button')['foreground'], :active, Arcadia.style('button')['activeforeground']],
+    :relief=>[:pressed, :sunken])
+
+    #Tool.TButton
+    Tk::Tile::Style.configure("Arcadia.Tool.TButton", Arcadia.style('toolbarbutton').update(
+      'padding'=>"0 0 0 0",
+      'anchor'=>'w' 
+      )
+    )
+    Tk::Tile::Style.map("Arcadia.Tool.TButton",
+    :background=>[:pressed, Arcadia.style('button')['activebackground'], :disabled, Arcadia.style('toolbarbutton')['background'], :active, Arcadia.style('toolbarbutton')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('button')['background'], :disabled, Arcadia.style('toolbarbutton')['highlightbackground'], :active, Arcadia.style('toolbarbutton')['background']],
+    :relief=>[:pressed, :sunken])
+
+    #Title.Tool.TButton
+    Tk::Tile::Style.configure("Arcadia.Title.Tool.TButton", Arcadia.style('titletoolbarbutton').update(
+      'padding'=>"0 0 0 0" 
+      )
+    )
+    Tk::Tile::Style.map("Arcadia.Title.Tool.TButton",
+    :background=>[:pressed, Arcadia.style('button')['activebackground'], :disabled, Arcadia.style('titletoolbarbutton')['background'], :active, Arcadia.style('toolbarbutton')['activebackground']],
+    :arrowcolor=>[:pressed, Arcadia.style('button')['background'], :disabled, Arcadia.style('titletoolbarbutton')['highlightbackground'], :active, Arcadia.style('toolbarbutton')['background']],
+    :relief=>[:pressed, :sunken])
+    
+  end
+
+
+
+  def scrollbar(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Scrollbar.new(_parent,{:style=>"Arcadia.TScrollbar"}.update(_args), &b)
+      else
+        obj = TkScrollbar.new(_parent,Arcadia.style('scrollbar').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+    end
+  end
+
+  def label(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::TLabel.new(_parent,{:style=>"Arcadia.TLabel"}.update(_args), &b)
+      else
+        obj = TkLabel.new(_parent,Arcadia.style('label').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
+        obj = Tk::Tile::Button.new(_parent,{:style=>"Arcadia.TButton"}.update(_args), &b)
+      else
+        obj = TkButton.new(_parent,Arcadia.style('button').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def toolbutton(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Button.new(_parent,{:style=>"Arcadia.Tool.TButton"}.update(_args), &b)
+      else
+        obj = TkButton.new(_parent,Arcadia.style('toolbarbutton').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def titletoolbutton(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Button.new(_parent,{:style=>"Arcadia.Title.Tool.TButton"}.update(_args), &b)
+      else
+        obj = TkButton.new(_parent,Arcadia.style('toolbarbutton').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def menubutton(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Menubutton.new(_parent,{:style=>"Arcadia.TMenubutton"}.update(_args), &b)
+      else
+        obj = TkMenuButton.new(_parent,Arcadia.style('menubutton').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+  
+  def combobox(_parent,_args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Combobox.new(_parent,{:style=>"Arcadia.TCombobox"}.update(_args), &b)
+      else
+        obj = Tk::BWidget::ComboBox.new(_parent, Arcadia.style('combobox').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def titlemenubutton(_parent, _args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Menubutton.new(_parent,{:style=>"Arcadia.Title.TMenubutton"}.update(_args), &b)
+      else
+        obj = TkMenuButton.new(_parent,Arcadia.style('menubutton').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
   end
 
-  def scrollbar(_parent,_args=nil, &b)
+  def titlecontextmenubutton(_parent, _args={}, &b)
     begin
       if @use_tile
-        return Tk::Tile::Scrollbar.new(_parent,{:style=>"Arcadia.TScrollbar"}.update(_args), &b)
+        obj = Tk::Tile::Menubutton.new(_parent,{:style=>"Arcadia.Title.Context.TMenubutton"}.update(_args), &b)
       else
-        return TkScrollbar.new(_parent,Arcadia.style('scrollbar').update(_args), &b)
+        obj = TkMenuButton.new(_parent,Arcadia.style('menubutton').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
       end
+      return obj
     rescue RuntimeError => e
       Arcadia.runtime_error(e) 
+      return nil
     end
   end
 
+  def checkbutton(_parent, _args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Checkbutton.new(_parent,{:style=>"Arcadia.TCheckbutton"}.update(_args), &b)
+      else
+        obj = TkCheckbutton.new(_parent,Arcadia.style('checkbox').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def titlecontextcheckbutton(_parent, _args={}, &b)
+    begin
+      if @use_tile
+        obj = Tk::Tile::Checkbutton.new(_parent,{:style=>"Arcadia.Title.TCheckbutton"}.update(_args), &b)
+      else
+        obj = TkCheckbutton.new(_parent,Arcadia.style('checkbox').update(_args), &b)
+      end
+      class << obj
+        include WidgetEnhancer
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def menu(_parent,_args={}, &b)
+    begin
+      obj = TkMenu.new(_parent, &b)
+      if !OS.mac?
+        obj.configure(Arcadia.style('menu').update(_args))
+        obj.extend(TkAutoPostMenu)
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+  def titlemenu(_parent,_args={}, &b)
+    begin
+      obj = TkMenu.new(_parent, &b)
+      if !OS.mac?
+        obj.configure(Arcadia.style('titlemenu').update(_args))
+        obj.extend(TkAutoPostMenu)
+      end
+      return obj
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e) 
+      return nil
+    end
+  end
+
+
 end
 
 
@@ -2174,4 +2808,562 @@ class KeyTest < TkFloatTitledFrame
     @ttest.extend(TkScrollableWidget).show
     place('x'=>100,'y'=>100,'height'=> 220,'width'=> 500)
   end
+end
+
+class HinnerDialog < TkFrame
+  def initialize(side='top',args=nil)
+    newargs =  Arcadia.style('panel').update({
+      "highlightbackground" => Arcadia.conf('hightlight.link.foreground'),
+      "highlightthickness" => 1
+    })
+    if !args.nil?
+      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')
+        self.pack('side' =>side,'before'=>Arcadia.layout.root, 'anchor'=>'nw','fill'=>'x', 'padx'=>0, 'pady'=>0)
+      when 'bottom'
+        self.pack('side' =>side,'after'=>Arcadia.layout.root, 'anchor'=>'nw','fill'=>'x', 'padx'=>0, 'pady'=>0)
+    end
+    @modal = false
+  end
+  
+  def is_modal?
+    @modal
+  end
+  
+  def release
+    @modal=false
+  end
+  
+  def show_modal(_destroy=true)
+    @modal=true
+    Tk.update
+    self.grab("set")
+    begin
+      while is_modal? do 
+        Tk.update
+        sleep(0.1) 
+      end
+    ensure
+      self.grab("release")
+    end
+    Tk.update
+    self.destroy if _destroy
+  end
+end
+
+
+class HinnerSplittedDialog < HinnerDialog
+  attr_reader :frame, :splitter_frame
+  def initialize(side='top', height=100, args=nil)
+    super(side, args)
+    y0 = height
+    fr = TkFrame.new(self){
+      height y0 
+      pack('side' =>side,'padx'=>0, 'pady'=>0, 'fill'=>'x', 'expand'=>'1')
+    }
+    splitter_frame = TkFrame.new(self, Arcadia.style('splitter')){
+      height 5
+      pack('side' =>side,'padx'=>0, 'pady'=>0, 'fill'=>'x', 'expand'=>'1')
+    }
+    oldcursor = splitter_frame.cget('cursor')
+    tmpcursor = 'sb_v_double_arrow'
+    yx=0
+    
+    splitter_frame.bind_append("Enter", proc{|x, y| 
+      splitter_frame.configure('cursor'=> tmpcursor)
+    } , "%x %y")
+
+    splitter_frame.bind_append("B1-Motion", proc{|x, y| 
+      yx=y
+      splitter_frame.raise
+    } ,"%x %y")
+     
+    splitter_frame.bind_append("ButtonRelease-1", proc{|e|
+      splitter_frame.configure('cursor'=> oldcursor)
+      if side == 'top'
+        h = (y0+yx).abs
+      elsif side == 'bottom'
+        h = (y0-yx).abs
+      end
+      y0 = h
+      fr.configure('height'=>h)
+    })    
+    @frame = fr
+    @splitter_frame = splitter_frame
+  end
+end
+
+class HinnerSplittedDialogTitled < HinnerSplittedDialog
+  attr_accessor :hinner_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)
+    close = proc{
+      self.destroy
+      Tk.callback_break
+    }
+    btf.add_close_action(close)
+    @hinner_frame = btf.frame
+  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)
+    super(side, args)
+    @mode = mode
+    if must_exist.nil?
+      must_exist = mode != SAVE_FILE_MODE
+    end
+    @must_exist = must_exist
+    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
+    @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")})
+    #@dir_text.tag_configure("entry",'foreground'=> "red",'borderwidth'=>0, 'relief'=>'flat',  'underline'=>true)
+
+    @tag_file_exist = "file_exist"
+    @dir_text.tag_configure(@tag_file_exist,'background'=> Arcadia.conf("hightlight.selected.background"), 'borderwidth'=>0, 'relief'=>'flat', 'underline'=>true)
+    
+    @tag_selected = "link_selected"
+    @dir_text.tag_configure(@tag_selected,'borderwidth'=>0, 'relief'=>'flat', 'underline'=>true)
+    @dir_text.tag_bind(@tag_selected,"ButtonRelease-1",  proc{ 
+       self.release
+    } )
+    @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
+      when 'Escape','Tab'
+        i1 = @dir_text.index("insert")
+        raise_candidates(i1, @dir_text.get("#{i1} linestart", i1))
+      when "Return"
+        if (@mode == SELECT_FILE_MODE || @mode == SAVE_FILE_MODE) && @must_exist
+          str_file = @dir_text.get('1.0','end')
+          if str_file && str_file.length > 0 && File.exists?(str_file.strip) && File.ftype(str_file.strip) == 'file'
+            _self.release
+          end
+          Tk.callback_break
+        elsif @mode == SELECT_DIR_MODE && @must_exist
+          str_file = @dir_text.get('1.0','end')
+          if str_file && str_file.length > 0 && File.exists?(str_file.strip) && File.ftype(str_file.strip) == 'directory'
+            _self.release
+          end
+          Tk.callback_break
+        else
+          _self.release
+        end
+      end
+    }   
+    @dir_text.bind_append('KeyRelease'){|e|
+      case e.keysym
+      when 'Escape','Tab', "Return"
+      else
+        @dir_text.tag_remove(@tag_selected,'1.0','end')
+        i1 = @dir_text.index("insert - 1 chars wordstart")
+        while @dir_text.get("#{i1} -1 chars",i1) != File::SEPARATOR && @dir_text.get("#{i1} - 1 chars",i1) != ""
+          i1 = @dir_text.index("#{i1} - 1 chars")
+        end
+        i2 = @dir_text.index("insert")
+        
+        @dir_text.tag_add(@tag_selected ,i1,i2) if @mode == SAVE_FILE_MODE
+        
+        if File.exists?(@dir_text.get('1.0',i2))
+          @dir_text.tag_add(@tag_file_exist ,i1,i2)
+          @dir_text.tag_add(@tag_selected ,i1,i2) if @mode == SELECT_FILE_MODE && File.ftype(@dir_text.get('1.0',i2)) == 'file'
+          @dir_text.tag_add(@tag_selected ,i1,i2) if @mode == SELECT_DIR_MODE && File.ftype(@dir_text.get('1.0',i2)) == 'directory'
+        else
+          @dir_text.tag_remove(@tag_file_exist,'1.0','end')
+        end
+      end
+    }   
+    
+    @dir_text.bind_append("Control-KeyPress"){|e|
+      case e.keysym
+      when 'd'
+        _self.close
+        Tk.callback_break
+      end
+    }    
+
+    #@select_button = Tk::BWidget::Button.new(self, Arcadia.style('toolbarbutton')){
+    @select_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 file(_dir)
+    set_dir(_dir)
+    show_modal(false)
+    if @closed == false
+      file_selected = @dir_text.get("0.1","end").strip
+      destroy  
+      file_selected
+    end
+  end
+
+  def dir(_dir)
+    file(_dir)
+  end
+  
+  def close
+    @closed=true
+    self.release
+    destroy  
+  end
+  
+  def set_dir(_dir)
+    _dir=Dir.pwd if !File.exists?(_dir)
+    #load_from_dir(_dir)
+    @dir_text.state("normal")
+    @dir_text.delete("0.1","end")
+    @cursor =  @dir_text.cget('cursor')
+    dir_seg = _dir.split(File::SEPARATOR)
+    incr_dir = ""
+    get_dir = proc{|i| 
+      res = ""
+      0.upto(i){|j|
+         if res == File::SEPARATOR
+          res=res+dir_seg[j]
+         elsif res.length == 0 && dir_seg[j].length == 0
+          res=File::SEPARATOR+dir_seg[j]
+         elsif res.length == 0 && dir_seg[j].length > 0
+          res=dir_seg[j]
+         else
+          res=res+File::SEPARATOR+dir_seg[j]
+         end
+      }
+      is_dir = File.ftype(res) == "directory"
+      res=res+File::SEPARATOR if is_dir && res[-1..-1]!=File::SEPARATOR
+      res
+    }
+    
+    dir_seg.each_with_index{|seg,i|
+      tag_name = "link#{i}"
+      @dir_text.tag_configure(tag_name,'foreground'=> Arcadia.conf('hightlight.link.foreground'),'borderwidth'=>0, 'relief'=>'flat', 'underline'=>true)
+
+      dir = get_dir.call(i)
+      if File.ftype(dir) == "directory"
+        @dir_text.insert("end", seg, tag_name)
+        @dir_text.insert("end", "#{File::SEPARATOR}")
+        @dir_text.tag_bind(tag_name,"ButtonRelease-1",  proc{ 
+          inx = @dir_text.index("insert wordend +1 chars")
+          @dir_text.set_insert("end")
+          raise_candidates(inx, dir)
+        } )
+        @dir_text.tag_bind(tag_name,"Enter", proc{@dir_text.configure('cursor'=> 'hand2')})
+        @dir_text.tag_bind(tag_name,"Leave", proc{@dir_text.configure('cursor'=> @cursor)})
+      else
+        @dir_text.insert("end", seg, @tag_selected)
+      end
+    }
+    
+    @dir_text.focus
+    @dir_text.set_insert("end")
+    @dir_text.see("end")
+  end
+
+  def raise_candidates(_inx, _dir)
+    if _dir[-1..-1] != File::SEPARATOR && _dir !=nil && _dir.length > 0
+      len = _dir.split(File::SEPARATOR)[-1].length+1
+      _dir = _dir[0..-len]
+      _inx = "#{_inx} - #{len-1} chars"
+    end 
+    _dir=Dir.pwd if !File.exists?(_dir)  
+    @dir_text.set_insert("end")
+    dirs_and_files=load_from_dir(_dir)
+    if dirs_and_files[0].length + dirs_and_files[1].length == 1
+      if dirs_and_files[0].length == 1
+        one = "#{_dir}#{dirs_and_files[0][0]}"
+      else
+        one = "#{_dir}#{dirs_and_files[1][0]}"
+      end
+      set_dir(one)
+    elsif dirs_and_files[0].length + dirs_and_files[1].length == 0
+      # do not raise
+    else 
+      if @mode == SELECT_DIR_MODE
+        raise_dir(_inx, _dir, dirs_and_files[0], [])
+      else
+        raise_dir(_inx, _dir, dirs_and_files[0], dirs_and_files[1])
+      end
+    end
+    Tk.callback_break
+  end
+  
+  def last_candidate_is_file?(_name)
+    @last_candidates_file && @last_candidates_file.include?(_name)
+  end
+
+  def last_candidate_is_dir?(_name)
+    @last_candidates_dir && @last_candidates_dir.include?(_name)
+  end
+  
+  def raise_dir(_index, _dir, _candidates_dir, _candidates_file=nil) 
+    @raised_listbox_frame.destroy if @raised_listbox_frame != nil
+    @last_candidates_dir = _candidates_dir
+    @last_candidates_file = _candidates_file
+    _index_now = @dir_text.index('insert')
+    _index_for_raise =  @dir_text.index("#{_index} wordstart")
+    _candidates = [] 
+    _candidates.concat(_candidates_dir) if _candidates_dir 
+    _candidates.concat(_candidates_file) if _candidates_file 
+        
+    if _candidates.length >= 1 
+        _rx, _ry, _width, heigth = @dir_text.bbox(_index_for_raise);
+        _x = _rx + TkWinfo.rootx(@dir_text)  
+        _y = _ry + TkWinfo.rooty(@dir_text)  + @font_metrics[2][1]
+        _xroot = _x
+        _yroot = _y
+
+        max_width = TkWinfo.screenwidth(Arcadia.layout.root) - _x
+        
+        @raised_listbox_frame = TkFrame.new(Arcadia.layout.root, {
+          :padx=>"1",
+          :pady=>"1",
+          :background=> "yellow"
+        })
+        
+        @raised_listbox = TkTextListBox.new(@raised_listbox_frame, {
+          :takefocus=>true}.update(Arcadia.style('listbox')))
+        @raised_listbox.tag_configure('file','foreground'=> Arcadia.conf('hightlight.link.foreground'),'borderwidth'=>0, 'relief'=>'flat')
+
+        
+        _char_height = @font_metrics[2][1]
+        _width = 0
+        _docs_entries = Hash.new
+        _item_num = 0
+
+        _select_value = proc{
+          if @raised_listbox.selected_line && @raised_listbox.selected_line.strip.length>0
+            #_value = @raised_listbox.selected_line.split('-')[0].strip
+            seldir = File.join(_dir,@raised_listbox.selected_line)
+
+            set_dir(seldir)
+            @raised_listbox_frame.grab("release")
+            @raised_listbox_frame.destroy
+          end
+        }    
+
+        _update_list = proc{|_in|
+            _in.strip!
+            @raised_listbox.clear
+            _length = 0
+            _candidates.each{|value|
+              _doc = value.strip
+              _class, _key, _arity = _doc.split('#')
+              if _key && _arity
+                args = arity_to_str(_arity.to_i)
+                if args.length > 0
+                  _key = "#{_key}(#{args})"
+                end
+              end
+              
+              if _key && _class && _key.strip.length > 0 && _class.strip.length > 0 
+                _item = "#{_key.strip} #{TkTextListBox::SEP} #{_class.strip}"
+              elsif _key && _key.strip.length > 0
+                _item = "#{_key.strip}"
+              else
+                _key = "#{_doc.strip}"
+                _item = "#{_doc.strip}"
+              end
+              array_include = proc{|_a, _str, _asterisk_first_char|
+                ret = true
+                str = _str
+                _a.each_with_index{|x, j|
+                  next if x.length == 0
+                  if j == 0 && !_asterisk_first_char
+                    ret = ret && str[0..x.length-1] == x
+                  else
+                    ret = ret && str.include?(x)
+                  end
+                  if ret 
+                    i = str.index(x)
+                    str = str[i+x.length..-1]
+                  else
+                    break
+                  end
+                }
+                ret
+              }
+              if _in.nil? || _in.strip.length == 0 || _item[0.._in.length-1] == _in || 
+                 (_in.include?('*') &&  array_include.call(_in.split("*"), _item, _in[0..1]=='*'))
+#                 (_in[0..0] == '*' && _item.include?(_in[1..-1]))
+
+                _docs_entries[_item]= _doc
+       #         @raised_listbox.insert('end', _item)
+                if last_candidate_is_dir?(_item)
+                  @raised_listbox.add(_item, 'file')
+                else
+                  @raised_listbox.add(_item)
+                end
+                _temp_length = _item.length
+                _length = _temp_length if _temp_length > _length 
+                _item_num = _item_num+1 
+                _last_valid_key = _key
+              end
+            }
+            _width = _length*8
+            if @raised_listbox.length == 0
+              @raised_listbox.grab("release")
+              @raised_listbox_frame.destroy
+              @dir_text.focus
+              Tk.callback_break
+              #Tk.event_generate(@raised_listbox, "KeyPress" , :keysym=>"Escape") if TkWinfo.mapped?(@raised_listbox)
+            else
+              @raised_listbox.select(1)
+              Tk.event_generate(@raised_listbox, "1") if TkWinfo.mapped?(@raised_listbox)
+            end
+        }
+
+        get_filter = proc{
+          filter = ""
+          if @dir_text.get("insert -1 chars", "insert") != File::SEPARATOR  
+            file_str = @dir_text.get("insert linestart", "insert")
+            parts = file_str.split(File::SEPARATOR)
+            if _dir == File::SEPARATOR
+              original_parts = [""] 
+            else
+              original_parts = _dir.split(File::SEPARATOR)
+            end
+            if parts && parts.length == original_parts.length + 1
+              filter = parts[-1]
+            end
+          end
+          filter = "" if filter.nil?
+          filter
+        }
+        #filter = @dir_text.get("insert -1 chars wordstart", "insert")
+
+
+        @raised_listbox.bind_append('KeyPress'){|e|
+          is_list_for_update = false
+          case e.keysym
+            when 'a'..'z','A'..'Z','0'..'9'
+              @dir_text.insert('end', e.keysym)
+              @dir_text.see("end")
+              is_list_for_update = true
+            when 'minus'
+              @dir_text.insert('end', e.char)
+              @dir_text.see("end")
+              is_list_for_update = true
+            when 'period'
+              @dir_text.insert('end', '.')
+              @dir_text.see("end")
+              is_list_for_update = true
+            when 'BackSpace'
+              if @dir_text.get("insert -1 chars", "insert") != File::SEPARATOR 
+                @dir_text.delete('end -2 chars','end')
+              end
+              is_list_for_update = true
+            when 'Escape'
+              @raised_listbox.grab("release")
+              @raised_listbox_frame.destroy
+              @dir_text.focus
+              Tk.callback_break
+            when "Next","Prior"
+            when "Down","Up"
+              Tk.callback_break
+            else
+              Tk.callback_break
+          end
+          _update_list.call(get_filter.call) if is_list_for_update
+          @raised_listbox.focus 
+          Tk.callback_break if  !["Next","Prior"].include?(e.keysym)
+        }
+
+        @raised_listbox.bind_append('Shift-KeyPress'){|e|
+          is_list_for_update = false
+          case e.keysym
+            when 'asterisk','underscore'
+              @dir_text.insert('end', e.char)
+              @dir_text.see("end")
+              is_list_for_update = true
+            when 'a'..'z','A'..'Z'
+              @dir_text.insert('end', e.keysym)
+              @dir_text.see("end")
+              is_list_for_update = true
+            
+          end
+          _update_list.call(get_filter.call) if is_list_for_update
+          @raised_listbox.focus 
+          Tk.callback_break
+        }
+
+        @raised_listbox.bind_append('KeyRelease'){|e|
+          case e.keysym
+            when 'Return'
+              _select_value.call
+          end
+        }
+        
+        _update_list.call(get_filter.call)
+
+        if @raised_listbox.length == 1
+          _select_value.call
+        else
+          _width = _width + 30
+          _width = max_width if _width > max_width
+          _height = 15*_char_height
+          
+          @raised_listbox_frame.place('x'=>_x,'y'=>_ry, 'width'=>_width, 'height'=>_height)
+          @raised_listbox.extend(TkScrollableWidget).show(0,0) 
+          @raised_listbox.place('x'=>0,'y'=>0, 'relwidth'=>1, 'relheight'=>1) 
+          @raised_listbox.focus
+          @raised_listbox.select(1)
+
+          Tk.update
+          @raised_listbox_frame.grab("set")
+  
+       
+       
+          @raised_listbox.bind_append("Double-ButtonPress-1", 
+            proc{|x,y| 
+              _select_value.call
+              Tk.callback_break
+                }, "%x %y")
+  
+        end  
+      elsif _candidates.length == 1 && _candidates[0].length>0
+        @dir_text.set_dir(_candidates[0])
+      end
+  end
+  
+  
+  def load_from_dir(_dir)
+    childrens = Dir.entries(_dir)
+    childrens_dir = Array.new
+    childrens_file = Array.new
+    childrens.sort.each{|c|
+      if c != '.' && c != '..'
+        child = File.join(_dir,c)
+        fty = File.ftype(child)
+        if fty == "file"
+          childrens_file << c
+          #childrens_file << child
+        elsif fty == "directory"
+          #childrens_dir << child
+          childrens_dir << c
+        end
+      end
+    }
+    return childrens_dir,childrens_file
+  end 
+
 end