arcadia 0.7.0 → 0.8.0

data/ext/ae-editor/langs/coderay.tokens

@@ -0,0 +1,40 @@
+#coderay.classes=annotation,attribute_name,attribute_name_fat,attribute_value,attribute_value_fat,bin,char,class,class_variable,color,comment,constant,content,definition,delimiter,directive,doc,doctype,doc_string,entity,error,escape,exception,float,function,global_variable,hex,important,include,inline,inline_delimiter,instance_variable,integer,interpreted,keyword,key,label,local_variable,modifier,oct,operator_fat,pre_constant,pre_type,predefined,preprocessor,pseudo_class,regexp,reserved,shell,string,symbol,tag,tag_fat,tag_special,type,variable,value,xml_text,insert,delete,change,head,
+
+
+coderay.classes=reserved,method,class,char,comment,instance_variable,constant,string,content,integer
+coderay.hightlight.reserved.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.reserved.style=bold
+coderay.hightlight.method.foreground=>>>hightlight.method.foreground
+coderay.hightlight.method.style=bold
+coderay.hightlight.class.foreground=>>>hightlight.class.foreground
+coderay.hightlight.class.style=bold
+coderay.hightlight.module_name.foreground=>>>hightlight.class.foreground
+coderay.hightlight.module_name.style=bold
+coderay.hightlight.instance_variable.foreground=>>>hightlight.instance_variable.foreground
+coderay.hightlight.instance_variable.style=bold
+coderay.hightlight.constant.foreground=>>>hightlight.constant.foreground
+coderay.hightlight.constant.style=bold
+coderay.hightlight.global_variable.foreground=>>>hightlight.global_variable.foreground
+coderay.hightlight.global_variable.style=bold
+coderay.hightlight.comment.foreground=>>>hightlight.comment.foreground
+coderay.hightlight.content.foreground=>>>hightlight.string.foreground
+coderay.hightlight.char.foreground=>>>hightlight.string.foreground
+coderay.hightlight.char.style=bold
+coderay.hightlight.string.foreground=>>>hightlight.string.foreground
+coderay.hightlight.integer.foreground=>>>hightlight.number.foreground
+coderay.hightlight.symbol.foreground=>>>hightlight.symbol.foreground
+
+coderay.hightlight.attribute_name.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.attribute_name.style=bold
+coderay.hightlight.tag.foreground=>>>hightlight.tag.foreground
+coderay.hightlight.tag.style=bold
+coderay.hightlight.preprocessor.foreground=>>>hightlight.class.foreground
+coderay.hightlight.preprocessor.style=bold
+coderay.hightlight.inline_delimiter.foreground=>>>hightlight.string.foreground
+coderay.hightlight.inline_delimiter.style=bold
+coderay.hightlight.keyword.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.keyword.style=bold
+coderay.hightlight.directive.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.directive.style=bold
+coderay.hightlight.type.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.type.style=bold

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

@@ -1,4 +1,6 @@
-classes=key,value,operator,comment,link
+scanner=re
+language=conf
+re.classes=key,value,operator,comment,link
 re.key=(.*)\=
 re.value=\=(.*)
 re.operator=\=
@@ -15,12 +17,12 @@ re_op.only_first=operator
 #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.foreground=>>>hightlight.6.foreground
-hightlight.value.style=bold
-hightlight.operator.foreground=>>>hightlight.14.foreground
-hightlight.operator.style=bold
-hightlight.link.foreground=>>>hightlight.12.foreground
-hightlight.link.style=bold
+re.hightlight.comment.foreground=>>>hightlight.11.foreground
+re.hightlight.key.foreground=>>>hightlight.5.foreground
+re.hightlight.key.style=bold
+re.hightlight.value.foreground=>>>hightlight.6.foreground
+re.hightlight.value.style=bold
+re.hightlight.operator.foreground=>>>hightlight.14.foreground
+re.hightlight.operator.style=bold
+re.hightlight.link.foreground=>>>hightlight.12.foreground
+re.hightlight.link.style=bold

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

@@ -0,0 +1 @@
+bind=rhtml

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

@@ -0,0 +1,4 @@
+language=java
+scanner=coderay
+@include=coderay.tokens
+coderay.classes=keyword,directive,type,method,class,char,comment,instance_variable,constant,string,content,integer

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

@@ -1,4 +1,8 @@
-classes=number,method_name,class_name,module_name,keyword,instance_variable,global_variable,symbol,operator,string,comment
+language=ruby
+
+scanner=coderay
+#scanner=re
+re.classes=number,method_name,class_name,module_name,keyword,instance_variable,global_variable,symbol,operator,string,comment
 re.keyword=\b(and|or|unless|end|in|begin|defined?|ensure|redo|super|until|BEGIN|break|do|false|next|rescue|then|when|END|case|else|for|nil|retry|true|while|alias|elsif|if|not|return|undef|yield|require|include)([\(\s\n])|\b(self)([.,+\(\s])|__LINE__|__FILE__|[\s]*def[\s]|[\s]*module[\s]|[\s]*class[\s]
 re.method_name=(def[\s][\s]*)[A-Za-z0-9_]*
 re.instance_variable=([\s]*@)[A-Za-z0-9_]*
@@ -46,58 +50,24 @@ hightlight.spaces.relief=>>>hightlight.4.relief
 #+--------------------------------------------------
 
 # custom classes
-hightlight.keyword.foreground=>>>hightlight.5.foreground
-hightlight.keyword.style=bold
-hightlight.method_name.foreground=>>>hightlight.6.foreground
-hightlight.method_name.style=bold
-hightlight.class_name.foreground=>>>hightlight.7.foreground
-hightlight.class_name.style=bold
-hightlight.module_name.foreground=>>>hightlight.8.foreground
-hightlight.module_name.style=bold
-hightlight.instance_variable.foreground=>>>hightlight.9.foreground
-hightlight.instance_variable.style=bold
-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.foreground=>>>hightlight.15.foreground
-hightlight.symbol.style=bold
-
+re.hightlight.keyword.foreground=>>>hightlight.5.foreground
+re.hightlight.keyword.style=bold
+re.hightlight.method_name.foreground=>>>hightlight.6.foreground
+re.hightlight.method_name.style=bold
+re.hightlight.class_name.foreground=>>>hightlight.7.foreground
+re.hightlight.class_name.style=bold
+re.hightlight.module_name.foreground=>>>hightlight.8.foreground
+re.hightlight.module_name.style=bold
+re.hightlight.instance_variable.foreground=>>>hightlight.9.foreground
+re.hightlight.instance_variable.style=bold
+re.hightlight.global_variable.foreground=>>>hightlight.10.foreground
+re.hightlight.global_variable.style=bold
+re.hightlight.comment.foreground=>>>hightlight.11.foreground
+re.hightlight.string.foreground=>>>hightlight.12.foreground
+re.hightlight.number.foreground=>>>hightlight.13.foreground
+re.hightlight.operator.foreground=>>>hightlight.14.foreground
+re.hightlight.operator.style=bold
+re.hightlight.symbol.foreground=>>>hightlight.15.foreground
+re.hightlight.symbol.style=bold
 
-#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
+@include=coderay.tokens

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

@@ -0,0 +1,4 @@
+language=rhtml
+scanner=coderay
+@include=coderay.tokens
+coderay.classes=inline_delimiter,tag,reserved,method,class,char,comment,instance_variable,constant,string,content,integer

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

@@ -0,0 +1 @@
+bind=conf

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

@@ -0,0 +1,4 @@
+language=xml
+scanner=coderay
+@include=coderay.tokens
+coderay.classes=preprocessor,tag,attribute_name,comment,content

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

@@ -2,11 +2,11 @@
 #   ae-file-history.rb - Arcadia Ruby ide
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
-#   §require_dir_ref=../..
-#   §require_omissis=conf/arcadia.init
-#   §require_omissis=lib/a-commons
-#   §require_omissis=lib/a-tkcommons
-#   §require_omissis=lib/a-core
+#   &require_dir_ref=../..
+#   &require_omissis=conf/arcadia.init
+#   &require_omissis=lib/a-commons
+#   &require_omissis=lib/a-tkcommons
+#   &require_omissis=lib/a-core
 
 
 class TreeNode
@@ -45,7 +45,9 @@ class TreeNode
 			 break if node != nil
 	  }
 	  if node == nil
-	    if _path.length > 0 && (_path.include?("/")||_path.include?("\\"))
+	    if _path == '/' || _path == '\\'
+	       # ok -- we have the root
+	    elsif _path.length > 0 && (_path.include?("/")||_path.include?("\\"))
 	      _path.include?("/")?_sep="/":_sep="\\"
 	      _parent_length = _path.length - _path.split(_sep)[-1].length
 	      _parent_path = _path[0.._parent_length-2]
@@ -102,9 +104,6 @@ class FilesHistrory < ArcadiaExt
     Tk::BWidget::DynamicHelp::add(@cb_sync, 
       'text'=>'Link open editors with content in the Navigator')
 
-
-
-
     do_check = proc {
       if @cb_sync.cget('onvalue')==@cb_sync.cget('variable').value.to_i
         sync_on
@@ -116,24 +115,15 @@ class FilesHistrory < ArcadiaExt
     @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
+      _selected = self.selected
       _dir, _file = _selected.sub("%%%",":").split('@@@')
       if _file
         _file = File.expand_path( _file  , _dir ) 
-	    else
-	      _file = Tk.getOpenFile('initialdir'=>_dir)
+#	    else
+#	      _file = Tk.getOpenFile('initialdir'=>_dir)
 	    end
 	    if _file && _file.strip.length > 0 
-	      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file))
-        #EditorContract.instance.open_file(self,'file'=>_file)
+	      Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file))
       end
     }
     
@@ -147,7 +137,7 @@ class FilesHistrory < ArcadiaExt
     @font =  Arcadia.conf('treeitem.font')
     @font_b = "#{Arcadia.conf('treeitem.font')} bold"
 
-	  @htree = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+	  @htree = BWidgetTreePatched.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
       showlines false
       deltay 18
       opencmd proc{|node| do_open_folder.call(node)} 
@@ -164,8 +154,29 @@ class FilesHistrory < ArcadiaExt
 #      command _scrollcommand
 #    }.pack('side'=>'right', 'fill'=>'y')
 #    @htree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+
+    do_double_click = proc{
+        _selected = @htree.selection_get[0]
+        _dir, _file = _selected.sub("%%%",":").split('@@@')
+        if _dir && _file.nil? && File.ftype(node2file(_dir)) == 'directory'
+	        _file = Tk.getOpenFile('initialdir'=>node2file(_dir))
+      	    if _file && _file.strip.length > 0 
+      	       Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file))
+           end
+#          if !_selected.nil? && @htree.open?(node2file(_selected))
+#            @htree.close_tree(node2file(_selected))
+#          elsif !_selected.nil?
+#            @htree.open_tree(node2file(_selected),false) 
+#            do_open_folder.call(_selected)
+#          end
+        end
+    }
+    
+    @htree.textbind_append('Double-1',do_double_click)
     
-	  self.build_tree
+    self.build_tree
+    self.pop_up_menu_tree
+
 	end
 
 	def on_after_build(_event)
@@ -196,6 +207,44 @@ class FilesHistrory < ArcadiaExt
 #    end
 #  end
 
+  def node2file(_node)
+    if _node[0..0]=='{' && _node[-1..-1]=='}'
+      return _node[1..-2]
+    else
+      return _node
+    end
+  end
+
+  def file2node(_file)
+    if _file.include?("\s") && _file[0..0]!='{'
+      return "{#{_file}}"
+    else
+      return _file
+    end
+  end  
+
+
+  def selected
+    if @htree.selection_get[0]
+      if @htree.selection_get[0].length >0
+       	_selected = ""
+        if String.method_defined?(:lines)
+      	   selection_lines = @htree.selection_get[0].lines
+        else
+      	   selection_lines = @htree.selection_get[0].split("\n")
+        end
+        selection_lines.each{|_block|
+          _selected = _selected + _block.to_s + "\s" 
+        }
+        _selected = _selected.strip
+      else
+        _selected = @htree.selection_get[0]
+      end
+    end
+    return _selected
+  end
+
+
   def select_file_without_event(_file)
     _d, _f = File.split(File.expand_path(_file))
     _d = _d.downcase if is_windows?
@@ -258,7 +307,7 @@ class FilesHistrory < ArcadiaExt
       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 = f.readlines.collect!{| line | line.chomp+"\n" }
         _lines.sort.each{|_line|
           _file = _line.split(';')[0]
           if FileTest::exist?(_file)
@@ -286,12 +335,69 @@ class FilesHistrory < ArcadiaExt
 
     #@image_kdir = TkPhotoImage.new('dat' => BOOK_GIF)
     @image_kdir = TkPhotoImage.new('dat' => ICON_FOLDER_OPEN_GIF)
-    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
-    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
+#    @image_kfile_rb = TkPhotoImage.new('dat' => RUBY_DOCUMENT_GIF)
+#    @image_kfile = TkPhotoImage.new('dat' => DOCUMENT_GIF)
 
 	  build_tree_from_node(root)
   end
 
+  def pop_up_menu_tree
+    @pop_up_tree = TkMenu.new(
+      :parent=>@htree,
+      :tearoff=>0,
+      :title => 'Menu tree'
+    )
+    @pop_up_tree.configure(Arcadia.style('menu'))
+    #----- search submenu
+    sub_ref_search = TkMenu.new(
+      :parent=>@pop_up,
+      :tearoff=>0,
+      :title => 'Ref'
+    )
+    sub_ref_search.configure(Arcadia.style('menu'))
+    sub_ref_search.insert('end',
+      :command,
+      :label=>'Find in files...',
+      :hidemargin => false,
+      :command=> proc{
+        _target = self.selected
+        _dir, _file = _target.sub("%%%",":").split('@@@')
+        if _dir
+          Arcadia.process_event(SearchInFilesEvent.new(self,'dir'=>_dir))
+        end
+      }
+    )
+    
+    sub_ref_search.insert('end',
+      :command,
+      :label=>'Act in files...',
+      :hidemargin => false,
+      :command=> proc{
+        _target = self.selected
+        _dir, _file = _target.sub("%%%",":").split('@@@')
+        if _dir
+          Arcadia.process_event(AckInFilesEvent.new(self,'dir'=>_dir))
+        end
+      }
+    )
+    @pop_up_tree.insert('end',
+      :cascade,
+      :label=>'Search from here',
+      :menu=>sub_ref_search,
+      :hidemargin => false
+    )
+    
+    
+    @htree.areabind_append("Button-3",
+      proc{|x,y|
+        _x = TkWinfo.pointerx(@htree)
+        _y = TkWinfo.pointery(@htree)
+        @pop_up_tree.popup(_x,_y)
+      },
+    "%x %y")
+  end
+
+
   def add_to_tree(_file)
 	 _d, _f = File.split(File.expand_path(_file))
 	 return if _f.nil?
@@ -352,10 +458,12 @@ class FilesHistrory < ArcadiaExt
   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
+      elsif _kind == 'KFile'
+        return Arcadia.file_icon(_label)
+#      elsif _kind == 'KFile' && _label.include?('.rb')
+#        return @image_kfile_rb
+#      else
+#        return @image_kfile
       end
   end
 
@@ -422,4 +530,4 @@ class FilesHistrory < ArcadiaExt
       end
     end
   end
-end
+end

data/ext/ae-output/ae-output.rb

@@ -1,262 +1,267 @@
-#
-#   ae-output.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-#   §require_dir_ref=../..
-#   §require_omissis=conf/arcadia.init
-#   §require_omissis=lib/a-commons
-
-require "tk"
-#require "base/a-utils"
-
-class OutputView
-  attr_reader :text
-  def initialize(parent=nil)
-    left_frame = TkFrame.new(parent.frame.hinner_frame, Arcadia.style('panel')).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
-    right_frame = TkFrame.new(parent.frame.hinner_frame, Arcadia.style('panel')).place('x' => '25','y' => '0','relheight' => '1','relwidth' => '1','width' => '-25')
-
-    @button_u = Tk::BWidget::Button.new(left_frame, Arcadia.style('toolbarbutton')){
-      image  TkPhotoImage.new('dat' => CLEAR_GIF)
-      helptext 'Clear'
-      #foreground 'blue'
-      command proc{parent.main_frame.text.delete('1.0','end')}
-      #relief 'groove'
-      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
-    }
-    
-    @text = TkScrollText.new(right_frame,
-      {'wrap'=>  'none'}.update(Arcadia.style('edit'))
-    )
-    @text.show
-    @text.show_v_scroll
-    @text.show_h_scroll
-
-    @text.tag_configure('simple_msg',
-    #   'background' => '#d9d994',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-    @text.tag_configure('debug_msg',
-    #   'background' => '#f6c9f6',
-    #   'foreground' => '#000000',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-    @text.tag_configure('error_msg',
-     #  'background' => '#f6c9f6',
-       'foreground' => 'red',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-
-    @text.tag_configure('bord_msg',
-       #'foreground' => '#b9b8b9'
-       'foreground' => '#7c9b10'
-    )
-    @text.tag_configure('sel', 
-      'background'=>parent.conf('hightlight.sel.color.background'),
-      'foreground'=>parent.conf('hightlight.sel.color.foreground')
-    )
-    pop_up_menu
-  end
-
-  def pop_up_menu
-    @pop_up = TkMenu.new(
-      :parent=>@text,
-      :tearoff=>0,
-      :title => 'Menu'
-    )
-    @pop_up.configure(Arcadia.style('menu'))
-    
-    @pop_up.insert('end',
-      :command,
-      :state=>'disabled',
-      :label=>'Output',
-      :background=>Arcadia.conf('titlelabel.background'),
-      :font => "#{Arcadia.conf('menu.font')} bold",
-      :hidemargin => true
-    )
-
-    
-    #Arcadia.instance.main_menu.update_style(@pop_up)
-    @pop_up.insert('end',
-      :command,
-      :label=>'Save',
-      :hidemargin => false,
-      :command=> proc{save_as}
-    )
-
-
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Set wrap',
-      :hidemargin => false,
-      :command=> proc{@text.configure('wrap'=>'word');@text.hide_h_scroll}
-    )
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Set no wrap',
-      :hidemargin => false,
-      :command=> proc{@text.configure('wrap'=>'none');@text.show_h_scroll}
-    )
-
-
-
-    
-    @text.bind("Button-3",
-      proc{|x,y|
-        _x = TkWinfo.pointerx(@text)
-        _y = TkWinfo.pointery(@text)
-        @pop_up.popup(_x,_y)
-      },
-    "%x %y")
-  end
-
-  def save
-    if !@file
-      save_as
-    else
-      f = File.new(@file, "w")
-      begin
-        if f
-          f.syswrite(@text.value)
-        end
-      ensure
-        f.close unless f.nil?
-      end
-      #EditorContract.instance.file_saved(self,'file' =>@file)
-    end
-  end
-
-  def save_as
-    @file = Tk.getSaveFile("filetypes"=>[["Ruby Files", [".rb", ".rbw"]],["All Files", [".*"]]])
-    @file = nil if @file == ""  # cancelled
-    if @file
-      save
-    end
-  end
-
-  
-end
-
-class Output < ArcadiaExt
-  attr_reader :main_frame
-
-	def on_before_build(_event)
-    #ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
-    Arcadia.attach_listener(self, MsgEvent)
-    #_frame = @arcadia.layout.register_panel('_rome_',@name, 'Output')
-    @main_frame = OutputView.new(self)
-    @run_threads = Array.new
-	end
-
-
-  def on_after_build(_event)
-    self.frame.show
-  end
-
-	def format_time(_time)
-	  _time.strftime("at %a %d-%b-%Y %H:%M:%S")
-	end
-  
-   def on_msg(_event)
-	  self.frame.show
-     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.msg.strip+"\n"
-     _index_begin = @main_frame.text.index('end')
-     @main_frame.text.insert(_index_begin,_txt)
-     _index_end = @main_frame.text.index('end')
-     case _event.level
-       when 'debug'
-       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
-       		parse_debug(_index_begin.split('.')[0].to_i) 
-       when 'error'
-       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
-       		parse_debug(_index_begin.split('.')[0].to_i) 
-       else
-       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
-     end
-   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
-   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
-   		@main_frame.text.see(_index_end)
-   end
-  
-	def parse_debug(_from_row=0)
-    _row = 0
-    @cursor = @main_frame.text.cget('cursor')
-    @j=0
-    file_tag=Hash.new
-    @main_frame.text.value.each{|l|
-      _row = _row+1
-      if _row >= _from_row
-        _end = 0
-        #m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*\.rb):(\d*)/.match(l)
-        re = Regexp.new('([\w\:]*[\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*):(\d*)')
-        m = re.match(l)
-        #m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*):(\d*)/.match(l)
-        while m
-          _txt = m.post_match
-          if m[1] && m[2]
-            _file = m[1]
-            if File.exist?(_file)
-              @j=@j+1
-              _line = m[2]
-              _ibegin = _row.to_s+'.'+(m.begin(1)+_end).to_s
-              _iend = _row.to_s+'.'+(m.end(2)+_end).to_s
-              file_binding(_file, _line, _ibegin, _iend)              
-            end
-            _end = m.end(2) + _end
-  
-
-         end
-      	  m = re.match(_txt)
-       end
-     end
-    }
-	end
-
-  def file_binding(_file, _line, _ibegin, _iend)
-      tag_name = "tag_#{@j}"
-      @main_frame.text.tag_configure(tag_name,
-        'foreground' => '#800000',
-        'borderwidth'=>0,
-        'relief'=>'flat',
-        'underline'=>true
-      )
-      @main_frame.text.tag_add(tag_name,_ibegin,_iend)
-      @main_frame.text.tag_bind(tag_name,"Double-ButtonPress-1",
-        proc{
-          Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
-        }
-      )
-      @main_frame.text.tag_bind(tag_name,"Enter",
-        proc{@main_frame.text.configure('cursor'=> 'hand2')}
-      )
-      @main_frame.text.tag_bind(tag_name,"Leave",
-        proc{@main_frame.text.configure('cursor'=> @cursor)}
-      )
-   
-  end
-
-  def out(_txt=nil, _tag=nil)
-    if @main_frame && _txt
-      if _tag
-        @main_frame.text.insert('end',_txt, _tag)
-      else
-        @main_frame.text.insert('end',_txt)
-      end
-    end
-  end
-
-  def outln(_txt=nil, _tag=nil)
-    self.out(_txt+"\n",_tag)
-  end
-
-end
+#
+#   ae-output.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+#   &require_dir_ref=../..
+#   &require_omissis=conf/arcadia.init
+#   &require_omissis=lib/a-commons
+
+require "tk"
+#require "base/a-utils"
+
+class OutputView
+  attr_reader :text
+  def initialize(parent=nil)
+    left_frame = TkFrame.new(parent.frame.hinner_frame, Arcadia.style('panel')).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
+    right_frame = TkFrame.new(parent.frame.hinner_frame, Arcadia.style('panel')).place('x' => '25','y' => '0','relheight' => '1','relwidth' => '1','width' => '-25')
+
+    @button_u = Tk::BWidget::Button.new(left_frame, Arcadia.style('toolbarbutton')){
+      image  TkPhotoImage.new('dat' => CLEAR_GIF)
+      helptext 'Clear'
+      #foreground 'blue'
+      command proc{parent.main_frame.text.delete('1.0','end')}
+      #relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
+    }
+    
+    @text = TkScrollText.new(right_frame,
+      {'wrap'=>  'none'}.update(Arcadia.style('edit'))
+    )
+    @text.show
+    @text.show_v_scroll
+    @text.show_h_scroll
+
+    @text.tag_configure('simple_msg',
+    #   'background' => '#d9d994',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('debug_msg',
+    #   'background' => '#f6c9f6',
+    #   'foreground' => '#000000',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('error_msg',
+     #  'background' => '#f6c9f6',
+       'foreground' => 'red',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+
+    @text.tag_configure('bord_msg',
+       #'foreground' => '#b9b8b9'
+       'foreground' => '#7c9b10'
+    )
+    @text.tag_configure('sel', 
+      'background'=>parent.conf('hightlight.sel.color.background'),
+      'foreground'=>parent.conf('hightlight.sel.color.foreground')
+    )
+    pop_up_menu
+  end
+
+  def pop_up_menu
+    @pop_up = TkMenu.new(
+      :parent=>@text,
+      :tearoff=>0,
+      :title => 'Menu'
+    )
+    @pop_up.configure(Arcadia.style('menu'))
+    
+    @pop_up.insert('end',
+      :command,
+      :state=>'disabled',
+      :label=>'Output',
+      :background=>Arcadia.conf('titlelabel.background'),
+      :font => "#{Arcadia.conf('menu.font')} bold",
+      :hidemargin => true
+    )
+
+    
+    #Arcadia.instance.main_menu.update_style(@pop_up)
+    @pop_up.insert('end',
+      :command,
+      :label=>'Save',
+      :hidemargin => false,
+      :command=> proc{save_as}
+    )
+
+
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Set wrap',
+      :hidemargin => false,
+      :command=> proc{@text.configure('wrap'=>'word');@text.hide_h_scroll}
+    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Set no wrap',
+      :hidemargin => false,
+      :command=> proc{@text.configure('wrap'=>'none');@text.show_h_scroll}
+    )
+
+
+
+    
+    @text.bind("Button-3",
+      proc{|x,y|
+        _x = TkWinfo.pointerx(@text)
+        _y = TkWinfo.pointery(@text)
+        @pop_up.popup(_x,_y)
+      },
+    "%x %y")
+  end
+
+  def save
+    if !@file
+      save_as
+    else
+      f = File.new(@file, "w")
+      begin
+        if f
+          f.syswrite(@text.value)
+        end
+      ensure
+        f.close unless f.nil?
+      end
+      #EditorContract.instance.file_saved(self,'file' =>@file)
+    end
+  end
+
+  def save_as
+    @file = Tk.getSaveFile("filetypes"=>[["Ruby Files", [".rb", ".rbw"]],["All Files", [".*"]]])
+    @file = nil if @file == ""  # cancelled
+    if @file
+      save
+    end
+  end
+
+  
+end
+
+class Output < ArcadiaExt
+  attr_reader :main_frame
+
+	def on_before_build(_event)
+    #ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
+    Arcadia.attach_listener(self, MsgEvent)
+    #_frame = @arcadia.layout.register_panel('_rome_',@name, 'Output')
+    @main_frame = OutputView.new(self)
+    @run_threads = Array.new
+	end
+
+
+  def on_after_build(_event)
+    self.frame.show
+  end
+
+	def format_time(_time)
+	  _time.strftime("at %a %d-%b-%Y %H:%M:%S")
+	end
+  
+   def on_msg(_event)
+	  self.frame.show
+     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.msg.strip+"\n"
+     _index_begin = @main_frame.text.index('end')
+     @main_frame.text.insert(_index_begin,_txt)
+     _index_end = @main_frame.text.index('end')
+     case _event.level
+       when 'debug'
+       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
+       		parse_debug(_index_begin.split('.')[0].to_i) 
+       when 'error'
+       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
+       		parse_debug(_index_begin.split('.')[0].to_i) 
+       else
+       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
+     end
+   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
+   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
+   		@main_frame.text.see(_index_end)
+   end
+  
+	def parse_debug(_from_row=0)
+    _row = 0
+    @cursor = @main_frame.text.cget('cursor')
+    @j=0
+    file_tag=Hash.new
+    if String.method_defined?(:lines)
+      lines = @main_frame.text.value.lines
+    else
+      lines = @main_frame.text.value
+    end
+    lines.each{|l|
+      _row = _row+1
+      if _row >= _from_row
+        _end = 0
+        #m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*\.rb):(\d*)/.match(l)
+        re = Regexp.new('([\w\:]*[\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*):(\d*)')
+        m = re.match(l)
+        #m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*):(\d*)/.match(l)
+        while m
+          _txt = m.post_match
+          if m[1] && m[2]
+            _file = m[1]
+            if File.exist?(_file)
+              @j=@j+1
+              _line = m[2]
+              _ibegin = _row.to_s+'.'+(m.begin(1)+_end).to_s
+              _iend = _row.to_s+'.'+(m.end(2)+_end).to_s
+              file_binding(_file, _line, _ibegin, _iend)              
+            end
+            _end = m.end(2) + _end
+  
+
+         end
+      	  m = re.match(_txt)
+       end
+     end
+    }
+	end
+
+  def file_binding(_file, _line, _ibegin, _iend)
+      tag_name = "tag_#{@j}"
+      @main_frame.text.tag_configure(tag_name,
+        'foreground' => '#800000',
+        'borderwidth'=>0,
+        'relief'=>'flat',
+        'underline'=>true
+      )
+      @main_frame.text.tag_add(tag_name,_ibegin,_iend)
+      @main_frame.text.tag_bind(tag_name,"Double-ButtonPress-1",
+        proc{
+          Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>_line))
+        }
+      )
+      @main_frame.text.tag_bind(tag_name,"Enter",
+        proc{@main_frame.text.configure('cursor'=> 'hand2')}
+      )
+      @main_frame.text.tag_bind(tag_name,"Leave",
+        proc{@main_frame.text.configure('cursor'=> @cursor)}
+      )
+   
+  end
+
+  def out(_txt=nil, _tag=nil)
+    if @main_frame && _txt
+      if _tag
+        @main_frame.text.insert('end',_txt, _tag)
+      else
+        @main_frame.text.insert('end',_txt)
+      end
+    end
+  end
+
+  def outln(_txt=nil, _tag=nil)
+    self.out(_txt+"\n",_tag)
+  end
+
+end