arcadia 0.2.0 → 0.3.0

data/conf/arcadia.init.rb

@@ -2,12 +2,33 @@
 
 begin
   require 'tk'
-rescue LoadError
-  p '+-----------------------------------------+'
-  p '|      Arcadia require ruby tk            |' 
-  p '|      you must install before run ...    |'
-  p '+-----------------------------------------+'
-  exit
+rescue LoadError => e
+print <<EOL
+ +--------------------------------------------+
+ |      Arcadia require ruby-tk extension     |
+ |      and tcl/tk run-time                   |
+ |      you must install before run ...       |
+ +--------------------------------------------+
+EOL
+i=30
+l=i
+msg=e.message
+while l < msg.length
+  while l < msg.length-1 && msg[l..l]!="\s"
+    l=l+1
+  end
+  msg = msg[0..l]+"\n"+"\s"*4+msg[l+1..-1]
+  l=l+i
+end
+print <<EOL
+ ---Tk LoadError Details-----------------------
+    Platform : "#{RUBY_PLATFORM}"          
+    Ruby version : "#{RUBY_VERSION}"
+    Message : 
+    "#{msg}"
+ ----------------------------------------------
+EOL
+exit
 end
 
 Tk.tk_call "eval","set auto_path [concat $::auto_path tcl]"

data/conf/arcadia.res.rb

@@ -1330,3 +1330,13 @@ R0lGODlhEAAQAIABAPEoAP///yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
 +QQBCgABACwAAAAAEAAQAAACIoyPqcutAKN8DFAJg012m35poHeMY1hqF6Zy
 1YNNzkzXSAEAOw==
 EOS
+
+KEYBOARD_GIF=<<EOS
+R0lGODlhGgAVAOMOAAAAAJmZmWZmZj8/P8zMzB8fH7+/v09PT4+Pj9/f339/
+fw8PD2ZmZjMzM////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh+QQB
+FAAPACwAAAAAGgAVAAAEtfDJSes7yeotA8gclRhGRSxHOCUC4AKDoghLA6rN
+ghiBMLgFxS3kIaiOB8ExRDA0BKSodDqVIBqyrHbLnRUIg+GyEkAMOoqHQfgI
+pBMKA7ykCEjW58fvoQCU9gYAcYIPMHcKeU0xBj4BBgNQM3gGRmqIFIQ/JYaX
+fRR4Ent9fwBqgoFphpZ5Pm0DRq1gAbJ6SqsVa11ZJZ+XFH0vwS9pvXkrVFNi
+awKVYxYIsw0D09TV1tcNGBEAOw==
+EOS

data/ext/ae-complete-code/ae-complete-code.rb

@@ -1,82 +1,76 @@
-#
-#   ae-complete-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-
-class CompleteCode < ArcadiaExt
-
-	def on_after_build(_event) 
-	  @complete_command=full_command('rct-complete')
-	  @doc_command=full_command('rct-doc')
-	  @ri_command="ri -T -f plain"
-	  @finder_command="rct-meth-args -n"
-	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
-    		Arcadia.add_listener(self, CompleteCodeEvent)
-    		#ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-   		 Arcadia.new_error_msg(self, "Warning: Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)")
-    end
-	end
-	
-	def full_command(_command='rct-complete')
-		_ret = nil
-		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
-		ENV['PATH'].split(_sep).each{|_path|
-			_file = File.join(_path, _command)
-			if FileTest.exist?(_file)
-	  			_ret = _file
-			end
-		}
-		_ret
-	end
-	
-	def on_complete_code(_event)
-	  if _event.file
-	    _event.add_result(self,'candidates'=>candidates(_event.file, _event.row, _event.col))
-#	    _event.results << CompleteCodeEvent::CompleteCodeResult.new(self)
-#	    _event.results[0].candidates = candidates(_event.file, _event.row, _event.col)
-	  end
-	end
-		
-#	def do_editor_event(_event)
-#     case _event.signature 
-#     		when EditorContract::COMPLETE_CODE
-#     		  if _event.context.file     		
-#     		    _event.context.candidates = candidates(_event.context.file, _event.context.line, _event.context.col)
-#     		    _event.handled(self)
-#     			 end
-#     end
-#	end
-
-  def candidates(_file, _line, _col)
-		begin
-		  _options = "--completion-class-info --line="+_line+" --column="+_col
-		  #_options = "--line="+_line+" --column="+_col
-      _cmp_s = "|ruby "+@complete_command+" "+_options+" "+_file
-      _ret = nil
-      open(_cmp_s,"r") do
-        |f|
-        _ret = f.readlines.collect!{| line | line.chomp}
-        #p _ret
-      end
-      if _ret.length == 0
-        _cmp_s_d = _cmp_s+" 2>&1"
-	      _error = nil
-	      open(_cmp_s_d,"r") do
- 		       |f|
- 		       _error = f.readlines.collect!{| line | line.chomp}
-     		 end
-     		 if _error != nil && _error.length > 0
-	     			Arcadia.new_error_msg(self, "Syntax error in current source")
-        end
-      end
-      _ret
-  		rescue Exception => e
-  			 Arcadia.new_error_msg(self, e.to_s)
- 	  end
-  end
-  
-end
-
+#
+#   ae-complete-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+
+class CompleteCode < ArcadiaExt
+
+	def on_after_build(_event) 
+	  @complete_command=full_command('rct-complete')
+	  @doc_command=full_command('rct-doc')
+	  @ri_command="ri -T -f plain"
+	  @finder_command="rct-meth-args -n"
+	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
+    		Arcadia.attach_listener(self, CompleteCodeEvent)
+    else
+      Arcadia.console(self, 'msg'=>"Warning: Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)", 'level'=>'error')
+   		 #Arcadia.new_error_msg(self, "Warning: Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)")
+    end
+	end
+	
+	def full_command(_command='rct-complete')
+		_ret = nil
+		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
+		ENV['PATH'].split(_sep).each{|_path|
+			_file = File.join(_path, _command)
+			if FileTest.exist?(_file)
+	  			_ret = _file
+			end
+		}
+		_ret
+	end
+	
+	def on_complete_code(_event)
+	  if _event.file
+	    _event.add_result(self,'candidates'=>candidates(_event.file, _event.row, _event.col))
+	  end
+	end
+		
+  def enance(_file, line)
+  
+  end
+		
+  def candidates(_file, _line, _col)
+		begin
+		  _options = "--completion-class-info --dev --fork --line="+_line+" --column="+_col
+		  #_options = "--line="+_line+" --column="+_col
+      _cmp_s = "|ruby "+@complete_command+" "+_options+" "+_file
+      _ret = nil
+      open(_cmp_s,"r") do
+        |f|
+        _ret = f.readlines.collect!{| line | line.chomp}
+        #p _ret
+      end
+      if _ret.length == 0
+        _cmp_s_d = _cmp_s+" 2>&1"
+	      _error = nil
+	      open(_cmp_s_d,"r") do
+ 		       |f|
+ 		       _error = f.readlines.collect!{| line | line.chomp}
+     		 end
+     		 if _error != nil && _error.length > 0
+          Arcadia.console(self, 'msg'=>"Syntax error in current source", 'level'=>'error')
+	     		 #Arcadia.new_error_msg(self, "Syntax error in current source")
+        end
+      end
+      _ret
+  		rescue Exception => e
+        Arcadia.console(self, 'msg'=>e.to_s, 'level'=>'error')
+  			 #Arcadia.new_error_msg(self, e.to_s)
+ 	  end
+  end
+  
+end
+

data/ext/ae-doc-code/ae-doc-code.rb

@@ -1,291 +1,295 @@
-#
-#   ae-doc-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class DocCode < ArcadiaExt
-  def on_after_build(_event) 
-    @doc_command=full_command('rct-doc')
-    @doc_command=full_command('RCT-DOC') if @doc_command == nil
-    @ri_command=full_command('ri')
-    if @ri_command !=nil #system(@rct_complete+" "+__FILE__)
-      Arcadia.add_listener(self, DocCodeEvent)
-      #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-      Arcadia.new_error_msg(self, "Extension ae-doc-code depend upon ri command!")
-    end
-    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
-      Arcadia.new_error_msg(self, "Warning: Extension ae-doc-code depend upon rct-doc command!")
-    end
-  end
-  
-  def full_command(_command='ri')
-    _ret = nil
-    RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
-    ENV['PATH'].split(_sep).each{|_path|
-      _file = File.join(_path, _command)
-      if FileTest.exist?(_file)
-        _ret = _file
-      end
-    }
-    _ret
-  end
-  
-  def on_doc_code(_event)
-    if _event.file && @doc_command != nil 
-      res = _event.add_result(self)
-      res.doc = doc(_event)
-    elsif _event.doc_entry
-      _event.add_result(self, 'doc'=>doc_entry(_event.doc_entry),'title'=>_event.doc_entry)
-    end
-  end
-
-  def on_after_doc_code(_event)
-    res = _event.results[0]
-    if res !=nil &&  res.doc != nil &&  res.doc.length >0    		
-      raise_doc_code(_event)
-    end
-  end
-
-  def raise_doc_code(_context)
-    if @docFrame
-      @docFrame.tkText.delete('1.0','end')
-    else
-      _height = 140
-      _width = 550
-      _context.xdoc =  TkWinfo.screenwidth(@arcadia.layout.root)/2  if !_context.xdoc 
-      _context.ydoc =  TkWinfo.screenheight(@arcadia.layout.root)/2  if !_context.ydoc 
-      _x = _context.xdoc - _width/2
-      _y = _context.ydoc - _height -20
-      _x = 0 if _x < 0
-      _y = 0 if _y < 0
-      @docFrame = TkDocframe.new(@arcadia.layout.root).place('x'=>_x, 'y'=>_y, 'width'=>_width, 'height'=>_height)
-      do_close = proc{
-         @docFrame.destroy
-         @docFrame = nil
-         Tk.callback_break
-      }
-      @docFrame.on_close = do_close
-      @docFrame.tkText.bind_append('KeyPress'){|e|
-        case e.keysym
-          when 'Escape'
-            do_close.call
-          end
-       }
-       @docFrame.tkText.font(conf('font'))
-       @docFrame.tkText.foreground(conf('color.foreground'))
-       @docFrame.tkText.background(conf('color.background'))
-    end
-    res = _context.results[0]
-    if res.doc
-      @docFrame.tkText.insert('end', res.doc.to_s)
-      @docFrame.title(res.title) if res.title
-    else
-      Arcadia.new_msg(self, 'nulla di dire !')
-    end
-  end
-
-  def doc_entry(_entry=nil)
-    _ret = nil
-    if _entry
-      _cmp_doc = "|ruby "+@ri_command+" -T -f plain "+_entry
-      open (_cmp_doc) do |f|
-         _ret = f.readlines 
-      end
-    end
-    _ret
-  end
-  
-  def doc(_context)
-    begin
-      _options = "--line="+_context.row+" --column="+_context.col
-      _cmp_s = "|ruby " + @doc_command +" --use-method-analyzer "+_options +" " +_context.file
-      _ret = nil
-      _doc = nil
-      open(_cmp_s,"r") do
-        |f|
-        _doc = f.readlines.collect!{| line | line.chomp}.to_s.strip
-      end
-      if _doc.length > 0
-        _context.results[0].title = _doc.to_s if _context.results[0]
-        _ret = doc_entry(_context.results[0].title)
-      end
-      _ret
-  
-    rescue Exception => e
-      _msg = e.to_s + "\n"
-      e.backtrace.each{|line| _msg = _msg + line + "\n"}
-      Arcadia.new_error_msg(self, _msg)
-    end
-  end
-
-    
-#  def do_editor_event(_event)
-#     case _event.signature 
-#       when EditorContract::DOC_CODE
-#         if _event.context.file && @doc_command != nil    
-#           _event.context.doc = doc(_event.context)
-#           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
-#             raise_doc_code(_event.context)
-#           end
-#         elsif _event.context.doc_entry
-#           _event.context.doc = doc_entry(_event.context.doc_entry)
-#           _event.context.text = _event.context.doc_entry
-#           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
-#             raise_doc_code(_event.context)
-#           end
-#         end
-#         _event.handled(self)
-#       when EditorContract::BUILD_DOC_TREE
-#         build_doc_tree
-#     end
-#  end
-
-  def build_doc_tree
-    if !@doc_tree
-      @image_class =  TkPhotoImage.new('dat' => ARROW_RIGHT_GIF)
-      @image_def =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
-      @image_def_class =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
-      do_select_item = proc{|_self|
-        if _self.selection_get[0].length >0
-          _selected = rif_2_node(_self.selection_get[0])
-        end
-        if _selected
-          EditorContract.instance.doc_code(self, 'doc_entry'=>_selected)	    
-        end
-      }
-      _background = conf('color.background')
-      _foreground = conf('color.foreground')
-      @doc_tree = Tk::BWidget::Tree.new(self.frame){
-          relief 'flat'
-          showlines false
-          deltay 18
-          background _background
-          crossfill _foreground
-          selectcommand proc{ do_select_item.call(self) } 
-          place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
-      }
-      
-      _scrollcommand = proc{|*args| @doc_tree.yview(*args)}
-      _scrollbar = TkScrollbar.new(self.frame){|s|
-         width 8
-         command _scrollcommand
-      }.pack('side'=>'right', 'fill'=>'y')
-      @doc_tree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
-  
-      names = doc_entry('--list-names')
-
-      @progress_bar = TkProgressframe.new(@arcadia.layout.root, names.length)		  
-      @progress_bar.title('Building doc')
-      @cancell=false
-      @progress_bar.on_cancel=proc{cancel}
-      #@hash_rif = Hash.new    		
-      @level = 0
-      @last_nodes = Array.new
-      Thread.new do
-        _last_value = ''
-        #p 'n�='+ names.length.to_s
-        names.sort.each do |value|
-          _value = value.chomp.strip
-          if _value != _last_value
-            node(_value)
-            @progress_bar.title(_value)
-            _last_value = _value
-          end
-          @progress_bar.progress
-          if @cancell
-            @progress_bar.destroy
-            @progress_bar = nil
-            break
-          end
-        end
-        progress_bar.destroy if @progress_bar != nil
-      end
-    end
-  end
-  
-  def cancel
-    @cancell=true
-  end
-  
-  def node_2_rif(_path)
-    return  _path.gsub('#','@M@').gsub('::','@C@').gsub('|','@P@').gsub('^','@U@')
-  end
-  
-  def rif_2_node(_rif)
-    return  _rif.gsub('@M@','#').gsub('@C@', '::').gsub('@P@', '|').gsub('@U@', '^')
-  end
-
-  def node(_path)
-    # _rif = @hash_rif.length
-    _rif = node_2_rif(_path)
-    _parent_found = false
-    while !_parent_found && @level > 0 do
-      @level = @level - 1
-      if  (@last_nodes[@level] != nil) && _path.include?(@last_nodes[@level]) 
-        _full_value = _path.sub(@last_nodes[@level],'')
-        if _full_value[0..1].include?('#')
-          _sep = '#'
-          _value = _full_value[1.._full_value.length-1]
-          _parent_found  = true
-        elsif _full_value[0..2].include?('::')
-          _sep = '::'
-          _value = _full_value[2.._full_value.length-1]
-          _parent_found  = true
-        else
-          _parent_found  = false
-        end
-      end
-    end
-    if _parent_found 
-      _parent_path = @last_nodes[@level]
-      #_parent_rif = @hash_rif[_parent_path]
-      _parent_rif = node_2_rif(_parent_path)
-      @level = @level + 1
-    else
-      _parent_rif = 'root'
-      _sep = ''
-      _value = _path
-    end
-
-     #@hash_rif[_path]= _rif
-     @last_nodes[@level] = _path
-     _background = conf('color.background')
-
-      if _sep.length == 0
-        _image = @image_class
-      elsif _sep.include?('#')
-        _image = @image_def
-      elsif _sep.include?('::')
-        _image = @image_def_class
-      end
-
-     @doc_tree.insert('end', _parent_rif ,_rif, {
-           'text' =>  _value ,
-           'helptext' => _path,
-           'deltax'=>-1,
-           'image'=>_image
-         }
-       )
-      @level = @level + 1
-  end
-end
-
-class TkDocframe < TkFloatTitledFrame
-  attr_reader :tkText
-  def initialize(parent=nil, *args)
-    super(parent)
-    @tkText = TkText.new(self.frame, 
-        'wrap'=>'none',
-        'relief'=>'groove'
-    ){|j|
-      TkScrollbar.new(j){|s|
-        width 8
-        command proc{|*args| j.yview(*args)}
-        j.yscrollcommand proc{|first,last| s.set first,last}
-      }.pack('side'=>'right', 'fill'=>'y')
-    }.place('x'=>0, 'y'=>0, 'relheight'=> 1, 'relwidth'=> 1)
-    
-  end
-end
+#
+#   ae-doc-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class DocCode < ArcadiaExt
+  def on_after_build(_event) 
+    @doc_command=full_command('rct-doc')
+    @doc_command=full_command('RCT-DOC') if @doc_command == nil
+    @ri_command=full_command('ri')
+    if @ri_command !=nil #system(@rct_complete+" "+__FILE__)
+      Arcadia.attach_listener(self, DocCodeEvent)
+      #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    else
+      Arcadia.console(self, 'msg'=>"Warning: Extension ae-doc-code depend upon ri command!", 'level'=>'error')
+      #Arcadia.new_error_msg(self, "Warning: Extension ae-doc-code depend upon ri command!")
+    end
+    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
+      Arcadia.console(self, 'msg'=>"Warning: Extension ae-doc-code depend upon rct-doc command!", 'level'=>'error')
+      #Arcadia.new_error_msg(self, "Warning: Extension ae-doc-code depend upon rct-doc command!")
+    end
+  end
+  
+  def full_command(_command='ri')
+    _ret = nil
+    RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
+    ENV['PATH'].split(_sep).each{|_path|
+      _file = File.join(_path, _command)
+      if FileTest.exist?(_file)
+        _ret = _file
+      end
+    }
+    _ret
+  end
+  
+  def on_doc_code(_event)
+    if _event.file && @doc_command != nil 
+      res = _event.add_result(self)
+      res.doc = doc(_event)
+    elsif _event.doc_entry
+      _event.add_result(self, 'doc'=>doc_entry(_event.doc_entry),'title'=>_event.doc_entry)
+    end
+  end
+
+  def on_after_doc_code(_event)
+    res = _event.results[0]
+    if res !=nil &&  res.doc != nil &&  res.doc.length >0    		
+      raise_doc_code(_event)
+    end
+  end
+
+  def raise_doc_code(_context)
+    if @docFrame
+      @docFrame.tkText.delete('1.0','end')
+    else
+      _height = 140
+      _width = 550
+      _context.xdoc =  TkWinfo.screenwidth(@arcadia.layout.root)/2  if !_context.xdoc 
+      _context.ydoc =  TkWinfo.screenheight(@arcadia.layout.root)/2  if !_context.ydoc 
+      _x = _context.xdoc - _width/2
+      _y = _context.ydoc - _height -20
+      _x = 0 if _x < 0
+      _y = 0 if _y < 0
+      @docFrame = TkDocframe.new(@arcadia.layout.root).place('x'=>_x, 'y'=>_y, 'width'=>_width, 'height'=>_height)
+      do_close = proc{
+         @docFrame.destroy
+         @docFrame = nil
+         Tk.callback_break
+      }
+      @docFrame.on_close = do_close
+      @docFrame.tkText.bind_append('KeyPress'){|e|
+        case e.keysym
+          when 'Escape'
+            do_close.call
+          end
+       }
+       @docFrame.tkText.font(conf('font'))
+       @docFrame.tkText.foreground(conf('color.foreground'))
+       @docFrame.tkText.background(conf('color.background'))
+    end
+    res = _context.results[0]
+    if res.doc
+      @docFrame.tkText.insert('end', res.doc.to_s)
+      @docFrame.title(res.title) if res.title
+    else
+      Arcadia.console(self,'msg'=>'???')
+      #Arcadia.new_msg(self, 'nulla di dire !')
+    end
+  end
+
+  def doc_entry(_entry=nil)
+    _ret = nil
+    if _entry
+      _cmp_doc = "|ruby "+@ri_command+" -T -f plain "+_entry
+      open (_cmp_doc) do |f|
+         _ret = f.readlines 
+      end
+    end
+    _ret
+  end
+  
+  def doc(_context)
+    begin
+      _options = "--line="+_context.row+" --column="+_context.col
+      _cmp_s = "|ruby " + @doc_command +" --use-method-analyzer "+_options +" " +_context.file
+      _ret = nil
+      _doc = nil
+      open(_cmp_s,"r") do
+        |f|
+        _doc = f.readlines.collect!{| line | line.chomp}.to_s.strip
+      end
+      if _doc.length > 0
+        _context.results[0].title = _doc.to_s if _context.results[0]
+        _ret = doc_entry(_context.results[0].title)
+      end
+      _ret
+  
+    rescue Exception => e
+      _msg = e.to_s + "\n"
+      e.backtrace.each{|line| _msg = _msg + line + "\n"}
+      Arcadia.console(self, 'msg'=>_msg, 'level'=>'error')
+      #Arcadia.new_error_msg(self, _msg)
+    end
+  end
+
+    
+#  def do_editor_event(_event)
+#     case _event.signature 
+#       when EditorContract::DOC_CODE
+#         if _event.context.file && @doc_command != nil    
+#           _event.context.doc = doc(_event.context)
+#           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
+#             raise_doc_code(_event.context)
+#           end
+#         elsif _event.context.doc_entry
+#           _event.context.doc = doc_entry(_event.context.doc_entry)
+#           _event.context.text = _event.context.doc_entry
+#           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
+#             raise_doc_code(_event.context)
+#           end
+#         end
+#         _event.handled(self)
+#       when EditorContract::BUILD_DOC_TREE
+#         build_doc_tree
+#     end
+#  end
+
+  def build_doc_tree
+    if !@doc_tree
+      @image_class =  TkPhotoImage.new('dat' => ARROW_RIGHT_GIF)
+      @image_def =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
+      @image_def_class =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
+      do_select_item = proc{|_self|
+        if _self.selection_get[0].length >0
+          _selected = rif_2_node(_self.selection_get[0])
+        end
+        if _selected
+          EditorContract.instance.doc_code(self, 'doc_entry'=>_selected)	    
+        end
+      }
+      _background = conf('color.background')
+      _foreground = conf('color.foreground')
+      @doc_tree = Tk::BWidget::Tree.new(self.frame){
+          relief 'flat'
+          showlines false
+          deltay 18
+          background _background
+          crossfill _foreground
+          selectcommand proc{ do_select_item.call(self) } 
+          place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
+      }
+      
+      _scrollcommand = proc{|*args| @doc_tree.yview(*args)}
+      _scrollbar = TkScrollbar.new(self.frame, Arcadia.style('scrollbar')){|s|
+         width 8
+         command _scrollcommand
+      }.pack('side'=>'right', 'fill'=>'y')
+      @doc_tree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+  
+      names = doc_entry('--list-names')
+
+      @progress_bar = TkProgressframe.new(@arcadia.layout.root, names.length)		  
+      @progress_bar.title('Building doc')
+      @cancell=false
+      @progress_bar.on_cancel=proc{cancel}
+      #@hash_rif = Hash.new    		
+      @level = 0
+      @last_nodes = Array.new
+      Thread.new do
+        _last_value = ''
+        #p 'n�='+ names.length.to_s
+        names.sort.each do |value|
+          _value = value.chomp.strip
+          if _value != _last_value
+            node(_value)
+            @progress_bar.title(_value)
+            _last_value = _value
+          end
+          @progress_bar.progress
+          if @cancell
+            @progress_bar.destroy
+            @progress_bar = nil
+            break
+          end
+        end
+        progress_bar.destroy if @progress_bar != nil
+      end
+    end
+  end
+  
+  def cancel
+    @cancell=true
+  end
+  
+  def node_2_rif(_path)
+    return  _path.gsub('#','@M@').gsub('::','@C@').gsub('|','@P@').gsub('^','@U@')
+  end
+  
+  def rif_2_node(_rif)
+    return  _rif.gsub('@M@','#').gsub('@C@', '::').gsub('@P@', '|').gsub('@U@', '^')
+  end
+
+  def node(_path)
+    # _rif = @hash_rif.length
+    _rif = node_2_rif(_path)
+    _parent_found = false
+    while !_parent_found && @level > 0 do
+      @level = @level - 1
+      if  (@last_nodes[@level] != nil) && _path.include?(@last_nodes[@level]) 
+        _full_value = _path.sub(@last_nodes[@level],'')
+        if _full_value[0..1].include?('#')
+          _sep = '#'
+          _value = _full_value[1.._full_value.length-1]
+          _parent_found  = true
+        elsif _full_value[0..2].include?('::')
+          _sep = '::'
+          _value = _full_value[2.._full_value.length-1]
+          _parent_found  = true
+        else
+          _parent_found  = false
+        end
+      end
+    end
+    if _parent_found 
+      _parent_path = @last_nodes[@level]
+      #_parent_rif = @hash_rif[_parent_path]
+      _parent_rif = node_2_rif(_parent_path)
+      @level = @level + 1
+    else
+      _parent_rif = 'root'
+      _sep = ''
+      _value = _path
+    end
+
+     #@hash_rif[_path]= _rif
+     @last_nodes[@level] = _path
+     _background = conf('color.background')
+
+      if _sep.length == 0
+        _image = @image_class
+      elsif _sep.include?('#')
+        _image = @image_def
+      elsif _sep.include?('::')
+        _image = @image_def_class
+      end
+
+     @doc_tree.insert('end', _parent_rif ,_rif, {
+           'text' =>  _value ,
+           'helptext' => _path,
+           'deltax'=>-1,
+           'image'=>_image
+         }
+       )
+      @level = @level + 1
+  end
+end
+
+class TkDocframe < TkFloatTitledFrame
+  attr_reader :tkText
+  def initialize(parent=nil, *args)
+    super(parent)
+    @tkText = TkText.new(self.frame, 
+        'wrap'=>'none',
+        'relief'=>'groove'
+    ){|j|
+      TkScrollbar.new(j, Arcadia.style('scrollbar')){|s|
+        width 8
+        command proc{|*args| j.yview(*args)}
+        j.yscrollcommand proc{|first,last| s.set first,last}
+      }.pack('side'=>'right', 'fill'=>'y')
+    }.place('x'=>0, 'y'=>0, 'relheight'=> 1, 'relwidth'=> 1)
+    
+  end
+end