equal
deleted
inserted
replaced
149 bpnt isNil ifTrue:[ |
149 bpnt isNil ifTrue:[ |
150 "/ no breakpoint there - create a new one as required (i.e. recompile) |
150 "/ no breakpoint there - create a new one as required (i.e. recompile) |
151 ok := (self canCreateOrToggleBreakpointAtLine:line). |
151 ok := (self canCreateOrToggleBreakpointAtLine:line). |
152 ok ifFalse:[ |
152 ok ifFalse:[ |
153 (currentMethod isMethodWithBreakpoints and:[ prepareFullBreakSupport ]) ifFalse:[ |
153 (currentMethod isMethodWithBreakpoints and:[ prepareFullBreakSupport ]) ifFalse:[ |
154 codeView topView class == DebugView ifTrue:[ |
154 (codeView topView notNil and:[codeView topView isDebugView]) ifTrue:[ |
155 (Dialog |
155 (Dialog |
156 confirm:'Sorry, in an active method, I can only add new breakpoints in an already breakpointed method. |
156 confirm:'Sorry, in an active method, I can only add new breakpoints in an already breakpointed method. |
157 (i.e. a method stopped at a method breakpoint or one which already has statement breakpoints) |
157 (i.e. a method stopped at a method breakpoint or one which already has statement breakpoints) |
158 The reason is that the method needs to be recompiled for the breakpoint, which would not affect the method being currently executed. |
158 The reason is that the method needs to be recompiled for the breakpoint, which would not affect the method being currently executed. |
159 |
159 |
413 |
413 |
414 flyByHelpTextAtLine:ignoredLineNr |
414 flyByHelpTextAtLine:ignoredLineNr |
415 |topView| |
415 |topView| |
416 |
416 |
417 (self canCreateOrToggleBreakpointAtLine:nil) ifFalse:[ |
417 (self canCreateOrToggleBreakpointAtLine:nil) ifFalse:[ |
418 ((topView := codeView topView) class == DebugView) ifTrue:[ |
418 ((topView := codeView topView) notNil and:[topView isDebugView]) ifTrue:[ |
419 self hasBreakpoints ifFalse:[ |
419 self hasBreakpoints ifFalse:[ |
420 ^ 'Sorry - cannot add breakpoint in the debugger (would need recompilation)\(can only add breakpoints if stopped at a method breakpoint)' withCRs |
420 ^ 'Sorry - cannot add breakpoint in the debugger (would need recompilation)\(can only add breakpoints if stopped at a method breakpoint)' withCRs |
421 ]. |
421 ]. |
422 ^ 'Sorry - cannot add new breakpoint if method is already entered\(i.e. if not stopped at a breakpoint).' withCRs |
422 ^ 'Sorry - cannot add new breakpoint if method is already entered\(i.e. if not stopped at a breakpoint).' withCRs |
423 ]. |
423 ]. |