arcadia 0.3.1 → 0.4.0

data/ext/ae-rad/lib/tk/al-tk.rb

@@ -108,7 +108,7 @@ class AGTkPlaceManager
   def initialize(_agobj, _active=false)
     #Tk.messageBox('message'=>_active.to_s)
     unless defined? _agobj.ag_parent
-      break
+      return
     end
     @agobj = _agobj
     if !defined? @@place_managers
@@ -561,7 +561,7 @@ class AGTkPackManager
 
   def initialize(_agobj, _active)
     unless defined? _agobj.ag_parent
-      break
+      return
     end
     @agobj = _agobj
     if !defined? @@packs_managers
@@ -602,7 +602,7 @@ class AGTkGridManager
   
   def initialize(_agobj, _active)
     unless defined? _agobj.ag_parent
-      break
+      return
     end
     @agobj = _agobj
     if !defined? @@grids_managers
@@ -627,7 +627,7 @@ class AGTkLManager
   
   def initialize(_agobj, _activate)
     unless defined? _agobj.ag_parent
-      break
+      return
     end
     @@place_managers = Array.new if !defined? @@place_managers
     @@pack_managers = Array.new if !defined? @@pack_managers

data/ext/ae-rad/lib/tk/al-tkarcadia.rb

@@ -1,26 +1,25 @@
-#
-#   al-tkarcadia.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require 'ext/ae-rad/lib/tk/al-tk'
-require 'lib/a-tkcommons'
-
-class WAGTkVSplittedFrames < AGTkFrame
-  def WAGTkVSplittedFrames.class_wrapped
-    AGTkVSplittedFrames
-  end
-  def new_object
-    @obj = AGTkVSplittedFrames.new(@ag_parent.obj)
-  end
-
-  def properties
-    super()
-  end
-end
-
-class ArcadiaLibArcadiaTk < ArcadiaLib
-  def register_classes
-    self.add_class(WAGTkVSplittedFrames)
-  end
-end
+#
+#   al-tkarcadia.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+require 'ext/ae-rad/lib/tk/al-tk'
+require 'lib/a-tkcommons'
+
+class WAGTkVSplittedFrames < AGTkFrame
+  def WAGTkVSplittedFrames.class_wrapped
+    AGTkVSplittedFrames
+  end
+  def new_object
+    @obj = AGTkVSplittedFrames.new(@ag_parent.obj)
+  end
+
+  def properties
+    super()
+  end
+end
+
+class ArcadiaLibArcadiaTk < ArcadiaLib
+  def register_classes
+    self.add_class(WAGTkVSplittedFrames)
+  end
+end

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

@@ -1,1566 +1,1589 @@
-#
-#   ae-ruby-debug.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class RubyDebugView
-  include TkUtil
-  B_STATE_ON = '+'
-  B_STATE_OFF = '-'
-  B_STATE_FREEZE = '=' 
-  def initialize(_frame, _controller)
-    @frame = _frame
-    @controller = _controller
-    self.build_ui
-    @controller.rdc.add_listener(self)
-    @nodes_to_open = Array.new
-    #@break_hash = Hash.new
-  end
-  
-  def build_buttons_set
-    _relief = 'groove'
-#    @debug_button_box.add(Arcadia.style('toolbarbutton').update({
-#      'name'=>'debug_over',
-#      'anchor' => 'nw',
-#      'command'=>proc{self.debug_send(:step_over)},
-#      'helptext'=>'step over',
-#      'image'=> TkPhotoImage.new('dat' => D_NEXT_GIF)})
-#    )
-    @debug_button_box.add(
-      'name'=>'debug_over',
-      'background' => 'white',
-      'anchor' => 'nw',
-      'command'=>proc{self.debug_send(:step_over)},
-      'helptext'=>'step over',
-      'image'=> TkPhotoImage.new('dat' => D_NEXT_GIF),
-      'relief'=> _relief
-    )
-    @debug_button_box.add(
-      'name'=>'debug_into',
-      'background' => 'white',
-      'anchor' => 'nw',
-      'command'=>proc{self.debug_send(:step_into)},
-      'helptext'=>'step into',
-      'image'=> TkPhotoImage.new('dat' => D_STEP_INTO_GIF),
-      'relief'=>_relief
-    )
-    @debug_button_box.add(
-      'name'=>'debug_out',
-      'background' => 'white',
-      'anchor' => 'nw',
-      'helptext'=>'step out',
-      'command'=>proc{self.debug_send(:step_out)},
-      'image'=> TkPhotoImage.new('dat' => D_STEP_OUT_GIF),
-      'relief'=>_relief
-    )
-    @debug_button_box.add(
-      'name'=>'debug_resume',
-      'background' => 'white',
-      'anchor' => 'nw',
-      'helptext'=>'resume',
-      'image'=> TkPhotoImage.new('dat' => D_RESUME_GIF),
-      'command'=>proc{self.debug_send(:resume)},
-      'relief'=>_relief
-    )
-
-    @debug_button_box.add(
-      'name'=>'debug_quit',
-      'background' => 'white',
-      'anchor' => 'nw',
-      'helptext'=>'quit',
-      'image'=> TkPhotoImage.new('dat' => D_QUIT_GIF),
-      'command'=>proc{self.debug_send(:quit)},
-      'relief'=>_relief
-    )
-
-  end  
-  
-  def build_ui
-    _y = 22
-    @debug_button_box = Tk::BWidget::ButtonBox.new(@frame){
-      homogeneous true
-      state 'disabled'
-      background Arcadia.conf('panel.background')
-    }.place('height'=> _y)
-    
-    @debug_frame = TkFrame.new(@frame, Arcadia.style('panel')){ 
-        border  2
-        place(
-          'y'=>_y,
-          'height'=> -_y,
-          'relheight'=> 1,
-          'relwidth'=> 1
-        )
-    }
-    
-    self.build_buttons_set
-    
-    sf = AGTkOSplittedFrames.new(@debug_frame,70)
-
-    #-------------------------------------------------
-    build_process_panel(sf.top_frame)
-    #-------------------------------------------------
-
-    @enb = Tk::BWidget::NoteBook.new(sf.bottom_frame, Arcadia.style('tabpanel')){
-      tabbevelsize 0
-      internalborderwidth 2
-      place('relwidth' => 1,'relheight' => '1')
-    }
-    _tab_var = @enb.insert('end', 'vars' ,
-      'text'=> 'Variables',
-      'raisecmd'=>proc{}
-    )
-    _tab_breakpoint = @enb.insert('end', 'Breakpoint' ,
-      'text'=> 'Breakpoints',
-      'raisecmd'=>proc{}
-    )
-#    _tab_catchpoint = @enb.insert('end', 'catchpoint' ,
-#      'text'=> 'catchpoint',
-#      'raisecmd'=>proc{}
-#    )
-    
-    build_var_panel(_tab_var)
-    build_break_panel(_tab_breakpoint)
-    @stack_nodes = Array.new
-    @enb.raise('vars')
-
-  end
-
-  def build_process_panel(_frame)
-    @tree_process = Tk::BWidget::Tree.new(_frame, Arcadia.style('treepanel')){
-      showlines false
-      deltay 15
-      place('relwidth' => 1,'relheight' => '1')
-    }
-    @tree_process.textbind("Double-ButtonPress-1", proc{
-      _selected = @tree_process.selection_get[0]
-      if @tree_process.parent(_selected)=='client'
-        _text = @tree_process.itemcget(_selected, 'text')
-        pos = match_position_from_stack(_text)
-        if pos.length >0 
-    	     Arcadia.process_event(OpenBufferEvent.new(self,'file'=>pos[0], 'row'=>pos[1]))
-          #EditorContract.instance.open_file(self, 'file'=>pos[0], 'line'=>pos[1])
-        end
-      end
-    })
-
-  end
-
-  def start_process(_filename)
-    @tree_process.insert('end', 'root' ,'server', {
-      'text' =>  "Server => #{File.basename(_filename)} at #{@controller.conf('server.host')}:#{@controller.conf('server.port')}"
-    }.update(Arcadia.style('treeitem')))
-    @tree_process.insert('end', 'server' ,'client', {
-      'text' =>  "Client"
-    }.update(Arcadia.style('treeitem')))
-    @tree_process.open_tree('server',true)
-  end
-
-  def tree_var_free
-    @tree_var.delete(@tree_var.nodes('local_var'))
-    @tree_var.delete(@tree_var.nodes('instance_var'))
-    @tree_var.delete(@tree_var.nodes('global_var'))
-    @tree_var.delete(@tree_var.nodes('class_var'))
-    @tree_var.delete(@tree_var.nodes('eval')) if @tree_var.exist?('eval')
-  end
-
-  def tree_process_free
-    @tree_process.delete(@tree_process.nodes('root'))
-  end
-
-  def bnext_state(_state)
-    if _state == B_STATE_ON
-      return B_STATE_FREEZE
-    elsif _state == B_STATE_FREEZE
-      return B_STATE_OFF
-    elsif _state == B_STATE_OFF
-      return B_STATE_ON
-    end   
-  end
-
-  def build_var_panel(_frame)
-    _open_proc = proc do |_arg|
-        inspect_node(_arg) if @nodes_to_open.include?(_arg)
-    end
-        
-    @tree_var = Tk::BWidget::Tree.new(_frame, Arcadia.style('treepanel')){
-      showlines true
-      deltay 15
-      opencmd _open_proc
-    }.place('relwidth' => 1,'relheight' => '1','bordermode' => 'inside')
-
-    _scrollcommand = proc{|*args| @tree_var.yview(*args)}
-    _scrollbar = TkScrollbar.new(_frame, Arcadia.style('scrollbar')){|s|
-      width 8
-      command _scrollcommand
-    }.pack('side'=>'right', 'fill'=>'y')
-    @tree_var.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
-    
-    @local_state = B_STATE_ON
-    @instance_state = B_STATE_ON
-    @class_state = B_STATE_ON
-    @global_state = B_STATE_OFF
-    
-    _i_on = TkPhotoImage.new('dat' => ON_GIF)
-    _i_off = TkPhotoImage.new('dat' => OFF_GIF)
-    _i_freeze = TkPhotoImage.new('dat' => FREEZE_GIF)
-
-    _b_relief = 'groove'
-    #------------------ loacal variables -------------------
-    _loc_var_text = "Local variables"
-    @b_local_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
-        image  _i_on
-        state 'disabled'
-        anchor 'nw'
-    }.bind("1",proc{
-      @local_state = bnext_state(@local_state)
-      if @local_state == B_STATE_ON
-        @tree_var.itemconfigure('local_var',
-          'text'=>"#{_loc_var_text}",
-          'helptext'=>""
-        )
-        @b_local_onoff.image(_i_on)
-        command_enabled(false)
-        Thread.new{
-          update_variables('local_var', @controller.rdc.variables('local_variables')) #if @tree_var.open?('local_var')
-          command_enabled(true)
-        }
-      elsif @local_state == B_STATE_FREEZE
-        @b_local_onoff.image(_i_freeze)
-        @tree_var.itemconfigure('local_var',
-          'text'=>"#{_loc_var_text} freeze at #{@last_position_string}",
-          'helptext'=>"#{_loc_var_text} freeze at #{@last_position_string}"
-        )
-      elsif @local_state == B_STATE_OFF
-        @b_local_onoff.image(_i_off)
-        @tree_var.delete(@tree_var.nodes('local_var'))
-        @tree_var.itemconfigure('local_var',
-          'text'=>"#{_loc_var_text}",
-          'helptext'=>""
-        )
-      end
-    })
-
-    @tree_var.insert('end', 'root' ,'local_var', Arcadia.style('treeitem').update({
-      'fill'=>Arcadia.conf('hightlight.8.foreground'),
-      'open'=>true,
-      'anchor'=>'w',
-      'text' =>  _loc_var_text,
-      'window' => @b_local_onoff
-    }))
-
-    #------------------ instance variables -------------------
-    _instance_var_text="Instance variables"
-    @b_instance_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
-        image  _i_on
-        #relief _b_relief
-        state 'disabled'
-        anchor 'nw'
-    }.bind("1",proc{
-      @instance_state = bnext_state(@instance_state)
-      if @instance_state == B_STATE_ON
-        @tree_var.itemconfigure('instance_var',
-          'text'=>"#{_instance_var_text}",
-          'helptext'=>""
-        )
-        @b_instance_onoff.image(_i_on)
-        command_enabled(false)
-        Thread.new{
-          update_variables('instance_var', @controller.rdc.variables('instance_variables')) #if @tree_var.open?('local_var')
-          command_enabled(true)
-        }
-      elsif @instance_state == B_STATE_FREEZE
-        @b_instance_onoff.image(_i_freeze)
-        @tree_var.itemconfigure('instance_var',
-          'text'=>"#{_instance_var_text} freeze at #{@last_position_string}",
-          'helptext'=>"#{_instance_var_text} freeze at #{@last_position_string}"
-        )
-      elsif @instance_state == B_STATE_OFF
-        @b_instance_onoff.image(_i_off)
-        @tree_var.delete(@tree_var.nodes('instance_var'))
-        @tree_var.itemconfigure('instance_var',
-          'text'=>"#{_instance_var_text}",
-          'helptext'=>""
-        )
-      end
-    })
-    @tree_var.insert('end', 'root' ,'instance_var', Arcadia.style('treeitem').update({
-      'fill'=>Arcadia.conf('hightlight.9.foreground'),
-      'open'=>true,
-      'anchor'=>'w',
-      'text' =>  _instance_var_text,
-      'window' => @b_instance_onoff
-    }))
-
-    #------------------ class variables -------------------
-    _class_var_text="Class variables"
-    @b_class_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
-        image  _i_on
-        #relief _b_relief
-        state 'disabled'
-        anchor 'nw'
-    }.bind("1",proc{
-      @class_state = bnext_state(@class_state)
-      if @class_state == B_STATE_ON
-        @tree_var.itemconfigure('class_var',
-          'text'=>"#{_class_var_text}",
-          'helptext'=>""
-        )
-        @b_class_onoff.image(_i_on)
-        command_enabled(false)
-        Thread.new{
-          update_variables('class_var', @controller.rdc.variables('self.class.class_variables')) #if @tree_var.open?('local_var')
-          command_enabled(true)
-        }
-      elsif @class_state == B_STATE_FREEZE
-        @b_class_onoff.image(_i_freeze)
-        @tree_var.itemconfigure('class_var',
-          'text'=>"#{_class_var_text} freeze at #{@last_position_string}",
-          'helptext'=>"#{_class_var_text} freeze at #{@last_position_string}"
-        )
-      elsif @class_state == B_STATE_OFF
-        @b_class_onoff.image(_i_off)
-        @tree_var.delete(@tree_var.nodes('class_var'))
-        @tree_var.itemconfigure('class_var',
-          'text'=>"#{_class_var_text}",
-          'helptext'=>""
-        )
-      end
-    })
-    @tree_var.insert('end', 'root' ,'class_var', Arcadia.style('treeitem').update({
-      'fill'=>Arcadia.conf('hightlight.10.foreground'),
-      'open'=>true,
-      'anchor'=>'w',
-      'text' =>  _class_var_text,
-      'window' => @b_class_onoff
-    }))
-
-
-    #------------------ global variables -------------------
-    _global_var_text="Global variables"
-    @b_global_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
-        image  _i_off
-        #relief _b_relief
-        state 'disabled'
-        anchor 'nw'
-    }.bind("1",proc{
-      @global_state = bnext_state(@global_state)
-      if @global_state == B_STATE_ON
-        @tree_var.itemconfigure('global_var',
-          'text'=>"#{_global_var_text}",
-          'helptext'=>""
-        )
-        @b_global_onoff.image(_i_on)
-        command_enabled(false)
-        Thread.new{
-          update_variables('global_var', @controller.rdc.variables('global_variables')) #if @tree_var.open?('local_var')
-          command_enabled(true)
-        }
-      elsif @global_state == B_STATE_FREEZE
-        @b_global_onoff.image(_i_freeze)
-        @tree_var.itemconfigure('global_var',
-          'text'=>"#{_global_var_text} freeze at #{@last_position_string}",
-          'helptext'=>"#{_global_var_text} freeze at #{@last_position_string}"
-        )
-      elsif @global_state == B_STATE_OFF
-        @b_global_onoff.image(_i_off)
-        @tree_var.delete(@tree_var.nodes('global_var'))
-        @tree_var.itemconfigure('global_var',
-          'text'=>"#{_global_var_text}",
-          'helptext'=>""
-        )
-      end
-    })
-    @tree_var.insert('end', 'root' ,'global_var', Arcadia.style('treeitem').update({
-      'fill'=>Arcadia.conf('hightlight.11.foreground'),
-      'open'=>true,
-      'anchor'=>'w',
-      'text' =>  _global_var_text,
-      'window' => @b_global_onoff
-    }))
-  end
-
-  def build_break_panel(_tab_breakpoint)
-    @tree_break = Tk::BWidget::Tree.new(_tab_breakpoint, Arcadia.style('treepanel')){
-      showlines true
-      deltay 15
-    }.place('relwidth' => 1,'relheight' => '1')
-  end
-  
-  def file2node_name(_file)
-    _s = ""
-    _file.gsub("/",_s).gsub(".",_s).gsub(":",_s).gsub("\\",_s).gsub("-",_s)
-  end
-  
-  def line2node_name(_parent, _line)
-    "#{_parent}_#{_line.to_s}"
-  end
-  
-  def break_list_add(_file, _line)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    if !@tree_break.exist?(_file_node)
-      @tree_break.insert('end', 'root' ,_file_node, {
-        'open'=>true,
-        'anchor'=>'w',
-        'text' =>  _file
-      }.update(Arcadia.style('treeitem')))
-    end
-    
-    if !@tree_break.exist?(_line_node)
-      @tree_break.insert('end', _file_node ,_line_node, {
-        'open'=>true,
-        'anchor'=>'w',
-        'text' =>  "line: #{_line}"
-      }.update(Arcadia.style('treeitem')))
-    end
-  end
-
-  def break_list_del(_file, _line)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    if @tree_break.exist?(_line_node)
-      @tree_break.delete(_line_node) 
-      _bro = @tree_break.nodes(_file_node)
-      if _bro && _bro.length > 0 
-        @tree_break.delete(_file_node) 
-      end
-    end
-  end
-
-  def break_list_select(_file, _line)
-    _file_node = file2node_name(_file) 
-    _line_node = line2node_name(_file_node, _line)
-    @tree_break.selection_clear
-    if @tree_break.exist?(_line_node)
-      @tree_break.selection_add(_line_node)
-      @tree_break.see(_line_node)
-    end
-  end
-
-  
-  def break_list_free
-    @tree_break.delete(@tree_break.nodes('root'))
-  end
-  
-  def clear
-    tree_var_free
-    tree_process_free
-    break_list_free
-  end
-
-  
-  def rdebug_client_update(_command, _result)
-    #Arcadia.console(self,'msg'=>"on command #{_command} => #{_result}", 'level'=>'debug')
-    return if @controller.rdc.nil? || !@controller.rdc.is_debugging_ready? || !@controller.rds.is_alive?
-    begin
-      if _command == 'quit'
-        msg = "Really quit debug ? (y/n)"
-        ans = Tk.messageBox('icon' => 'question', 'type' => 'yesno',
-        'title' => '(Arcadia) Debug', 'message' => msg)
-        if  ans == 'yes'
-          debug_send(:quit_yes)
-          clear
-        else
-          debug_send(:quit_no)
-        end
-      elsif _command == 'quit_yes'
-          clear
-      elsif  _command == 'quit_no'
-        command_enabled(true)
-      elsif _command == 'cont' && !_result.downcase.include?('breakpoint')
-        @controller.rdc.kill
-        clear
-      elsif _command != 'where' && _command != 'quit_yes'  
-        begin
-          update_position
-          update_variables('local_var', @controller.rdc.variables('local_variables')) if @local_state == B_STATE_ON
-          update_variables('instance_var', @controller.rdc.variables('instance_variables')) if @instance_state == B_STATE_ON
-          update_variables('class_var', @controller.rdc.variables('self.class.class_variables')) if @class_state == B_STATE_ON
-          #Arcadia.new_debug_msg(self,"on command #{_command}:global_variables")
-          update_variables('global_var', @controller.rdc.variables('global_variables')) if @global_state == B_STATE_ON
-        ensure
-          command_enabled(true) if !@controller.rdc.nil? && @controller.rdc.is_debugging_ready? && (!_command.include?('quit') || _command.include?('quit_no')) 
-        end
-      end
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"on command #{_command}:#{e.inspect}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"on command #{_command}:#{e.inspect}")
-    end
-  end
-
-  def match_position_from_stack(_line)
-    #Arcadia.new_error_msg(self, "match on #{_line}")
-    ret = Array.new
-    matchline = _line.match(/#*([0-9]*)[\s\w\W]*\s(.*):([0-9]*)(.*)/)
-    if !matchline.nil? && matchline.length==5
-      #Arcadia.new_error_msg(self, "matchline[2]=#{matchline[2]}")
-      #Arcadia.new_error_msg(self, "matchline[3]=#{matchline[3]}")
-      filename = matchline[2].to_s.strip
-      line_no = matchline[3].to_i 
-      if filename && line_no
-        ret << filename << line_no
-      end
-    end
-    ret
-  end
-  
-  def update_position
-    stack = @controller.rdc.where
-    #Arcadia.new_debug_msg(self,stack)
-    if !stack.nil?
-      stack = stack.split(/\n/)
-      line_no = -1
-      if stack.length > 1 && stack[1].strip[0..0]!='#'
-        pos = match_position_from_stack(stack[1].strip)
-      elsif !stack[0].nil?
-        pos = match_position_from_stack(stack[0])
-      end
-      if pos.length > 0
-        _file = pos[0]
-        #p "_file=#{_file}"
-        _file = File.expand_path(pos[0]) if !File.exist?(_file)
-        Arcadia.broadcast_event(DebugStepInfoEvent.new(self,'file'=> _file, 'row'=>pos[1]))
-        #DebugContract.instance.debug_step(self, 'file'=> _file, 'line'=>pos[1])
-        break_list_select(_file, pos[1].to_s)
-        @last_position_string = "#{pos[0]}:#{pos[1]}"
-      end
-      i = 0
-      @tree_process.delete(@stack_nodes)
-      stack.each do |line| 
-        _node = "c#{i.to_s}"
-        @tree_process.insert('end', 'client' ,_node, {
-          'text' =>  line,
-          'helptext' => line
-        }.update(Arcadia.style('treeitem')))
-        #Arcadia.console(self, 'msg'=>"inserted line #{line}")
-        @stack_nodes << _node
-        i = i+1
-      end
-    end
-  end
-
-  def is_simple_class?(_var)
-    ['Numeric','Fixnum','String','FalseClass','TrueClass','NilClass'].include?(_var.value_class) && !_var.value.to_s.strip.include?("\n")
-  end
-  
-  def show_expression(_exp, _hash)
-    if !@tree_var.exist?('eval')
-      @tree_var.insert('end', 'root' ,'eval', Arcadia.style('treeitem').update({
-        'fill'=>Arcadia.conf('hightlight.13.foreground'),
-        'open'=>true,
-        'anchor'=>'w',
-        'text' =>  "Eval selection"
-      }))
-    end
-    update_variables('eval', _hash)
-  end
-  
-  def inspect_node(_node)
-    command_enabled(false)
-    begin
-      _var = var_name(_node)
-      _o = @controller.rdc.debug_dump(_var)
-      if _o.class == Hash
-        var_deep(_node, _o)
-      else 
-        var_deep_string(_node, _o)
-      end
-    ensure
-      command_enabled(true)
-    end
-  end
-  
-  def var_deep(_var, _hash)
-#    _var_cla = _hash['__CLASS__']
-#    _var_len = _hash['__LENGTH__']
-#    @tree_var.itemconfigure(_var, 'text' =>  "#{_var_cla}:#{_var_len}")
-    return nil if _hash.nil? 
-    return _hash.to_s if _hash.class != Hash
-    if _hash['__CLASS__']=='Array'
-     _sorted_keys = _hash.keys.collect!{|x| x.to_i}.sort.collect!{|x| x.to_s}
-    else
-     _sorted_keys = _hash.keys.sort
-    end
-    _sorted_keys.each{|k|
-    #_hash.keys.sort.each{|k|
-      v = _hash[k]
-      next if k=='__CLASS__'
-      _complex = v.class == Hash
-      if _complex
-        _text = var_format(k,v['__CLASS__'])
-      elsif (k=='__LENGTH__') && v=='0'
-        _text = '{}'
-      elsif (k=='__LENGTH__') && v!='0'
-        next
-      else
-        _text = var_format(k,nil,v)
-      end
-      _node = node_name(k, _var)
-      if @tree_var.exist?(_node)
-        @tree_var.itemconfigure(_node, 'text' =>  _text)
-      else
-        @tree_var.insert('end', _var ,_node, Arcadia.style('treeitem').update({
-          'text' =>  _text,
-          'helptext' => v,
-          'anchor'=>'w'
-        }))
-      end
-      var_deep(_node,v) if _complex
-    }
-  end
-
-  def var_deep_string(_var, _str)
-    @tree_var.delete(@tree_var.nodes(_var))
-    return nil if _str.nil? 
-    _str = _str.to_s if !_str.kind_of?(String)
-    a_str = _str.split("\n")
-    a_str.each_with_index{|v,i|
-      _node = node_name(i.to_s, _var)
-      @tree_var.insert('end', _var ,_node, Arcadia.style('treeitem').update({
-        'text' =>  v,
-        'fill' => Arcadia.conf('hightlight.12.foreground'),
-        'anchor'=>'w'
-      }))
-    }
-  end
-
-  
-  def var_format(_name, _class, _value=nil)
-    if !_value.nil? && !_class.nil?
-      return "#{_name.to_s.strip} => #{_value.to_s.strip} [#{_class.to_s.strip}]"
-    elsif _value.nil? && !_class.nil?
-      return "#{_name.to_s.strip} [#{_class.to_s.strip}]"
-    elsif !_value.nil? && _class.nil?
-      return "#{_name.to_s.strip} => #{_value.to_s.strip}"
-    elsif _value.nil? && _class.nil?
-      return "#{_name.to_s.strip} => {}"
-    end
-  end
-  
-  def node_name(_node, _parent)
-    return "#{_parent}@@@#{_node.gsub('$','__S__').gsub('&','__E__').gsub(':','__D__').gsub('!','__A__')}" 
-  end
-
-  def var_name(_node)
-    #_parent = @tree_var.parent(_node)
-    #return _node.sub("#{_parent}_", '') 
-    return _node.split('@@@')[-1].gsub('__S__','$').gsub('__E__','&').gsub('__D__',':').gsub('__A__','!')
-  end
-  
-  def command_enabled(_value)
-    #Arcadia.new_debug_msg(self,"command_enabled= #{_value.to_s}")
-    @c_on = _value
-    _value ? _state = 'normal':_state = 'disabled'
-    @debug_button_box.configure(:state=>_state) 
-    @b_local_onoff.configure(:state=>_state) 
-    @b_instance_onoff.configure(:state=>_state) 
-    @b_class_onoff.configure(:state=>_state) 
-    @b_global_onoff.configure(:state=>_state) 
-    Tk.update
-  end
-
-  def update_variables(_parent_node, _var)
-    #Arcadia.console(self, 'msg'=>"---update_variables =>#{_var} figlio di #{_parent_node}")
-    if _var.keys.sort == @tree_var.nodes(_parent_node).collect! {|x| var_name(x).to_s}.sort
-      _var.each{|k,v|
-        #Arcadia.console(self, 'msg'=>"node_name of #{k}")
-        _n = node_name(k, _parent_node)
-        if is_simple_class?(v)
-          _text = var_format(k,v.value_class,v.value)
-          _drawcross = 'auto'
-        else
-          _text = var_format(k,v.value_class)
-          _drawcross = 'always'
-          @nodes_to_open << _n if !@nodes_to_open.include?(_n)
-          inspect_node(_n) if bool(@tree_var.itemcget(@tree_var.tagid(_n), 'open'))
-        end
-        #Arcadia.console(self, 'msg'=>"_n=#{_n} text=#{_text}")
-        _node = @tree_var.itemconfigure(_n, 
-          'text' =>  _text, 
-          'helptext' => v.value,
-          'drawcross' => _drawcross
-        )
-      }          
-    else 
-      @nodes_to_open.clear
-      @tree_var.delete(@tree_var.nodes(_parent_node))
-      #@nodes[_parent_node].clear
-      _var.keys.sort.each{|k|
-          v = _var[k]
-          _n = node_name(k, _parent_node)
-          if is_simple_class?(v)
-            _text = var_format(k,v.value_class,v.value)
-            _drawcross = 'auto'
-          else
-            _text = var_format(k,v.value_class)
-            _drawcross = 'always'
-            @nodes_to_open << _n
-          end
-          @tree_var.insert('end', _parent_node ,_n, Arcadia.style('treeitem').update({
-            'text' =>  _text,
-            'helptext' => v.value,
-            'drawcross' => _drawcross,
-            'anchor'=>'w'
-          }))
-      }
-    end
-    Tk.update
-  end
-
-  def debug_send(_command)
-    if @controller.rdc
-      begin
-        command_enabled(false)
-        #@debug_button_box.configure(:state=>'disabled')
-        Thread.new do
-          Arcadia.process_event(StepDebugEvent.new(self, 'command'=>_command))
-          #@controller.rdc.send(_command)
-        end
-        #@controller.rdc.send(_command)
-      rescue Exception => e
-        Arcadia.console(self, 'msg'=>"---> "+e.to_s, 'level'=>'debug')
-        #Arcadia.new_debug_msg(self,"---> "+e.to_s)
-      end
-    end
-  end
-end
-
-class RubyDebugException < Exception
-end
-
-class RubyDebugServer
-  include Observable
-  attr_accessor :quit_confirm_request
-  RDS_QUIET = 'RDS_QUIET'
-  def initialize(_caller, _arcadia=nil)
-    if _caller.respond_to? :rdebug_server_update
-      ObserverCallback.new(self,_caller,:rdebug_server_update)
-    end
-    @arcadia = _arcadia
-    @quit_confirm_request = false
-    @alive = false
-  end
-
-  def start_session_new(_filename, _host='localhost', _remote_port='8989')
-    if is_windows?
-       commandLine = "rdebug.cmd --host #{_host} --port #{_remote_port} -sw #{_filename}"
-    else
-       commandLine = "rdebug --host #{_host} --port #{_remote_port} -sw #{_filename}"
-    end
-    Arcadia.process_event(SystemExecEvent.new(self, 'command'=>commandLine))
-  end
-  
-  def is_alive?
-    @alive
-  end
-  
-  def set_alive(_value=false)
-    @alive = _value
-  end
-  
-  def start_session(_filename, _host='localhost', _remote_port='8989')
-    if is_windows?
-      commandLine = "rdebug.cmd --port #{_remote_port} -sw #{_filename}"
-    else
-      commandLine = "rdebug --host #{_host} --port #{_remote_port} -sw #{_filename}"
-    end
-    begin
-      @alive = true
-      if is_windows?
-        @tid = Thread.new do
-          if Kernel.system(commandLine)
-              Kernel.system('y')
-          else
-            if @quit_confirm_request
-              Arcadia.console(self, 'msg'=>"#{$?.inspect}")
-              #Arcadia.new_msg(self,"#{$?.inspect}")    
-            else
-              _event = Arcadia.process_event(RunRubyFileEvent.new(self, 'file'=>_filename))
-              Arcadia.console(self, 'msg'=>"#{_event.results[0].output}", 'level'=>'debug')
-              #Arcadia.new_debug_msg(self,"#{_event.results[0].output}")    
-            end
-          end
-          set_alive(false)
-          notify(RDS_QUIET)
-        end
-      else
-        @pid = Process.fork do
-          if Kernel.system(commandLine)
-            set_alive(false)
-            #p "alive=#{is_alive?}"
-            notify(RDS_QUIET)
-            Kernel.system('y')
-            Kernel.exit!
-          else
-            Kernel.exit!
-            Arcadia.console(self, 'msg'=>"#{$?.inspect}", 'level'=>'debug')
-            #Arcadia.new_debug_msg(self,"#{$?.inspect}")    
-          end
-          #p "@alive=#{@alive}"
-          #notify(RDS_QUIET)
-          #Process.wait
-        end
-      end
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on start_server : #{e.class}:#{e.message}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Error on start_server : #{e.class}:#{e.message}")    
-    end
-  end
-  
-  def kill
-    begin
-      if is_windows?
-        @tid.join(2)
-        @tid.kill!
-      else
-        Process.kill('QUIT',@pid)
-      end
-      notify(RDS_QUIET)
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on kill : #{e.class}:#{e.message}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Error on start_server : #{e.class}:#{e.message}")    
-    end
-  end
-  
-  def is_windows?
-    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
-  end
-
-  def notify(_state)
-     #p "----- notify ----- #{_state}"
-     changed
-     notify_observers(_state)
-  end
-  
-end
-
-#Ruby-debug commands
-
-#    * b[reak]
-#      list breakpoints
-#    * b[reak] [file|class:]LINE|METHOD [if expr]
-#    * b[reak] [class.]LINE|METHOD [if expr]
-#      set breakpoint to some position, optionally if expr == true
-#    * cat[ch]
-#      show catchpoint
-#    * cat[ch] EXCEPTION
-#      set catchpoint to an exception
-#    * disp[lay] EXPRESSION add expression into display expression list
-#    * undisp[lay][ nnn]
-#      delete one particular or all display expressions if no expression number given
-#    * del[ete][ nnn]
-#      delete some or all breakpoints (get the number using “break”)
-#    * c[ont]
-#      run until program ends or hit breakpoint
-#    * r[un]
-#      alias for cont
-#    * s[tep][ nnn]
-#      step (into methods) one line or till line nnn
-#    * n[ext][ nnn]
-#      go over one line or till line nnn
-#    * w[here]
-#      displays stack
-#    * f[rame]
-#      alias for where
-#    * l[ist][ (-|nn-mm)]
-#      list program, - list backwards, nn-mm list given lines. No arguments keeps listing
-#    * up[ nn]
-#      move to higher frame
-#    * down[ nn]
-#      move to lower frame
-#    * fin[ish]
-#      return to outer frame
-#    * q[uit]
-#      exit from debugger
-#    * v[ar] g[lobal]
-#      show global variables
-#    * v[ar] l[ocal]
-#      show local variables
-#    * v[ar] i[nstance] OBJECT
-#      show instance variables of object
-#    * v[ar] c[onst] OBJECT
-#      show constants of object
-#    * m[ethod] i[nstance] OBJECT
-#      show methods of object
-#    * m[ethod] CLASS|MODULE
-#      show instance methods of class or module
-#    * th[read] l[ist]
-#      list all threads
-#    * th[read] c[ur[rent]]
-#      show current thread
-#    * th[read] [sw[itch]] nnn
-#      switch thread context to nnn
-#    * th[read] stop nnn
-#      stop thread nnn
-#    * th[read] resume nnn
-#      resume thread nnn
-#    * p EXPRESSION
-#      evaluate expression and print its value
-#    * pp EXPRESSSION
-#      evaluate expression and print its value
-#    * h[elp]
-#      print this help
-#    * RETURN KEY
-#      redo previous command. Convenient when using list, step, next, up, down,
-#    * EVERYHTING ELSE
-#      evaluate
-
-
-class RubyDebugClient
-  require 'socket'
-  require 'yaml'
-  include Observable
-  Var = Struct.new("Var",
-    :value,
-    :value_class
-  )
-  
-  def initialize(_controller, _server='localhost', _port=8989, _timeout=0)
-    @controller = _controller
-    @session = nil
-    @server = _server
-    @port = _port
-    @timeout = _timeout.to_i
-    @busy = false
-    @pend = false
-  end
-  
-  def add_listener(_caller, _method=:rdebug_client_update)
-    if _caller.respond_to? :rdebug_client_update
-      ObserverCallback.new(self,_caller,:rdebug_client_update)
-    end
-  end
-  
-  def notify(_command, _result=nil)
-   #Arcadia.new_debug_msg(self,"notify=>#{_command}")    
-    @busy = false
-    changed
-    notify_observers(_command, _result)
-    _result
-  end
-
-  def is_debugging_ready?
-    is_alive? && !is_busy?
-  end
-  
-  def is_busy?
-    @busy
-  end
-
-  def is_alive?
-    #p "===>@session=#{@session}" 
-    #p "===>@session.closed?=#{@session.closed?}" if @session
-    #p "===>@pend=#{@pend}"
-    !(@session.nil? || @session.closed? || @pend)
-    #(!@session.nil? && !@session.closed? && !@pend)
-  end
-
-  def socket_session
-      #p "====>socket_session"
-      #Arcadia.new_debug_msg(self,"socket_session : passo")    
-      if @session.nil? && @controller.rds.is_alive?
-        begin
-          #sleep(2)
-          @session = TCPSocket.new(@server, @port)
-          @pend = false
-        rescue Errno::ECONNREFUSED,Errno::EBADF => e
-          sleep(1)
-          @t = @t -1
-          if @t > 0
-            socket_session
-          else
-            Arcadia.console(self, 'msg'=>"socket_session : #{e.inspect}", 'level'=>'debug')
-            #Arcadia.new_debug_msg(self,"socket_session : #{e.inspect}")    
-          end
-        rescue Exception => e
-          @session = nil
-          Arcadia.console(self, 'msg'=>"Error on socket_session : #{e.class}:#{e.message}", 'level'=>'debug')
-          #Arcadia.new_debug_msg(self,"Error on socket_session : #{e.class}:#{e.message}")    
-        end
-      elsif !@controller.rds.is_alive?
-        @session = nil
-      end
-      #Arcadia.new_debug_msg(self,"session : #{@session.inspect}")    
-      #p "@session=>#{@session}"
-      return @session 
-  end
-  
-  def kill 
-    begin
-      @session.close if is_alive?
-      @session=nil
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on close session : #{e.class}:#{e.message}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Error on close session : #{e.class}:#{e.message}")    
-    end
-  end
-  
-  def start_session
-    begin
-      #p "======>start session"
-      @t = @timeout 
-      if socket_session
-        #Arcadia.new_debug_msg(self,"session : #{@session.inspect}")    
-        notify('start', read)
-        read("eval require 'yaml'")
-      end
-      return @session
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on start_session : #{e.class}:#{e.message}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Error on start_session : #{e.class}:#{e.message}")    
-    end
-  end
-  
-  def stop_session
-    begin
-      quit if is_debugging_ready?
-      @session.close if is_alive?
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on stop_session : #{e.class}:#{e.inspect}", 'level'=>'debug')    
-      #Arcadia.new_debug_msg(self,"Error on stop_session : #{e.class}:#{e.inspect}")    
-    end
-  end
-  
-  # send a command to the debugger via socket
-  def command(_command)
-   #Arcadia.new_debug_msg(self,"command=>#{_command}")    
-    begin
-      return false if @busy 
-      if is_alive?
-        @busy = true
-        @session.puts(_command) if socket_session
-      else
-        start_session if !@pend
-      end
-      #_command !="cont"
-      true 
-    rescue Errno::ECONNABORTED => e
-      notify("quit_yes")
-      #DebugContract.instance.debug_end(self)
-      Arcadia.console(self, 'msg'=>"Debugger has finished executing:\n #{e.class}:#{e.inspect}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Debugger has finished executing:\n #{e.class}:#{e.inspect}")      
-      @session = nil
-      @pend = true
-      false
-      #raise RubyDebugException.new("Debugged has finished executing")
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"Error on command #{_command}: #{e.class}:#{e.inspect}", 'level'=>'debug')
-      #Arcadia.new_debug_msg(self,"Error on command #{_command}: #{e.class}:#{e.inspect}")
-      false
-    end
-  end
-  private :command
-
-  def read(_command=nil)
-    return nil if _command && !command(_command) 
-    result = ""
-    if socket_session
-      @session.flush
-      while _command !='y' && is_alive? && line = @session.gets
-        break if line =~ /^PROMPT (.*)$/ || line =~ /.(y\/n)./ 
-        result << line
-        #break if _command =~ /^eval./
-      end
-      #Arcadia.new_debug_msg(self, "read: letta per '#{_command}' result => #{result}")
-    end
-    @busy = false
-    result
-  
-  rescue Errno::ECONNABORTED
-    raise RubyDebugException.new("Debugged has finished executing")
-  rescue Errno::ECONNRESET
-    raise RubyDebugException.new("Debugged has finished executing")
-  rescue Exception => e
-    raise RubyDebugException.new("Error: on command '#{_command}' => #{e.class} : #{e.inspect}")
-  end
-  private :read
-
-
-  def step_over
-    notify("next", read("next"))
-  end
-
-  def step_into
-    notify("step", read("step"))
-  end
-
-  def step_out
-    notify("fin", read("fin"))
-  end
-
-  def resume
-    notify("cont", read("cont"))
-  end
-
-  def where
-    notify("where", read("where"))
-  end
-
-  def quit
-    notify("quit", read("q"))
-  end
-
-  def quit_yes
-    notify("quit_yes", read("y"))
-    #DebugContract.instance.debug_end(self)
-    kill
-  end
-
-  def quit_no
-    notify("quit_no", read("n"))
-  end
-
-  # return the current stack trace
-  def stacktrace
-    notify("backtrace", read("backtrace"))
-  end
-  
-
-  def yaml_pseudo_load(_obj)
-    just_present =  @valuobjs.include?(_obj)
-    @valuobjs << _obj  
-    if _obj.class == YAML::DomainType
-      return _obj.type_id if just_present
-      ret = Hash.new
-      ret['__CLASS__']=_obj.type_id
-      l = _obj.value.length  
-      ret['__LENGTH__']= l.to_s
-      if l > 0 
-          _obj.value.each{|k,v|
-              ret["@#{k}"]=yaml_pseudo_load(v)
-          }
-      end
-      ret
-    elsif _obj.class == Hash
-    #Arcadia.new_msg(self,"_obj Hash="+_obj.inspect)
-      return 'Hash' if just_present
-      ret = Hash.new
-      ret['__CLASS__']= 'Hash'
-      l = _obj.length  
-      ret['__LENGTH__']= l.to_s
-      if l > 0 
-        _obj.each{|k,v|
-            ret[k]=yaml_pseudo_load(v)
-        }
-      end
-      ret
-    elsif _obj.class == Array
-    #Arcadia.new_msg(self,"_obj Array="+_obj.inspect)
-      return 'Array' if just_present
-      ret = Hash.new
-      ret['__CLASS__']= 'Array'
-      l = _obj.length  
-      ret['__LENGTH__']= l.to_s
-      if l > 0 
-        _obj.each_with_index{|v,i|
-          ret[i.to_s]=yaml_pseudo_load(v)
-        }
-      end
-      ret
-    elsif _obj.class == Struct
-    #Arcadia.new_msg(self,"_obj Array="+_obj.inspect)
-      return 'Struct' if just_present
-      ret = Hash.new
-      ret['__CLASS__']= 'Struct'
-      l = _obj.length  
-      ret['__LENGTH__']= l.to_s
-      if l > 0
-         
-        _obj.members.each{|m|
-          ret[m]=yaml_pseudo_load(_obj[m])
-        }
-      end
-      ret
-    else  
-    #Arcadia.new_msg(self,"_obj ="+_obj.inspect)
-    
-      _obj
-    end
-  
-  end
-
-  
-  def debug_dump(_exp)
-    var = nil
-    if @valuobjs.nil?
-      @valuobjs = Array.new 
-    else
-      @valuobjs.clear
-    end
-    begin
-      _to_eval = read("eval YAML::dump(#{_exp})")
-      if _to_eval.include?('Exception:')
-        _to_eval = read("eval require 'pp';eval #{_exp}.pretty_inspect")
-        var = eval(_to_eval)
-        #var = "?"
-      else
-        _str = eval(_to_eval)
-        _str.gsub!('!ruby/object:', '!')
-        _obj = YAML::load(_str)
-        var = yaml_pseudo_load(_obj)
-      end  
-    rescue Exception => e
-      Arcadia.console(self, 'msg'=>"exception on eval #{_exp} :#{e.inspect}")
-      #Arcadia.new_msg(self,"exception on eval #{_exp} :#{e.inspect}")
-      var = nil
-    end
-    return var
-  end
-
-
-  # returns the instance variables and there values
-  def instance_variables_new(_this='self')
-    command("eval #{_this}.instance_variables")
-    variables = []
-    begin
-      variables = eval(read)
-    rescue Exception
-      variables = []
-    end
-    @consider = Array.new
-    variable_values = Hash.new
-    variables.each do |var|
-       #next if var != '@objs'
-#      command("eval require 'pp';  #{var}.pretty_inspect() + '|||' + #{var}.class.to_s")
-      command("eval YAML::dump(#{var})")
-      _str = eval read
-      #Arcadia.new_msg(self,"value passato 1 ="+_str)
-
-      _str.gsub!('!ruby/object:', '!')
-
-      #Arcadia.new_msg(self,"value passato 2 ="+_str)
-
-      _obj = YAML::load(_str)
-      
-      _xvalue = yaml_pseudo_load(_obj)
-      if _xvalue.class == Hash
-        _xclass = _xvalue['__CLASS__']
-      else
-        _xclass = _xvalue.class.to_s
-      end
-      #_vvv = eval(_value)
-      
-      #Arcadia.new_msg(self,"vvv class="+_vvv.class.to_s)
-      
-      #Arcadia.new_msg(self,"value="+_xvalue.inspect)
-      #Arcadia.new_msg(self,"class="+_xclass)
-      variable_values[var] = Var.new(_xvalue, _xclass)
-    end
-    return variable_values
-  end
-
-  # returns the local variables and there values
-  def variables(_type)
-    begin
-      #variables = read[1..-2].split(', ').collect!{|x| x[1..-2]}
-      to_eval = read("eval #{_type}")
-      #Arcadia.new_msg(self,"to_eval="+to_eval.to_s)
-      variables = eval(to_eval)
-      #Arcadia.new_msg(self,"variables="+variables.to_s)
-    rescue Exception => e
-      variables = []
-      #p "on command eval #{_type}:#{e.inspect}"
-      #Arcadia.new_debug_msg(self,"on command eval #{_type}:#{e.inspect}")
-    end
-    variables = [] if variables.nil?
-    variable_values = Hash.new
-    variables.each do |var|
-      next if var=='$;'
-#      command("eval #{var}.to_s + '|||' + #{var}.class.to_s")
-#      _str = eval(read)
-#      _value, _class = _str.split('|||')
-#      variable_values[var] = Var.new(_value, _class)
-      variable_values[var] = debug_eval(var)
-    end
-    return variable_values
-  end
-
-  def debug_eval(_exp)
-    command("eval #{res=_exp}.to_s + '|||' + #{res}.class.to_s")
-    _str = eval(read)
-    _value, _class = _str.split('|||')
-    return Var.new(_value, _class)
-  end
-  
-  # returns the local variables and there values
-  def local_variables
-    command("eval local_variables")
-    variables = []
-    begin
-      variables = eval(read)
-    rescue Exception
-      variables = []
-    end
-    variable_values = Hash.new
-    variables.each do |var|
-      command("eval #{var}.to_s + '|||' + #{var}.class.to_s")
-      _str = eval(read)
-      _value, _class = _str.split('|||')
-      variable_values[var] = Var.new(_value, eval(_class))
-    end
-    return variable_values
-  end
-
-
-  # returns the global variables and there values
-  def global_variables
-    command("eval global_variables")
-    variables = []
-    begin
-      variables = eval(read)
-    rescue Exception
-      variables = []
-    end
-    variable_values = Hash.new
-    variables.each do |var|
-      command("eval #{var}.to_s")
-      variable_values[var] = read
-    end
-    return variable_values
-  end
-
-
-  def set_breakpoint(_file, _line)
-    #_line = _line + 1
-    text = read("break #{_file}:#{_line}")
-    breakpoint_no = -1
-    #matches = text.match(/Set breakpoint ([0-9]*)?/)
-    matches = text.downcase.match(/breakpoint ([0-9]*)?/)
-    #Arcadia.new_error_msg(self, "text=#{text}")
-    #Arcadia.new_error_msg(self, "matches[1]=#{matches[1]}")
-    breakpoint_no = matches[1].to_i if (matches.length == 2)
-    return breakpoint_no
-  end
-
-  def unset_breakpoint(_id)
-    read("delete #{_id}")
-  end
-end
-
-class RubyDebug < ArcadiaExt
-  include Autils
-  attr_reader :rds
-  attr_reader :rdc
-  def on_before_build(_event)
-    if !full_in_path_command('rdebug').nil?
-      #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-      Arcadia.attach_listener(self, BufferEvent)
-      @breakpoints = Hash.new
-      @static_breakpoints = Array.new
-    else
-      Arcadia.console(self, 'msg'=>"Warning: Extension ae-ruby-debug depend upon rdebug command (install it or update system path!)", 'level'=>'error')
-      #Arcadia.new_error_msg(self, "Warning: Extension ae-ruby-debug depend upon rdebug command (install it or update system path!)")
-    end
-  end
-
-  def on_build(_event)
-    Arcadia.attach_listener(self, DebugEvent)
-  end
-
-  def on_buffer(_event)
-    case _event
-      when BufferRaisedEvent
-        @raised_file=_event.file
-    end
-  end
-
-  def on_debug(_event)
-    case _event
-      when StartDebugEvent
-        _filename = _event.file
-        _filename = @arcadia['pers']['run.file.last'] if _filename == "*LAST"
-        debug(_filename)
-      when StepDebugEvent
-        if (_event.command == :quit_yes)
-          @rds.quit_confirm_request = true
-        end
-        @rdc.send(_event.command) if @rdc.is_alive?
-        
-        #p "on_debug -> Thread.current=#{Thread.current}"
-
-        #p "on_debug --> @rdc.is_alive?=#{@rdc.is_alive?}"
-        #p "on_debug --> @rds.is_alive?=#{@rds.is_alive?}"
-      when SetBreakpointEvent
-        self.breakpoint_add(File.expand_path(_event.file), _event.row)
-      when UnsetBreakpointEvent
-        self.breakpoint_del(File.expand_path(_event.file), _event.row)
-      when EvalExpressionEvent
-        eval_expression(_event.expression)
-      when StopDebugEvent
-        self.debug_quit
-    end
-  end
-
-  
-#  def do_editor_event(_event)
-#    case _event.signature 
-#      when EditorContract::BREAKPOINT_AFTER_CREATE
-#        self.breakpoint_add(File.expand_path(_event.context.file), _event.context.line)
-#      when EditorContract::BREAKPOINT_AFTER_DELETE
-#        self.breakpoint_del(File.expand_path(_event.context.file), _event.context.line)
-#      when EditorContract::BUFFER_AFTER_RAISE
-#        @raised_file=_event.context.file
-#      when EditorContract::EVAL_EXPRESSION
-#        eval_expression(_event.context.text)
-#    end
-#  end
-
-  def eval_expression(_exp)
-    res = @rdc.debug_eval(_exp) if @rdc && @rdc.is_debugging_ready?
-    hash = Hash.new
-    hash[_exp]=res 
-    @rdv.show_expression(_exp, hash) if res 
-  end
-  
-  def start_debug_server
-  end
-  private :start_debug_server
-  
-  def start_debug_client
-  end
-  private :start_debug_client
-  
-  
-  def breakpoint_suf(_file,_line)
-    return _line.to_s + "-" + _file.to_s
-  end
-  private :breakpoint_suf
-  
-  def break_name(_file,_line)
-    "#{_file}:#{_line}"
-  end
-  
-  def breakpoint_add_live(_file,_line)
-    if @rdc && @rdc.is_alive?
-      @breakpoints[breakpoint_suf(_file,_line)] = @rdc.set_breakpoint(_file, _line.to_i)
-      @rdv.break_list_add(_file,_line) if @rdv
-    end
-  end
-
-  def breakpoint_del_live(_file,_line)
-    if @rdc && @rdc.is_alive?
-      @rdc.unset_breakpoint(@breakpoints.delete(breakpoint_suf(_file,_line)))
-      @rdv.break_list_del(_file,_line) if @rdv
-    end
-  end
-
-  def breakpoint_free_live
-    @breakpoints.clear
-    @rdv.break_list_free if @rdv
-  end
-  
-  def breakpoint_add(_file,_line)
-    breakpoint_add_live(_file,_line)
-    @static_breakpoints << {:file=>_file,:line=>_line}
-  end
-  #private :breakpoint_add
-
-  def breakpoint_del(_file,_line)
-    breakpoint_del_live(_file,_line)
-    @static_breakpoints.delete_if{|b| (b[:file]==_file && b[:line]==_line)}
-  end
-  #private :breakpoint_del
-
-
-  def on_exit_query(_event)
-    if @rdc && @rdc.is_alive?
-      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
-      'title' => '(Arcadia) Debug',
-      'message' => "Debug in course, do you want to exit?")=='yes')
-      if query
-        debug_quit
-        _event.can_exit=true
-      else
-        _event.can_exit=false
-      end
-    else
-      _event.can_exit=true
-    end
-  end
-
-  def debug_last
-    Arcadia.process_event(StartDebugEvent.new(self, 'file'=>$arcadia['pers']['run.file.last']))
-    #debug($arcadia['pers']['run.file.last'])
-  end
-
-  def debug_current
-    Arcadia.process_event(StartDebugEvent.new(self, 'file'=>@raised_file)) if @raised_file!=nil
-    #debug(@raised_file) if @raised_file!=nil
-  end
-  def debugging?
-    !@rdc.nil? && @rdc.is_alive?
-  end
-
-  def debug_begin
-    breakpoint_free_live
-    #DebugContract.instance.debug_begin(self)
-  end
-
-  def debug(_filename=nil)
-    if _filename && !debugging?
-      begin
-        self.debug_begin
-        @arcadia['pers']['run.file.last']=_filename
-        @rds = RubyDebugServer.new(self,@arcadia) if @rds.nil?
-        @rds.start_session(_filename, conf('server.host'), conf('server.port'))
-        #Arcadia.new_msg(self,@rds.to_s)
-        
-        @rdc = RubyDebugClient.new(self, conf('server.host'), conf('server.port'), conf('server.timeout')) if @rdc.nil?
-        @rdv = RubyDebugView.new(self.frame.hinner_frame, self) if @rdv.nil?
-        @rdv.start_process(_filename)
-        if @rdc.start_session
-          @static_breakpoints.each{|_b|
-            #Arcadia.console(self,'msg'=>" breakpoint_add #{_b[:file]}:#{_b[:line]}")
-            breakpoint_add_live(_b[:file], _b[:line])
-          } 
-        end
-      rescue Exception => e
-        Arcadia.console(self, 'msg'=>"---> "+e.to_s, 'level'=>'debug')
-      end
-    end
-  end
-
-  def rdebug_server_update(_state)
-    case _state
-      when RubyDebugServer::RDS_QUIET
-        @rdc.kill if @rdc
-        #p "@rdc.is_alive?=#{@rdc.is_alive?}"
-        #p "rdebug_server_update -> Thread.current=#{Thread.current}"
-        #@rdv.command_enabled(false)
-        #debug_free
-    end
-  end
-
-  def debug_free
-    self.frame.free
-    @rdc = nil
-    @rdv = nil
-  end
-
-  def debug_quit
-  #p "in debug quit @rdc.is_alive?=#{@rdc.is_alive?}"
-    if @rdc 
-      if @rdc.is_alive?
-        Thread.new{
-          Tk.messageBox('icon' => 'info', 
-          						'type' => 'ok',
-        						 'title' => '(Arcadia) Debug',
-        						 'message' => "Debug in course, stop it before exit")
-        }
-      else
-        begin
-          debug_free
-        rescue Exception => e
-          Arcadia.console(self, 'msg'=>"debug_quit:---> "+e.to_s, 'level'=>'debug')
-          #Arcadia.new_debug_msg(self, "debug_quit:---> "+e.to_s)
-          #@arcadia['shell'].outln("debug_quit:---> "+e.to_s )
-        end
-      end
-    end
-  end
-
-
-
-end
+#
+#   ae-ruby-debug.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+
+class RubyDebugView
+  include TkUtil
+  B_STATE_ON = '+'
+  B_STATE_OFF = '-'
+  B_STATE_FREEZE = '=' 
+  def initialize(_frame, _controller)
+    @frame = _frame
+    @controller = _controller
+    self.build_ui
+    @controller.rdc.add_listener(self)
+    @nodes_to_open = Array.new
+    #@break_hash = Hash.new
+  end
+  
+  def build_buttons_set
+    _relief = 'groove'
+#    @debug_button_box.add(Arcadia.style('toolbarbutton').update({
+#      'name'=>'debug_over',
+#      'anchor' => 'nw',
+#      'command'=>proc{self.debug_send(:step_over)},
+#      'helptext'=>'step over',
+#      'image'=> TkPhotoImage.new('dat' => D_NEXT_GIF)})
+#    )
+    @debug_button_box.add(
+      'name'=>'debug_over',
+      'background' => 'white',
+      'anchor' => 'nw',
+      'command'=>proc{self.debug_send(:step_over)},
+      'helptext'=>'step over',
+      'image'=> TkPhotoImage.new('dat' => D_NEXT_GIF),
+      'relief'=> _relief
+    )
+    @debug_button_box.add(
+      'name'=>'debug_into',
+      'background' => 'white',
+      'anchor' => 'nw',
+      'command'=>proc{self.debug_send(:step_into)},
+      'helptext'=>'step into',
+      'image'=> TkPhotoImage.new('dat' => D_STEP_INTO_GIF),
+      'relief'=>_relief
+    )
+    @debug_button_box.add(
+      'name'=>'debug_out',
+      'background' => 'white',
+      'anchor' => 'nw',
+      'helptext'=>'step out',
+      'command'=>proc{self.debug_send(:step_out)},
+      'image'=> TkPhotoImage.new('dat' => D_STEP_OUT_GIF),
+      'relief'=>_relief
+    )
+    @debug_button_box.add(
+      'name'=>'debug_resume',
+      'background' => 'white',
+      'anchor' => 'nw',
+      'helptext'=>'resume',
+      'image'=> TkPhotoImage.new('dat' => D_RESUME_GIF),
+      'command'=>proc{self.debug_send(:resume)},
+      'relief'=>_relief
+    )
+
+    @debug_button_box.add(
+      'name'=>'debug_quit',
+      'background' => 'white',
+      'anchor' => 'nw',
+      'helptext'=>'quit',
+      'image'=> TkPhotoImage.new('dat' => D_QUIT_GIF),
+      'command'=>proc{self.debug_send(:quit)},
+      'relief'=>_relief
+    )
+    
+#    @debug_button_box.bind_append("KeyPress"){|e|
+#       case e.keysym
+#         when 'F5'
+#           self.debug_send(:step_over)  
+#       end
+#
+#    }
+  end  
+  
+  def build_ui
+    _y = 22
+    @debug_button_box = Tk::BWidget::ButtonBox.new(@frame){
+      homogeneous true
+      state 'disabled'
+      background Arcadia.conf('panel.background')
+    }.place('height'=> _y)
+    
+    @debug_frame = TkFrame.new(@frame, Arcadia.style('panel')){ 
+        border  2
+        place(
+          'y'=>_y,
+          'height'=> -_y,
+          'relheight'=> 1,
+          'relwidth'=> 1
+        )
+    }
+    
+    self.build_buttons_set
+    
+    sf = AGTkOSplittedFrames.new(@debug_frame,70)
+
+    #-------------------------------------------------
+    build_process_panel(sf.top_frame)
+    #-------------------------------------------------
+
+    @enb = Tk::BWidget::NoteBook.new(sf.bottom_frame, Arcadia.style('tabpanel')){
+      tabbevelsize 0
+      internalborderwidth 2
+      place('relwidth' => 1,'relheight' => '1')
+    }
+    _tab_var = @enb.insert('end', 'vars' ,
+      'text'=> 'Variables',
+      'raisecmd'=>proc{}
+    )
+#    _tab_breakpoint = @enb.insert('end', 'Breakpoint' ,
+#      'text'=> 'Breakpoints',
+#      'raisecmd'=>proc{}
+#    )
+
+#    _tab_catchpoint = @enb.insert('end', 'catchpoint' ,
+#      'text'=> 'catchpoint',
+#      'raisecmd'=>proc{}
+#    )
+    
+    build_var_panel(_tab_var)
+    #build_break_panel(_tab_breakpoint)
+    @stack_nodes = Array.new
+    @enb.raise('vars')
+
+  end
+
+  def build_process_panel(_frame)
+    @tree_process = Tk::BWidget::Tree.new(_frame, Arcadia.style('treepanel')){
+      showlines false
+      deltay 15
+      place('relwidth' => 1,'relheight' => '1')
+    }
+    @tree_process.textbind("Double-ButtonPress-1", proc{
+      _selected = @tree_process.selection_get[0]
+      if @tree_process.parent(_selected)=='client'
+        _text = @tree_process.itemcget(_selected, 'text')
+        pos = match_position_from_stack(_text)
+        if pos.length >0 
+    	     Arcadia.process_event(OpenBufferEvent.new(self,'file'=>pos[0], 'row'=>pos[1]))
+          #EditorContract.instance.open_file(self, 'file'=>pos[0], 'line'=>pos[1])
+        end
+      end
+    })
+
+  end
+
+  def start_process(_filename)
+    @tree_process.insert('end', 'root' ,'server', {
+      'text' =>  "Server => #{File.basename(_filename)} at #{@controller.conf('server.host')}:#{@controller.conf('server.port')}"
+    }.update(Arcadia.style('treeitem')))
+    @tree_process.insert('end', 'server' ,'client', {
+      'text' =>  "Client"
+    }.update(Arcadia.style('treeitem')))
+    @tree_process.open_tree('server',true)
+  end
+
+  def tree_var_free
+    @tree_var.delete(@tree_var.nodes('local_var'))
+    @tree_var.delete(@tree_var.nodes('instance_var'))
+    @tree_var.delete(@tree_var.nodes('global_var'))
+    @tree_var.delete(@tree_var.nodes('class_var'))
+    @tree_var.delete(@tree_var.nodes('eval')) if @tree_var.exist?('eval')
+  end
+
+  def tree_process_free
+    @tree_process.delete(@tree_process.nodes('root'))
+  end
+
+  def bnext_state(_state)
+    if _state == B_STATE_ON
+      return B_STATE_FREEZE
+    elsif _state == B_STATE_FREEZE
+      return B_STATE_OFF
+    elsif _state == B_STATE_OFF
+      return B_STATE_ON
+    end   
+  end
+
+  def build_var_panel(_frame)
+    _open_proc = proc do |_arg|
+        inspect_node(_arg) if @nodes_to_open.include?(_arg)
+    end
+        
+    @tree_var = Tk::BWidget::Tree.new(_frame, Arcadia.style('treepanel')){
+      showlines true
+      deltay 15
+      opencmd _open_proc
+    }.place('relwidth' => 1,'relheight' => '1','bordermode' => 'inside')
+
+    _scrollcommand = proc{|*args| @tree_var.yview(*args)}
+    _scrollbar = TkScrollbar.new(_frame, Arcadia.style('scrollbar')){|s|
+      width 8
+      command _scrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @tree_var.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+
+    @tree_var.textbind("Double-ButtonPress-1", proc{
+      _selected = @tree_var.selection_get[0]
+      _msg = @tree_var.itemcget(_selected, 'text')
+      Arcadia.dialog(self, 'type'=>'ok','title' => 'Value', 'msg' => _msg, 'level'=>'info')
+    })
+  
+    
+    @local_state = B_STATE_ON
+    @instance_state = B_STATE_ON
+    @class_state = B_STATE_ON
+    @global_state = B_STATE_OFF
+    
+    _i_on = TkPhotoImage.new('dat' => ON_GIF)
+    _i_off = TkPhotoImage.new('dat' => OFF_GIF)
+    _i_freeze = TkPhotoImage.new('dat' => FREEZE_GIF)
+
+    _b_relief = 'groove'
+    #------------------ loacal variables -------------------
+    _loc_var_text = "Local variables"
+    @b_local_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
+        image  _i_on
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @local_state = bnext_state(@local_state)
+      if @local_state == B_STATE_ON
+        @tree_var.itemconfigure('local_var',
+          'text'=>"#{_loc_var_text}",
+          'helptext'=>""
+        )
+        @b_local_onoff.image(_i_on)
+        command_enabled(false)
+        Thread.new{
+          update_variables('local_var', @controller.rdc.variables('local_variables')) #if @tree_var.open?('local_var')
+          command_enabled(true)
+        }
+      elsif @local_state == B_STATE_FREEZE
+        @b_local_onoff.image(_i_freeze)
+        @tree_var.itemconfigure('local_var',
+          'text'=>"#{_loc_var_text} freeze at #{@last_position_string}",
+          'helptext'=>"#{_loc_var_text} freeze at #{@last_position_string}"
+        )
+      elsif @local_state == B_STATE_OFF
+        @b_local_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('local_var'))
+        @tree_var.itemconfigure('local_var',
+          'text'=>"#{_loc_var_text}",
+          'helptext'=>""
+        )
+      end
+    })
+
+    @tree_var.insert('end', 'root' ,'local_var', Arcadia.style('treeitem').update({
+      'fill'=>Arcadia.conf('hightlight.8.foreground'),
+      'open'=>true,
+      'anchor'=>'w',
+      'text' =>  _loc_var_text,
+      'window' => @b_local_onoff
+    }))
+
+    #------------------ instance variables -------------------
+    _instance_var_text="Instance variables"
+    @b_instance_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
+        image  _i_on
+        #relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @instance_state = bnext_state(@instance_state)
+      if @instance_state == B_STATE_ON
+        @tree_var.itemconfigure('instance_var',
+          'text'=>"#{_instance_var_text}",
+          'helptext'=>""
+        )
+        @b_instance_onoff.image(_i_on)
+        command_enabled(false)
+        Thread.new{
+          update_variables('instance_var', @controller.rdc.variables('instance_variables')) #if @tree_var.open?('local_var')
+          command_enabled(true)
+        }
+      elsif @instance_state == B_STATE_FREEZE
+        @b_instance_onoff.image(_i_freeze)
+        @tree_var.itemconfigure('instance_var',
+          'text'=>"#{_instance_var_text} freeze at #{@last_position_string}",
+          'helptext'=>"#{_instance_var_text} freeze at #{@last_position_string}"
+        )
+      elsif @instance_state == B_STATE_OFF
+        @b_instance_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('instance_var'))
+        @tree_var.itemconfigure('instance_var',
+          'text'=>"#{_instance_var_text}",
+          'helptext'=>""
+        )
+      end
+    })
+    @tree_var.insert('end', 'root' ,'instance_var', Arcadia.style('treeitem').update({
+      'fill'=>Arcadia.conf('hightlight.9.foreground'),
+      'open'=>true,
+      'anchor'=>'w',
+      'text' =>  _instance_var_text,
+      'window' => @b_instance_onoff
+    }))
+
+    #------------------ class variables -------------------
+    _class_var_text="Class variables"
+    @b_class_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
+        image  _i_on
+        #relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @class_state = bnext_state(@class_state)
+      if @class_state == B_STATE_ON
+        @tree_var.itemconfigure('class_var',
+          'text'=>"#{_class_var_text}",
+          'helptext'=>""
+        )
+        @b_class_onoff.image(_i_on)
+        command_enabled(false)
+        Thread.new{
+          update_variables('class_var', @controller.rdc.variables('self.class.class_variables')) #if @tree_var.open?('local_var')
+          command_enabled(true)
+        }
+      elsif @class_state == B_STATE_FREEZE
+        @b_class_onoff.image(_i_freeze)
+        @tree_var.itemconfigure('class_var',
+          'text'=>"#{_class_var_text} freeze at #{@last_position_string}",
+          'helptext'=>"#{_class_var_text} freeze at #{@last_position_string}"
+        )
+      elsif @class_state == B_STATE_OFF
+        @b_class_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('class_var'))
+        @tree_var.itemconfigure('class_var',
+          'text'=>"#{_class_var_text}",
+          'helptext'=>""
+        )
+      end
+    })
+    @tree_var.insert('end', 'root' ,'class_var', Arcadia.style('treeitem').update({
+      'fill'=>Arcadia.conf('hightlight.10.foreground'),
+      'open'=>true,
+      'anchor'=>'w',
+      'text' =>  _class_var_text,
+      'window' => @b_class_onoff
+    }))
+
+
+    #------------------ global variables -------------------
+    _global_var_text="Global variables"
+    @b_global_onoff = TkButton.new(@tree_var, Arcadia.style('button')){
+        image  _i_off
+        #relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @global_state = bnext_state(@global_state)
+      if @global_state == B_STATE_ON
+        @tree_var.itemconfigure('global_var',
+          'text'=>"#{_global_var_text}",
+          'helptext'=>""
+        )
+        @b_global_onoff.image(_i_on)
+        command_enabled(false)
+        Thread.new{
+          update_variables('global_var', @controller.rdc.variables('global_variables')) #if @tree_var.open?('local_var')
+          command_enabled(true)
+        }
+      elsif @global_state == B_STATE_FREEZE
+        @b_global_onoff.image(_i_freeze)
+        @tree_var.itemconfigure('global_var',
+          'text'=>"#{_global_var_text} freeze at #{@last_position_string}",
+          'helptext'=>"#{_global_var_text} freeze at #{@last_position_string}"
+        )
+      elsif @global_state == B_STATE_OFF
+        @b_global_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('global_var'))
+        @tree_var.itemconfigure('global_var',
+          'text'=>"#{_global_var_text}",
+          'helptext'=>""
+        )
+      end
+    })
+    @tree_var.insert('end', 'root' ,'global_var', Arcadia.style('treeitem').update({
+      'fill'=>Arcadia.conf('hightlight.11.foreground'),
+      'open'=>true,
+      'anchor'=>'w',
+      'text' =>  _global_var_text,
+      'window' => @b_global_onoff
+    }))
+  end
+
+#  def build_break_panel(_tab_breakpoint)
+#    @tree_break = Tk::BWidget::Tree.new(_tab_breakpoint, Arcadia.style('treepanel')){
+#      showlines true
+#      deltay 15
+#    }.place('relwidth' => 1,'relheight' => '1')
+#  end
+  
+  def file2node_name(_file)
+    _s = ""
+    _file.gsub("/",_s).gsub(".",_s).gsub(":",_s).gsub("\\",_s).gsub("-",_s)
+  end
+  
+  def line2node_name(_parent, _line)
+    "#{_parent}_#{_line.to_s}"
+  end
+  
+#  def break_list_add(_file, _line)
+#    _file_node = file2node_name(_file) 
+#    _line_node = line2node_name(_file_node, _line)
+#    if !@tree_break.exist?(_file_node)
+#      @tree_break.insert('end', 'root' ,_file_node, {
+#        'open'=>true,
+#        'anchor'=>'w',
+#        'text' =>  _file
+#      }.update(Arcadia.style('treeitem')))
+#    end
+#    
+#    if !@tree_break.exist?(_line_node)
+#      @tree_break.insert('end', _file_node ,_line_node, {
+#        'open'=>true,
+#        'anchor'=>'w',
+#        'text' =>  "line: #{_line}"
+#      }.update(Arcadia.style('treeitem')))
+#    end
+#  end
+
+#  def break_list_del(_file, _line)
+#    _file_node = file2node_name(_file) 
+#    _line_node = line2node_name(_file_node, _line)
+#    if @tree_break.exist?(_line_node)
+#      @tree_break.delete(_line_node) 
+#      _bro = @tree_break.nodes(_file_node)
+#      if _bro && _bro.length > 0 
+#        @tree_break.delete(_file_node) 
+#      end
+#    end
+#  end
+
+#  def break_list_select(_file, _line)
+#    _file_node = file2node_name(_file) 
+#    _line_node = line2node_name(_file_node, _line)
+#    @tree_break.selection_clear
+#    if @tree_break.exist?(_line_node)
+#      @tree_break.selection_add(_line_node)
+#      @tree_break.see(_line_node)
+#    end
+#  end
+
+  
+#  def break_list_free
+#    @tree_break.delete(@tree_break.nodes('root'))
+#  end
+  
+  def clear
+    tree_var_free
+    tree_process_free
+    #break_list_free
+  end
+
+  
+  def rdebug_client_update(_command, _result)
+    #Arcadia.console(self,'msg'=>"on command #{_command} => #{_result}", 'level'=>'debug')
+    return if @controller.rdc.nil? || !@controller.rdc.is_debugging_ready? || !@controller.rds.is_alive?
+    begin
+      if _command == 'quit'
+        msg = "Really quit debug ? (y/n)"
+        ans = Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+        'title' => '(Arcadia) Debug', 'message' => msg)
+        if  ans == 'yes'
+          debug_send(:quit_yes)
+          clear
+        else
+          debug_send(:quit_no)
+        end
+      elsif _command == 'quit_yes'
+          clear
+      elsif  _command == 'quit_no'
+        command_enabled(true)
+      elsif _command == 'cont' && !_result.downcase.include?('breakpoint')
+        @controller.rdc.kill
+        clear
+      elsif _command != 'where' && _command != 'quit_yes'  
+        begin
+          update_position
+          update_variables('local_var', @controller.rdc.variables('local_variables')) if @local_state == B_STATE_ON
+          update_variables('instance_var', @controller.rdc.variables('instance_variables')) if @instance_state == B_STATE_ON
+          update_variables('class_var', @controller.rdc.variables('self.class.class_variables')) if @class_state == B_STATE_ON
+          #Arcadia.new_debug_msg(self,"on command #{_command}:global_variables")
+          update_variables('global_var', @controller.rdc.variables('global_variables')) if @global_state == B_STATE_ON
+        ensure
+          command_enabled(true) if !@controller.rdc.nil? && @controller.rdc.is_debugging_ready? && (!_command.include?('quit') || _command.include?('quit_no')) 
+        end
+      end
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"on command #{_command}:#{e.inspect}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"on command #{_command}:#{e.inspect}")
+    end
+  end
+
+  def match_position_from_stack(_line)
+    #Arcadia.new_error_msg(self, "match on #{_line}")
+    ret = Array.new
+    matchline = _line.match(/#*([0-9]*)[\s\w\W]*\s(.*):([0-9]*)(.*)/)
+    if !matchline.nil? && matchline.length==5
+      #Arcadia.new_error_msg(self, "matchline[2]=#{matchline[2]}")
+      #Arcadia.new_error_msg(self, "matchline[3]=#{matchline[3]}")
+      filename = matchline[2].to_s.strip
+      line_no = matchline[3].to_i 
+      if filename && line_no
+        ret << filename << line_no
+      end
+    end
+    ret
+  end
+  
+  def update_position
+    stack = @controller.rdc.where
+    #Arcadia.new_debug_msg(self,stack)
+    if !stack.nil?
+      stack = stack.split(/\n/)
+      line_no = -1
+      if stack.length > 1 && stack[1].strip[0..0]!='#'
+        pos = match_position_from_stack(stack[1].strip)
+      elsif !stack[0].nil?
+        pos = match_position_from_stack(stack[0])
+      end
+      if pos.length > 0
+        _file = pos[0]
+        #p "_file=#{_file}"
+        _file = File.expand_path(pos[0]) if !File.exist?(_file)
+        Arcadia.broadcast_event(DebugStepInfoEvent.new(self,'file'=> _file, 'row'=>pos[1]))
+        #DebugContract.instance.debug_step(self, 'file'=> _file, 'line'=>pos[1])
+        #break_list_select(_file, pos[1].to_s)
+        @last_position_string = "#{pos[0]}:#{pos[1]}"
+      end
+      i = 0
+      @tree_process.delete(@stack_nodes)
+      stack.each do |line| 
+        _node = "c#{i.to_s}"
+        @tree_process.insert('end', 'client' ,_node, {
+          'text' =>  line,
+          'helptext' => line
+        }.update(Arcadia.style('treeitem')))
+        #Arcadia.console(self, 'msg'=>"inserted line #{line}")
+        @stack_nodes << _node
+        i = i+1
+      end
+    end
+  end
+
+  def is_simple_class?(_var)
+    ['Numeric','Fixnum','String','FalseClass','TrueClass','NilClass'].include?(_var.value_class) && !_var.value.to_s.strip.include?("\n")
+  end
+  
+  def show_expression(_exp, _hash)
+    if !@tree_var.exist?('eval')
+      @tree_var.insert('end', 'root' ,'eval', Arcadia.style('treeitem').update({
+        'fill'=>Arcadia.conf('hightlight.13.foreground'),
+        'open'=>true,
+        'anchor'=>'w',
+        'text' =>  "Eval selection"
+      }))
+    end
+    update_variables('eval', _hash)
+  end
+  
+  def inspect_node(_node)
+    command_enabled(false)
+    begin
+      _var = var_name(_node)
+      _o = @controller.rdc.debug_dump(_var)
+      if _o.class == Hash
+        var_deep(_node, _o)
+      else 
+        var_deep_string(_node, _o)
+      end
+    ensure
+      command_enabled(true)
+    end
+  end
+  
+  def var_deep(_var, _hash)
+#    _var_cla = _hash['__CLASS__']
+#    _var_len = _hash['__LENGTH__']
+#    @tree_var.itemconfigure(_var, 'text' =>  "#{_var_cla}:#{_var_len}")
+    return nil if _hash.nil? 
+    return _hash.to_s if _hash.class != Hash
+    if _hash['__CLASS__']=='Array'
+     _sorted_keys = _hash.keys.collect!{|x| x.to_i}.sort.collect!{|x| x.to_s}
+    else
+     _sorted_keys = _hash.keys.sort
+    end
+    _sorted_keys.each{|k|
+    #_hash.keys.sort.each{|k|
+      v = _hash[k]
+      next if k=='__CLASS__'
+      _complex = v.class == Hash
+      if _complex
+        _text = var_format(k,v['__CLASS__'])
+      elsif (k=='__LENGTH__') && v=='0'
+        _text = '{}'
+      elsif (k=='__LENGTH__') && v!='0'
+        next
+      elsif _hash['__CLASS__']=='Array'
+        _text = var_format(k.rjust(_hash['__LENGTH__'].length),nil,v,false)
+      else
+        _text = var_format(k,nil,v)
+      end
+      _node = node_name(k, _var)
+      if @tree_var.exist?(_node)
+        @tree_var.itemconfigure(_node, 'text' =>  _text)
+      else
+        @tree_var.insert('end', _var ,_node, Arcadia.style('treeitem').update({
+          'text' =>  _text,
+          'helptext' => v,
+          'anchor'=>'w'
+        }))
+      end
+      var_deep(_node,v) if _complex
+    }
+  end
+
+  def var_deep_string(_var, _str)
+    @tree_var.delete(@tree_var.nodes(_var))
+    return nil if _str.nil? 
+    _str = _str.to_s if !_str.kind_of?(String)
+    a_str = _str.split("\n")
+    a_str.each_with_index{|v,i|
+      _node = node_name(i.to_s, _var)
+      @tree_var.insert('end', _var ,_node, Arcadia.style('treeitem').update({
+        'text' =>  v,
+        'fill' => Arcadia.conf('hightlight.12.foreground'),
+        'anchor'=>'w'
+      }))
+    }
+  end
+
+  
+  def var_format(_name, _class, _value=nil, _strip_name=true)
+    if _strip_name
+      _name = _name.to_s.strip
+    else
+      _name = _name.to_s
+    end
+    if !_value.nil? && !_class.nil?
+      return "#{_name} => #{_value.to_s.strip} [#{_class.to_s.strip}]"
+    elsif _value.nil? && !_class.nil?
+      return "#{_name} [#{_class.to_s.strip}]"
+    elsif !_value.nil? && _class.nil?
+      return "#{_name} => #{_value.to_s.strip}"
+    elsif _value.nil? && _class.nil?
+      return "#{_name} => {}"
+    end
+  end
+  
+  def node_name(_node, _parent)
+    return "#{_parent}@@@#{_node.gsub('$','__S__').gsub('&','__E__').gsub(':','__D__').gsub('!','__A__')}" 
+  end
+
+  def var_name(_node)
+    #_parent = @tree_var.parent(_node)
+    #return _node.sub("#{_parent}_", '') 
+    return _node.split('@@@')[-1].gsub('__S__','$').gsub('__E__','&').gsub('__D__',':').gsub('__A__','!')
+  end
+  
+  def command_enabled(_value)
+    #Arcadia.new_debug_msg(self,"command_enabled= #{_value.to_s}")
+    @c_on = _value
+    _value ? _state = 'normal':_state = 'disabled'
+    @debug_button_box.configure(:state=>_state) 
+    @b_local_onoff.configure(:state=>_state) 
+    @b_instance_onoff.configure(:state=>_state) 
+    @b_class_onoff.configure(:state=>_state) 
+    @b_global_onoff.configure(:state=>_state) 
+    Tk.update
+  end
+
+  def update_variables(_parent_node, _var)
+    #Arcadia.console(self, 'msg'=>"---update_variables =>#{_var} figlio di #{_parent_node}")
+    if _var.keys.sort == @tree_var.nodes(_parent_node).collect! {|x| var_name(x).to_s}.sort
+      _var.each{|k,v|
+        #Arcadia.console(self, 'msg'=>"node_name of #{k}")
+        _n = node_name(k, _parent_node)
+        if is_simple_class?(v)
+          _text = var_format(k,v.value_class,v.value)
+          _drawcross = 'auto'
+        else
+          _text = var_format(k,v.value_class)
+          _drawcross = 'always'
+          @nodes_to_open << _n if !@nodes_to_open.include?(_n)
+          inspect_node(_n) if bool(@tree_var.itemcget(@tree_var.tagid(_n), 'open'))
+        end
+        #Arcadia.console(self, 'msg'=>"_n=#{_n} text=#{_text}")
+        _node = @tree_var.itemconfigure(_n, 
+          'text' =>  _text, 
+          'helptext' => v.value,
+          'drawcross' => _drawcross
+        )
+      }          
+    else 
+      @nodes_to_open.clear
+      @tree_var.delete(@tree_var.nodes(_parent_node))
+      #@nodes[_parent_node].clear
+      _var.keys.sort.each{|k|
+          v = _var[k]
+          _n = node_name(k, _parent_node)
+          if is_simple_class?(v)
+            _text = var_format(k,v.value_class,v.value)
+            _drawcross = 'auto'
+          else
+            _text = var_format(k,v.value_class)
+            _drawcross = 'always'
+            @nodes_to_open << _n
+          end
+          @tree_var.insert('end', _parent_node ,_n, Arcadia.style('treeitem').update({
+            'text' =>  _text,
+            'helptext' => v.value,
+            'drawcross' => _drawcross,
+            'anchor'=>'w'
+          }))
+      }
+    end
+    Tk.update
+  end
+
+  def debug_send(_command)
+    if @controller.rdc
+      begin
+        command_enabled(false)
+        #@debug_button_box.configure(:state=>'disabled')
+        Thread.new do
+          Arcadia.process_event(StepDebugEvent.new(self, 'command'=>_command))
+          #@controller.rdc.send(_command)
+        end
+        #@controller.rdc.send(_command)
+      rescue Exception => e
+        Arcadia.console(self, 'msg'=>"---> "+e.to_s, 'level'=>'debug')
+        #Arcadia.new_debug_msg(self,"---> "+e.to_s)
+      end
+    end
+  end
+end
+
+class RubyDebugException < Exception
+end
+
+class RubyDebugServer
+  include Observable
+  attr_accessor :quit_confirm_request
+  RDS_QUIET = 'RDS_QUIET'
+  def initialize(_caller, _arcadia=nil)
+    if _caller.respond_to? :rdebug_server_update
+      ObserverCallback.new(self,_caller,:rdebug_server_update)
+    end
+    @arcadia = _arcadia
+    @quit_confirm_request = false
+    @alive = false
+  end
+
+  def start_session_new(_filename, _host='localhost', _remote_port='8989')
+    if is_windows?
+       commandLine = "rdebug.cmd --host #{_host} --port #{_remote_port} -sw #{_filename}"
+    else
+       commandLine = "rdebug --host #{_host} --port #{_remote_port} -sw #{_filename}"
+    end
+    Arcadia.process_event(SystemExecEvent.new(self, 'command'=>commandLine))
+  end
+  
+  def is_alive?
+    @alive
+  end
+  
+  def set_alive(_value=false)
+    @alive = _value
+  end
+  
+  def start_session(_filename, _host='localhost', _remote_port='8989')
+    if is_windows?
+      commandLine = "rdebug.cmd --port #{_remote_port} -sw #{_filename}"
+    else
+      commandLine = "rdebug --host #{_host} --port #{_remote_port} -sw #{_filename}"
+    end
+    begin
+      @alive = true
+      if is_windows?
+        @tid = Thread.new do
+          if Kernel.system(commandLine)
+              Kernel.system('y')
+          else
+            if @quit_confirm_request
+              Arcadia.console(self, 'msg'=>"#{$?.inspect}")
+              #Arcadia.new_msg(self,"#{$?.inspect}")    
+            else
+              _event = Arcadia.process_event(RunRubyFileEvent.new(self, 'file'=>_filename))
+              Arcadia.console(self, 'msg'=>"#{_event.results[0].output}", 'level'=>'debug')
+              #Arcadia.new_debug_msg(self,"#{_event.results[0].output}")    
+            end
+          end
+          set_alive(false)
+          notify(RDS_QUIET)
+        end
+      else
+        @pid = Process.fork do
+          if Kernel.system(commandLine)
+            set_alive(false)
+            #p "alive=#{is_alive?}"
+            notify(RDS_QUIET)
+            Kernel.system('y')
+            Kernel.exit!
+          else
+            Kernel.exit!
+            Arcadia.console(self, 'msg'=>"#{$?.inspect}", 'level'=>'debug')
+            #Arcadia.new_debug_msg(self,"#{$?.inspect}")    
+          end
+          #p "@alive=#{@alive}"
+          #notify(RDS_QUIET)
+          #Process.wait
+        end
+      end
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on start_server : #{e.class}:#{e.message}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Error on start_server : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def kill
+    begin
+      if is_windows?
+        @tid.join(2)
+        @tid.kill!
+      else
+        Process.kill('QUIT',@pid)
+      end
+      notify(RDS_QUIET)
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on kill : #{e.class}:#{e.message}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Error on start_server : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def is_windows?
+    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
+  end
+
+  def notify(_state)
+     #p "----- notify ----- #{_state}"
+     changed
+     notify_observers(_state)
+  end
+  
+end
+
+#Ruby-debug commands
+
+#    * b[reak]
+#      list breakpoints
+#    * b[reak] [file|class:]LINE|METHOD [if expr]
+#    * b[reak] [class.]LINE|METHOD [if expr]
+#      set breakpoint to some position, optionally if expr == true
+#    * cat[ch]
+#      show catchpoint
+#    * cat[ch] EXCEPTION
+#      set catchpoint to an exception
+#    * disp[lay] EXPRESSION add expression into display expression list
+#    * undisp[lay][ nnn]
+#      delete one particular or all display expressions if no expression number given
+#    * del[ete][ nnn]
+#      delete some or all breakpoints (get the number using “break”)
+#    * c[ont]
+#      run until program ends or hit breakpoint
+#    * r[un]
+#      alias for cont
+#    * s[tep][ nnn]
+#      step (into methods) one line or till line nnn
+#    * n[ext][ nnn]
+#      go over one line or till line nnn
+#    * w[here]
+#      displays stack
+#    * f[rame]
+#      alias for where
+#    * l[ist][ (-|nn-mm)]
+#      list program, - list backwards, nn-mm list given lines. No arguments keeps listing
+#    * up[ nn]
+#      move to higher frame
+#    * down[ nn]
+#      move to lower frame
+#    * fin[ish]
+#      return to outer frame
+#    * q[uit]
+#      exit from debugger
+#    * v[ar] g[lobal]
+#      show global variables
+#    * v[ar] l[ocal]
+#      show local variables
+#    * v[ar] i[nstance] OBJECT
+#      show instance variables of object
+#    * v[ar] c[onst] OBJECT
+#      show constants of object
+#    * m[ethod] i[nstance] OBJECT
+#      show methods of object
+#    * m[ethod] CLASS|MODULE
+#      show instance methods of class or module
+#    * th[read] l[ist]
+#      list all threads
+#    * th[read] c[ur[rent]]
+#      show current thread
+#    * th[read] [sw[itch]] nnn
+#      switch thread context to nnn
+#    * th[read] stop nnn
+#      stop thread nnn
+#    * th[read] resume nnn
+#      resume thread nnn
+#    * p EXPRESSION
+#      evaluate expression and print its value
+#    * pp EXPRESSSION
+#      evaluate expression and print its value
+#    * h[elp]
+#      print this help
+#    * RETURN KEY
+#      redo previous command. Convenient when using list, step, next, up, down,
+#    * EVERYHTING ELSE
+#      evaluate
+
+
+class RubyDebugClient
+  require 'socket'
+  require 'yaml'
+  include Observable
+  Var = Struct.new("Var",
+    :value,
+    :value_class
+  )
+  
+  def initialize(_controller, _server='localhost', _port=8989, _timeout=0)
+    @controller = _controller
+    @session = nil
+    @server = _server
+    @port = _port
+    @timeout = _timeout.to_i
+    @busy = false
+    @pend = false
+  end
+  
+  def add_listener(_caller, _method=:rdebug_client_update)
+    if _caller.respond_to? :rdebug_client_update
+      ObserverCallback.new(self,_caller,:rdebug_client_update)
+    end
+  end
+  
+  def notify(_command, _result=nil)
+   #Arcadia.new_debug_msg(self,"notify=>#{_command}")    
+    @busy = false
+    changed
+    notify_observers(_command, _result)
+    _result
+  end
+
+  def is_debugging_ready?
+    is_alive? && !is_busy?
+  end
+  
+  def is_busy?
+    @busy
+  end
+
+  def is_alive?
+    #p "===>@session=#{@session}" 
+    #p "===>@session.closed?=#{@session.closed?}" if @session
+    #p "===>@pend=#{@pend}"
+    !(@session.nil? || @session.closed? || @pend)
+    #(!@session.nil? && !@session.closed? && !@pend)
+  end
+
+  def socket_session
+      #p "====>socket_session"
+      #Arcadia.new_debug_msg(self,"socket_session : passo")    
+      if @session.nil? && @controller.rds.is_alive?
+        begin
+          #sleep(2)
+          @session = TCPSocket.new(@server, @port)
+          @pend = false
+        rescue Errno::ECONNREFUSED,Errno::EBADF => e
+          sleep(1)
+          @t = @t -1
+          if @t > 0
+            socket_session
+          else
+            Arcadia.console(self, 'msg'=>"socket_session : #{e.inspect}", 'level'=>'debug')
+            #Arcadia.new_debug_msg(self,"socket_session : #{e.inspect}")    
+          end
+        rescue Exception => e
+          @session = nil
+          Arcadia.console(self, 'msg'=>"Error on socket_session : #{e.class}:#{e.message}", 'level'=>'debug')
+          #Arcadia.new_debug_msg(self,"Error on socket_session : #{e.class}:#{e.message}")    
+        end
+      elsif !@controller.rds.is_alive?
+        @session = nil
+      end
+      #Arcadia.new_debug_msg(self,"session : #{@session.inspect}")    
+      #p "@session=>#{@session}"
+      return @session 
+  end
+  
+  def kill 
+    begin
+      @session.close if is_alive?
+      @session=nil
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on close session : #{e.class}:#{e.message}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Error on close session : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def start_session
+    begin
+      #p "======>start session"
+      @t = @timeout 
+      if socket_session
+        #Arcadia.new_debug_msg(self,"session : #{@session.inspect}")    
+        notify('start', read)
+        read("eval require 'yaml'")
+      end
+      return @session
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on start_session : #{e.class}:#{e.message}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Error on start_session : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def stop_session
+    begin
+      quit if is_debugging_ready?
+      @session.close if is_alive?
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on stop_session : #{e.class}:#{e.inspect}", 'level'=>'debug')    
+      #Arcadia.new_debug_msg(self,"Error on stop_session : #{e.class}:#{e.inspect}")    
+    end
+  end
+  
+  # send a command to the debugger via socket
+  def command(_command)
+   #Arcadia.new_debug_msg(self,"command=>#{_command}")    
+    begin
+      return false if @busy 
+      if is_alive?
+        @busy = true
+        @session.puts(_command) if socket_session
+      else
+        start_session if !@pend
+      end
+      #_command !="cont"
+      true 
+    rescue Errno::ECONNABORTED => e
+      notify("quit_yes")
+      #DebugContract.instance.debug_end(self)
+      Arcadia.console(self, 'msg'=>"Debugger has finished executing:\n #{e.class}:#{e.inspect}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Debugger has finished executing:\n #{e.class}:#{e.inspect}")      
+      @session = nil
+      @pend = true
+      false
+      #raise RubyDebugException.new("Debugged has finished executing")
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"Error on command #{_command}: #{e.class}:#{e.inspect}", 'level'=>'debug')
+      #Arcadia.new_debug_msg(self,"Error on command #{_command}: #{e.class}:#{e.inspect}")
+      false
+    end
+  end
+  private :command
+
+  def read(_command=nil)
+    return nil if _command && !command(_command) 
+    result = ""
+    if socket_session
+      @session.flush
+      while _command !='y' && is_alive? && line = @session.gets
+        break if line =~ /^PROMPT (.*)$/ || line =~ /.(y\/n)./ 
+        result << line
+        #break if _command =~ /^eval./
+      end
+      #Arcadia.new_debug_msg(self, "read: letta per '#{_command}' result => #{result}")
+    end
+    @busy = false
+    result
+  
+  rescue Errno::ECONNABORTED
+    raise RubyDebugException.new("Debugged has finished executing")
+  rescue Errno::ECONNRESET
+    raise RubyDebugException.new("Debugged has finished executing")
+  rescue Exception => e
+    raise RubyDebugException.new("Error: on command '#{_command}' => #{e.class} : #{e.inspect}")
+  end
+  private :read
+
+
+  def step_over
+    notify("next", read("next"))
+  end
+
+  def step_into
+    notify("step", read("step"))
+  end
+
+  def step_out
+    notify("fin", read("fin"))
+  end
+
+  def resume
+    notify("cont", read("cont"))
+  end
+
+  def where
+    notify("where", read("where"))
+  end
+
+  def quit
+    notify("quit", read("q"))
+  end
+
+  def quit_yes
+    notify("quit_yes", read("y"))
+    #DebugContract.instance.debug_end(self)
+    kill
+  end
+
+  def quit_no
+    notify("quit_no", read("n"))
+  end
+
+  # return the current stack trace
+  def stacktrace
+    notify("backtrace", read("backtrace"))
+  end
+  
+
+  def yaml_pseudo_load(_obj)
+    just_present =  @valuobjs.include?(_obj)
+    @valuobjs << _obj  
+    if _obj.class == YAML::DomainType
+      return _obj.type_id if just_present
+      ret = Hash.new
+      ret['__CLASS__']=_obj.type_id
+      l = _obj.value.length  
+      ret['__LENGTH__']= l.to_s
+      if l > 0 
+          _obj.value.each{|k,v|
+              ret["@#{k}"]=yaml_pseudo_load(v)
+          }
+      end
+      ret
+    elsif _obj.class == Hash
+    #Arcadia.new_msg(self,"_obj Hash="+_obj.inspect)
+      return 'Hash' if just_present
+      ret = Hash.new
+      ret['__CLASS__']= 'Hash'
+      l = _obj.length  
+      ret['__LENGTH__']= l.to_s
+      if l > 0 
+        _obj.each{|k,v|
+            ret[k]=yaml_pseudo_load(v)
+        }
+      end
+      ret
+    elsif _obj.class == Array
+    #Arcadia.new_msg(self,"_obj Array="+_obj.inspect)
+      return 'Array' if just_present
+      ret = Hash.new
+      ret['__CLASS__']= 'Array'
+      l = _obj.length  
+      ret['__LENGTH__']= l.to_s
+      if l > 0 
+        _obj.each_with_index{|v,i|
+          ret[i.to_s]=yaml_pseudo_load(v)
+        }
+      end
+      ret
+    elsif _obj.class == Struct
+    #Arcadia.new_msg(self,"_obj Array="+_obj.inspect)
+      return 'Struct' if just_present
+      ret = Hash.new
+      ret['__CLASS__']= 'Struct'
+      l = _obj.length  
+      ret['__LENGTH__']= l.to_s
+      if l > 0
+         
+        _obj.members.each{|m|
+          ret[m]=yaml_pseudo_load(_obj[m])
+        }
+      end
+      ret
+    else  
+    #Arcadia.new_msg(self,"_obj ="+_obj.inspect)
+    
+      _obj
+    end
+  
+  end
+
+  
+  def debug_dump(_exp)
+    var = nil
+    if @valuobjs.nil?
+      @valuobjs = Array.new 
+    else
+      @valuobjs.clear
+    end
+    begin
+      _to_eval = read("eval YAML::dump(#{_exp})")
+      if _to_eval.include?('Exception:')
+        _to_eval = read("eval require 'pp';eval #{_exp}.pretty_inspect")
+        var = eval(_to_eval)
+        #var = "?"
+      else
+        _str = eval(_to_eval)
+        _str.gsub!('!ruby/object:', '!')
+        _obj = YAML::load(_str)
+        var = yaml_pseudo_load(_obj)
+      end  
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>"exception on eval #{_exp} :#{e.inspect}")
+      #Arcadia.new_msg(self,"exception on eval #{_exp} :#{e.inspect}")
+      var = nil
+    end
+    return var
+  end
+
+
+  # returns the instance variables and there values
+  def instance_variables_new(_this='self')
+    command("eval #{_this}.instance_variables")
+    variables = []
+    begin
+      variables = eval(read)
+    rescue Exception
+      variables = []
+    end
+    @consider = Array.new
+    variable_values = Hash.new
+    variables.each do |var|
+       #next if var != '@objs'
+#      command("eval require 'pp';  #{var}.pretty_inspect() + '|||' + #{var}.class.to_s")
+      command("eval YAML::dump(#{var})")
+      _str = eval read
+      #Arcadia.new_msg(self,"value passato 1 ="+_str)
+
+      _str.gsub!('!ruby/object:', '!')
+
+      #Arcadia.new_msg(self,"value passato 2 ="+_str)
+
+      _obj = YAML::load(_str)
+      
+      _xvalue = yaml_pseudo_load(_obj)
+      if _xvalue.class == Hash
+        _xclass = _xvalue['__CLASS__']
+      else
+        _xclass = _xvalue.class.to_s
+      end
+      #_vvv = eval(_value)
+      
+      #Arcadia.new_msg(self,"vvv class="+_vvv.class.to_s)
+      
+      #Arcadia.new_msg(self,"value="+_xvalue.inspect)
+      #Arcadia.new_msg(self,"class="+_xclass)
+      variable_values[var] = Var.new(_xvalue, _xclass)
+    end
+    return variable_values
+  end
+
+  # returns the local variables and there values
+  def variables(_type)
+    begin
+      #variables = read[1..-2].split(', ').collect!{|x| x[1..-2]}
+      to_eval = read("eval #{_type}")
+      #Arcadia.new_msg(self,"to_eval="+to_eval.to_s)
+      variables = eval(to_eval)
+      #Arcadia.new_msg(self,"variables="+variables.to_s)
+    rescue Exception => e
+      variables = []
+      #p "on command eval #{_type}:#{e.inspect}"
+      #Arcadia.new_debug_msg(self,"on command eval #{_type}:#{e.inspect}")
+    end
+    variables = [] if variables.nil?
+    variable_values = Hash.new
+    variables.each do |var|
+      next if var=='$;'
+#      command("eval #{var}.to_s + '|||' + #{var}.class.to_s")
+#      _str = eval(read)
+#      _value, _class = _str.split('|||')
+#      variable_values[var] = Var.new(_value, _class)
+      variable_values[var] = debug_eval(var)
+    end
+    return variable_values
+  end
+
+  def debug_eval(_exp)
+    command("eval #{res=_exp}.to_s + '|||' + #{res}.class.to_s")
+    _str = eval(read)
+    _value, _class = _str.split('|||')
+    return Var.new(_value, _class)
+  end
+  
+  # returns the local variables and there values
+  def local_variables
+    command("eval local_variables")
+    variables = []
+    begin
+      variables = eval(read)
+    rescue Exception
+      variables = []
+    end
+    variable_values = Hash.new
+    variables.each do |var|
+      command("eval #{var}.to_s + '|||' + #{var}.class.to_s")
+      _str = eval(read)
+      _value, _class = _str.split('|||')
+      variable_values[var] = Var.new(_value, eval(_class))
+    end
+    return variable_values
+  end
+
+
+  # returns the global variables and there values
+  def global_variables
+    command("eval global_variables")
+    variables = []
+    begin
+      variables = eval(read)
+    rescue Exception
+      variables = []
+    end
+    variable_values = Hash.new
+    variables.each do |var|
+      command("eval #{var}.to_s")
+      variable_values[var] = read
+    end
+    return variable_values
+  end
+
+
+  def set_breakpoint(_file, _line)
+    #_line = _line + 1
+    text = read("break #{_file}:#{_line}")
+    breakpoint_no = -1
+    #matches = text.match(/Set breakpoint ([0-9]*)?/)
+    matches = text.downcase.match(/breakpoint ([0-9]*)?/)
+    #Arcadia.new_error_msg(self, "text=#{text}")
+    #Arcadia.new_error_msg(self, "matches[1]=#{matches[1]}")
+    breakpoint_no = matches[1].to_i if (matches.length == 2)
+    return breakpoint_no
+  end
+
+  def unset_breakpoint(_id)
+    read("delete #{_id}")
+  end
+end
+
+class RubyDebug < ArcadiaExt
+  include Autils
+  attr_reader :rds
+  attr_reader :rdc
+  def on_before_build(_event)
+    if !full_in_path_command('rdebug').nil?
+      #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+      Arcadia.attach_listener(self, BufferEvent)
+      @breakpoints = Hash.new
+      @static_breakpoints = Array.new
+    else
+      Arcadia.console(self, 'msg'=>"Warning: Extension ae-ruby-debug depend upon rdebug command (install it or update system path!)", 'level'=>'error')
+      #Arcadia.new_error_msg(self, "Warning: Extension ae-ruby-debug depend upon rdebug command (install it or update system path!)")
+    end
+    Arcadia.attach_listener(self, DebugEvent)
+  end
+
+  def on_build(_event)
+    #Arcadia.attach_listener(self, DebugEvent)
+  end
+
+  def on_buffer(_event)
+    case _event
+      when BufferRaisedEvent
+        @raised_file=_event.file
+    end
+  end
+
+  def on_debug(_event)
+    case _event
+      when StartDebugEvent
+        _filename = _event.file
+        _filename = @arcadia['pers']['run.file.last'] if _filename == "*LAST"
+        debug(_filename)
+      when StepDebugEvent
+        if (_event.command == :quit_yes)
+          @rds.quit_confirm_request = true
+        end
+        @rdc.send(_event.command) if @rdc.is_alive?
+        
+        #p "on_debug -> Thread.current=#{Thread.current}"
+
+        #p "on_debug --> @rdc.is_alive?=#{@rdc.is_alive?}"
+        #p "on_debug --> @rds.is_alive?=#{@rds.is_alive?}"
+      when SetBreakpointEvent
+        self.breakpoint_add(File.expand_path(_event.file), _event.row)
+      when UnsetBreakpointEvent
+        self.breakpoint_del(File.expand_path(_event.file), _event.row)
+      when EvalExpressionEvent
+        eval_expression(_event.expression)
+      when StopDebugEvent
+        self.debug_quit
+    end
+  end
+
+  
+#  def do_editor_event(_event)
+#    case _event.signature 
+#      when EditorContract::BREAKPOINT_AFTER_CREATE
+#        self.breakpoint_add(File.expand_path(_event.context.file), _event.context.line)
+#      when EditorContract::BREAKPOINT_AFTER_DELETE
+#        self.breakpoint_del(File.expand_path(_event.context.file), _event.context.line)
+#      when EditorContract::BUFFER_AFTER_RAISE
+#        @raised_file=_event.context.file
+#      when EditorContract::EVAL_EXPRESSION
+#        eval_expression(_event.context.text)
+#    end
+#  end
+
+  def eval_expression(_exp)
+    res = @rdc.debug_eval(_exp) if @rdc && @rdc.is_debugging_ready?
+    hash = Hash.new
+    hash[_exp]=res 
+    @rdv.show_expression(_exp, hash) if res 
+  end
+  
+  def start_debug_server
+  end
+  private :start_debug_server
+  
+  def start_debug_client
+  end
+  private :start_debug_client
+  
+  
+  def breakpoint_suf(_file,_line)
+    return _line.to_s + "-" + _file.to_s
+  end
+  private :breakpoint_suf
+  
+  def break_name(_file,_line)
+    "#{_file}:#{_line}"
+  end
+  
+  def breakpoint_add_live(_file,_line)
+    if @rdc && @rdc.is_alive?
+      @breakpoints[breakpoint_suf(_file,_line)] = @rdc.set_breakpoint(_file, _line.to_i)
+      #@rdv.break_list_add(_file,_line) if @rdv
+    end
+  end
+
+  def breakpoint_del_live(_file,_line)
+    if @rdc && @rdc.is_alive?
+      @rdc.unset_breakpoint(@breakpoints.delete(breakpoint_suf(_file,_line)))
+      #@rdv.break_list_del(_file,_line) if @rdv
+    end
+  end
+
+  def breakpoint_free_live
+    @breakpoints.clear
+    #@rdv.break_list_free if @rdv
+  end
+  
+  def breakpoint_add(_file,_line)
+    breakpoint_add_live(_file,_line)
+    @static_breakpoints << {:file=>_file,:line=>_line}
+  end
+  #private :breakpoint_add
+
+  def breakpoint_del(_file,_line)
+    breakpoint_del_live(_file,_line)
+    @static_breakpoints.delete_if{|b| (b[:file]==_file && b[:line]==_line)}
+  end
+  #private :breakpoint_del
+
+
+  def on_exit_query(_event)
+    if @rdc && @rdc.is_alive?
+      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+      'title' => '(Arcadia) Debug',
+      'message' => "Debug in course, do you want to exit?")=='yes')
+      if query
+        debug_quit
+        _event.can_exit=true
+      else
+        _event.can_exit=false
+      end
+    else
+      _event.can_exit=true
+    end
+  end
+
+  def debug_last
+    Arcadia.process_event(StartDebugEvent.new(self, 'file'=>$arcadia['pers']['run.file.last']))
+    #debug($arcadia['pers']['run.file.last'])
+  end
+
+  def debug_current
+    Arcadia.process_event(StartDebugEvent.new(self, 'file'=>@raised_file)) if @raised_file!=nil
+    #debug(@raised_file) if @raised_file!=nil
+  end
+  def debugging?
+    !@rdc.nil? && @rdc.is_alive?
+  end
+
+  def debug_begin
+    breakpoint_free_live
+    #DebugContract.instance.debug_begin(self)
+  end
+
+  def debug(_filename=nil)
+    if _filename && !debugging?
+      begin
+        self.debug_begin
+        @arcadia['pers']['run.file.last']=_filename
+        @rds = RubyDebugServer.new(self,@arcadia) if @rds.nil?
+        @rds.start_session(_filename, conf('server.host'), conf('server.port'))
+        #Arcadia.new_msg(self,@rds.to_s)
+        
+        @rdc = RubyDebugClient.new(self, conf('server.host'), conf('server.port'), conf('server.timeout')) if @rdc.nil?
+        @rdv = RubyDebugView.new(self.frame.hinner_frame, self) if @rdv.nil?
+        @rdv.start_process(_filename)
+        if @rdc.start_session
+          @static_breakpoints.each{|_b|
+            #Arcadia.console(self,'msg'=>" breakpoint_add #{_b[:file]}:#{_b[:line]}")
+            breakpoint_add_live(_b[:file], _b[:line])
+          } 
+        end
+      rescue Exception => e
+        Arcadia.console(self, 'msg'=>"---> "+e.to_s, 'level'=>'debug')
+      end
+    end
+  end
+
+  def rdebug_server_update(_state)
+    case _state
+      when RubyDebugServer::RDS_QUIET
+        @rdc.kill if @rdc
+        #p "@rdc.is_alive?=#{@rdc.is_alive?}"
+        #p "rdebug_server_update -> Thread.current=#{Thread.current}"
+        #@rdv.command_enabled(false)
+        #debug_free
+    end
+  end
+
+  def debug_free
+    self.frame.free
+    @rdc = nil
+    @rdv = nil
+  end
+
+  def debug_quit
+  #p "in debug quit @rdc.is_alive?=#{@rdc.is_alive?}"
+    if @rdc 
+      if @rdc.is_alive?
+        Thread.new{
+          Tk.messageBox('icon' => 'info', 
+          						'type' => 'ok',
+        						 'title' => '(Arcadia) Debug',
+        						 'message' => "Debug in course, stop it before exit")
+        }
+      else
+        begin
+          debug_free
+        rescue Exception => e
+          Arcadia.console(self, 'msg'=>"debug_quit:---> "+e.to_s, 'level'=>'debug')
+          #Arcadia.new_debug_msg(self, "debug_quit:---> "+e.to_s)
+          #@arcadia['shell'].outln("debug_quit:---> "+e.to_s )
+        end
+      end
+    end
+  end
+
+
+
+end