arcadia 0.4.0 → 0.5.0

data/README

@@ -1,27 +1,26 @@
 = Arcadia Ruby Ide
-version 0.4.0
+version 0.5.0
 
 by Antonio Galeone
-on Jul 29, 2008
+on Aug 31, 2008
 
 
 == About
 
-Arcadia is a Integrated Development Environment (IDE) for Ruby language 
+Arcadia is a Light Integrated Development Environment (IDE) for Ruby language 
 written in Ruby using the classic tcl/tk GUI toolkit.
 
 Some of Arcadia ruby ide project features include:
 * Editor with source browsing, syntax highlighting, code completion
 * Debugging support
-* Contextual ruby documentation
 * Working on any platform where ruby and tcl-tk work.
 * Highly extensibility architecture.
 
 == In this release
-* [fix]  bug-fixing
-* [mod]  Improved file-history
+* [fix]  fixed bug [#21385] Output window doesn't allow horizontal scrolling
+* [fix]  fixed bug [#21384] Hangs attempting intellisense
+* [mod]  rewritten intellisense logic
 * [mod]  Improved editor
-* [mod]  Improved debugger
 
 == How to install
 There are two way:
@@ -74,7 +73,6 @@ These are same editor short-cut:
 - Ctrl-shift-c => comment/uncomment the selected code block
 - F5 => execute the file 
 - F3 => find/ find next
-- F1 => contextual ruby documentation (called from editor or from code completion item)
 
 - Double-Click on line number set or unset a debug breakpoint
 
@@ -112,8 +110,8 @@ under ~/.arcadia  directory. The format of property definition are:
 == Requirement
 I include into distribution also the BWidget lib (under tcl directory) so
 are require realy only the standard tcl tk lib (tested on tcl tk 8.4 & tcl tk 8.5).
-I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6 on 
-* FreeBsd6.x, 
+I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6, 1.8.7 on 
+* FreeBsd6.x, FreeBsd7.x, 
 * Vector linux 5.*,
 * Archlinux
 * Windows 2000/XP, 

data/bin/arcadia

@@ -1,13 +1,13 @@
-#!/usr/bin/env ruby
-#
-#   arcadia - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-$pwd = Dir.pwd
-Dir.chdir("#{File.dirname(__FILE__)}/..")
-if FileTest.exist?('conf/arcadia.init.rb')
-  require 'conf/arcadia.init'
-end
-require "lib/a-core"
-Arcadia.new.run
+#!/usr/bin/env ruby
+#
+#   arcadia - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+$pwd = Dir.pwd
+Dir.chdir("#{File.dirname(__FILE__)}/..")
+if FileTest.exist?('conf/arcadia.init.rb')
+  require 'conf/arcadia.init'
+end
+require "lib/a-core"
+Arcadia.new.run

data/conf/arcadia.conf

@@ -10,10 +10,16 @@ arm::layout.splitter.length=10
 #layout.split=1,2
 #layout.split.1=0.0r70% 
 #layout.split.2=0.0c20%
+
 layout.split=1,2
 layout.split.1=0.0c20%
 layout.split.2=0.1r70%
 
+#layout.split=1,2,3
+#layout.split.1=0.0c20%
+#layout.split.2=0.0r30%
+#layout.split.3=0.1r70%
+
 #:::::::::::::::: layout    ::::::::::::::::::::::<end>
 #:::::::::::::::::::::::::::::::::::::::::::::::::<begin>
 font.h1=
@@ -52,6 +58,7 @@ scrollbar.background=>>>background
 scrollbar.highlightbackground=>>>background
 scrollbar.relief=flat
 scrollbar.borderwidth=1
+scrollbar.elementborderwidth=1
 
 titlelabel.background=#303b50
 titlelabel.foreground=#e8e651
@@ -200,9 +207,9 @@ hightlight.16.relief=groove
 
 #:::::::::::::::::::::::::::::::::::::::::::::::::<end>
 #:::::::::::::::: toolbar    ::::::::::::::::::::::<begin>
-user_toolbar.contexts=file,run
+user_toolbar.contexts=file,run,debug
 #,sys
-user_toolbar.file=new,open,save
+user_toolbar.file=new,open,save,find
 user_toolbar.file.new.name=new
 user_toolbar.file.new.hint=New file
 user_toolbar.file.new.image_data=PAGE_WHITE_ADD_GIF
@@ -218,7 +225,13 @@ user_toolbar.file.save.hint=Save current file
 user_toolbar.file.save.image_data=BACKUP_GIF
 user_toolbar.file.save.event_class=SaveBufferEvent
 
-user_toolbar.run=runcurr,runlast,debugcurr,debuglast,debugquit
+user_toolbar.file.find.name=find
+user_toolbar.file.find.hint=Search on current file
+user_toolbar.file.find.image_data=LARGE_FIND_GIF
+user_toolbar.file.find.event_class=SearchBufferEvent
+
+
+user_toolbar.run=runcurr,runlast
 
 user_toolbar.run.runcurr.name=run_current
 user_toolbar.run.runcurr.hint=Run current
@@ -231,21 +244,25 @@ user_toolbar.run.runlast.image_data=RUN_LAST_GIF
 user_toolbar.run.runlast.event_class=RunRubyFileEvent
 user_toolbar.run.runlast.event_args={'file'=>"*LAST"}
 
-user_toolbar.run.debugcurr.name=debug
-user_toolbar.run.debugcurr.hint=Debug current
-user_toolbar.run.debugcurr.image_data=DEBUG_CURRENT_GIF
-user_toolbar.run.debugcurr.event_class=StartDebugEvent
-
-user_toolbar.run.debuglast.name=debug
-user_toolbar.run.debuglast.hint=Debug last
-user_toolbar.run.debuglast.image_data=DEBUG_LAST_GIF
-user_toolbar.run.debuglast.event_class=StartDebugEvent
-user_toolbar.run.debuglast.event_args={'file'=>"*LAST"}
-
-user_toolbar.run.debugquit.name=debugquit
-user_toolbar.run.debugquit.hint=Quit debug
-user_toolbar.run.debugquit.image_data=DEBUG_QUIT_GIF
-user_toolbar.run.debugquit.event_class=StopDebugEvent
+
+user_toolbar.debug=debugcurr,debuglast,debugquit
+
+user_toolbar.debug.debugcurr.name=debug
+user_toolbar.debug.debugcurr.hint=Debug current
+user_toolbar.debug.debugcurr.image_data=DEBUG_CURRENT_GIF
+user_toolbar.debug.debugcurr.event_class=StartDebugEvent
+
+user_toolbar.debug.debuglast.name=debug
+user_toolbar.debug.debuglast.hint=Debug last
+user_toolbar.debug.debuglast.image_data=DEBUG_LAST_GIF
+user_toolbar.debug.debuglast.event_class=StartDebugEvent
+user_toolbar.debug.debuglast.event_args={'file'=>"*LAST"}
+
+user_toolbar.debug.debugquit.name=debugquit
+user_toolbar.debug.debugquit.hint=Quit debug
+user_toolbar.debug.debugquit.image_data=DEBUG_QUIT_GIF
+user_toolbar.debug.debugquit.event_class=StopDebugEvent
+
 
 e.user_toolbar.contexts=sys
 e.user_toolbar.sys=exit

data/conf/arcadia.res.rb

@@ -1346,3 +1346,13 @@ ICON_FOLDER_OPEN_GIF=<<EOS
 R0lGODlhEAAQAIAAAGaZ/////yH5BAEAAAEALAAAAAAQABAAAAImjI+pq+DP
 wptgwXORi2kbCnpSSH2VdYlatanrCDen283khN0ZpxQAOw==
 EOS
+
+LARGE_FIND_GIF=<<EOS
+R0lGODlhFwAUAMQQALa0tNra2kJCAZzO/m5uMLGtZWex+cXFxYC++sPDw8TE
+xNbo/05OTv/23Glpaf///////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAABAALAAAAAAXABQAAAV4ICSOZGme
+aJo6bMuqpdPM9AuLMj07j6MqjCBDoXOhgIDAAjBkFU/AxWBgMCyGuobPxAAs
+vlID06U9MQIP8AJxzW5L50f6OwgwyG9SVz4fMN0nCQwLfAtACnhHXQEBTAQF
+gCgHQkMCjy55N5YFNymbnSgCAqCkpSghADs=
+EOS
+

data/ext/ae-breakpoints/ae-breakpoints.rb

@@ -1,349 +1,368 @@
-#
-#   ae-breakpoints.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-class Breakpoints < ArcadiaExt
-  def on_before_build(_event)
-    @ui_builded = false
-    @breakpoints =Array.new
-    Arcadia.attach_listener(self, DebugEvent)
-  end
-
-  def on_build(_event)
-    load_persistent_breakpoints
-  end
-
-  def on_finalize(_event)
-    _breakpoints = '';
-    @breakpoints.each{|point|
-      if point[:file] != nil
-        _breakpoints=_breakpoints+'|' if _breakpoints.strip.length > 0
-        _breakpoints=_breakpoints + "#{point[:file]}@@@#{point[:line]}@@@#{point[:active]}"
-#        _file_node = file2node_name(point[:file]) 
-#        _line_node = line2node_name(_file_node, point[:line])
-#        _check = @tree_break.itemcget(_line_node, 'window')
-#        if _check
-#          _breakpoints="#{_breakpoints}@@@#{_check.cget('variable').value}"
-#        end
-      end
-    }
-    Arcadia.persistent('breakpoints', _breakpoints)
-  end
-
-  def load_persistent_breakpoints
-    b = Arcadia.persistent('breakpoints')
-    if b
-      _files_list =b.split("|")
-      _files_list.each do |value| 
-        _file,_line,_active = value.split('@@@')
-        if _file && _line && _active
-          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>_active.to_i))
-        end
-      end
-    end
-  end
-
-
-  def ensure_build_ui
-    if !@ui_builded
-      build_ui
-    end
-  end  
-
-  def build_ui
-    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
-      _node_name, _line = _selected.split('_')
-      if _node_name && _line
-        _file = _self.itemcget(_node_name, 'text')
-        if _file
- 	        Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
-        end
-      end
-      #p "selected = #{_selected}"
-    }
-
-    @tree_break = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
-      #showlines true
-      deltay 18
-      padx 25
-      selectcommand proc{ do_select_item.call(self) } 
-    }.place('relwidth' => 1,'relheight' => '1')
-    
-    build_popup
-    
-    @ui_builded = true
-  end
-
-
-  def unbuild_ui
-    if @ui_builded
-     
-      @ui_builded = false
-    end
-  end
-  
-  def raise_clear_selected(_delete=false)
-    _file, _line = get_tree_selection(@tree_break)
-    if _file && _line
-       Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'delete'=>_delete))
-    elsif _file
-       _node_name = file2node_name(_file)
-       sons = @tree_break.nodes(_node_name)
-       if sons
-         sons.each{|son|
-           _nil, _l = son.split('_')
-           Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'delete'=>_delete)) if _l
-         }
-      end
-    end
-  end
-  
-  def build_popup
-    _pop_up = TkMenu.new(
-      :parent=>@tree_break,
-      :tearoff=>0,
-      :title => 'Menu'
-    )
-    _pop_up.configure(Arcadia.style('menu'))
-    _title_item = _pop_up.insert('end',
-      :command,
-      :label=>'...',
-      :state=>'disabled',
-      :background=>Arcadia.conf('titlelabel.background'),
-      :hidemargin => true
-    )
-
-    _pop_up.insert('end',
-      :command,
-      :label=>'Clear breakpoint',
-      :hidemargin => false,
-      :command=> proc{raise_clear_selected}
-    )
-
-    _pop_up.insert('end',
-      :command,
-      :label=>'Delete breakpoint',
-      :hidemargin => false,
-      :command=> proc{raise_clear_selected(true)}
-    )
-
-
-    @tree_break.textbind_append("Button-3",
-      proc{|*x|
-        _x = TkWinfo.pointerx(@tree_break)
-        _y = TkWinfo.pointery(@tree_break)
-        _selected = @tree_break.selection_get[0]
-        _file, _line = get_tree_selection(@tree_break)
-        _label = _file
-        if _line
-          _label << " line: #{_line}"
-        end
-        _pop_up.entryconfigure(0,'label'=>_label)
-
-        _pop_up.popup(_x,_y)
-      })
-  end
-  
-  def get_tree_selection(_tree)
-    _ret = Array.new
-    _selected = _tree.selection_get[0]
-    _node_name, _line = _selected.split('_')
-    _ret << _tree.itemcget(_node_name, 'text')
-    _ret << _line if _line
-    _ret
-  end
-
-
-  def on_debug(_event)
-    case _event
-      when SetBreakpointEvent
-        ensure_build_ui
-        @breakpoints << {:file=>_event.file,:line=>_event.row, :active=>_event.active}
-        self.breakpoint_add(File.expand_path(_event.file), _event.row, _event.active==1)
-      when UnsetBreakpointEvent
-        if @ui_builded
-          if _event.delete
-            @breakpoints.delete_if{|b| (b[:file]==_event.file && b[:line]==_event.row)}
-          else
-            @breakpoints.collect! {|b| 
-              if b[:file]==_event.file && b[:line]==_event.row
-                b[:active]=0
-              end
-              b
-            } 
-          end
-          self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.delete)
-          #self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.sender != self)
-        end
-    end
-  end
-  
-  def on_debug_step_info(_event)
-    #Arcadia.console(self, :msg=> "ae-breakpoints -> DebugStepInfoEvent")
-    if @ui_builded
-      self.breakpoint_select(_event.file, _event.row)
-    end
-  end
-
-  def file2node_name(_file)
-    _file = File.expand_path(_file)
-    #_file = File.basename(_file)
-    _s = ""
-    _file.gsub("/",_s).gsub(".",_s).gsub(":",_s).gsub("\\",_s).gsub("-",_s)
-  end
-
-  def new_check_button(_node_name, _value=1)
-    _command = proc {|_checkbutton|
-      _file_node_name, _line = _node_name.split('_')
-      _file = @tree_break.itemcget(_file_node_name, 'text')
-      if _checkbutton.cget('variable').value.to_i==0
-        if _file && _line
-          Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line))
-        elsif _file
-          sons = @tree_break.nodes(_node_name)
-          if sons
-             sons.each{|son|
-                _nil, _l = son.split('_')
-                Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l)) if _l
-             }
-          end
-        end
-      else
-        if _file && _line
-          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>1))
-        elsif _file
-          sons = @tree_break.nodes(_node_name)
-          if sons
-             sons.each{|son|
-                _nil, _l = son.split('_')
-                Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'active'=>1)) if _l
-             }
-          end
-        end
-        
-      end
-    } 
-    TkCheckButton.new(@tree_break, Arcadia.style('checkbox')){
-      #text _label
-      indicatoron  true
-      padx 0
-      pady 0
-      variable TkVariable.new(_value)
-      background   Arcadia.style('treepanel')['background']
-      borderwidth 0
-      command proc{_command.call(self)}
-      relief 'flat'
-    }
-#    _item_on_img = TkPhotoImage.new('dat' => ON_GIF)
-#    @item_off_img = TkPhotoImage.new('dat' => OFF_GIF)
-#    @b_item_onoff = TkButton.new(@tree_break, Arcadia.style('button')){
-#        image  _item_on_img
-#        anchor 'nw'
-#    }.bind("1",proc{   })
-  end
-  
-  def line2node_name(_parent, _line)
-    "#{_parent}_#{_line.to_s}"
-  end
-  
-  def breakpoint_add(_file,_line, _active=true)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    (_active)?_check_value=1 : _check_value=0
-    if !@tree_break.exist?(_file_node)
-      @tree_break.insert('end', 'root' ,_file_node, {
-        'open'=>true,
-        'anchor'=>'w',
-        'text' =>  _file,
-        'deltax'=>-1,
-        'window' => new_check_button(_file_node, _check_value)
-      }.update(Arcadia.style('treeitem')))
-    elsif _active
-      _check = @tree_break.itemcget(_file_node, 'window')
-      _check.cget('variable').value=1
-    end
-    
-    if !@tree_break.exist?(_line_node)
-      @tree_break.insert('end', _file_node ,_line_node, {
-        'open'=>true,
-        'anchor'=>'w',
-        'text' =>  "line: #{_line}",
-        'deltax'=>-1,
-        'window' => new_check_button(_line_node, _check_value)
-      }.update(Arcadia.style('treeitem')))
-      @tree_break.reorder(_file_node,@tree_break.nodes(_file_node).sort)
-    elsif _active
-      _check = @tree_break.itemcget(_line_node, 'window')
-      _check.cget('variable').value=1 
-    end
-  end
-
-  def breakpoint_del(_file,_line, _delete=false)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    if @tree_break.exist?(_line_node)
-      begin
-        if _delete
-          _sc = @tree_break.cget('selectcommand')
-          @tree_break.configure('selectcommand'=>nil)
-          @tree_break.delete(_line_node)
-        else
-          _check = @tree_break.itemcget(_line_node, 'window')
-          _check.cget('variable').value=0 
-        end
-        _bro = @tree_break.nodes(_file_node)
-        if _bro.nil? || _bro.length == 0 
-          if _delete
-            @tree_break.delete(_file_node) 
-          else
-            _check = @tree_break.itemcget(_file_node, 'window')
-            _check.cget('variable').value=0 
-          end
-        elsif _bro.length > 0 && !_delete
-          is_checked = false
-          _bro.each{|n|
-            _check = @tree_break.itemcget(n, 'window')
-            v = _check.cget('variable').value
-            is_checked = is_checked || v.to_i==1
-          }
-          if !is_checked
-            _check = @tree_break.itemcget(_file_node, 'window')
-            _check.cget('variable').value=0 
-          end
-        end
-      ensure
-        @tree_break.configure('selectcommand'=>_sc) if _delete
-      end
-
-    end
-  end
-
-  def breakpoint_select(_file, _line)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    @tree_break.selection_clear
-    #p "line node = #{_line_node}"
-    if @tree_break.exist?(_line_node)
-      @tree_break.open_tree(_file_node, false)
-      @tree_break.selection_add(_line_node)
-      @tree_break.see(_line_node)
-    end
-  end
-
-  
-  def breakpoint_list_free
-    @tree_break.delete(@tree_break.nodes('root'))
-  end
-  
-  
-end
+#
+#   ae-breakpoints.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+class Breakpoints < ArcadiaExt
+  def on_before_build(_event)
+    @ui_builded = false
+    @breakpoints =Array.new
+    Arcadia.attach_listener(self, DebugEvent)
+  end
+
+  def on_build(_event)
+    load_persistent_breakpoints
+  end
+
+  def on_finalize(_event)
+    _breakpoints = '';
+    @breakpoints.each{|point|
+      if point[:file] != nil
+        _breakpoints=_breakpoints+'|' if _breakpoints.strip.length > 0
+        _breakpoints=_breakpoints + "#{point[:file]}@@@#{point[:line]}@@@#{point[:active]}"
+#        _file_node = file2node_name(point[:file]) 
+#        _line_node = line2node_name(_file_node, point[:line])
+#        _check = @tree_break.itemcget(_line_node, 'window')
+#        if _check
+#          _breakpoints="#{_breakpoints}@@@#{_check.cget('variable').value}"
+#        end
+      end
+    }
+    Arcadia.persistent('breakpoints', _breakpoints)
+  end
+
+  def load_persistent_breakpoints
+    b = Arcadia.persistent('breakpoints')
+    if b
+      _files_list =b.split("|")
+      _files_list.each do |value| 
+        _file,_line,_active = value.split('@@@')
+        if _file && _line && _active
+          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>_active.to_i))
+        end
+      end
+    end
+  end
+
+
+  def ensure_build_ui
+    if !@ui_builded
+      build_ui
+    end
+  end  
+
+  def build_ui
+#    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
+#      _node_name, _line = _selected.split('_')
+#      if _node_name && _line
+#        _file = _self.itemcget(_node_name, 'text')
+#        if _file
+# 	        Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
+#        end
+#      end
+#    }
+
+    @tree_break = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+      #showlines true
+      deltay 18
+      padx 25
+      #selectcommand proc{ do_select_item.call(self) } 
+    }.place('relwidth' => 1,'relheight' => '1')
+    
+    build_popup
+    
+    @ui_builded = true
+  end
+
+
+  def unbuild_ui
+    if @ui_builded
+     
+      @ui_builded = false
+    end
+  end
+  
+  def goto_select_item
+    _file, _line = get_tree_selection(@tree_break)
+    if _file && _line
+      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
+    elsif _file
+      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>0))
+    end
+  end
+  
+  
+  
+  def raise_clear_selected(_delete=false)
+    _file, _line = get_tree_selection(@tree_break)
+    if _file && _line
+       Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'delete'=>_delete))
+    elsif _file
+       _node_name = file2node_name(_file)
+       sons = @tree_break.nodes(_node_name)
+       if sons
+         sons.each{|son|
+           _nil, _l = son.split('_')
+           Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'delete'=>_delete)) if _l
+         }
+      end
+    end
+  end
+  
+  def build_popup
+    _pop_up = TkMenu.new(
+      :parent=>@tree_break,
+      :tearoff=>0,
+      :title => 'Menu'
+    )
+    _pop_up.configure(Arcadia.style('menu'))
+    _title_item = _pop_up.insert('end',
+      :command,
+      :label=>'...',
+      :state=>'disabled',
+      :background=>Arcadia.conf('titlelabel.background'),
+      :hidemargin => true
+    )
+
+    _pop_up.insert('end',
+      :command,
+      :label=>'Clear breakpoint',
+      :hidemargin => false,
+      :command=> proc{raise_clear_selected}
+    )
+
+    _pop_up.insert('end',
+      :command,
+      :label=>'Delete breakpoint',
+      :hidemargin => false,
+      :command=> proc{raise_clear_selected(true)}
+    )
+
+    _pop_up.insert('end',
+      :command,
+      :label=>'Goto breakpoint',
+      :hidemargin => false,
+      :command=> proc{goto_select_item}
+    )
+
+
+    @tree_break.textbind_append("Button-3",
+      proc{|*x|
+        _x = TkWinfo.pointerx(@tree_break)
+        _y = TkWinfo.pointery(@tree_break)
+        _selected = @tree_break.selection_get[0]
+        _file, _line = get_tree_selection(@tree_break)
+        _label = _file
+        if _line
+          _label << " line: #{_line}"
+        end
+        _pop_up.entryconfigure(0,'label'=>_label)
+
+        _pop_up.popup(_x,_y)
+      })
+  end
+  
+  def get_tree_selection(_tree)
+    _ret = Array.new
+    _selected = _tree.selection_get[0]
+    if _selected
+      _node_name, _line = _selected.split('_')
+      _ret << _tree.itemcget(_node_name, 'text')
+      _ret << _line if _line
+    end
+    _ret
+  end
+
+
+  def on_debug(_event)
+    case _event
+      when SetBreakpointEvent
+        ensure_build_ui
+        @breakpoints << {:file=>_event.file,:line=>_event.row, :active=>_event.active}
+        self.breakpoint_add(File.expand_path(_event.file), _event.row, _event.active==1)
+      when UnsetBreakpointEvent
+        if @ui_builded
+          if _event.delete
+            @breakpoints.delete_if{|b| (b[:file]==_event.file && b[:line]==_event.row)}
+          else
+            @breakpoints.collect! {|b| 
+              if b[:file]==_event.file && b[:line]==_event.row
+                b[:active]=0
+              end
+              b
+            } 
+          end
+          self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.delete)
+          #self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.sender != self)
+        end
+    end
+  end
+  
+  def on_debug_step_info(_event)
+    #Arcadia.console(self, :msg=> "ae-breakpoints -> DebugStepInfoEvent")
+    if @ui_builded
+      self.breakpoint_select(_event.file, _event.row)
+    end
+  end
+
+  def file2node_name(_file)
+    _file = File.expand_path(_file)
+    #_file = File.basename(_file)
+    _s = ""
+    _file.gsub("/",_s).gsub(".",_s).gsub(":",_s).gsub("\\",_s).gsub("-",_s)
+  end
+
+  def new_check_button(_node_name, _value=1)
+    _command = proc {|_checkbutton|
+      _file_node_name, _line = _node_name.split('_')
+      _file = @tree_break.itemcget(_file_node_name, 'text')
+      if _checkbutton.cget('variable').value.to_i==0
+        if _file && _line
+          Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line))
+        elsif _file
+          sons = @tree_break.nodes(_node_name)
+          if sons
+             sons.each{|son|
+                _nil, _l = son.split('_')
+                Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l)) if _l
+             }
+          end
+        end
+      else
+        if _file && _line
+          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>1))
+        elsif _file
+          sons = @tree_break.nodes(_node_name)
+          if sons
+             sons.each{|son|
+                _nil, _l = son.split('_')
+                Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'active'=>1)) if _l
+             }
+          end
+        end
+        
+      end
+    } 
+    TkCheckButton.new(@tree_break, Arcadia.style('checkbox')){
+      #text _label
+      indicatoron  true
+      padx 0
+      pady 0
+      variable TkVariable.new(_value)
+      background   Arcadia.style('treepanel')['background']
+      borderwidth 0
+      command proc{_command.call(self)}
+      relief 'flat'
+    }
+#    _item_on_img = TkPhotoImage.new('dat' => ON_GIF)
+#    @item_off_img = TkPhotoImage.new('dat' => OFF_GIF)
+#    @b_item_onoff = TkButton.new(@tree_break, Arcadia.style('button')){
+#        image  _item_on_img
+#        anchor 'nw'
+#    }.bind("1",proc{   })
+  end
+  
+  def line2node_name(_parent, _line)
+    "#{_parent}_#{_line.to_s}"
+  end
+  
+  def breakpoint_add(_file,_line, _active=true)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    (_active)?_check_value=1 : _check_value=0
+    if !@tree_break.exist?(_file_node)
+      @tree_break.insert('end', 'root' ,_file_node, {
+        'open'=>true,
+        'anchor'=>'w',
+        'text' =>  _file,
+        'deltax'=>-1,
+        'window' => new_check_button(_file_node, _check_value)
+      }.update(Arcadia.style('treeitem')))
+    elsif _active
+      _check = @tree_break.itemcget(_file_node, 'window')
+      _check.cget('variable').value=1
+    end
+    
+    if !@tree_break.exist?(_line_node)
+      @tree_break.insert('end', _file_node ,_line_node, {
+        'open'=>true,
+        'anchor'=>'w',
+        'text' =>  "line: #{_line}",
+        'deltax'=>-1,
+        'window' => new_check_button(_line_node, _check_value)
+      }.update(Arcadia.style('treeitem')))
+      @tree_break.reorder(_file_node,@tree_break.nodes(_file_node).sort)
+    elsif _active
+      _check = @tree_break.itemcget(_line_node, 'window')
+      _check.cget('variable').value=1 
+    end
+  end
+
+  def breakpoint_del(_file,_line, _delete=false)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    if @tree_break.exist?(_line_node)
+      begin
+        if _delete
+          _sc = @tree_break.cget('selectcommand')
+          @tree_break.configure('selectcommand'=>nil)
+          @tree_break.delete(_line_node)
+        else
+          _check = @tree_break.itemcget(_line_node, 'window')
+          _check.cget('variable').value=0 
+        end
+        _bro = @tree_break.nodes(_file_node)
+        if _bro.nil? || _bro.length == 0 
+          if _delete
+            @tree_break.delete(_file_node) 
+          else
+            _check = @tree_break.itemcget(_file_node, 'window')
+            _check.cget('variable').value=0 
+          end
+        elsif _bro.length > 0 && !_delete
+          is_checked = false
+          _bro.each{|n|
+            _check = @tree_break.itemcget(n, 'window')
+            v = _check.cget('variable').value
+            is_checked = is_checked || v.to_i==1
+          }
+          if !is_checked
+            _check = @tree_break.itemcget(_file_node, 'window')
+            _check.cget('variable').value=0 
+          end
+        end
+      ensure
+        @tree_break.configure('selectcommand'=>_sc) if _delete
+      end
+
+    end
+  end
+
+  def breakpoint_select(_file, _line)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    @tree_break.selection_clear
+    #p "line node = #{_line_node}"
+    if @tree_break.exist?(_line_node)
+      @tree_break.open_tree(_file_node, false)
+      @tree_break.selection_add(_line_node)
+      @tree_break.see(_line_node)
+    end
+  end
+
+  
+  def breakpoint_list_free
+    @tree_break.delete(@tree_break.nodes('root'))
+  end
+  
+  
+end