arcadia 0.1.1 → 0.1.2

data/conf/arcadia.res.rb

@@ -1209,3 +1209,77 @@ yEA3B7iMJlKUorWDw9FoBIrFxY9myzmfOaBtCXVKDxGLNqDFFAg4xey6dE1U
 A9VV9tAdFAHN7xCc2+31u54+TbnnTAcVVQEZBhcIY3yAKC0BAgFigUuOZzFq
 iykROGcqHJhBK4NucBtzoX4/DHGnfXt4ALGys7S0IQA7
 EOS
+
+EXPAND2_GIF=<<EOS
+R0lGODlhCgAKAIAAAP///7cWGSH5BAAAAAAALAAAAAAKAAoAAAIPhI+pF7HQ
+XkytOmTXfDwVADs=
+EOS
+
+EXIT_STORY_GIF=<<EOS
+R0lGODlhFQAUAMIEAAB9AIX/hZmZmTMzM////////////////yH+FUNyZWF0
+ZWQgd2l0aCBUaGUgR0lNUAAh+QQBAAAHACwAAAAAFQAUAAADYHi63DuwwUmp
+EEOSzfu4mNaN35Uxw0iCA+ACR6pyJQYEASzPRN3iOsJL5bvlYkLgymR8uXA5
+D8sIrSo3nwnVCgXQps5XV2rSNJchlNBFZIl4vvcsrub13KiKvnRy+B8QCQA7
+EOS
+
+EXPAND_LIGHT_GIF=<<EOS
+R0lGODdhCwALAOf/AAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
+CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
+GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
+KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
+Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
+RkdHR0hISElJSUpKSktLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVV
+VVZWVldXV1hYWFlZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2Rk
+ZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubm9vb3BwcHFxcXJycnNz
+c3R0dHV1dXZ2dnd3d3h4eHl5eXp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKC
+goODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6Ojo+Pj5CQkJGR
+kZKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+fn6Cg
+oKGhoaKioqOjo6SkpKWlpaampqenp6ioqKmpqaqqqqurq6ysrK2tra6urq+v
+r7CwsLGxsbKysrOzs7S0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+
+vr+/v8DAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
+zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc
+3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr
+6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6
++vv7+/z8/P39/f7+/v///ywAAAAACwALAAAIKgD/CRRoa6DBf7YSJjw4sOBB
+hwgbEpQ4UaFFixEnaoTIkSHEhxgZZhwYEAA7
+EOS
+
+TREE_NODE_GIF=<<EOS
+PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9XM0MvL0RURCBIVE1MIDQuMDEv
+L0VOIiAiaHR0cDovL3d3dy53My5vcmcvVFIvaHRtbDQvc3RyaWN0LmR0ZCI+
+DQo8SFRNTD48SEVBRD48VElUTEU+VGhlIHBhZ2UgY2Fubm90IGJlIGZvdW5k
+PC9USVRMRT4NCjxNRVRBIEhUVFAtRVFVSVY9IkNvbnRlbnQtVHlwZSIgQ29u
+dGVudD0idGV4dC9odG1sOyBjaGFyc2V0PVdpbmRvd3MtMTI1MiI+DQo8U1RZ
+TEUgdHlwZT0idGV4dC9jc3MiPg0KICBCT0RZIHsgZm9udDogOHB0LzEycHQg
+dmVyZGFuYSB9DQogIEgxIHsgZm9udDogMTNwdC8xNXB0IHZlcmRhbmEgfQ0K
+ICBIMiB7IGZvbnQ6IDhwdC8xMnB0IHZlcmRhbmEgfQ0KICBBOmxpbmsgeyBj
+b2xvcjogcmVkIH0NCiAgQTp2aXNpdGVkIHsgY29sb3I6IG1hcm9vbiB9DQo8
+L1NUWUxFPg0KPC9IRUFEPjxCT0RZPjxUQUJMRSB3aWR0aD01MDAgYm9yZGVy
+PTAgY2VsbHNwYWNpbmc9MTA+PFRSPjxURD4NCg0KPGgxPlRoZSBwYWdlIGNh
+bm5vdCBiZSBmb3VuZDwvaDE+DQpUaGUgcGFnZSB5b3UgYXJlIGxvb2tpbmcg
+Zm9yIG1pZ2h0IGhhdmUgYmVlbiByZW1vdmVkLCBoYWQgaXRzIG5hbWUgY2hh
+bmdlZCwgb3IgaXMgdGVtcG9yYXJpbHkgdW5hdmFpbGFibGUuDQo8aHI+DQo8
+cD5QbGVhc2UgdHJ5IHRoZSBmb2xsb3dpbmc6PC9wPg0KPHVsPg0KPGxpPk1h
+a2Ugc3VyZSB0aGF0IHRoZSBXZWIgc2l0ZSBhZGRyZXNzIGRpc3BsYXllZCBp
+biB0aGUgYWRkcmVzcyBiYXIgb2YgeW91ciBicm93c2VyIGlzIHNwZWxsZWQg
+YW5kIGZvcm1hdHRlZCBjb3JyZWN0bHkuPC9saT4NCjxsaT5JZiB5b3UgcmVh
+Y2hlZCB0aGlzIHBhZ2UgYnkgY2xpY2tpbmcgYSBsaW5rLCBjb250YWN0DQog
+dGhlIFdlYiBzaXRlIGFkbWluaXN0cmF0b3IgdG8gYWxlcnQgdGhlbSB0aGF0
+IHRoZSBsaW5rIGlzIGluY29ycmVjdGx5IGZvcm1hdHRlZC4NCjwvbGk+DQo8
+bGk+Q2xpY2sgdGhlIDxhIGhyZWY9ImphdmFzY3JpcHQ6aGlzdG9yeS5iYWNr
+KDEpIj5CYWNrPC9hPiBidXR0b24gdG8gdHJ5IGFub3RoZXIgbGluay48L2xp
+Pg0KPC91bD4NCjxoMj5IVFRQIEVycm9yIDQwNCAtIEZpbGUgb3IgZGlyZWN0
+b3J5IG5vdCBmb3VuZC48YnI+SW50ZXJuZXQgSW5mb3JtYXRpb24gU2Vydmlj
+ZXMgKElJUyk8L2gyPg0KPGhyPg0KPHA+VGVjaG5pY2FsIEluZm9ybWF0aW9u
+IChmb3Igc3VwcG9ydCBwZXJzb25uZWwpPC9wPg0KPHVsPg0KPGxpPkdvIHRv
+IDxhIGhyZWY9Imh0dHA6Ly9nby5taWNyb3NvZnQuY29tL2Z3bGluay8/bGlu
+a2lkPTgxODAiPk1pY3Jvc29mdCBQcm9kdWN0IFN1cHBvcnQgU2VydmljZXM8
+L2E+IGFuZCBwZXJmb3JtIGEgdGl0bGUgc2VhcmNoIGZvciB0aGUgd29yZHMg
+PGI+SFRUUDwvYj4gYW5kIDxiPjQwNDwvYj4uPC9saT4NCjxsaT5PcGVuIDxi
+PklJUyBIZWxwPC9iPiwgd2hpY2ggaXMgYWNjZXNzaWJsZSBpbiBJSVMgTWFu
+YWdlciAoaW5ldG1nciksDQogYW5kIHNlYXJjaCBmb3IgdG9waWNzIHRpdGxl
+ZCA8Yj5XZWIgU2l0ZSBTZXR1cDwvYj4sIDxiPkNvbW1vbiBBZG1pbmlzdHJh
+dGl2ZSBUYXNrczwvYj4sIGFuZCA8Yj5BYm91dCBDdXN0b20gRXJyb3IgTWVz
+c2FnZXM8L2I+LjwvbGk+DQo8L3VsPg0KDQo8L1REPjwvVFI+PC9UQUJMRT48
+L0JPRFk+PC9IVE1MPg0K
+EOS

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

@@ -1,79 +1,80 @@
-#
-#   ae-complete-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "base/a-ext"
-
-
-class CompleteCode < ArcadiaExt
-
-	def before_build
-	end
-
-  def build
-	end
-	
-	def after_build 
-	  
-	  
-	  @rct_complete=complete_command
-	  
-	  if @rct_complete !=nil #system(@rct_complete+" "+__FILE__)
-    		ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-   		 MsgContract.instance.out_error(self, "Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)")
-    end
-	end
-	
-	def complete_command
-		_ret = nil
-		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
-		ENV['PATH'].split(_sep).each{|_path|
-			_file = File.join(_path, 'rct-complete')
-			if FileTest.exist?(_file)
-	  			_ret = _file
-			end
-		}
-		_ret
-	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 "+@rct_complete+" "+_options+" "+_file
-      _ret = nil
-      open(_cmp_s,"r") do
-        |f|
-        _ret = f.readlines.collect!{| line | line.chomp}
-      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
-	     			MsgContract.instance.out_error(self, "Syntax error in current source")
-        end
-      end
-      _ret
-  		rescue Exception => e
-  			 MsgContract.instance.out_error(self, e.to_s)
- 	  end
-  end
-  
-end
-
+#
+#   ae-complete-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "base/a-ext"
+
+
+class CompleteCode < ArcadiaExt
+
+	def before_build
+	end
+	
+	def build
+	end
+	
+	def after_build 
+	  @complete_command=full_command('rct-complete')
+	  @doc_command=full_command('rct-doc')
+	  @ri_command="ri -T -f plain"
+	  @finder_command="rct-meth-args -n"  #  ./a-libs.rb:741:AG#publish (_family, args = nil)
+	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
+    		ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    else
+   		 MsgContract.instance.out_error(self, "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 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
+	     			MsgContract.instance.out_error(self, "Syntax error in current source")
+        end
+      end
+      _ret
+  		rescue Exception => e
+  			 MsgContract.instance.out_error(self, e.to_s)
+ 	  end
+  end
+  
+end
+

data/ext/ae-debug/ae-debug.rb

@@ -401,7 +401,7 @@ class ArcadiaDebug < ArcadiaExt
 
   def debug_begin
     @breakpoints.clear
-    DebugContract.instance.debug_begin(DebugContract::TDebugObj.new(self))
+    DebugContract.instance.debug_begin(self)
   end
 
 
@@ -545,12 +545,8 @@ class ArcadiaDebug < ArcadiaExt
   end
 
   def update(dbg)
-    tobj = DebugContract::TDebugObj.new(self)
-    tobj.file = dbg[:file]
-    tobj.line = dbg[:line]
-    #sobj = @ae_editor_talker.info
     if dbg[:file] != nil
-      DebugContract.instance.debug_step(tobj)
+      DebugContract.instance.debug_step(self, 'file'=> dbg[:file], 'line'=>dbg[:line])
       #$arcadia['editor'].open_file_in_debug(dbg[:file], dbg[:line])
     end
     if @adw.last_command == 'debug' && @static_breakpoints.length > 0

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

@@ -0,0 +1,15 @@
+name=doc_code
+label=Doc
+frame=1.0
+active=yes
+require=ext/ae-doc-code/ae-doc-code
+class=DocCode
+
+font=courier 12
+font.bold=courier 12 bold
+i386-freebsd6::font=courier 12
+i386-freebsd6::font.bold=courier 12 bold
+i386-mswin32::font={Courier New} 9
+i386-mswin32::font.bold={Courier New} 9 bold 
+color.background=#ffffc1
+color.foreground=#408080

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

@@ -0,0 +1,289 @@
+#
+#   ae-doc-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "base/a-ext"
+
+class DocCode < ArcadiaExt
+
+  def before_build
+  end
+  
+  def build
+  end
+  
+  def after_build 
+    @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__)
+      ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    else
+      MsgContract.instance.out_error(self, "Extension ae-doc-code depend upon ri command!")
+    end
+    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
+      MsgContract.instance.out_error(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 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)
+           else
+             build_doc_tree
+           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)
+           else
+             build_doc_tree
+           end
+         elsif _event.context.file && @doc_command == nil    
+           build_doc_tree
+         end
+         _event.handled(self)
+     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
+
+  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
+      @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
+    
+    if _context.doc
+      @docFrame.tkText.insert('end', _context.doc.to_s)
+      @docFrame.title(_context.text) if _context.text
+    else
+      MsgContract.instance.out_simple(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.line+" --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.text = _doc.to_s
+        _ret = doc_entry(_context.text)
+      end
+      _ret
+  
+    rescue Exception => e
+      _msg = e.to_s + "\n"
+      e.backtrace.each{|line| _msg = _msg + line + "\n"}
+      MsgContract.instance.out_error(self, _msg)
+    end
+  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