arcadia 0.2.0 → 0.3.0

data/ext/ae-editor/langs/conf.lang

@@ -1,15 +1,26 @@
-classes=key,value,operator,comment
+classes=key,value,operator,comment,link
 re.key=(.*)\=
 re.value=\=(.*)
 re.operator=\=
 re.comment=#
+re.link=>>>
 re_op.to_line_end=comment
 re_op.only_first=operator
 
-hightlight.comment.color.foreground=#007F00
-hightlight.key.color.foreground=#9c342c
+#hightlight.comment.foreground=#007F00
+#hightlight.key.foreground=#9c342c
+#hightlight.key.style=bold
+#hightlight.value.foreground=#69a0b6
+#hightlight.value.style=bold
+#hightlight.operator.foreground=red
+#hightlight.operator.style=bold
+
+hightlight.comment.foreground=>>>hightlight.11.foreground
+hightlight.key.foreground=>>>hightlight.5.foreground
 hightlight.key.style=bold
-hightlight.value.color.foreground=#69a0b6
+hightlight.value.foreground=>>>hightlight.6.foreground
 hightlight.value.style=bold
-hightlight.operator.color.foreground=red
+hightlight.operator.foreground=>>>hightlight.14.foreground
 hightlight.operator.style=bold
+hightlight.link.foreground=>>>hightlight.12.foreground
+hightlight.link.style=bold

data/ext/ae-editor/langs/lang.lang.bind

@@ -1 +1 @@
-bind=conf.lang
+bind=conf

data/ext/ae-editor/langs/rb.lang

@@ -13,55 +13,91 @@ re.symbol=[^:](:)[A-Za-z0-9_]*
 re.comment=#
 re_op.to_line_end=comment
 
-# override global
-hightlight.sel.color.foreground=black
-hightlight.sel.color.background=#68f914
-hightlight.sel.borderwidth=1
-hightlight.sel.relief=raised
-hightlight.selected.color.background=yellow
-hightlight.tabs.color.foreground=black
-hightlight.tabs.color.background=#b1cfba
-hightlight.tabs.borderwidth=1
-hightlight.tabs.relief=raised
-hightlight.spaces.color.foreground=black
-hightlight.spaces.color.background=#d9f42b
-hightlight.spaces.borderwidth=1
-hightlight.spaces.relief=raised
-#+--------------------------------------------------
+# override global classes
+hightlight.sel.foreground=>>>hightlight.1.foreground
+hightlight.sel.background=>>>hightlight.1.background
+hightlight.sel.borderwidth=>>>hightlight.1.borderwidth
+hightlight.sel.relief=>>>hightlight.1.relief
+hightlight.selected.background=>>>hightlight.2.background
+hightlight.tabs.foreground=>>>hightlight.3.foreground
+hightlight.tabs.background=>>>hightlight.3.background
+hightlight.tabs.borderwidth=>>>hightlight.3.borderwidth
+hightlight.tabs.relief=>>>hightlight.3.relief
+hightlight.spaces.foreground=>>>hightlight.4.foreground
+hightlight.spaces.background=>>>hightlight.4.background
+hightlight.spaces.borderwidth=>>>hightlight.4.borderwidth
+hightlight.spaces.relief=>>>hightlight.4.relief
 
 
+# override global
+#hightlight.sel.color.foreground=black
+#hightlight.sel.color.background=#68f914
+#hightlight.sel.borderwidth=1
+#hightlight.sel.relief=raised
+#hightlight.selected.color.background=yellow
+#hightlight.tabs.color.foreground=black
+#hightlight.tabs.color.background=#b1cfba
+#hightlight.tabs.borderwidth=1
+#hightlight.tabs.relief=raised
+#hightlight.spaces.color.foreground=black
+#hightlight.spaces.color.background=#d9f42b
+#hightlight.spaces.borderwidth=1
+#hightlight.spaces.relief=raised
+#+--------------------------------------------------
 
-hightlight.keyword.color.foreground=#00007F
+# custom classes
+hightlight.keyword.foreground=>>>hightlight.5.foreground
 hightlight.keyword.style=bold
-hightlight.method_name.color.foreground=#007F7F
+hightlight.method_name.foreground=>>>hightlight.6.foreground
 hightlight.method_name.style=bold
-hightlight.class_name.color.foreground=#0000FF
+hightlight.class_name.foreground=>>>hightlight.7.foreground
 hightlight.class_name.style=bold
-hightlight.module_name.color.foreground=#0000FF
+hightlight.module_name.foreground=>>>hightlight.8.foreground
 hightlight.module_name.style=bold
-hightlight.instance_variable.color.foreground=#7F7F7F
-hightlight.global_variable.style=bold
-hightlight.global_variable.color.foreground=#db66ca
+hightlight.instance_variable.foreground=>>>hightlight.9.foreground
 hightlight.instance_variable.style=bold
-hightlight.comment.color.foreground=#007F00
-hightlight.string.color.foreground=#7F007F
-hightlight.number.color.foreground=#007F7F
-#hightlight.capitalize.color.foreground=#0000FF
-hightlight.operator.color.foreground=#000000
+hightlight.global_variable.foreground=>>>hightlight.10.foreground
+hightlight.global_variable.style=bold
+hightlight.comment.foreground=>>>hightlight.11.foreground
+hightlight.string.foreground=>>>hightlight.12.foreground
+hightlight.number.foreground=>>>hightlight.13.foreground
+hightlight.operator.foreground=>>>hightlight.14.foreground
 hightlight.operator.style=bold
-hightlight.symbol.color.foreground=#bdc175
+hightlight.symbol.foreground=>>>hightlight.15.foreground
 hightlight.symbol.style=bold
-hightlight.sel.color.foreground=black
-hightlight.sel.color.background=#68f914
-hightlight.sel.borderwidth=1
-hightlight.sel.relief=raised
+
+
+#hightlight.keyword.color.foreground=#00007F
+#hightlight.keyword.style=bold
+#hightlight.method_name.color.foreground=#007F7F
+#hightlight.method_name.style=bold
+#hightlight.class_name.color.foreground=#0000FF
+#hightlight.class_name.style=bold
+#hightlight.module_name.color.foreground=#0000FF
+#hightlight.module_name.style=bold
+#hightlight.instance_variable.color.foreground=#7F7F7F
+#hightlight.instance_variable.style=bold
+#hightlight.global_variable.style=bold
+#hightlight.global_variable.color.foreground=#db66ca
+#hightlight.comment.color.foreground=#007F00
+#hightlight.string.color.foreground=#7F007F
+#hightlight.number.color.foreground=#007F7F
+#hightlight.capitalize.color.foreground=#0000FF
+#hightlight.operator.color.foreground=#000000
+#hightlight.operator.style=bold
+#hightlight.symbol.color.foreground=#bdc175
+#hightlight.symbol.style=bold
+#hightlight.sel.color.foreground=black
+#hightlight.sel.color.background=#68f914
+#hightlight.sel.borderwidth=1
+#hightlight.sel.relief=raised
 #hightlight.goto.color.foreground=blue
-hightlight.selected.color.background=yellow
-hightlight.tabs.color.foreground=black
-hightlight.tabs.color.background=#b1cfba
-hightlight.tabs.borderwidth=1
-hightlight.tabs.relief=raised
-hightlight.spaces.color.foreground=black
-hightlight.spaces.color.background=#d9f42b
-hightlight.spaces.borderwidth=1
-hightlight.spaces.relief=raised
+#hightlight.selected.color.background=yellow
+#hightlight.tabs.color.foreground=black
+#hightlight.tabs.color.background=#b1cfba
+#hightlight.tabs.borderwidth=1
+#hightlight.tabs.relief=raised
+#hightlight.spaces.color.foreground=black
+#hightlight.spaces.color.background=#d9f42b
+#hightlight.spaces.borderwidth=1
+#hightlight.spaces.relief=raised

data/ext/ae-editor/langs/rbw.lang.bind

@@ -1 +1 @@
-bind=rb.lang
+bind=rb

data/ext/ae-event-log/ae-event-log.rb

@@ -1,45 +1,46 @@
-#
-#   ae-event-log.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class EventLog < ArcadiaExt
-
-  def on_before_build(_event)
-    ArcadiaContractListener.new(self, ArcadiaContract, :do_event)
-  end
-
-  def do_event(_event)
-    if _event.context.sender!=self
-      message = event_message(_event)
-      Arcadia.new_msg(self, message, 'CH1')
-    end
-  end
-
-
-	def event_message(_event, _ind="") 
-      message = _ind
-      if _event.is_action?
-        message = message + 'ACTION::'
-      end
-      message = message +_event.signature+" :\n"
-      if _event.context
-        _event.context.instance_variables.sort.each do |key| 
-          _obj_value = _event.context.send(key.gsub('@',''))
-          _value = _obj_value
-          if _value == nil
-            _value = 'nil'
-          else !_value.instance_of?(String) 
-            _value = _value.to_s
-          end
-          message = message + _ind + "\s"*2 + key+' = '+_value+"\n"
-          if _obj_value != nil && _obj_value.kind_of?(ArcadiaContract::ContractEvent)
-            message = message + event_message(_obj_value, _ind+"\s"*4)
-          end
-        end
-      end
-      return message
-	end
-
-end
+#
+#   ae-event-log.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class EventLog < ArcadiaExt
+
+  def on_before_build(_event)
+    ArcadiaContractListener.new(self, ArcadiaContract, :do_event)
+  end
+
+  def do_event(_event)
+    if _event.context.sender!=self
+      message = event_message(_event)
+      Arcadia.console(self, 'msg'=>message, 'channel'=>'CH1')
+      #Arcadia.new_msg(self, message, 'CH1')
+    end
+  end
+
+
+	def event_message(_event, _ind="") 
+      message = _ind
+      if _event.is_action?
+        message = message + 'ACTION::'
+      end
+      message = message +_event.signature+" :\n"
+      if _event.context
+        _event.context.instance_variables.sort.each do |key| 
+          _obj_value = _event.context.send(key.gsub('@',''))
+          _value = _obj_value
+          if _value == nil
+            _value = 'nil'
+          else !_value.instance_of?(String) 
+            _value = _value.to_s
+          end
+          message = message + _ind + "\s"*2 + key+' = '+_value+"\n"
+          if _obj_value != nil && _obj_value.kind_of?(ArcadiaContract::ContractEvent)
+            message = message + event_message(_obj_value, _ind+"\s"*4)
+          end
+        end
+      end
+      return message
+	end
+
+end

data/ext/ae-file-history/ae-file-history.conf

@@ -3,7 +3,7 @@ labels=File history
 frames=0.0
 active=yes
 require=ext/ae-file-history/ae-file-history
-class=FileH
+class=FilesHistrory
 
 file.name=arcadia.history
 length=34

data/ext/ae-file-history/ae-file-history.rb

@@ -1,298 +1,373 @@
-#
-#   ae-file-history.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class TreeNode
-  attr_reader :sons
-  attr_reader :parent
-  attr_reader :kind
-  attr_reader :rif, :label, :helptext
-  attr_writer :rif, :label, :helptext
-  def initialize(parent=nil, kind='KClass')
-    @sons = Array.new
-    @parent = parent
-    @kind = kind
-    @label = ''
-    if @parent !=nil
-      @parent.sons << self
-    end
-    yield(self) if block_given?
-  end
-
-  def <=> (other)
-    self.label.strip <=> other.label.strip
-  end
-	
-	def path
-	  _path = @label
-	  if @parent != nil
-	    _path = @parent.path+_path
-	  end
-	  return _path
-	end
-
-	def dir(_path)
-	  node = nil
-	  parent = self
-	  sons.each{|_tree|
-	     if _path[0.._tree.label.length-1] == _tree.label 
-				 res = _path[_tree.label.length.._path.length-1]
-				 if ["\\","/"].include?(res[0,1])
-              parent = _tree
-              node= _tree.dir(res)
-				 end
-			 end
-			 break if node != nil
-	  }
-	  if node == nil
-	    node = TreeNode.new(parent,'KDir') do |_node|
-      		_node.label=_path
-      		_node.rif= parent.path+_path
-	    end
-	  end
-	  return node
-	end
-end
-
-
-
-class FileH < ArcadiaExt
-  include Autils
-  attr_reader :htree
-
-  def on_build(_event)
-    @h_stack = Array.new
-    do_select_item = proc{|_self|
-      if _self.selection_get[0].length >0
-      	_selected = ""
-      	_self.selection_get[0].each{|_block|
-       	 _selected = _selected + _block.to_s + "\s" 
-      	}
-      	_selected = _selected.strip
-      else
-        _selected = _self.selection_get[0]
-      end
-      _dir, _file = _selected.split('@@@')
-      if _file
-        _file = File.expand_path( _file  , _dir ) 
-	   else
-	      _file = Tk.getOpenFile('initialdir'=>_dir)
-	   end
-	   if _file
-	     Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file))
-        #EditorContract.instance.open_file(self,'file'=>_file)
-      end
-    }
-    _background = conf('color.background')
-    _foreground = conf('color.foreground')
-    @font =  conf('font')
-    @font_b = conf('font.bold')
-
-	  @htree = Tk::BWidget::Tree.new(self.frame){
-      relief 'flat'
-      showlines false
-      deltay 18
-      background _background
-      crossfill _foreground
-      #dragenabled true
-      selectcommand proc{ do_select_item.call(self) } 
-      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
-    }
-    _scrollcommand = proc{|*args| @htree.yview(*args)}
-    _scrollbar = TkScrollbar.new(self.frame){|s|
-      width 8
-      command _scrollcommand
-    }.pack('side'=>'right', 'fill'=>'y')
-    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
-    
-	  self.build_tree
-	end
-	
-	def on_after_build(_event)
-    #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    Arcadia.add_listener(self, OpenBufferEvent)
-	end
-	
-	def history_file
-    if !defined?(@arcadia_history_file)
-    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
-    end
-    return @arcadia_history_file
-	end
-		
-  def on_after_open_buffer(_event)
-    if _event.file
-      self.add2history(_event.file)
-      add_to_tree(_event.file)
-    end
-  end
-		
-#	def do_editor_event(_event)
-#     case _event.signature 
-#     		when EditorContract::FILE_AFTER_OPEN
-#     		  if _event.context.file
-#    		      self.add2history(_event.context.file)
-#    		      add_to_tree(_event.context.file)
-#     			  end
-#     		when EditorContract::FILE_AFTER_CLOSE
-#     		  if _event.context.file 
-#     		end
-#     end
-#	end
-
-  def root
-    if !defined?(@root)
-      @root = TreeNode.new(nil, 'KRoot'){|_node|
-        _node.rif= 'root'
-        _node.label=''
-      }
-    end
-    return @root
-  end
-  
-  def build_tree
-    file_dir = Hash.new
-    nodes = Array.new
-    if File.exist?(history_file)
-      f = File::open(history_file,'r')
-      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
-      begin
-        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
-        _lines.sort.each{|_line|
-          _file = _line.split(';')[0]
-          if FileTest::exist?(_file)
-						dir,fil =File.split(File.expand_path(_file))
-						dir = dir.downcase if is_windows?
-						fil = fil.downcase if is_windows?
-						file_dir[dir] = Array.new if file_dir[dir] == nil
-						file_dir[dir] << fil if !file_dir[dir].include?(fil)
-          end
-        }
-      ensure
-        f.close unless f.nil?
-      end
-    end
-
-    file_dir.keys.sort.each{|_dir|
-    				node = root.dir(_dir)
-				file_dir[_dir].each{|file|
-				  TreeNode.new(node, 'KFile'){|_node|
-              _node.rif= _dir+'@@@'+file
-              _node.label=file
-				  }
-				}
-    }
-
-    @image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
-    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
-    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
-
-		build_tree_from_node(root)
-  end
-
-  def add_to_tree(_file)
-	 _d, _f = File.split(File.expand_path(_file))
-	 _d = _d.downcase if is_windows?
-	 _f = _f.downcase if is_windows?
-    _foreground = conf('color.foreground')
-	 node = root.dir(_d)
-    if !@htree.exist?(node.rif)
-      @htree.insert('end', node.parent.rif ,node.rif, {
-          'text' =>  node.rif ,
-          'helptext' => node.rif,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font,
-          'image'=> image('KDir')
-        }
-      )
-    end
-    _file_node_rif = _d+'@@@'+_f
-    if !@htree.exist?(_file_node_rif)
-      @htree.insert('end', node.rif ,_file_node_rif, {
-          'text' =>  _f ,
-          'helptext' => _f,
-          'deltax'=>-1,
-          'fill' => _foreground,
-          'font'=>@font_b,
-          'image'=> image('KFile',_f)
-        }
-      )
-    end
-    
-  end
- 
-  def image(_kind, _label='.rb')
-      if _kind == 'KDir'
-        return @image_kdir
-      elsif _kind == 'KFile' && _label.include?('.rb')
-        return @image_kfile_rb
-      else
-        return @image_kfile
-      end
-  end
-
-  def build_tree_from_node(_node)
-    _foreground = conf('color.foreground')
-    _sorted_sons = _node.sons.sort
-    for inode in 0.._sorted_sons.length - 1
-      _son = _sorted_sons[inode]
-      @htree.insert('end', _son.parent.rif ,_son.rif, {
-        'text' =>  _son.label ,
-        'fill' => _foreground,
-        'helptext' => _son.helptext,
-        'deltax'=>-1,
-        'font'=>@font,
-        'image'=> image(_son.kind, _son.label)
-      }
-      )
-      build_tree_from_node(_son)
-    end
-  end
-
-
-  def add2history(_filename, _text_index='1.0')
-    if _filename
-      _filename = _filename.sub(Dir::pwd+'/',"")
-      _filename = File.expand_path(_filename)
-      _filename_index = _filename+";"+_text_index
-
-      if File.exist?(history_file)
-        f = File::open(history_file,'r')
-        begin
-          _lines = f.readlines.collect!{| line | line.chomp}
-        ensure
-          f.close unless f.nil?
-        end
-        f = File.new(history_file, "w")
-        begin
-          if f
-            _l= conf('length').to_i
-            f.syswrite(_filename_index+"\n")
-            _lines[0.._l-2].each{|_line|
-              _lfile = _line.split(';')
-              if _lfile
-                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
-              end
-            }
-          end
-        ensure
-          f.close unless f.nil?
-        end
-      else
-     			dir,fil =File.split(File.expand_path(history_file))
-     			if !File.exist?(dir)
-     			  Dir.mkdir(dir)
-     			end
-        f = File.new(history_file, "w+")
-        begin
-          f.syswrite(_filename+"\n") if f
-        ensure
-          f.close unless f.nil?
-        end
-      end
-    end
-  end
-end
+#
+#   ae-file-history.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class TreeNode
+  attr_reader :sons
+  attr_reader :parent
+  attr_reader :kind
+  attr_reader :rif, :label, :helptext
+  attr_writer :rif, :label, :helptext
+  def initialize(parent=nil, kind='KClass')
+    @sons = Array.new
+    @parent = parent
+    @kind = kind
+    @label = ''
+    if @parent !=nil
+      @parent.sons << self
+    end
+    yield(self) if block_given?
+  end
+
+  def <=> (other)
+    self.label.strip <=> other.label.strip
+  end
+	
+	def path
+	  _path = @label
+	  if @parent != nil
+	    _path = @parent.path+_path
+	  end
+	  return _path
+	end
+
+	def dir(_path)
+	  node = nil
+	  parent = self
+	  sons.each{|_tree|
+	     if _path[0.._tree.label.length-1] == _tree.label 
+				 res = _path[_tree.label.length.._path.length-1]
+				 if ["\\","/"].include?(res[0,1])
+              parent = _tree
+              node= _tree.dir(res)
+				 end
+			 end
+			 break if node != nil
+	  }
+	  if node == nil
+	    node = TreeNode.new(parent,'KDir') do |_node|
+      		_node.label=_path
+      		_node.rif= parent.path+_path
+	    end
+	  end
+	  return node
+	end
+end
+
+
+
+class FilesHistrory < ArcadiaExt
+  include Autils
+  attr_reader :htree
+
+  def sync_on
+    @sync = true
+    select_file_without_event(@last_file) if @last_file
+
+    #Arcadia.attach_listener(self, BufferRaisedEvent)
+  end
+
+  def sync_off
+    @sync = false
+    #Arcadia.detach_listener(self, BufferRaisedEvent)
+  end
+
+  def on_before_build(_event)
+    Arcadia.attach_listener(self, BufferRaisedEvent)
+  end
+
+  def on_build(_event)
+    @h_stack = Array.new
+    @cb_sync = TkCheckButton.new(self.frame.hinner_frame, Arcadia.style('checkbox')){
+      text  'Sync'
+      justify  'left'
+      variable 1
+      #command do_check
+      place('x' => 0,'y' => 0,'height' => 22)
+    }
+
+    do_check = proc {
+      if @cb_sync.cget('onvalue')==@cb_sync.cget('variable').value.to_i
+        sync_on
+      else
+        sync_off
+      end
+    }
+    @sync = false
+    @cb_sync.command(do_check)
+    
+    do_select_item = proc{|_self|
+      if _self.selection_get[0].length >0
+      	_selected = ""
+      	_self.selection_get[0].each{|_block|
+       	 _selected = _selected + _block.to_s + "\s" 
+      	}
+      	_selected = _selected.strip
+      else
+        _selected = _self.selection_get[0]
+      end
+      _dir, _file = _selected.split('@@@')
+      if _file
+        _file = File.expand_path( _file  , _dir ) 
+	   else
+	      _file = Tk.getOpenFile('initialdir'=>_dir)
+	   end
+	   if _file
+	     Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file))
+        #EditorContract.instance.open_file(self,'file'=>_file)
+      end
+    }
+#    _background = conf('color.background')
+#    _foreground = conf('color.foreground')
+    @font =  Arcadia.conf('treeitem.font')
+    @font_b = "#{Arcadia.conf('treeitem.font')} bold"
+
+	  @htree = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+      #relief 'flat'
+      showlines false
+      deltay 18
+      #background _background
+      #crossfill _foreground
+      #dragenabled true
+      selectcommand proc{ do_select_item.call(self) } 
+      place('relwidth' => 1,'relheight' => '1', 'x' => '0','y' => '22', 'height' => -22)
+    }
+    _scrollcommand = proc{|*args| @htree.yview(*args)}
+    _scrollbar = TkScrollbar.new(self.frame.hinner_frame, Arcadia.style('scrollbar')){|s|
+      width 8
+      command _scrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+    
+	  self.build_tree
+	end
+	
+	def on_after_build(_event)
+    #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    Arcadia.attach_listener(self, OpenBufferEvent)
+	end
+	
+	def history_file
+    if !defined?(@arcadia_history_file)
+    		@arcadia_history_file = @arcadia.local_dir+'/'+conf('file.name')
+    end
+    return @arcadia_history_file
+	end
+		
+  def on_after_open_buffer(_event)
+  	 #Arcadia.new_error_msg(self, "on_after_open_buffer _event.file=#{_event.file}")
+
+    if _event.file
+      self.add2history(_event.file)
+      add_to_tree(_event.file)
+    end
+  end
+
+  def select_file_without_event(_file)
+    _d, _f = File.split(File.expand_path(_file))
+    _d = _d.downcase if is_windows?
+    _f = _f.downcase if is_windows?
+    _file_node_rif = _d+'@@@'+_f
+    if @htree.exist?(_file_node_rif)
+      _proc = @htree.selectcommand
+      @htree.selectcommand(proc{nil})
+      begin
+        parent = root.dir(_d)
+        @htree.selection_clear
+        @htree.selection_add(_file_node_rif)
+        #@htree.close_tree('root')
+        while !parent.nil? && parent.rif != 'root'
+          @htree.open_tree(parent.rif, false)
+          parent = parent.parent
+        end
+        @htree.see(_file_node_rif)
+      ensure
+        @htree.selectcommand(_proc)
+      end
+    end
+  end
+		
+  def on_buffer_raised(_event)
+    return if _event.file.nil?
+    @last_file = _event.file
+    if @sync
+      select_file_without_event(_event.file)
+    end
+  end
+		
+#	def do_editor_event(_event)
+#     case _event.signature 
+#     		when EditorContract::FILE_AFTER_OPEN
+#     		  if _event.context.file
+#    		      self.add2history(_event.context.file)
+#    		      add_to_tree(_event.context.file)
+#     			  end
+#     		when EditorContract::FILE_AFTER_CLOSE
+#     		  if _event.context.file 
+#     		end
+#     end
+#	end
+
+  def root
+    if !defined?(@root)
+      @root = TreeNode.new(nil, 'KRoot'){|_node|
+        _node.rif= 'root'
+        _node.label=''
+      }
+    end
+    return @root
+  end
+  
+  def build_tree
+    file_dir = Hash.new
+    nodes = Array.new
+    if File.exist?(history_file)
+      f = File::open(history_file,'r')
+      f_open = $arcadia['pers']['editor.files.open'].split("|") if $arcadia['pers']['editor.files.open']
+      begin
+        _lines = f.readlines.collect!{| line | line.chomp+"\n" }.to_s
+        _lines.sort.each{|_line|
+          _file = _line.split(';')[0]
+          if FileTest::exist?(_file)
+						dir,fil =File.split(File.expand_path(_file))
+						dir = dir.downcase if is_windows?
+						fil = fil.downcase if is_windows?
+						file_dir[dir] = Array.new if file_dir[dir] == nil
+						file_dir[dir] << fil if !file_dir[dir].include?(fil)
+          end
+        }
+      ensure
+        f.close unless f.nil?
+      end
+    end
+
+    file_dir.keys.sort.each{|_dir|
+    				node = root.dir(_dir)
+				file_dir[_dir].each{|file|
+				  TreeNode.new(node, 'KFile'){|_node|
+              _node.rif= _dir+'@@@'+file
+              _node.label=file
+				  }
+				}
+    }
+
+    @image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
+    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
+    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
+
+		build_tree_from_node(root)
+  end
+
+  def add_to_tree(_file)
+	 _d, _f = File.split(File.expand_path(_file))
+	 #Arcadia.new_error_msg(self, "add_to_tree _file=#{_file}")
+	 #Arcadia.new_error_msg(self, "add_to_tree _d=#{_d}")
+	 #Arcadia.new_error_msg(self, "add_to_tree _f=#{_f}")
+	 _d = _d.downcase if is_windows?
+	 _f = _f.downcase if is_windows?
+    #_foreground = conf('color.foreground')
+	 node = root.dir(_d)
+    if !@htree.exist?(node.rif)
+	 #Arcadia.new_error_msg(self, "add_to_tree node.parent.rif=#{node.parent.rif}")
+	 #Arcadia.new_error_msg(self, "add_to_tree node.rif=#{node.rif}")
+      @htree.insert('end', node.parent.rif ,node.rif, {
+          'text' =>  node.label,
+          'helptext' => node.rif,
+          'deltax'=>-1,
+     #     'fill' => _foreground,
+     #     'font'=>@font,
+          'image'=> image('KDir')
+        }.update(Arcadia.style('treeitem'))
+      )
+    end
+    _file_node_rif = _d+'@@@'+_f
+    if !@htree.exist?(_file_node_rif)
+      @htree.insert('end', node.rif ,_file_node_rif, {
+          'text' =>  _f ,
+          'helptext' => _f,
+          'deltax'=>-1,
+          #'fill' => _foreground,
+          #'font'=>@font_b,
+          'image'=> image('KFile',_f)
+        }.update(Arcadia.style('treeitem'))
+      )
+    end
+    
+  end
+ 
+  def image(_kind, _label='.rb')
+      if _kind == 'KDir'
+        return @image_kdir
+      elsif _kind == 'KFile' && _label.include?('.rb')
+        return @image_kfile_rb
+      else
+        return @image_kfile
+      end
+  end
+
+  def build_tree_from_node(_node)
+    #_foreground = conf('color.foreground')
+    _sorted_sons = _node.sons.sort
+    for inode in 0.._sorted_sons.length - 1
+      _son = _sorted_sons[inode]
+      @htree.insert('end', _son.parent.rif ,_son.rif, {
+        'text' =>  _son.label ,
+     #   'fill' => _foreground,
+        'helptext' => _son.helptext,
+        'deltax'=>-1,
+      #  'font'=>@font,
+        'image'=> image(_son.kind, _son.label)
+      }.update(Arcadia.style('treeitem'))
+      )
+      build_tree_from_node(_son)
+    end
+  end
+
+
+  def add2history(_filename, _text_index='1.0')
+    if _filename
+      _filename = _filename.sub(Dir::pwd+'/',"")
+      _filename = File.expand_path(_filename)
+      _filename_index = _filename+";"+_text_index
+     	 #Arcadia.new_error_msg(self, "add2history _filename=#{_filename}")
+     	 #Arcadia.new_error_msg(self, "add2history history_file=#{history_file}")
+
+      if File.exist?(history_file)
+        f = File::open(history_file,'r')
+        begin
+          _lines = f.readlines.collect!{| line | line.chomp}
+        ensure
+          f.close unless f.nil?
+        end
+        f = File.new(history_file, "w")
+        begin
+          if f
+            _l= conf('length').to_i
+            f.syswrite(_filename_index+"\n")
+            _lines[0.._l-2].each{|_line|
+              _lfile = _line.split(';')
+              if _lfile
+                f.syswrite(_line+"\n") if (_lfile[0] != _filename)&&(_line.length > 0)
+              end
+            }
+          end
+        ensure
+          f.close unless f.nil?
+        end
+      else
+     			dir,fil =File.split(File.expand_path(history_file))
+     			if !File.exist?(dir)
+     			  Dir.mkdir(dir)
+     			end
+        f = File.new(history_file, "w+")
+        begin
+          f.syswrite(_filename+"\n") if f
+        ensure
+          f.close unless f.nil?
+        end
+      end
+    end
+  end
+end