hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:e7aa6f50e766
+:a704122c92dc
 v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
 contextView := v scrolledView.
 contextView action:[:lineNr | self showSelection:lineNr].
 contextView doubleClickAction:[:line | self browse].
+contextView selectConditionBlock:[:line | self checkSelectionChangeAllowed].
 v := HVScrollableView
 for:CodeView
 miniScrollerH:true
 miniScrollerV:false
 contextInspector := ContextInspectorView
 origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
 in:hpanel.
 contextInspector label:'context'.
-"Modified: / 16.1.1998 / 23:29:44 / cg"
+"Modified: / 29.7.1998 / 21:56:51 / cg"
 !
 initializeMiddleButtonMenu
 <resource: #programMenu >
 doAbort
 "abort - send Object>>abortSignal, which is usually caught
 at save places (for example: in the event loop) and returns back
 from whatever the process is doing, but does not terminate it."
+codeView modified ifTrue:[
+(self confirm:('Code modified - abort anyway ?'))
+ifFalse:[
+^ self
+]
+].
 inspecting ifTrue:[
 inspectedProcess isDead ifTrue:[
 self showTerminated.
 ^ self
 ].
 'DebugView [warning]: abort failed' errorPrintCR.
 ].
 ^ self.
-"Modified: 10.1.1997 / 17:38:28 / cg"
+"Modified: / 29.7.1998 / 21:48:50 / cg"
 !
 doContinue
 "continue from menu"
 |proc exContext ex answer|
+codeView modified ifTrue:[
+(self confirm:('Code modified - continue anyway ?'))
+ifFalse:[
+^ self
+]
+].
 inspecting ifTrue:[
 device hasColors ifTrue:[
 continueButton foregroundColor:Color red darkened.
 ].
 self showSelection:1.
 self doReturn
 ]
 ]
-"Modified: / 16.7.1998 / 19:21:59 / cg"
+"Modified: / 29.7.1998 / 21:49:06 / cg"
 !
 doMicroSend
 "single send; reenter with next message send"
 inspecting ifTrue:[^ self].
+codeView modified ifTrue:[
+(self confirm:('Code modified - step anyway ?'))
+ifFalse:[
+^ self
+]
+].
 canContinue ifTrue:[
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #step.
 "/ not reached
 'DebugView [warning]: send failed' errorPrintCR.
 sendButton turnOff.
 ]
-"Modified: 10.1.1997 / 17:38:41 / cg"
+"Created: / 6.3.1997 / 21:09:36 / cg"
-"Created: 6.3.1997 / 21:09:36 / cg"
+"Modified: / 29.7.1998 / 21:49:29 / cg"
 !
 doNext
 "skip for next source-code line; entering blocks"
 !
 doRestart
 "restart - the selected context will be restarted"
+codeView modified ifTrue:[
+(self confirm:('Code modified - restart anyway ?'))
+ifFalse:[
+^ self
+]
+].
 inspecting ifTrue:[
 selectedContext isNil ifTrue:[
 ^ self showError:'** select a context first **'
 ].
 self interruptProcessWith:[selectedContext unwindAndRestart].
 "/ not reached
 'DebugView [warning]: restart failed' errorPrintCR.
 restartButton turnOff.
-"Modified: 10.1.1997 / 17:38:36 / cg"
+"Modified: / 29.7.1998 / 21:49:53 / cg"
 !
 doReturn
 "return - the selected context will do a ^nil"
+codeView modified ifTrue:[
+(self confirm:('Code modified - return anyway ?'))
+ifFalse:[
+^ self
+]
+].
 inspecting ifTrue:[
 selectedContext isNil ifTrue:[
 ^ self showError:'** select a context first **'
 ].
 "/ not reached
 'DebugView [warning]: return failed' errorPrintCR.
 returnButton turnOff.
-"Modified: 10.1.1997 / 17:38:39 / cg"
+"Modified: / 29.7.1998 / 21:50:03 / cg"
 !
 doSend
 "single send; reenter with next message send"
 |con method|
 inspecting ifTrue:[^ self].
+codeView modified ifTrue:[
+(self confirm:('Code modified - step anyway ?'))
+ifFalse:[
+^ self
+]
+].
 canContinue ifTrue:[
 selectedContext notNil ifTrue:[
 con := actualContext. "/ selectedContext.
 steppedContextLineno := actualContext lineNumber.
 ] ifFalse:[
 "/ not reached
 'DebugView [warning]: step failed' errorPrintCR.
 stepButton turnOff. nextButton turnOff. sendButton turnOff.
 ]
-"Modified: / 13.1.1998 / 15:34:14 / cg"
+"Modified: / 29.7.1998 / 21:50:16 / cg"
 !
 doStop
 "stop the process (if its running, otherwise this is a no-op)"
 "Modified: 20.10.1996 / 18:30:48 / cg"
 !
 doTerminate
 "terminate - the process has a chance for cleanup"
+codeView modified ifTrue:[
+(self confirm:('Code modified - terminate anyway ?'))
+ifFalse:[
+^ self
+]
+].
 inspecting ifTrue:[
 self processPerform:#terminate.
 ^ self
 ].
 'DebugView [warning]: terminate failed' errorPrintCR.
 self warn:'terminate failed'.
 ].
 terminateButton turnOff.
-"Modified: 10.1.1997 / 17:38:22 / cg"
+"Modified: / 29.7.1998 / 21:50:35 / cg"
 !
 doTrace
 "tracing - not really implemented ..."
 "Modified: / 29.7.1998 / 15:08:05 / cg"
 ! !
 !DebugView methodsFor:'user interaction'!
+checkSelectionChangeAllowed
+codeView modified ifTrue:[
+^ self confirm:('Code modified - change selection anyway ?')
+].
+^ true
+"Created: / 29.7.1998 / 21:57:02 / cg"
+"Modified: / 29.7.1998 / 21:57:34 / cg"
+!
 codeAccept:someCode
 "user wants some code to be recompiled - must unwind stack since everything above
 and including selected method cannot be continued."
 "
 from context chain
 "
 (newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
 self setContext:(top sender).
+codeView modified:false.
 "
 continue/step is no longer possible
 "
 canContinue := false.
 self showSelection:1.
 exitAction := #return
 ].
 ].
-codeView cursor:Cursor normal
+codeView cursor:Cursor normal.
-"Modified: / 18.6.1998 / 14:47:30 / cg"
+"Modified: / 29.7.1998 / 21:44:54 / cg"
 !
 destroy
 "closing the debugger implies an abort or continue"
+codeView modified ifTrue:[
+(self confirm:('Code modified - exit anyway ?'))
+ifFalse:[
+^ self
+]
+].
 contextView middleButtonMenu hide.
 inspecting ifFalse:[
 "I am running on top of a process, abort or continue it"
 "/ since I am going to be destroyed, remove me from the cache
 self uncacheMyself.
 super destroy.
-"Modified: 10.7.1997 / 17:15:41 / stefan"
+"Modified: / 10.7.1997 / 17:15:41 / stefan"
-"Modified: 12.8.1997 / 02:07:19 / cg"
+"Modified: / 29.7.1998 / 21:48:11 / cg"
 !
 doShowSelection:lineNr
 "user clicked on a header line - show selected code in textView.
 Also sent to autoselect an interesting context on entry."
 ex return.
 ] do:[
 self doShowSelection:lineNr
 ]
-"Modified: / 8.11.1997 / 19:38:03 / cg"
+"Modified: / 29.7.1998 / 21:57:11 / cg"
 !
 updateForContext:lineNr
 "show selected code for lineNr in contextList in textView.
 Also used to autoselect an interesting context on entry."
 actualContext := con
 ].
 ] ifFalse:[
 codeView contents:nil.
 ].
+codeView modified:false.
 con isContext ifFalse:[
 sendButton disable.
 ] ifTrue:[
 sendButton enable.
 m disableAll:#(browse browseClass browseClassHierarchy browseFullClassProtocol).
 ].
 ]
 "Created: / 14.8.1997 / 20:15:00 / cg"
-"Modified: / 17.6.1998 / 15:38:40 / cg"
+"Modified: / 29.7.1998 / 21:45:27 / cg"
 ! !
 !DebugView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.211 1998-07-29 17:04:07 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.212 1998-07-30 09:21:43 cg Exp $'
 ! !
 DebugView initialize!

changeset 1765	a704122c92dc
parent 1764	e7aa6f50e766
child 1776	590f728bcfd4