--- a/DebugView.st Thu Mar 07 11:10:05 2013 +0000
+++ b/DebugView.st Wed Mar 13 01:04:29 2013 +0000
@@ -621,6 +621,365 @@
!DebugView class methodsFor:'menu specs'!
+breakPointMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#breakPointMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView breakPointMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: canRemoveBreakpoint
+ label: 'Remove Breakpoint'
+ itemValue: removeBreakpoint
+ )
+ (MenuItem
+ label: 'Remove all Breakpoints'
+ itemValue: removeAllBreakpoints
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canAddBreakpoint
+ label: 'Add Breakpoint'
+ itemValue: addBreakpoint
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Ignore this Halt/BreakPoint'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For Some Time...'
+ itemValue: openIgnoreHaltUntilTimeElapsedDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For the Next N Times...'
+ itemValue: openIgnoreHaltNTimesDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreHaltUntilShiftKeyIsPressed
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'Forever (Until Ignoring is Stopped)'
+ itemValue: ignoreHaltForever
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Ignore all BreakPoints with this Parameter'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'For Some Time...'
+ itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'For the Next N Times...'
+ itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Forever (Reenable in BreakPoint-Browser)'
+ itemValue: ignoreBreakpointsWithThisParameterForever
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Ignore all Halts/BreakPoints'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'For Some Time...'
+ itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
+ )
+ (MenuItem
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
+ )
+ (MenuItem
+ label: 'Forever (Until Ignoring is Stopped)'
+ itemValue: ignoreAllHaltsForever
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ enabled: hasHaltsToIgnore
+ label: 'Stop Ignoring'
+ itemValue: stopIgnoringHalts
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Manage Breakpoints'
+ itemValue: openBreakPointBrowser
+ )
+ (MenuItem
+ label: 'Allow Halt in Debugger'
+ itemValue: allowBreakPointsInDebugger:
+ indication: allowBreakPointsInDebugger
+ )
+ )
+ nil
+ nil
+ )
+!
+
+classMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#classMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView classMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: canBrowseImplementingClass
+ label: 'Browse Implementing Class'
+ itemValue: browseImplementingClass
+ )
+ (MenuItem
+ enabled: canBrowseReceiversClass
+ label: 'Browse Receivers Class'
+ itemValue: browseReceiversClass
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canBrowseClassHierarchy
+ label: 'Browse Receivers Class Hierarchy'
+ itemValue: browseClassHierarchy
+ isVisible: false
+ )
+ (MenuItem
+ enabled: canBrowseFullClassProtocol
+ label: 'Browse Receivers Full Protocol'
+ itemValue: browseFullClassProtocol
+ isVisible: false
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ enabled: canBrowseProcessesApplication
+ label: 'Browse Application Class'
+ itemValue: browseProcessesApplication
+ )
+ )
+ nil
+ nil
+ )
+!
+
+contextMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#contextMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView contextMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: canReturn
+ label: 'Return'
+ itemValue: doReturn
+ )
+ (MenuItem
+ enabled: canRestart
+ label: 'Restart'
+ itemValue: doRestart
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Inspect'
+ itemValue: inspectContext
+ )
+ (MenuItem
+ label: 'Copy WalkBack Text'
+ itemValue: copyWalkbackText
+ )
+ (MenuItem
+ label: 'Bookmark Method in SystemBrowser'
+ itemValue: addBrowserBookmark
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ label: 'Find Handler For...'
+ itemValue: findHandlerFor
+ isVisible: false
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Remember Callchain && Highlight on Next Entry'
+ itemValue: rememberCallchain
+ )
+ (MenuItem
+ label: 'Clear Remembered Callchain'
+ itemValue: clearRememberedCallchain
+ )
+ )
+ nil
+ nil
+ )
+!
+
+fileMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#fileMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView fileMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: canSendEmail
+ label: 'Report a Bug via eMail...'
+ itemValue: doOpenReportMailApp
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canCloseAllDebuggers
+ label: 'Close all Debuggers...'
+ itemValue: closeAllDebuggers
+ isVisible: isNotInspecting
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ isVisible: isInspecting
+ )
+ (MenuItem
+ label: 'Close Debugger and Abort'
+ itemValue: closeRequest
+ isVisible: isNotInspecting
+ )
+ )
+ nil
+ nil
+ )
+!
+
+helpMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#helpMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView helpMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Debugger''s Documentation'
+ itemValue: openHTMLDocument:
+ argument: 'tools/debugger/TOP.html'
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About DebugView...'
+ itemValue: openAboutThisApplication
+ )
+ )
+ nil
+ nil
+ )
+!
+
menuSpec
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -641,481 +1000,203 @@
(
(MenuItem
label: 'File'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: canSendEmail
- label: 'Report a Bug via eMail...'
- itemValue: doOpenReportMailApp
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canCloseAllDebuggers
- label: 'Close all Debuggers...'
- itemValue: closeAllDebuggers
- translateLabel: true
- isVisible: isNotInspecting
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- translateLabel: true
- isVisible: isInspecting
- )
- (MenuItem
- label: 'Close Debugger and Abort'
- itemValue: closeRequest
- translateLabel: true
- isVisible: isNotInspecting
- )
- )
- nil
- nil
- )
+ submenuChannel: fileMenuSpec
)
(MenuItem
label: 'View'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: canShowMore
- label: 'Show More WalkBack'
- itemValue: showMoreWalkback
- translateLabel: true
- )
- (MenuItem
- enabled: canShowMore
- label: 'Show Full WalkBack'
- itemValue: showFullWalkback
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Dense WalkBack'
- itemValue: showingDenseWalkback:
- translateLabel: true
- hideMenuOnActivated: false
- indication: showingDenseWalkback
- )
- (MenuItem
- label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
- itemValue: showingSupportCode:
- translateLabel: true
- hideMenuOnActivated: false
- indication: showingSupportCode
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Raise Debugger when Entering'
- itemValue: autoRaiseView:
- translateLabel: true
- hideMenuOnActivated: false
- indication: autoRaiseView
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Settings...'
- itemValue: openSettingsDialog
- translateLabel: true
- )
- )
- nil
- nil
- )
+ submenuChannel: viewMenuSpec
)
(MenuItem
- label: 'Process'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Continue'
- itemValue: doContinue
- translateLabel: true
- )
- (MenuItem
- label: 'Next (Line-Step)'
- itemValue: doNext
- translateLabel: true
- )
- (MenuItem
- label: 'Step'
- itemValue: doStep
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Change Priority...'
- itemValue: doChangeProcessPriority
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Abort'
- itemValue: doAbort
- translateLabel: true
- )
- (MenuItem
- enabled: abortAllIsHandled
- label: 'Abort All'
- itemValue: doAbortAll
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Terminate'
- itemValue: doTerminate
- translateLabel: true
- )
- )
- nil
- nil
- )
+ label: 'Linked Menu'
+ submenuChannel: unspecified
)
(MenuItem
label: 'Context'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: canReturn
- label: 'Return'
- itemValue: doReturn
- translateLabel: true
- )
- (MenuItem
- enabled: canRestart
- label: 'Restart'
- itemValue: doRestart
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Inspect'
- itemValue: inspectContext
- translateLabel: true
- )
- (MenuItem
- label: 'Copy WalkBack Text'
- itemValue: copyWalkbackText
- translateLabel: true
- )
- (MenuItem
- label: 'Bookmark Method in SystemBrowser'
- itemValue: addBrowserBookmark
- translateLabel: true
- )
- (MenuItem
- label: '-'
- isVisible: false
- )
- (MenuItem
- label: 'Find Handler For...'
- itemValue: findHandlerFor
- translateLabel: true
- isVisible: false
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Remember Callchain && Highlight on Next Entry'
- itemValue: rememberCallchain
- translateLabel: true
- )
- (MenuItem
- label: 'Clear Remembered Callchain'
- itemValue: clearRememberedCallchain
- translateLabel: true
- )
- )
- nil
- nil
- )
+ submenuChannel: contextMenuSpec
)
(MenuItem
label: 'Class'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: canBrowseImplementingClass
- label: 'Browse Implementing Class'
- itemValue: browseImplementingClass
- translateLabel: true
- )
- (MenuItem
- enabled: canBrowseReceiversClass
- label: 'Browse Receivers Class'
- itemValue: browseReceiversClass
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canBrowseClassHierarchy
- label: 'Browse Receivers Class Hierarchy'
- itemValue: browseClassHierarchy
- translateLabel: true
- isVisible: false
- )
- (MenuItem
- enabled: canBrowseFullClassProtocol
- label: 'Browse Receivers Full Protocol'
- itemValue: browseFullClassProtocol
- translateLabel: true
- isVisible: false
- )
- (MenuItem
- label: '-'
- isVisible: false
- )
- (MenuItem
- enabled: canBrowseProcessesApplication
- label: 'Browse Application Class'
- itemValue: browseProcessesApplication
- translateLabel: true
- )
- )
- nil
- nil
- )
+ submenuChannel: classMenuSpec
)
(MenuItem
label: 'Selector'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Browse Implementors...'
- itemValue: browseImplementorsOf
- translateLabel: true
- )
- (MenuItem
- label: 'Browse Senders...'
- itemValue: browseSendersOf
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canDefineMethod
- label: 'Define Missing Method'
- itemValue: doDefineMethod
- translateLabel: true
- )
- )
- nil
- nil
- )
+ submenuChannel: selectorMenuSpec
)
(MenuItem
label: 'Breakpoint'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: canRemoveBreakpoint
- label: 'Remove Breakpoint'
- itemValue: removeBreakpoint
- translateLabel: true
- )
- (MenuItem
- label: 'Remove all Breakpoints'
- itemValue: removeAllBreakpoints
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canAddBreakpoint
- label: 'Add Breakpoint'
- itemValue: addBreakpoint
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Ignore this Halt/BreakPoint'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For Some Time...'
- itemValue: openIgnoreHaltUntilTimeElapsedDialog
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For the Next N Times...'
- itemValue: openIgnoreHaltNTimesDialog
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreHaltUntilShiftKeyIsPressed
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'Forever (Until Ignoring is Stopped)'
- itemValue: ignoreHaltForever
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Ignore all BreakPoints with this Parameter'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'For Some Time...'
- itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'For the Next N Times...'
- itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
- translateLabel: true
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Forever (Reenable in BreakPoint-Browser)'
- itemValue: ignoreBreakpointsWithThisParameterForever
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Ignore all Halts/BreakPoints'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'For Some Time...'
- itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
- translateLabel: true
- )
- (MenuItem
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
- translateLabel: true
- )
- (MenuItem
- label: 'Forever (Until Ignoring is Stopped)'
- itemValue: ignoreAllHaltsForever
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: hasHaltsToIgnore
- label: 'Stop Ignoring'
- itemValue: stopIgnoringHalts
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Manage Breakpoints'
- itemValue: openBreakPointBrowser
- translateLabel: true
- )
- (MenuItem
- label: 'Allow Halt in Debugger'
- itemValue: allowBreakPointsInDebugger:
- translateLabel: true
- indication: allowBreakPointsInDebugger
- )
- )
- nil
- nil
- )
+ submenuChannel: breakPointMenuSpec
)
(MenuItem
label: 'Help'
- translateLabel: true
- startGroup: right
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Debugger''s Documentation'
- itemValue: openHTMLDocument:
- translateLabel: true
- argument: 'tools/debugger/TOP.html'
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About DebugView...'
- itemValue: openAboutThisApplication
- translateLabel: true
- )
- )
- nil
- nil
- )
+ startGroup: conditionalRight
+ submenuChannel: helpMenuSpec
+ )
+ )
+ nil
+ nil
+ )
+!
+
+processMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#processMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView processMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Continue'
+ itemValue: doContinue
+ )
+ (MenuItem
+ label: 'Next (Line-Step)'
+ itemValue: doNext
+ )
+ (MenuItem
+ label: 'Step'
+ itemValue: doStep
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Change Priority...'
+ itemValue: doChangeProcessPriority
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Abort'
+ itemValue: doAbort
+ )
+ (MenuItem
+ enabled: abortAllIsHandled
+ label: 'Abort All'
+ itemValue: doAbortAll
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Terminate'
+ itemValue: doTerminate
+ )
+ )
+ nil
+ nil
+ )
+!
+
+selectorMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#selectorMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView selectorMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Browse Implementors...'
+ itemValue: browseImplementorsOf
+ )
+ (MenuItem
+ label: 'Browse Senders...'
+ itemValue: browseSendersOf
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canDefineMethod
+ label: 'Define Missing Method'
+ itemValue: doDefineMethod
+ )
+ )
+ nil
+ nil
+ )
+!
+
+viewMenuSpec
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:DebugView andSelector:#viewMenuSpec
+ (Menu new fromLiteralArrayEncoding:(DebugView viewMenuSpec)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: canShowMore
+ label: 'Show More WalkBack'
+ itemValue: showMoreWalkback
+ )
+ (MenuItem
+ enabled: canShowMore
+ label: 'Show Full WalkBack'
+ itemValue: showFullWalkback
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Dense WalkBack'
+ itemValue: showingDenseWalkback:
+ hideMenuOnActivated: false
+ indication: showingDenseWalkback
+ )
+ (MenuItem
+ label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
+ itemValue: showingSupportCode:
+ hideMenuOnActivated: false
+ indication: showingSupportCode
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Raise Debugger when Entering'
+ itemValue: autoRaiseView:
+ hideMenuOnActivated: false
+ indication: autoRaiseView
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Settings...'
+ itemValue: openSettingsDialog
)
)
nil
@@ -8144,11 +8225,11 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.571 2013-01-24 15:23:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.572 2013-03-06 09:06:59 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.571 2013-01-24 15:23:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.572 2013-03-06 09:06:59 cg Exp $'
!
version_HG