/[freeride]/freeride/plugins/rubyide_tools_fox_debugger/fox_debugger.rb
ViewVC logotype

Diff of /freeride/plugins/rubyide_tools_fox_debugger/fox_debugger.rb

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ljulliar, Mon Mar 3 22:35:03 2003 UTC revision 1.8 by ljulliar, Sun Mar 9 08:54:52 2003 UTC
# Line 291  module FreeRIDE Line 291  module FreeRIDE
291                    
292            # create the text console tab            # create the text console tab
293            tconsole = FXTabItem.new(tb,"Console",nil)            tconsole = FXTabItem.new(tb,"Console",nil)
294            fconsole = FXHorizontalFrame.new(tb,FRAME_RIDGE|FRAME_THICK)            fconsole = FXVerticalFrame.new(tb,FRAME_RIDGE|FRAME_THICK)
295            fconsole.padLeft = 0; fconsole.padRight = 0            fconsole.padLeft = 0; fconsole.padRight = 0
296            fconsole.padTop = 0; fconsole.padBottom = 0            fconsole.padTop = 0; fconsole.padBottom = 0
297            @console = FXText.new(fconsole, self, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)            @console = FXText.new(fconsole, self, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
298            @console.connect(SEL_KEYPRESS, method(:onKeyPTextConsole))            @console.connect(SEL_KEYPRESS, method(:onKeyPTextConsole))
299                        scons_frame = FXSplitter.new(fconsole, LAYOUT_FILL_X|
300                SPLITTER_TRACKING|SPLITTER_HORIZONTAL)
301              FXLabel.new(scons_frame, "Eval:", nil, JUSTIFY_LEFT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
302              @eval_tf = FXTextField.new(scons_frame, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
303                LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
304              @eval_tf.connect(SEL_COMMAND, method(:onCmdEvalExpr))
305    
306    
307    
308            # Define text styles for STDOUT (index 1)  and STDERR (index 2) output            # Define text styles for STDOUT (index 1)  and STDERR (index 2) output
309            # and STDIN (index 3)            # and STDIN (index 3)
310            hsout = FXHiliteStyle.new            hsout = FXHiliteStyle.new
# Line 362  module FreeRIDE Line 370  module FreeRIDE
370                    
371            frmc_frame = FXHorizontalFrame.new(frm_frame,FRAME_RIDGE|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)            frmc_frame = FXHorizontalFrame.new(frm_frame,FRAME_RIDGE|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
372            @cbox_frame.width = split_frame.width/2            @cbox_frame.width = split_frame.width/2
           #popf_frame.setWidth(200) #frm_frame.width/2  
373            @cbox_thread.width = split_frame.width/2            @cbox_thread.width = split_frame.width/2
           #popt_frame.setWidth(100) #frm_frame.width/2  
374            @tbox_lvar = FXText.new(frmc_frame, self, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)            @tbox_lvar = FXText.new(frmc_frame, self, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
375    
376            # create the watches display tab            # create the watches display tab
# Line 788  module FreeRIDE Line 794  module FreeRIDE
794            return 1            return 1
795          end          end
796                        
797            def onCmdEvalExpr(sender, sel, ptr)
798              # Get the expression from the text field
799              expr = sender.text
800              val = @slot.manager.eval_expr(expr) if @slot.manager
801              print_stdout(val+"\n")
802              return 1
803            end
804    
805          def update_state(sender, sel, ptr, cond)          def update_state(sender, sel, ptr, cond)
806            if cond            if cond
807              sender.handle(self, MKUINT(FXWindow::ID_ENABLE, SEL_COMMAND), nil)              sender.handle(self, MKUINT(FXWindow::ID_ENABLE, SEL_COMMAND), nil)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26