--- a/DebugView.st Sat Apr 25 16:00:58 1998 +0200
+++ b/DebugView.st Sat Apr 25 16:07:21 1998 +0200
@@ -1316,116 +1316,67 @@
initializeMiddleButtonMenu
<resource: #programMenu >
- |labels selectors m|
+ |items m|
exclusive ifTrue:[
- labels := resources array:#(
- 'show more'
- 'show verbose backtrace'
- '-'
- 'remove breakpoint'
- 'remove all trace & breakpoints'
- '-'
- 'copy walkback text'
- '-'
- 'quickTerminate'
- '='
- 'exit smalltalk (no confirmation)'
- ).
- selectors := #(
- showMore
- showVerboseBacktrace
- nil
- removeBreakpoint
- removeAllBreakpoints
- nil
- copyWalkbackText
- nil
- quickTerminate
- nil
- exit
- )
+ items := #(
+ ('show more' showMore )
+ ('show verbose backtrace' showVerboseBacktrace )
+ ('-' )
+ ('remove breakpoint' removeBreakpoint )
+ ('remove all trace & breakpoints' removeAllBreakpoints )
+ ('-' )
+ ('copy walkback text' copyWalkbackText )
+ ('-' )
+ ('quickTerminate' quickTerminate )
+ ('=' )
+ ('exit smalltalk (no confirmation)' exit )
+ ).
] ifFalse:[
- labels := resources array:#(
- 'show more'
- 'show verbose backtrace'
- '-'
- 'skip'
- 'step out'
- '-'
-"
- 'continue'
- 'terminate'
- 'abort'
- '-'
- 'step'
- 'send'
- '-'
- 'return'
- 'restart'
- '-'
+ items := #(
+ ('show more' showMore )
+ ('show verbose backtrace' showVerboseBacktrace )
+ ('-' )
+ ('skip' skip )
+ ('step out' skipForReturn )
+ ('-' )
"
- 'remove breakpoint'
- 'remove all trace & breakpoints'
- '-'
- 'browse'
- 'browse class'
- 'browse class hierarchy'
- 'browse full class protocol'
- 'implementors'
- 'senders'
- '-'
- 'inspect context'
- 'copy walkback text'
- '-'
- 'quickTerminate'
- '='
- 'exit smalltalk (no confirmation)'
- ).
-
- selectors := #(
- showMore
- showVerboseBacktrace
- nil
- skip
- skipForReturn
- nil
+ ('continue' doContinue )
+ ('terminate' doTerminate )
+ ('abort' doAbort )
+ ('-' )
+ ('step' doStep )
+ ('send' doSend )
+ ('-' )
+ ('return' doReturn )
+ ('restart' doRestart )
+ ('-' )
"
- doContinue
- doTerminate
- doAbort
- nil
- doStep
- doSend
- nil
- doReturn
- doRestart
- nil
-"
- removeBreakpoint
- removeAllBreakpoints
- nil
- browse
- browseClass
- browseClassHierarchy
- browseFullClassProtocol
- implementors
- senders
- nil
- inspectContext
- copyWalkbackText
- nil
- quickTerminate
- nil
- exit
- ).
+ ('remove breakpoint' removeBreakpoint )
+ ('remove all trace & breakpoints' removeAllBreakpoints )
+ ('-' )
+ ('browse' browse )
+ ('browse class' browseClass )
+ ('browse class hierarchy' browseClassHierarchy )
+ ('browse full class protocol' browseFullClassProtocol )
+ ('implementors' implementors )
+ ('senders' senders )
+ ('-' )
+ ('inspect context' inspectContext )
+ ('copy walkback text' copyWalkbackText )
+ ('-' )
+ ('quickTerminate' quickTerminate )
+ ('=' )
+ ('exit smalltalk (no confirmation)' exit )
+ ).
].
+
m := PopUpMenu
- labels:(resources array:labels)
- selectors:selectors
- receiver:self
- for:contextView.
+ itemList:items
+ resources:resources
+ receiver:self
+ for:contextView.
verboseBacktrace ifTrue:[
m labelAt:#showVerboseBacktrace put:(resources string:'show dense backtrace').
@@ -3788,6 +3739,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.196 1998-04-25 12:34:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.197 1998-04-25 14:07:21 cg Exp $'
! !
DebugView initialize!