arcadia 0.1.3 → 0.2.0

data/base/{a-utils.rb → a-tkcommons.rb}

@@ -1,993 +1,933 @@
-#
-#   a-utils.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require 'lib/tk/al-tk'
-
-class AGTkSplittedFrames < TkFrame
-  def initialize(parent=nil, length=10, keys=nil)
-    super(parent, keys)
-    @parent = parent
-    @slen = 5
-    relief 'groove'
-  end
-
-  def maximize(_frame)
-    p = TkWinfo.parent(@parent)
-    if p.kind_of?(AGTkSplittedFrames)
-      p.maximize(@parent)
-    end
-  end
-
-  def minimize(_frame)
-    p = TkWinfo.parent(@parent)
-    if p.kind_of?(AGTkSplittedFrames)
-      p.minimize(@parent)
-    end
-  end
-
-end
-
-
-class AGTkVSplittedFrames < AGTkSplittedFrames
-  attr_reader :left_frame, :right_frame
-  def initialize(parent=nil, width=10, keys=nil)
-    super(parent, width, keys)
-    
-    self.pack(:expand=>true, :fill=>:both)
-    @left_frame = TkFrame.new(self){
-      relief 'flat'
-    }
-    x = width
-    @left_frame.place(
-      'relx' => 0,
-      'x' => 0,
-      'y' => '0',
-      'relheight' => '1',
-      'rely' => 0,
-      'bordermode' => 'inside',
-      'width' => x
-    )
-    @left_frame_obj = AGTkObjPlace.new(@left_frame, 'x', nil, false)
-    @left_frame_obj.width = x
-    @left_frame_obj.height = 0
-    @left_frame_obj.relwidth = 0
-    @left_frame_obj.relheight = 1
-
-    @splitter_frame = TkFrame.new(self){
-      relief  'raised'
-      border 1
-    }
-
-    @splitter_frame.place(
-      'relx' => 0,
-      'x' => x,
-      'y' => '0',
-      'relheight' => '1',
-      'rely' => 0,
-      'bordermode' => 'inside',
-      'width' => @slen
-    )
-    @splitter_frame.bind_append(
-      "ButtonRelease-1",
-      proc{do_resize}
-    )
-    _self = self
-    @b_left = TkButton.new{
-      image TkPhotoImage.new('dat'=>LEFT_SIDE_GIF)
-    }
-
-    @b_right = TkButton.new{
-      image TkPhotoImage.new('dat'=>RIGHT_SIDE_GIF)
-    }
-    @proc_unplace = proc{
-      @b_left.unplace
-      @b_right.unplace
-    }
-    @splitter_frame.bind_append(
-      "B1-Motion",
-      proc{@splitter_frame.raise;@proc_unplace.call}
-    )
-    @@last_b_left = nil
-    @@last_b_right = nil
-    @b_left.bind_append('ButtonPress-1',proc{_self.hide_left;@proc_unplace.call})
-    @b_right.bind_append('ButtonPress-1',proc{_self.hide_right;@proc_unplace.call})
-    @proc_place = proc{|x,y|
-      if !TkWinfo.mapped?(@b_left)
-        _x = TkWinfo.pointerx(self) - 10
-        _y = TkWinfo.pointery(self) - 20
-        if @@last_b_left != nil
-          @@last_b_left.unplace
-          @@last_b_right.unplace
-        end
-        @b_left.place('x'=>_x,'y'=>_y,'border'=>'outside')
-        @b_right.place('x'=>_x,'y'=>_y+25,'border'=>'outside')
-        @b_left.raise
-        @b_right.raise
-        @@last_b_left = @b_left
-        @@last_b_right = @b_right
-        if @thread_unplace
-          @thread_unplace.kill
-        end
-        @thread_unplace= Thread.new {
-          sleep(5)
-          @proc_unplace.call
-          kill
-        }
-      end
-    }
-
-    @splitter_frame.bind_append(
-    'ButtonPress-1',
-    proc{|x,y|
-      @thread_place= Thread.new {
-        @proc_place.call(x,y)
-      }
-    }, "%x %y")
-
-    @splitter_frame.bind_append(
-    "Enter",
-    proc{
-      @color_save = @splitter_frame.background
-      @splitter_frame.background('#9aa6a7')}
-    )
-    @splitter_frame.bind_append(
-      "Leave",
-      proc{
-        @splitter_frame.background(@color_save)
-      }
-    )
-    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'x')
-    @splitter_frame_obj.width = @slen
-    @splitter_frame_obj.height = 0
-    @splitter_frame_obj.relwidth = 0
-    @splitter_frame_obj.relheight = 1
-    x = x + @slen
-    @right_frame = TkFrame.new(self){
-      relief 'flat'
-    }
-    @right_frame.place(
-      'relwidth' => 1,
-      'relx' => 0,
-      'x' => x,
-      'y' => 0,
-      'width' => -x,
-      'relheight' => 1,
-      'rely' => 0,
-      'bordermode' => 'inside'
-    )
-    @right_frame_obj = AGTkObjPlace.new(@right_frame, 'x', nil, false)
-    @right_frame_obj.width = -x
-    @right_frame_obj.height = 0
-    @right_frame_obj.relwidth = 1
-    @right_frame_obj.relheight = 1
-    @state = 'middle'
-    yield(self) if block_given?
-  end
-
-  def get_main_x
-    if TkWinfo.manager(@parent)=='place'
-      return TkPlace.info(@parent)['x'] / 2
-    else
-      return 20
-    end
-  end
-
-  def do_resize
-    _x = @splitter_frame_obj.x0
-    _w = @splitter_frame_obj.w
-    @left_frame_obj.width = _x
-    @left_frame_obj.go(_x,0)
-    @right_frame_obj.width = - _x - _w
-    @right_frame_obj.amove(_x + _w,0)
-  end
-
-  def hide_left
-    if (@state=='left')
-      _w = @last
-      @state = 'middle'
-      @left_frame_obj.width = _w
-      @left_frame_obj.go(_w,0)
-    else
-      _w = 0
-      @state = 'right'
-      @last = @left_frame_obj.w
-    end
-    @left_frame_obj.amove(0,0)
-    @splitter_frame_obj.amove(_w,0)
-    @right_frame_obj.width = - _w - @slen
-    @right_frame_obj.amove(_w + @slen,0)
-  end
-
-  def hide_right
-    if (@state=='right')
-      _w = @last
-      @state = 'middle'
-    else
-      _w = @right_frame_obj.w + @left_frame_obj.w #+ @slen
-      @state = 'left'
-      @last = @left_frame_obj.w
-    end
-    @right_frame_obj.width = - _w - @slen
-    @right_frame_obj.amove(_w + @slen,0)
-    @splitter_frame_obj.amove(_w,0)
-    @left_frame_obj.width = _w
-    @left_frame_obj.go(_w,0)
-  end
-
-  def maximize(_frame)
-    super(_frame)
-    case _frame
-    when left_frame
-      hide_right
-    when right_frame
-      hide_left
-    end
-    Tk.update
-  end
-
-  def minimize(_frame)
-    super(_frame)
-    case _frame
-    when left_frame
-      hide_left
-    when right_frame
-      hide_right
-    end
-    Tk.update
-  end
-
-  def hide(_name)
-  end
-
-  def show(_name)
-  end
-
-end
-
-class AGTkOSplittedFrames < AGTkSplittedFrames
-  attr_reader :top_frame, :bottom_frame
-  def initialize(parent=nil, height=10, perc=false,keys=nil)
-    super(parent, height, keys)
-    self.place(
-      'relwidth' => 1,
-      'relx' => 0,
-      'x' => 0,
-      'y' => 0,
-      'relheight' => 1,
-      'rely' => 0,
-      'bordermode' => 'inside'
-    )
-    @top_frame = TkFrame.new(self){
-      relief 'flat'
-    }
-    if perc
-      p_height = TkWinfo.screenheight(self)    
-    		y = (p_height/100*height).to_i
-    else
-      y = height
-    end
-    @top_frame.place(
-      'relwidth' => '1',
-      'bordermode' => 'inside',
-      'height' => y
-    )
-    @top_frame_obj = AGTkObjPlace.new(@top_frame, 'y', nil, false)
-    @top_frame_obj.width = 0
-    @top_frame_obj.height = y
-    @top_frame_obj.relwidth = 1
-    @top_frame_obj.relheight = 0
-    @splitter_frame = TkFrame.new(self){
-      relief  'groove'
-      border 1
-    }
-    @splitter_frame.place(
-      'relx' => 0,
-      'x' => 0,
-      'y' => y,
-      'relwidth' => '1',
-      'rely' => 0,
-      'bordermode' => 'inside',
-      'height' => @slen
-    )
-    @splitter_frame.bind_append(
-      "B1-Motion",
-      proc{@splitter_frame.raise}
-    )
-    @splitter_frame.bind_append(
-      "ButtonRelease-1",
-      proc{do_resize}
-    )
-    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'y')
-    @splitter_frame_obj.width = 0
-    @splitter_frame_obj.height = @slen
-    @splitter_frame_obj.relwidth = 1
-    @splitter_frame_obj.relheight = 0
-    y = y + @slen
-    @bottom_frame = TkFrame.new(self){
-      relief 'flat'
-    }
-    @bottom_frame.place(
-      'relwidth' => 1,
-      'relx' => 0,
-      'x' => 0,
-      'y' => y,
-      'height' => -y,
-      'relheight' => 1,
-      'rely' => 0,
-      'bordermode' => 'inside'
-    )
-    @bottom_frame_obj = AGTkObjPlace.new(@bottom_frame, 'y', nil, false)
-    @bottom_frame_obj.width = 0
-    @bottom_frame_obj.height = -y
-    @bottom_frame_obj.relwidth = 1
-    @bottom_frame_obj.relheight = 1
-    _xbutton = TkButton.new(@splitter_frame){
-      background '#4966d7'
-      overrelief  'raised'
-      relief  'flat'
-    }
-    _xbutton.place(
-      'x' => 0,
-      'y' => 0,
-      'relheight' => 1,
-      'bordermode' => 'outside',
-      'width' => 20
-    )
-    _xbutton.bind_append(
-      "ButtonPress-1",
-      proc{hide_top}
-    )
-    _ybutton = TkButton.new(@splitter_frame){
-      background '#118124'
-      overrelief  'raised'
-      relief  'flat'
-    }
-    _ybutton.place(
-      'x' => 21,
-      'y' => 0,
-      'bordermode' => 'outside',
-      'width' => 20,
-      'relheight' => 1
-    )
-    _ybutton.bind_append(
-      "ButtonPress-1",
-      proc{hide_bottom}
-    )
-    @state = 'middle'
-    yield(self) if block_given?
-  end
-
-  def hide_top
-    if (@state=='top')
-      _h = @last
-      @state = 'middle'
-      @top_frame_obj.height = _h
-      @top_frame_obj.go(0,_h)
-    elsif (@state=='bottom')
-      return
-    else
-      _h = 0
-      @state = 'bottom'
-      @last = @top_frame_obj.h
-    end
-    @top_frame_obj.amove(0,0)
-    @splitter_frame_obj.amove(0, _h)
-    @bottom_frame_obj.height = - _h - @slen
-    @bottom_frame_obj.amove(0,_h + @slen)
-  end
-
-  def hide_bottom
-    if (@state=='bottom')
-      _h = @last
-      @state = 'middle'
-    elsif (@state == 'top')
-      return
-    else
-      _h = @bottom_frame_obj.h + @top_frame_obj.h #+ @slen
-      @state = 'top'
-      @last = @top_frame_obj.h #+ @slen
-    end
-    @bottom_frame_obj.height = - _h - @slen
-    @bottom_frame_obj.amove(0,_h + @slen)
-    @splitter_frame_obj.amove(0,_h)
-    @top_frame_obj.height = _h
-    @top_frame_obj.go(0,_h)
-  end
-
-
-  def maximize(_frame)
-    super(_frame)
-    case _frame
-    when top_frame
-      hide_bottom
-    when bottom_frame
-      hide_top
-    end
-    Tk.update
-  end
-
-  def minimize(_frame)
-    super(_frame)
-    case _frame
-    when top_frame
-      hide_top
-    when bottom_frame
-      hide_bottom
-    end
-    Tk.update
-  end
-
-
-  def get_main_y
-    return 40
-  end
-
-  def do_resize
-    _y = @splitter_frame_obj.y0
-    _h = @splitter_frame_obj.h
-    @top_frame_obj.height = _y
-    @top_frame_obj.go(0,_y)
-    @bottom_frame_obj.height = -_y-_h
-    @bottom_frame_obj.amove(0,_y + _h)
-    #end
-  end
-
-  def hide(_name)
-  end
-
-  def show(_name)
-  end
-
-end
-
-class TkBaseTitledFrame < TkFrame
-  attr_reader :frame
-  attr_reader :top
-
-  def initialize(parent=nil, *args)
-    super(parent, *args)
-    @parent = parent
-    @title_height = 18
-    @top = TkFrame.new(self){
-      background  '#303b50'
-      #foreground  'white'
-      #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'
-    }.pack('side'=> 'right','anchor'=> 'w')
-    
-    self.head_buttons
-  end
-
-  def create_frame
-    return TkFrame.new(self).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')
-    TkButton.new(@button_frame){
-      text  _label if _label
-      image  TkPhotoImage.new('dat' => _image) if _image
-      relief 'flat'
-      font 'helvetica 8 bold'
-      #borderwidth 0
-      #background  '#303b50'
-      #background  '#8080ff'
-      pack('side'=> _side,'anchor'=> 'e')
-      bind('1',_proc) if _proc
-    }
-  end
-
-  def head_buttons
-    @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
-  end
-
-end
-
-
-
-class TkTitledFrame < TkBaseTitledFrame
-  attr_reader :frame
-  attr_reader :top
-
-  def initialize(parent=nil, title='...', img=nil , keys=nil)
-    super(parent, keys)
-    @state = 'normal'
-    @title_label =TkLabel.new(@top){
-      text title+' :: '
-      anchor  'w'
-      font  $arcadia['conf']['all.frame.title.font']
-      background  '#303b50'
-      foreground  '#e8e651'
-      compound 'left'
-      image  TkAllPhotoImage.new('file' => img) if img
-      pack('side'=> 'left','anchor'=> 'e')
-    }
-    @top_label =TkLabel.new(@top){
-      anchor  'w'
-      font  $arcadia['conf']['all.frame.title.font.italic']
-      background  '#303b50'
-      foreground  '#FFFFFF'
-      compound 'left'
-      pack('side'=> 'left','anchor'=> 'e')
-    }
-    
-    @ap = Array.new
-    @apx = Array.new
-    @apy = Array.new
-    @apw = Array.new
-    @aph = Array.new
-  end
-
-  def top_text(_text)
-    @top_label.text(_text)
-  end
-
-  def title(_text)
-    @title_label.text(_text+'::')
-  end
-
-
-  def add_sep(_width=0,_background =@top.background)
-    TkLabel.new(@top){||
-      text  ''
-      background  _background
-      pack('side'=> 'right','anchor'=> 'e', 'ipadx'=>_width)
-    }
-  end
-
-
-  def head_buttons
-    @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
-    #@bmaxmin = add_button('[ ]',proc{resize}, EXPAND_GIF)
-  end
-
-  def resize
-    p = TkWinfo.parent(@parent)
-    if @state == 'normal'
-      if p.kind_of?(AGTkSplittedFrames)
-        p.maximize(@parent)
-        @bmaxmin.image(TkPhotoImage.new('dat' => W_NORM_GIF))
-      end
-      @state = 'maximize'
-    else
-      if p.kind_of?(AGTkSplittedFrames)
-        p.minimize(@parent)
-        @bmaxmin.image(TkPhotoImage.new('dat' =>W_MAX_GIF))
-      end
-      @state = 'normal'
-    end
-    self.raise
-  end
-
-  def maximize
-    if @state == 'normal'
-      p = TkWinfo.parent(self)
-      while (p != nil) && (TkWinfo.manager(p)=='place')
-        Tk.messageBox('message'=>p.to_s)
-        @ap << p
-        @apx << TkPlace.info(p)['x']
-        @apy << TkPlace.info(p)['y']
-        @apw << TkPlace.info(p)['width']
-        @aph << TkPlace.info(p)['height']
-        p.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
-        p.raise
-        p = TkWinfo.parent(p)
-      end
-      @state = 'maximize'
-      self.raise
-    else
-      @ap.each_index{|i|
-        @ap[i].place('x'=>@apx[i], 'y'=>@apy[i],'width'=>@apw[i], 'height'=>@aph[i],'relheight'=>1, 'relwidth'=>1)
-        @ap[i].raise
-      }
-      self.raise
-      @ap.clear
-      @apx.clear
-      @apy.clear
-      @state = 'normal'
-    end
-  end
-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)
-  end
-
-end
-
-
-
-class Application
-  ApplicationParams = Struct.new( "ApplicationParams",
-    :name,
-    :version,
-    :config_file,
-    :persistent_file
-  )
-
-  def initialize(_ap=ApplicationParams.new)
-    @@instance = self
-    eval('$'+_ap.name+'=self')
-    publish('applicationParams', _ap)
-    publish(_ap.name,self)
-    @first_run = false
-    init_config
-    yield(self) if block_given?
-  end
-  
-  def Application.instance
-    @@instance
-  end
-
-  def init_config
-    self['applicationParams'].persistent_file = File.join(local_dir, self['applicationParams'].name+'.pers')
-    if !File.exists?(self['applicationParams'].persistent_file)
-      File.new(self['applicationParams'].persistent_file, File::CREAT).close
-    end
-    publish('conf', config_file2hash(self['applicationParams'].config_file)) if self['applicationParams'].config_file
-    publish('pers', config_file2hash(self['applicationParams'].persistent_file)) if self['applicationParams'].persistent_file
-  end
-
-  def prepare
-  end
-
-  def publish(_name, _obj)
-    @objs = Hash.new if !defined?(@objs)
-    @objs[_name] = _obj
-  end
-
-  # this method load arcadia.conf from local directory for personalizations
-  def load_local_config(_create_if_not_exist=true)
-      local_file_config = File.join(local_dir,File.basename(self['applicationParams'].config_file))
-      if FileTest.exist?(local_file_config)
-        self['conf'].update(self.config_file2hash(local_file_config))
-      elsif _create_if_not_exist
-        if FileTest.writable?(local_dir)
-          f = File.new(local_file_config, "w")
-          begin
-            if f
-              p = self['conf']
-              if p
-                p.keys.sort.each{|key|
-                  f.syswrite('#'+key+'='+self['conf'][key]+"\n")
-                }
-              end
-            end
-          ensure
-            f.close unless f.nil?
-          end
-        else
-          msg = "Locad dir "+'"'+local_dir+'"'+" must be writable!"
-          Tk.messageBox('icon' => 'error', 'type' => 'ok',
-            'title' => '(Arcadia)', 
-            'message' => msg)
-            exit
-        
-        end
-      end
-  end
-  
-  def local_dir
-    _local_dir = File.join(ENV["HOME"],'.'+self['applicationParams'].name)  if ENV["HOME"] 
-    if _local_dir && !File.exist?(_local_dir)
-      if FileTest.exist?(ENV["HOME"])
-        Dir.mkdir(_local_dir)
-        @first_run = true
-      else
-        msg = "Locad dir "+'"'+ENV["HOME"]+'"'+" must be writable!"
-        Tk.messageBox('icon' => 'error', 'type' => 'ok',
-          'title' => '(Arcadia)', 
-          'message' => msg)
-        exit
-      end
-    end
-    return _local_dir
-  end
-  
-  def load_config(_config_file)
-    if _config_file &&  FileTest::exist?(_config_file)
-      f = File::open(_config_file,'r')
-      begin
-        _lines = f.readlines
-        _lines.each{|_line|
-          _strip_line = _line.strip
-          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
-            var_plat = _line.split('::')
-            if var_plat.length > 1
-              if (RUBY_PLATFORM.include?(var_plat[0]))
-              #if (var_plat[0] == RUBY_PLATFORM)
-                _line = var_plat[1]
-              else
-                _line = ''
-              end
-            end
-            var = _line.split('=')
-            if var.length > 1
-              self['conf'][var[0].strip]=var[1].strip
-            end
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-    end
-  end
-
-  def config_file2hash(_config_file)
-    r_hash = Hash.new
-    if _config_file &&  FileTest::exist?(_config_file)
-      f = File::open(_config_file,'r')
-      begin
-        _lines = f.readlines
-        _lines.each{|_line|
-          _strip_line = _line.strip
-          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
-            var_plat = _line.split('::')
-            if var_plat.length > 1
-              if (RUBY_PLATFORM.include?(var_plat[0]))
-              #if (var_plat[0] == RUBY_PLATFORM)
-                _line = var_plat[1]
-              else
-                _line = ''
-              end
-            end
-            var = _line.split('=')
-            if var.length > 1
-              r_hash[var[0].strip]=var[1].strip
-            end
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-      return r_hash      
-    end
-  end
-
-
-  def load_persist(_persist_file)
-    if _persist_file && !FileTest::exist?(_persist_file)
-      Dir.mkdir(File.dirname(_persist_file)) unless File.exists?(File.dirname(_persist_file))
-      File.new(_persist_file, File::CREAT)
-    end
-  
-    if _persist_file && FileTest::exist?(_persist_file)
-      f = File::open(_persist_file,'r')
-      begin
-        _lines = f.readlines
-        _lines.each{|_line|
-          _strip_line = _line.strip
-          if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
-            var = _line.split('=')
-            if var.length > 1
-              self['pers'][var[0].strip]=var[1].strip
-            end
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-    end
-  end
-
-  def write_persist
-    if FileTest::exist?(self['applicationParams'].persistent_file)
-      f = File.new(self['applicationParams'].persistent_file, "w")
-      begin
-        if f
-          p = self['pers']
-          if p
-            p.each{|key,value|
-              f.syswrite(key+'='+value+"\n")
-            }
-          end
-        end
-      ensure
-        f.close unless f.nil?
-      end
-    end
-  end
-
-  def create(_name, _class)
-    register(_name,_class.new)
-  end
-
-  def objects(_name)
-    return @objs[_name]
-  end
-
-  def [](_name)
-    if @objs[_name]
-      return @objs[_name]
-    else
-      raise RuntimeError, "resurce '"+_name+"' unavabled ", caller
-    end
-  end
-
-  def run
-  end
-end
-
-class TkApplication < Application
-  def run
-    Tk.mainloop
-  end
-end
-
-module TkMovable
-  def start_moving(_moving_obj=self, _moved_obj=self)
-    @x0 = 0
-    @y0 = 0
-    @moving_obj = _moving_obj
-    @moved_obj = _moved_obj
-    @moving_obj.bind_append("B1-Motion", proc{|x, y| moving_do_move_obj(x,y)},"%x %y")
-    @moving_obj.bind_append("ButtonPress-1", proc{|e| moving_do_press(e.x, e.y)})
-  end
-
-  def stop_moving
-    @moving_obj.bind_remove("B1-Motion")
-    @moving_obj.bind_remove("ButtonPress-1")
-  end
-  
-  def moving_do_press(_x, _y)
-  		@x0 = _x
-  		@y0 = _y
-  end
-   
-  def moving_do_move_obj(_x, _y)
-    _x = TkPlace.info(@moved_obj)['x'] + _x - @x0
-    _y = TkPlace.info(@moved_obj)['y'] + _y - @y0
-    @moved_obj.place('x'=>_x, 'y'=>_y)
-  end
-  
-end
-
-module TkResizabled
-  MIN_WIDTH = 50
-  MIN_HEIGHT = 50
-  def start_resizing(_moving_obj=self, _moved_obj=self)
-    @x0 = 0
-    @y0 = 0
-    @moving_obj = _moving_obj
-    @moved_obj = _moved_obj
-    @moving_obj.bind_append("B1-Motion", proc{|x, y| resizing_do_move_obj(x,y)},"%x %y")
-    @moving_obj.bind_append("ButtonPress-1", proc{|e| resizing_do_press(e.x, e.y)})
-  end
-
-  def stop_resizing
-    @moving_obj.bind_remove("B1-Motion")
-    @moving_obj.bind_remove("ButtonPress-1")
-  end
-  
-  def resizing_do_press(_x, _y)
-  		@x0 = _x
-  		@y0 = _y
-  end
-   
-  def resizing_do_move_obj(_x, _y)
-    _width0 = TkPlace.info(@moved_obj)['width']
-    _height0 = TkPlace.info(@moved_obj)['height']
-    _width = _width0 + _x - @x0
-    _height = _height0 + _y -@y0
-    _width = MIN_WIDTH if _width < MIN_WIDTH
-    _height = MIN_HEIGHT if _height < MIN_HEIGHT
-    @moved_obj.place('width'=>_width, 'height'=>_height)
-  end
-  
-end
-
-
-class TkFloatTitledFrame < TkBaseTitledFrame
-  include TkMovable
-  include TkResizabled
-  def initialize(parent=nil, *args)
-    super(parent)
-    frame.place('height'=>-32)
-    borderwidth  2
-    relief  'groove'
-
-    @top_label = TkLabel.new(@top){
-      background  '#303b50'
-      foreground  'white'
-      anchor 'w'
-    }.pack('fill'=>'x', 'side'=>'top')
-    #.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20)
-
-    @resizing_label=TkLabel.new(self){
-      #background  '#303b50'
-      text '-'
-      image TkPhotoImage.new('dat'=>EXPAND_LIGHT_GIF)
-    }.pack('side'=> 'right','anchor'=> 's')
-    
-    
-    start_moving(@top_label, self)
-    start_resizing(@resizing_label, self)
-  end
-
-  def title(_text)
-    @top_label.text(_text)
-  end
-
-
-  def on_close=(_proc)
-    add_button('X', _proc, TAB_CLOSE_GIF)
-  end
-  
-  def hide
-    @manager = TkWinfo.manager(self) 
-    if @manager == 'place'
-    		@x_place = TkPlace.info(self)['x']
-    		@y_place = TkPlace.info(self)['y']
-    		@width_place = TkPlace.info(self)['width']
-    		@height_place = TkPlace.info(self)['height']
-    		self.unplace
-    end
-  end
-  
-  def show
-    if @manager == 'place'
-      self.place('x'=>@x_place, 'y'=>@y_place, 'width'=>@width_place, 'height'=>@height_place)
-    end
-  end
-
-  def head_buttons
-  end
-
-end
-
-class TkProgressframe < TkFloatTitledFrame
-  def initialize(parent=nil, _max=100, *args)
-    super(parent)
-    @max = _max
-    @progress = TkVariable.new
-    @progress.value = -1
-    Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
-        :background=>'red',
-        :foreground=>'blue',
-   		   :variable=>@progress,
-     		 :borderwidth=>0,
-      	 :relief=>'flat',
-        :maximum=>_max).place('width' => '150','x' => 25,'y' => 30,'height' => 15)
-     
-    @buttons_frame = TkFrame.new(self).pack('fill'=>'x', 'side'=>'bottom')	
-
-    @b_cancel = TkButton.new(@buttons_frame){|_b_go|
-      default  'disabled'
-      text  'Cancel'
-      overrelief  'raised'
-      justify  'center'
-      pack('side'=>'top','ipadx'=>5, 'padx'=>5)
-    }
-
-    place('x'=>100,'y'=>100,'height'=> 120,'width'=> 200)
-  end
-  
-  def quit
-    #self.destroy
-  end
-  
-  def progress(_incr=1)
-    @progress.numeric += _incr
-  end
-
-  def on_cancel=(_proc)
-    @b_cancel.bind_append('1', _proc)
-  end
-
-  
-end
-
+#
+#   a-tkcommons.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "base/a-commons"
+
+class TkApplication < Application
+  def run
+    Tk.mainloop
+  end
+end
+
+module TkMovable
+  def start_moving(_moving_obj=self, _moved_obj=self)
+    @x0 = 0
+    @y0 = 0
+    @moving_obj = _moving_obj
+    @moved_obj = _moved_obj
+    @moving_obj.bind_append("B1-Motion", proc{|x, y| moving_do_move_obj(x,y)},"%x %y")
+    @moving_obj.bind_append("ButtonPress-1", proc{|e| moving_do_press(e.x, e.y)})
+  end
+
+  def stop_moving
+    @moving_obj.bind_remove("B1-Motion")
+    @moving_obj.bind_remove("ButtonPress-1")
+  end
+  
+  def moving_do_press(_x, _y)
+  		@x0 = _x
+  		@y0 = _y
+  end
+   
+  def moving_do_move_obj(_x, _y)
+    _x = TkPlace.info(@moved_obj)['x'] + _x - @x0
+    _y = TkPlace.info(@moved_obj)['y'] + _y - @y0
+    @moved_obj.place('x'=>_x, 'y'=>_y)
+  end
+  
+end
+
+module TkResizable
+  MIN_WIDTH = 50
+  MIN_HEIGHT = 50
+  def start_resizing(_moving_obj=self, _moved_obj=self)
+    @x0 = 0
+    @y0 = 0
+    @moving_obj = _moving_obj
+    @moved_obj = _moved_obj
+    @moving_obj.bind_append("B1-Motion", proc{|x, y| resizing_do_move_obj(x,y)},"%x %y")
+    @moving_obj.bind_append("ButtonPress-1", proc{|e| resizing_do_press(e.x, e.y)})
+  end
+
+  def stop_resizing
+    @moving_obj.bind_remove("B1-Motion")
+    @moving_obj.bind_remove("ButtonPress-1")
+  end
+  
+  def resizing_do_press(_x, _y)
+  		@x0 = _x
+  		@y0 = _y
+  end
+   
+  def resizing_do_move_obj(_x, _y)
+    _width0 = TkPlace.info(@moved_obj)['width']
+    _height0 = TkPlace.info(@moved_obj)['height']
+    _width = _width0 + _x - @x0
+    _height = _height0 + _y -@y0
+    _width = MIN_WIDTH if _width < MIN_WIDTH
+    _height = MIN_HEIGHT if _height < MIN_HEIGHT
+    @moved_obj.place('width'=>_width, 'height'=>_height)
+  end
+  
+end
+
+
+class AGTkObjPlace
+  attr_reader :obj, :r, :start_x, :start_y, :motion, :x0, :y0, :w0, :h0, :width,:height,:relwidth,:relheight
+  attr_writer :r, :start_x, :start_y, :motion,:width,:height,:relwidth,:relheight
+
+  def initialize(_obj=nil , _side='both' , _cursor=nil, _bind = true )
+    if !_obj
+      break
+    end
+    @obj = _obj
+    if !_cursor
+      case _side
+      when 'x'
+        _cursor = 'sb_h_double_arrow'
+      when 'y'
+        _cursor = 'sb_v_double_arrow'
+      when 'both'
+        _cursor = 'draft_small'
+      end
+    end
+    @motion = false
+    @side = _side
+    @x0 = TkPlace.info(@obj)['x']
+    @y0 = TkPlace.info(@obj)['y']
+    if TkWinfo.mapped?(@obj)
+      @w0=TkWinfo.width(@obj)
+      @h0=TkWinfo.height(@obj)
+    else
+      @w0=TkWinfo.reqwidth(@obj)
+      @h0=TkWinfo.reqheight(@obj)
+    end
+    @start_x = @x0
+    @start_y = @y0
+    @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("B1-Motion", proc{|x, y| do_motion(x,y)},"%x %y")
+    end
+  end
+
+  def w
+    if TkWinfo.mapped?(@obj)
+      @w0= TkWinfo.width(@obj)
+    else
+      @w0= TkWinfo.reqwidth(@obj)
+    end
+  end
+
+  def h
+    if TkWinfo.mapped?(@obj)
+      @h0= TkWinfo.height(@obj)
+    else
+      @h0= TkWinfo.reqheight(@obj)
+    end
+  end
+
+  def do_enter(x, y)
+    @oldcursor = @obj.cget('cursor')
+    @obj.configure('cursor'=> @cursor)
+  end
+
+  def do_leave
+    @obj.configure('cursor'=>@oldcursor)
+  end
+
+  def do_press(x, y)
+    @start_x = x
+    @start_y = y
+  end
+
+  def do_motion( _x, _y)
+    @motion = true
+    move(_x - @start_x, _y - @start_y)
+  end
+
+  def move(_x,_y)
+    case @side
+    when 'both'
+      @x0 = @x0 + _x  if (@x0 + _x) >= 0
+      @y0 = @y0 + _y
+      @obj.place('x' => @x0, 'y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
+    when 'x'
+      @x0 = @x0 + _x  if (@x0 + _x) >= 0
+      @obj.place('x' => @x0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
+    when 'y'
+      @y0 = @y0 + _y
+      @obj.place('y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
+    end
+  end
+
+  def amove(_x,_y)
+    move(_x - @x0 , _y - @y0)
+  end
+
+  def go(_w, _h)
+    case @side
+    when 'x'
+      @w0 = _w
+      @obj.place('width' => @w0, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
+    when 'y'
+      @h0 = _h
+      @obj.place('height' => @h0, 'width' => @width, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
+    end
+  end
+
+end
+
+
+class AGTkSplittedFrames < TkFrame
+  def initialize(parent=nil, length=10, keys=nil)
+    super(parent, keys)
+    @parent = parent
+    @slen = 5
+    relief 'groove'
+  end
+
+  def maximize(_frame)
+    p = TkWinfo.parent(@parent)
+    if p.kind_of?(AGTkSplittedFrames)
+      p.maximize(@parent)
+    end
+  end
+
+  def minimize(_frame)
+    p = TkWinfo.parent(@parent)
+    if p.kind_of?(AGTkSplittedFrames)
+      p.minimize(@parent)
+    end
+  end
+
+end
+
+
+class AGTkVSplittedFrames < AGTkSplittedFrames
+  attr_reader :left_frame, :right_frame, :splitter_frame
+  def initialize(parent=nil, width=10, keys=nil)
+    super(parent, width, keys)
+    
+    self.pack(:expand=>true, :fill=>:both)
+    @left_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    x = width
+    @left_frame.place(
+      'relx' => 0,
+      'x' => 0,
+      'y' => '0',
+      'relheight' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'width' => x
+    )
+    @left_frame_obj = AGTkObjPlace.new(@left_frame, 'x', nil, false)
+    @left_frame_obj.width = x
+    @left_frame_obj.height = 0
+    @left_frame_obj.relwidth = 0
+    @left_frame_obj.relheight = 1
+
+    @splitter_frame = TkFrame.new(self){
+      relief  'raised'
+      border 1
+    }
+
+    @splitter_frame.place(
+      'relx' => 0,
+      'x' => x,
+      'y' => '0',
+      'relheight' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'width' => @slen
+    )
+    @splitter_frame.bind_append(
+      "ButtonRelease-1",
+      proc{do_resize}
+    )
+    _self = self
+    @b_left = TkButton.new{
+      image TkPhotoImage.new('dat'=>LEFT_SIDE_GIF)
+    }
+
+    @b_right = TkButton.new{
+      image TkPhotoImage.new('dat'=>RIGHT_SIDE_GIF)
+    }
+    @proc_unplace = proc{
+      @b_left.unplace
+      @b_right.unplace
+    }
+    @splitter_frame.bind_append(
+      "B1-Motion",
+      proc{@splitter_frame.raise;@proc_unplace.call}
+    )
+    @@last_b_left = nil
+    @@last_b_right = nil
+    @b_left.bind_append('ButtonPress-1',proc{_self.hide_left;@proc_unplace.call})
+    @b_right.bind_append('ButtonPress-1',proc{_self.hide_right;@proc_unplace.call})
+    @proc_place = proc{|x,y|
+      if !TkWinfo.mapped?(@b_left)
+        _x = TkWinfo.pointerx(self) - 10
+        _y = TkWinfo.pointery(self) - 20
+        if @@last_b_left != nil
+          @@last_b_left.unplace
+          @@last_b_right.unplace
+        end
+        @b_left.place('x'=>_x,'y'=>_y,'border'=>'outside')
+        @b_right.place('x'=>_x,'y'=>_y+25,'border'=>'outside')
+        @b_left.raise
+        @b_right.raise
+        @@last_b_left = @b_left
+        @@last_b_right = @b_right
+        if @thread_unplace
+          @thread_unplace.kill
+        end
+        @thread_unplace= Thread.new {
+          sleep(5)
+          @proc_unplace.call
+          kill
+        }
+      end
+    }
+
+    @splitter_frame.bind_append(
+    'ButtonPress-1',
+    proc{|x,y|
+      @thread_place= Thread.new {
+        @proc_place.call(x,y)
+      }
+    }, "%x %y")
+
+    @splitter_frame.bind_append(
+    "Enter",
+    proc{
+      @color_save = @splitter_frame.background
+      @splitter_frame.background('#9aa6a7')}
+    )
+    @splitter_frame.bind_append(
+      "Leave",
+      proc{
+        @splitter_frame.background(@color_save)
+      }
+    )
+    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'x')
+    @splitter_frame_obj.width = @slen
+    @splitter_frame_obj.height = 0
+    @splitter_frame_obj.relwidth = 0
+    @splitter_frame_obj.relheight = 1
+    x = x + @slen
+    @right_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    @right_frame.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => x,
+      'y' => 0,
+      'width' => -x,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @right_frame_obj = AGTkObjPlace.new(@right_frame, 'x', nil, false)
+    @right_frame_obj.width = -x
+    @right_frame_obj.height = 0
+    @right_frame_obj.relwidth = 1
+    @right_frame_obj.relheight = 1
+    @state = 'middle'
+    yield(self) if block_given?
+  end
+
+  def get_main_x
+    if TkWinfo.manager(@parent)=='place'
+      return TkPlace.info(@parent)['x'] / 2
+    else
+      return 20
+    end
+  end
+
+  def do_resize
+    _x = @splitter_frame_obj.x0
+    _w = @splitter_frame_obj.w
+    @left_frame_obj.width = _x
+    @left_frame_obj.go(_x,0)
+    @right_frame_obj.width = - _x - _w
+    @right_frame_obj.amove(_x + _w,0)
+  end
+
+  def hide_left
+    if (@state=='left')
+      _w = @last
+      @state = 'middle'
+      @left_frame_obj.width = _w
+      @left_frame_obj.go(_w,0)
+    else
+      _w = 0
+      @state = 'right'
+      @last = @left_frame_obj.w
+    end
+    @left_frame_obj.amove(0,0)
+    @splitter_frame_obj.amove(_w,0)
+    @right_frame_obj.width = - _w - @slen
+    @right_frame_obj.amove(_w + @slen,0)
+  end
+
+  def hide_right
+    if (@state=='right')
+      _w = @last
+      @state = 'middle'
+    else
+      _w = @right_frame_obj.w + @left_frame_obj.w #+ @slen
+      @state = 'left'
+      @last = @left_frame_obj.w
+    end
+    @right_frame_obj.width = - _w - @slen
+    @right_frame_obj.amove(_w + @slen,0)
+    @splitter_frame_obj.amove(_w,0)
+    @left_frame_obj.width = _w
+    @left_frame_obj.go(_w,0)
+  end
+
+  def maximize(_frame)
+    super(_frame)
+    case _frame
+    when left_frame
+      hide_right
+    when right_frame
+      hide_left
+    end
+    Tk.update
+  end
+
+  def minimize(_frame)
+    super(_frame)
+    case _frame
+    when left_frame
+      hide_left
+    when right_frame
+      hide_right
+    end
+    Tk.update
+  end
+
+  def hide(_name)
+  end
+
+  def show(_name)
+  end
+
+end
+
+class AGTkOSplittedFrames < AGTkSplittedFrames
+  attr_reader :top_frame, :bottom_frame
+  def initialize(parent=nil, height=10, perc=false,keys=nil)
+    super(parent, height, keys)
+    self.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => 0,
+      'y' => 0,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @top_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    if perc
+      p_height = TkWinfo.screenheight(self)    
+    		y = (p_height/100*height).to_i
+    else
+      y = height
+    end
+    @top_frame.place(
+      'relwidth' => '1',
+      'bordermode' => 'inside',
+      'height' => y
+    )
+    @top_frame_obj = AGTkObjPlace.new(@top_frame, 'y', nil, false)
+    @top_frame_obj.width = 0
+    @top_frame_obj.height = y
+    @top_frame_obj.relwidth = 1
+    @top_frame_obj.relheight = 0
+    @splitter_frame = TkFrame.new(self){
+      relief  'groove'
+      border 1
+    }
+    @splitter_frame.place(
+      'relx' => 0,
+      'x' => 0,
+      'y' => y,
+      'relwidth' => '1',
+      'rely' => 0,
+      'bordermode' => 'inside',
+      'height' => @slen
+    )
+    @splitter_frame.bind_append(
+      "B1-Motion",
+      proc{@splitter_frame.raise}
+    )
+    @splitter_frame.bind_append(
+      "ButtonRelease-1",
+      proc{do_resize}
+    )
+    @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'y')
+    @splitter_frame_obj.width = 0
+    @splitter_frame_obj.height = @slen
+    @splitter_frame_obj.relwidth = 1
+    @splitter_frame_obj.relheight = 0
+    y = y + @slen
+    @bottom_frame = TkFrame.new(self){
+      relief 'flat'
+    }
+    @bottom_frame.place(
+      'relwidth' => 1,
+      'relx' => 0,
+      'x' => 0,
+      'y' => y,
+      'height' => -y,
+      'relheight' => 1,
+      'rely' => 0,
+      'bordermode' => 'inside'
+    )
+    @bottom_frame_obj = AGTkObjPlace.new(@bottom_frame, 'y', nil, false)
+    @bottom_frame_obj.width = 0
+    @bottom_frame_obj.height = -y
+    @bottom_frame_obj.relwidth = 1
+    @bottom_frame_obj.relheight = 1
+    _xbutton = TkButton.new(@splitter_frame){
+      background '#4966d7'
+      overrelief  'raised'
+      relief  'flat'
+    }
+    _xbutton.place(
+      'x' => 0,
+      'y' => 0,
+      'relheight' => 1,
+      'bordermode' => 'outside',
+      'width' => 20
+    )
+    _xbutton.bind_append(
+      "ButtonPress-1",
+      proc{hide_top}
+    )
+    _ybutton = TkButton.new(@splitter_frame){
+      background '#118124'
+      overrelief  'raised'
+      relief  'flat'
+    }
+    _ybutton.place(
+      'x' => 21,
+      'y' => 0,
+      'bordermode' => 'outside',
+      'width' => 20,
+      'relheight' => 1
+    )
+    _ybutton.bind_append(
+      "ButtonPress-1",
+      proc{hide_bottom}
+    )
+    @state = 'middle'
+    yield(self) if block_given?
+  end
+
+  def hide_top
+    if (@state=='top')
+      _h = @last
+      @state = 'middle'
+      @top_frame_obj.height = _h
+      @top_frame_obj.go(0,_h)
+    elsif (@state=='bottom')
+      return
+    else
+      _h = 0
+      @state = 'bottom'
+      @last = @top_frame_obj.h
+    end
+    @top_frame_obj.amove(0,0)
+    @splitter_frame_obj.amove(0, _h)
+    @bottom_frame_obj.height = - _h - @slen
+    @bottom_frame_obj.amove(0,_h + @slen)
+  end
+
+  def hide_bottom
+    if (@state=='bottom')
+      _h = @last
+      @state = 'middle'
+    elsif (@state == 'top')
+      return
+    else
+      _h = @bottom_frame_obj.h + @top_frame_obj.h #+ @slen
+      @state = 'top'
+      @last = @top_frame_obj.h #+ @slen
+    end
+    @bottom_frame_obj.height = - _h - @slen
+    @bottom_frame_obj.amove(0,_h + @slen)
+    @splitter_frame_obj.amove(0,_h)
+    @top_frame_obj.height = _h
+    @top_frame_obj.go(0,_h)
+  end
+
+
+  def maximize(_frame)
+    super(_frame)
+    case _frame
+    when top_frame
+      hide_bottom
+    when bottom_frame
+      hide_top
+    end
+    Tk.update
+  end
+
+  def minimize(_frame)
+    super(_frame)
+    case _frame
+    when top_frame
+      hide_top
+    when bottom_frame
+      hide_bottom
+    end
+    Tk.update
+  end
+
+
+  def get_main_y
+    return 40
+  end
+
+  def do_resize
+    _y = @splitter_frame_obj.y0
+    _h = @splitter_frame_obj.h
+    @top_frame_obj.height = _y
+    @top_frame_obj.go(0,_y)
+    @bottom_frame_obj.height = -_y-_h
+    @bottom_frame_obj.amove(0,_y + _h)
+    #end
+  end
+
+  def hide(_name)
+  end
+
+  def show(_name)
+  end
+
+end
+
+class TkBaseTitledFrame < TkFrame
+  attr_reader :frame
+  attr_reader :top
+
+  def initialize(parent=nil, *args)
+    super(parent, *args)
+    @parent = parent
+    @title_height = 18
+    @top = TkFrame.new(self){
+      background  '#303b50'
+      #foreground  'white'
+      #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'
+    }.pack('side'=> 'right','anchor'=> 'w')
+    
+    self.head_buttons
+  end
+
+  def create_frame
+    return TkFrame.new(self).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')
+    TkButton.new(@button_frame){
+      text  _label if _label
+      image  TkPhotoImage.new('dat' => _image) if _image
+      relief 'flat'
+      font 'helvetica 8 bold'
+      #borderwidth 0
+      #background  '#303b50'
+      #background  '#8080ff'
+      pack('side'=> _side,'anchor'=> 'e')
+      bind('1',_proc) if _proc
+    }
+  end
+
+  def head_buttons
+    @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
+  end
+
+end
+
+
+
+class TkTitledFrame < TkBaseTitledFrame
+  attr_reader :frame
+  attr_reader :top
+
+  def initialize(parent=nil, title='...', img=nil , keys=nil)
+    super(parent, keys)
+    @state = 'normal'
+    @title_label =TkLabel.new(@top){
+      text title+' :: '
+      anchor  'w'
+      font  $arcadia['conf']['all.frame.title.font']
+      background  '#303b50'
+      foreground  '#e8e651'
+      compound 'left'
+      image  TkAllPhotoImage.new('file' => img) if img
+      pack('side'=> 'left','anchor'=> 'e')
+    }
+    @top_label =TkLabel.new(@top){
+      anchor  'w'
+      font  $arcadia['conf']['all.frame.title.font.italic']
+      background  '#303b50'
+      foreground  '#FFFFFF'
+      compound 'left'
+      pack('side'=> 'left','anchor'=> 'e')
+    }
+    
+    @ap = Array.new
+    @apx = Array.new
+    @apy = Array.new
+    @apw = Array.new
+    @aph = Array.new
+  end
+
+  def top_text(_text)
+    @top_label.text(_text)
+  end
+
+  def title(_text)
+    @title_label.text(_text+'::')
+  end
+
+
+  def add_sep(_width=0,_background =@top.background)
+    TkLabel.new(@top){||
+      text  ''
+      background  _background
+      pack('side'=> 'right','anchor'=> 'e', 'ipadx'=>_width)
+    }
+  end
+
+
+  def head_buttons
+    @bmaxmin = add_button('[ ]',proc{resize}, W_MAX_GIF)
+    #@bmaxmin = add_button('[ ]',proc{resize}, EXPAND_GIF)
+  end
+
+  def resize
+    p = TkWinfo.parent(@parent)
+    if @state == 'normal'
+      if p.kind_of?(AGTkSplittedFrames)
+        p.maximize(@parent)
+        @bmaxmin.image(TkPhotoImage.new('dat' => W_NORM_GIF))
+      end
+      @state = 'maximize'
+    else
+      if p.kind_of?(AGTkSplittedFrames)
+        p.minimize(@parent)
+        @bmaxmin.image(TkPhotoImage.new('dat' =>W_MAX_GIF))
+      end
+      @state = 'normal'
+    end
+    self.raise
+  end
+
+  def maximize
+    if @state == 'normal'
+      p = TkWinfo.parent(self)
+      while (p != nil) && (TkWinfo.manager(p)=='place')
+        Tk.messageBox('message'=>p.to_s)
+        @ap << p
+        @apx << TkPlace.info(p)['x']
+        @apy << TkPlace.info(p)['y']
+        @apw << TkPlace.info(p)['width']
+        @aph << TkPlace.info(p)['height']
+        p.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
+        p.raise
+        p = TkWinfo.parent(p)
+      end
+      @state = 'maximize'
+      self.raise
+    else
+      @ap.each_index{|i|
+        @ap[i].place('x'=>@apx[i], 'y'=>@apy[i],'width'=>@apw[i], 'height'=>@aph[i],'relheight'=>1, 'relwidth'=>1)
+        @ap[i].raise
+      }
+      self.raise
+      @ap.clear
+      @apx.clear
+      @apy.clear
+      @state = 'normal'
+    end
+  end
+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)
+  end
+
+end
+
+class TkFloatTitledFrame < TkBaseTitledFrame
+  include TkMovable
+  include TkResizable
+  def initialize(parent=nil, *args)
+    super(parent)
+    frame.place('height'=>-32)
+    borderwidth  2
+    relief  'groove'
+
+    @top_label = TkLabel.new(@top){
+      background  '#303b50'
+      foreground  'white'
+      anchor 'w'
+    }.pack('fill'=>'x', 'side'=>'top')
+    #.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20)
+
+    @resizing_label=TkLabel.new(self){
+      #background  '#303b50'
+      text '-'
+      image TkPhotoImage.new('dat'=>EXPAND_LIGHT_GIF)
+    }.pack('side'=> 'right','anchor'=> 's')
+    start_moving(@top_label, self)
+    start_moving(frame, self)
+    start_resizing(@resizing_label, self)
+    @grabbed = false
+  end
+
+  def title(_text)
+    @top_label.text(_text)
+  end
+
+  def on_close=(_proc)
+    add_button('X', _proc, TAB_CLOSE_GIF)
+  end
+  
+  def hide
+    @manager = TkWinfo.manager(self) 
+    if @manager == 'place'
+    		@x_place = TkPlace.info(self)['x']
+    		@y_place = TkPlace.info(self)['y']
+    		@width_place = TkPlace.info(self)['width']
+    		@height_place = TkPlace.info(self)['height']
+    		self.unplace
+    end
+    
+    if @grabbed
+      self.grab("release")
+      @grabbed = false
+    end
+    self
+  end
+  
+  def show
+    if @manager == 'place'
+      self.place('x'=>@x_place, 'y'=>@y_place, 'width'=>@width_place, 'height'=>@height_place)
+    end
+  end
+
+  def show_grabbed
+    show
+    @grabbed = true
+    self.grab("set")
+  end
+  
+#  def show_modal
+#    # not implemented
+#  end
+  
+  def head_buttons
+  end
+
+end
+
+class TkProgressframe < TkFloatTitledFrame
+  def initialize(parent=nil, _max=100, *args)
+    super(parent)
+    @max = _max
+    @progress = TkVariable.new
+    @progress.value = -1
+    Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
+        :background=>'red',
+        :foreground=>'blue',
+   		   :variable=>@progress,
+     		 :borderwidth=>0,
+      	 :relief=>'flat',
+        :maximum=>_max).place('width' => '150','x' => 25,'y' => 30,'height' => 15)
+     
+    @buttons_frame = TkFrame.new(self).pack('fill'=>'x', 'side'=>'bottom')	
+
+    @b_cancel = TkButton.new(@buttons_frame){|_b_go|
+      default  'disabled'
+      text  'Cancel'
+      overrelief  'raised'
+      justify  'center'
+      pack('side'=>'top','ipadx'=>5, 'padx'=>5)
+    }
+
+    place('x'=>100,'y'=>100,'height'=> 120,'width'=> 200)
+  end
+  
+  def quit
+    #self.destroy
+  end
+  
+  def progress(_incr=1)
+    @progress.numeric += _incr
+  end
+
+  def on_cancel=(_proc)
+    @b_cancel.bind_append('1', _proc)
+  end
+end
+
+class TkBuffersChoiseView < TkToplevel
+  
+  def initialize
+    super
+    Tk.tk_call('wm', 'title', self, '...hello' )
+    Tk.tk_call('wm', 'geometry', self, '150x217+339+198' )
+    @lb = TkListbox.new(self){
+      background  '#fedbd7'
+      relief  'groove'
+      place('relwidth' => '1','relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => '0','bordermode' => 'inside','width' => '0')
+    }
+  end
+  
+end
+
+class TkBuffersChoise < TkBuffersChoiseView
+  
+  def initialize
+    super
+    @lb.value= $arcadia['buffers.code.in_memory'].keys
+    @lb.bind("Double-ButtonPress-1",proc{
+      _sel = @lb.get('active')
+      Revparsel.new($arcadia['buffers.code.in_memory'][_sel])
+      @lb.delete('active')
+      $arcadia['buffers.code.in_memory'].delete(_sel)
+      destroy
+    })
+    raise
+  end
+  
+end
+