arcadia 0.1.2.1 → 0.1.3

data/ext/ae-event-log/ae-event-log.conf

@@ -1,5 +1,5 @@
-name=event-log
-active=yes
-require=ext/ae-event-log/ae-event-log
-class=EventLog
-
+name=event-log
+active=no
+require=ext/ae-event-log/ae-event-log
+class=EventLog
+

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

@@ -127,10 +127,10 @@ class FileH < ArcadiaExt
      		  if _event.context.file
     		    self.add2history(_event.context.file)
     		    add_to_tree(_event.context.file)
-     				end
+     			  end
      		when EditorContract::FILE_AFTER_CLOSE
      		  if _event.context.file 
-     				end
+     		end
      end
 	end
 

data/ext/ae-flag/ae-flag.conf

@@ -0,0 +1,6 @@
+name=flag
+label=Flag
+frame=0.0
+active=no
+require=ext/ae-flag/ae-flag
+class=ArcadiaFlag

data/ext/ae-flag/ae-flag.rb

@@ -0,0 +1,12 @@
+
+
+class ArcadiaFlag < ArcadiaExt
+  def build
+    @tkLabel3 = TkLabel.new(self.frame){
+      image  TkPhotoImage.new('format'=>'GIF','data' =>A_LOGO_GIF)
+      background  "#000000"
+      place('x'=> 0,'y' => 0, 'relwidth' =>'1', 'relheight'=>'1')
+    }
+  
+  end
+end

data/ext/ae-inspector/ae-inspector.conf

@@ -1,7 +1,7 @@
-name=objic
-label=Object Inspector
-frame=1.0
-active=yes
-require=ext/ae-inspector/ae-inspector
-class=ObjiController
-
+name=objic
+label=Object Inspector
+frame=1.0
+active=yes
+require=ext/ae-inspector/ae-inspector
+class=ObjiController
+

data/ext/ae-output-event/ae-output-event.conf

@@ -1,15 +1,15 @@
-name=output2
-label=Event Log
-frame=1.1
-active=yes
-require=ext/ae-output/ae-output
-class=Output
-MsgContract.channel=CH1
-
-
-font=courier 10
-font.bold=courier 10 bold
-freebsd::font=courier 10
-freebsd::font.bold=courier 12 bold
-win::font={Courier New} 9
-win::font.bold={Courier New} 9 bold
+name=output2
+label=Event Log
+frame=1.1
+active=no
+require=ext/ae-output/ae-output
+class=Output
+MsgContract.channel=CH1
+
+
+font=courier 10
+font.bold=courier 10 bold
+freebsd::font=courier 10
+freebsd::font.bold=courier 12 bold
+win::font={Courier New} 9
+win::font.bold={Courier New} 9 bold

data/ext/ae-palette/ae-palette.conf

@@ -1,7 +1,7 @@
-name=palette
-label=Palette
-frame=0.0
-active=yes
-require=ext/ae-palette/ae-palette
-class=Palette
-
+name=palette
+label=Palette
+frame=0.0
+active=yes
+require=ext/ae-palette/ae-palette
+class=Palette
+

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

@@ -0,0 +1,20 @@
+#==============================================================
+name=ruby-debug
+label=Ruby Debug
+frame=1.0
+active=yes
+require=ext/ae-ruby-debug/ae-ruby-debug
+class=RubyDebug
+#==============================================================
+server.host=localhost
+server.port=8989
+server.timeout=10
+font=courier 10
+font.bold=courier 10 bold
+color.background=#ffffff
+color.foreground=#000000
+freebsd::font=courier 10
+freebsd::font.bold=courier 10 bold
+win::font={Courier New} 8
+win::font.bold={Courier New} 8 bold
+

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

@@ -0,0 +1,1329 @@
+#
+#   ae-ruby-debug.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+class RubyDebugView
+  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(
+      '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 '#3d7956'
+    }.place('height'=> _y)
+    
+    @debug_frame = TkFrame.new(@frame){ 
+        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){
+      tabbevelsize 0
+      internalborderwidth 2
+      activeforeground 'red'
+      activebackground 'yellow'
+      #background 'black'
+      borderwidth 1
+      side $arcadia['conf']['editor.tabs.side']
+      font $arcadia['conf']['editor.tabs.font']
+      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){
+      background '#FFFFFF'
+      relief 'flat'
+      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 
+          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')}",
+      'font' => @controller.conf('font.bold')
+    })
+    @tree_process.insert('end', 'server' ,'client', {
+      'font' => @controller.conf('font.bold'),
+      'text' =>  "Client"
+    })
+    @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('eval')) if @tree_var.exist?('eval')
+  end
+
+  def tree_process_free
+    @tree_process.delete(@tree_process.nodes('root'))
+  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){
+      background '#FFFFFF'
+      relief 'flat'
+      showlines true
+      linesfill '#e7de8f'
+      deltay 15
+      opencmd _open_proc
+     # pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+    }.place('relwidth' => 1,'relheight' => '1','bordermode' => 'inside')
+
+    _scrollcommand = proc{|*args| @tree_var.yview(*args)}
+    _scrollbar = TkScrollbar.new(_frame){|s|
+      width 8
+      command _scrollcommand
+    }.pack('side'=>'right', 'fill'=>'y')
+    @tree_var.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+    
+    @local_on = true
+    @instance_on = true
+    @global_on = false
+    
+    _i_on = TkPhotoImage.new('dat' => ON_GIF)
+    _i_off = TkPhotoImage.new('dat' => OFF_GIF)
+
+    _b_relief = 'groove'
+    @b_local_onoff = TkButton.new(@tree_var){
+        image  _i_on
+        relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @local_on = !@local_on
+      if @local_on
+        @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)
+        }
+      else
+        @b_local_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('local_var'))
+      end
+    })
+
+    @tree_var.insert('end', 'root' ,'local_var', {
+      #'deltax' => 0,
+      #'padx'=>2,
+      'fill'=>'#3f941b',
+      'open'=>true,
+      'anchor'=>'w',
+      'font' => @controller.conf('font.bold'),
+      'text' =>  "Local variables",
+      'window' => @b_local_onoff
+    })
+
+    @b_instance_onoff = TkButton.new(@tree_var){
+        image  _i_on
+        relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @instance_on = !@instance_on
+      if @instance_on
+        @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)
+        }
+      else
+        @b_instance_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('instance_var'))
+      end
+    })
+    @tree_var.insert('end', 'root' ,'instance_var', {
+#      'deltax' => 0,
+#      'padx'=>2,
+      'fill'=>'#892541',
+      'open'=>true,
+      'anchor'=>'w',
+      'font' => @controller.conf('font.bold'),
+      'text' =>  "Instance variables",
+      'window' => @b_instance_onoff
+    })
+
+    @b_global_onoff = TkButton.new(@tree_var){
+        image  _i_off
+        relief _b_relief
+        state 'disabled'
+        anchor 'nw'
+    }.bind("1",proc{
+      @global_on = !@global_on
+      if @global_on
+        @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)
+        }
+      else
+        @b_global_onoff.image(_i_off)
+        @tree_var.delete(@tree_var.nodes('global_var'))
+      end
+    })
+    @tree_var.insert('end', 'root' ,'global_var', {
+      'fill'=>'#f94867',
+      'open'=>true,
+      'anchor'=>'w',
+      'font' => @controller.conf('font.bold'),
+      'text' =>  "Global variables",
+      'window' => @b_global_onoff
+    })
+    
+    
+  
+  end
+
+  def build_break_panel(_tab_breakpoint)
+    @tree_break = Tk::BWidget::Tree.new(_tab_breakpoint){
+      background '#FFFFFF'
+      relief 'flat'
+      showlines true
+      linesfill '#e7de8f'
+      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, {
+        'fill'=>'#8080ff',
+        'open'=>true,
+        'anchor'=>'w',
+        'font' => @controller.conf('font.bold'),
+        'text' =>  _file
+      })
+    end
+    
+    if !@tree_break.exist?(_line_node)
+      @tree_break.insert('end', _file_node ,_line_node, {
+        'fill'=>'#f94867',
+        'open'=>true,
+        'anchor'=>'w',
+        'font' => @controller.conf('font.bold'),
+        'text' =>  "line: #{_line}"
+      })
+    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)
+  #MsgContract.instance.out_debug(self,"on command #{_command}")
+    return if !@controller.rdc.is_debugging_ready?
+    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 != 'where' && _command != 'quit_yes'
+        begin
+          update_position
+          update_variables('local_var', @controller.rdc.variables('local_variables')) if @local_on
+          update_variables('instance_var', @controller.rdc.variables('instance_variables')) if @instance_on
+          #MsgContract.instance.out_debug(self,"on command #{_command}:global_variables")
+          update_variables('global_var', @controller.rdc.variables('global_variables')) if @global_on
+        ensure
+          command_enabled(true) if @controller.rdc.is_debugging_ready? && (!_command.include?('quit') || _command.include?('quit_no')) 
+        end
+      end
+    rescue Exception => e
+      MsgContract.instance.out_debug(self,"on command #{_command}:#{e.inspect}")
+    end
+  end
+  
+  def match_position_from_stack(_line)
+    ret = Array.new
+    _target = _line.sub("-->",'').strip
+    matchline = _target.match(/#[0-9]*.*:([0-9]*)/)
+    line_no = matchline[1].to_i if !matchline.nil? && matchline.length==2
+    matchfile = _target.match(/#[0-9]*.(.*):[0-9]*/)
+    filename = matchfile[1].to_s if !matchfile.nil? && matchfile.length==2
+    if filename && line_no
+      ret << filename << line_no
+    end
+    ret
+  end
+  
+  def update_position
+    stack = @controller.rdc.where
+    #MsgContract.instance.out_debug(self,stack)
+    if !stack.nil?
+      stack = stack.split(/\n/)
+      line_no = -1
+      if !stack[0].nil?
+        pos = match_position_from_stack(stack[0])
+        #matchline = stack[0].match(/-->.#[0-9]*.*:([0-9]*)/)
+        ##matchline = stack[0].match(/.*:([0-9]*)/)
+        #line_no = matchline[1].to_i if !matchline.nil? && matchline.length==2
+
+        #matchfile = stack[0].match(/-->.#[0-9]*.(.*):[0-9]*/)
+        ##matchfile = stack[0].match(/.(.*):[0-9]*/)
+
+        #filename = matchfile[1].to_s if !matchfile.nil? && matchfile.length==2
+      end
+      if pos.length > 0
+      #MsgContract.instance.out_debug(self,"'file'=> #{pos[0]}, 'line'=>#{pos[1]}")
+        _file = File.expand_path(pos[0])
+        DebugContract.instance.debug_step(self, 'file'=> _file, 'line'=>pos[1])
+        break_list_select(_file, pos[1].to_s)
+      end
+      i = 0
+      @tree_process.delete(@stack_nodes)
+      stack.each do |line| 
+        _node = "c#{i.to_s}"
+        @tree_process.insert('end', 'client' ,_node, {
+       #   'deltax' => 0,
+       #   'padx'=>2,
+          'font' => @controller.conf('font'),
+          'text' =>  line,
+          'helptext' => line
+        })
+        @stack_nodes << _node
+        i = i+1
+      end
+    end
+  end
+
+  def is_simple_class?(_class)
+    ['Numeric','Fixnum','String','FalseClass','TrueClass','NilClass'].include?(_class)
+#    _class == Numeric || _class.superclass == Numeric ||
+#    _class == String || _class.superclass == String ||
+#    _class == FalseClass || _class.superclass == FalseClass||
+#    _class == TrueClass || _class.superclass == TrueClass||
+#    _class == NilClass || _class.superclass == NilClass   
+  end
+  
+  def show_expression(_exp, _hash)
+    if !@tree_var.exist?('eval')
+      @tree_var.insert('end', 'root' ,'eval', {
+        'fill'=>'#4aadf7',
+        'open'=>true,
+        'anchor'=>'w',
+        'font' => @controller.conf('font.bold'),
+        '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)
+      #@tree_var.delete(@tree_var.nodes(_node))
+      var_deep(_node, _o)
+    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
+    _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, {
+          'font' => @controller.conf('font'),
+          'text' =>  _text,
+          'helptext' => v,
+          'anchor'=>'w'
+        })
+      end
+      var_deep(_node,v) if _complex
+    }
+  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)
+    #MsgContract.instance.out_debug(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_global_onoff.configure(:state=>_state) 
+    Tk.update
+  end
+
+  def update_variables(_parent_node, _var)
+    if _var.keys.sort == @tree_var.nodes(_parent_node).collect! {|x| var_name(x).to_s}.sort
+      _var.each{|k,v|
+        _n = node_name(k, _parent_node)
+        if is_simple_class?(v.value_class)
+          _text = var_format(k,v.value_class,v.value)
+        else
+          _text = var_format(k,v.value_class)
+        end
+        _node = @tree_var.itemconfigure(_n, 'text' =>  _text)
+      }          
+    else 
+      @nodes_to_open.clear
+      @tree_var.delete(@tree_var.nodes(_parent_node))
+      #@nodes[_parent_node].clear
+      _var.each{|k,v|
+          _n = node_name(k, _parent_node)
+          if is_simple_class?(v.value_class)
+            #MsgContract.instance.out_simple(self,"#{k} : simple")
+            _text = var_format(k,v.value_class,v.value)
+            _drawcross = 'auto'
+          else
+            #MsgContract.instance.out_simple(self,"#{k} : complex")
+            _text = var_format(k,v.value_class)
+            _drawcross = 'always'
+            @nodes_to_open << _n
+          end
+          @tree_var.insert('end', _parent_node ,_n, {
+            'font' => @controller.conf('font'),
+            'text' =>  _text,
+            'helptext' => v.value,
+            'drawcross' => _drawcross,
+            'anchor'=>'w'
+        #    'deltax' => 1
+          })
+          #@nodes[_parent_node] << k
+      }
+    end
+    Tk.update
+  end
+
+  def debug_send(_command)
+    if @controller.rdc
+      begin
+        command_enabled(false)
+        #@debug_button_box.configure(:state=>'disabled')
+        Thread.new{@controller.rdc.send(_command)}
+        #@controller.rdc.send(_command)
+      rescue Exception => e
+        MsgContract.instance.out_debug(self,"---> "+e.to_s)
+      end
+    end
+  end
+end
+
+class RubyDebugException < Exception
+end
+
+class RubyDebugServer
+  include Observable
+  RDS_QUIET = 'RDS_QUIET'
+  def initialize(_caller)
+    if _caller.respond_to? :rdebug_server_update
+      ObserverCallback.new(self,_caller,:rdebug_server_update)
+    end
+  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
+    #MsgContract.instance.out_debug(self,commandLine)    
+    begin
+      if is_windows?
+        @tid = Thread.new {
+          Kernel.system(commandLine)
+          Kernel.system('y')
+          notify(RDS_QUIET)
+        }
+      else
+        @pid = Process.fork {
+          Kernel.system(commandLine)
+          Kernel.exit!
+          notify(RDS_QUIET)
+        }
+      end
+    rescue Exception => e
+      MsgContract.instance.out_debug(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
+      MsgContract.instance.out_debug(self,"Error on start_server : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def is_windows?
+    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
+    #RUBY_PLATFORM.include?('win')
+  end
+
+  def 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(_server='localhost', _port=8989, _timeout=0)
+    @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)
+   #MsgContract.instance.out_debug(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?
+    !@session.nil? && !@session.closed? && !@pend
+  end
+
+  def socket_session
+      if @session.nil?
+        begin
+          #sleep(2)
+          @session = TCPSocket.new(@server, @port)
+          @pend = false
+        rescue Errno::ECONNREFUSED => e
+          sleep(1)
+          @t = @t -1
+          if @t > 0
+            socket_session
+          else
+            MsgContract.instance.out_debug(self,"socket_session : #{e.inspect}")    
+          end
+        end
+      end
+      #MsgContract.instance.out_debug(self,"session : #{@session.inspect}")    
+      return @session 
+  end
+  
+  def kill 
+    begin
+      @session.close if is_alive?
+      @session = nil
+    rescue Exception => e
+      MsgContract.instance.out_debug(self,"Error on close session : #{e.class}:#{e.message}")    
+    end
+  end
+  
+  def start_session
+    begin
+      @t = @timeout 
+      if socket_session
+        #MsgContract.instance.out_debug(self,"session : #{@session.inspect}")    
+        notify('start', read)
+        read("eval require 'yaml'")
+      end
+      return @session
+    rescue Exception => e
+      MsgContract.instance.out_debug(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
+      MsgContract.instance.out_debug(self,"Error on stop_session : #{e.class}:#{e.inspect}")    
+    end
+  end
+  
+  # send a command to the debugger via socket
+  def command(_command)
+   #MsgContract.instance.out_debug(self,"command=>#{_command}")    
+    begin
+      return false if @busy
+      if is_alive?
+        @busy = true
+        socket_session.puts(_command) 
+      else
+        start_session if !@pend
+      end
+      true
+    rescue Errno::ECONNABORTED => e
+      #kill
+      notify("quit_yes")
+      DebugContract.instance.debug_end(self)
+      MsgContract.instance.out_debug(self,"Debugged has finished executing")      
+      @session = nil
+      @pend = true
+      false
+      #raise RubyDebugException.new("Debugged has finished executing")
+    rescue Exception => e
+      MsgContract.instance.out_debug(self,"Error on command #{_command}: #{e.class}:#{e.inspect}")
+      false
+    end
+  end
+  private :command
+
+  def read(_command=nil)
+    return nil if _command && !command(_command) 
+    socket_session.flush
+    result = ""
+    while _command !='y' && is_alive? && line = socket_session.gets
+      #MsgContract.instance.out_debug(self, "read: letta riga => #{line}")
+      break if line =~ /^PROMPT (.*)$/ || line =~ /.(y\/n)./ 
+      result << line
+      #break if _command =~ /^eval./
+    end
+    #MsgContract.instance.out_simple(self,  "read(#{_command}): result => #{result}")
+    @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)
+    #MsgContract.instance.out_simple(self,"_obj="+_obj.inspect)
+    just_present =  @valuobjs.include?(_obj)
+    @valuobjs << _obj  
+    if _obj.class == YAML::DomainType
+    #MsgContract.instance.out_simple(self,"_obj DomainType="+_obj.inspect)
+      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
+    #MsgContract.instance.out_simple(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
+    #MsgContract.instance.out_simple(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
+    #MsgContract.instance.out_simple(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  
+    #MsgContract.instance.out_simple(self,"_obj ="+_obj.inspect)
+    
+      _obj
+    end
+  
+  end
+
+  
+  def debug_dump(_exp)
+    var = nil
+    if @valuobjs.nil?
+      @valuobjs = Array.new 
+    else
+      @valuobjs.clear
+    end
+    begin
+      _str = eval(read("eval YAML::dump(#{_exp})"))
+      #MsgContract.instance.out_simple(self,"value passato 1 ="+_str.to_s)
+      _str.gsub!('!ruby/object:', '!')
+      #MsgContract.instance.out_simple(self,"value passato 2 ="+_str.to_s)
+      _obj = YAML::load(_str)
+      var = yaml_pseudo_load(_obj)
+    rescue Exception => e
+      MsgContract.instance.out_simple(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
+      #MsgContract.instance.out_simple(self,"value passato 1 ="+_str)
+
+      _str.gsub!('!ruby/object:', '!')
+
+      #MsgContract.instance.out_simple(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)
+      
+      #MsgContract.instance.out_simple(self,"vvv class="+_vvv.class.to_s)
+      
+      #MsgContract.instance.out_simple(self,"value="+_xvalue.inspect)
+      #MsgContract.instance.out_simple(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}")
+      #MsgContract.instance.out_simple(self,"to_eval="+to_eval.to_s)
+      variables = eval(to_eval)
+      #MsgContract.instance.out_simple(self,"variables="+variables.to_s)
+    rescue Exception => e
+      variables = []
+      #p "on command eval #{_type}:#{e.inspect}"
+      #MsgContract.instance.out_debug(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]*)?/)
+    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
+  attr_reader :rds
+  attr_reader :rdc
+  def before_build
+    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    @breakpoints = Hash.new
+    @static_breakpoints = Array.new
+  end
+  
+  def build
+  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
+      @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.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 can_exit_query
+    if @rdc
+      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+      'title' => '(Arcadia) Debug',
+      'message' => "Debug in course, do you want to exit?")=='yes')
+      if query
+        debug_quit
+        return true
+      else
+        return false
+      end
+    else
+      return true
+    end
+  end
+
+
+
+  def debug_begin
+    breakpoint_free_live
+    DebugContract.instance.debug_begin(self)
+  end
+  
+  def debug_last
+    debug($arcadia['pers']['run.file.last'])
+  end
+
+  def debug_current
+    debug(@raised_file) if @raised_file!=nil
+  end
+  def debugging?
+    !@rdc.nil? && @rdc.is_alive?
+  end
+  def debug(_filename=nil)
+    if _filename && !debugging?
+      begin
+        self.debug_begin
+        @arcadia['pers']['run.file.last']=_filename
+        @rds = RubyDebugServer.new(self) if @rds.nil?
+        @rds.start_session(_filename, conf('server.host'), conf('server.port'))
+        #MsgContract.instance.out_simple(self,@rds.to_s)
+        @rdc = RubyDebugClient.new(conf('server.host'), conf('server.port'), conf('server.timeout')) if @rdc.nil?
+        @rdv = RubyDebugView.new(self.frame, self) if @rdv.nil?
+        @rdv.start_process(_filename)
+        if @rdc.start_session
+          @static_breakpoints.each{|_b|
+            #MsgContract.instance.out_simple(self," breakpoint_add #{_b[:file]}:#{_b[:line]}")
+            breakpoint_add_live(_b[:file], _b[:line])
+          } 
+        end
+        #MsgContract.instance.out_simple(self,"\n<begin debug>")
+
+      rescue Exception => e
+        MsgContract.instance.out_debug(self,"---> "+e.to_s)
+      end
+    end
+  end
+
+
+  def rdebug_server_update(_state)
+    case _state
+      when RubyDebugServer::_RDS_QUIT_
+        debug_quit
+    end
+    p _state
+  end
+
+  def debug_free
+    self.frame_free
+    @rdc = nil
+    @rdv = nil
+  end
+
+  def debug_quit
+    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
+          MsgContract.instance.out_debug(self, "debug_quit:---> "+e.to_s)
+          #@arcadia['shell'].outln("debug_quit:---> "+e.to_s )
+        end
+      end
+    end
+  end
+
+
+
+end