--- a/DebugView.st Fri Aug 22 15:39:13 2003 +0200
+++ b/DebugView.st Fri Aug 22 16:34:25 2003 +0200
@@ -459,6 +459,50 @@
#(#Menu
#(
#(#MenuItem
+ #label: 'View'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #enabled: #canShowMore
+ #label: 'Show more WalkBack'
+ #itemValue: #showMore
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #label: 'Show verbose WalkBack'
+ #itemValue: #toggleVerboseWalkback
+ #translateLabel: true
+ #isVisible: #showingDenseWalkback
+ )
+ #(#MenuItem
+ #label: 'Show dense WalkBack'
+ #itemValue: #toggleVerboseWalkback
+ #translateLabel: true
+ #isVisible: #showingVerboseWalkback
+ )
+ #(#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
+ )
+ )
+ #(#MenuItem
#label: 'Process'
#translateLabel: true
#submenu:
@@ -466,24 +510,24 @@
#(
#(#MenuItem
#label: 'Continue'
+ #itemValue: #doContinue
#translateLabel: true
- #value: #doContinue
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Abort'
+ #itemValue: #doAbort
#translateLabel: true
- #value: #doAbort
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Terminate'
+ #itemValue: #doTerminate
#translateLabel: true
- #value: #doTerminate
)
)
nil
@@ -497,30 +541,30 @@
#(#Menu
#(
#(#MenuItem
+ #enabled: #canReturn
#label: 'Return'
+ #itemValue: #doReturn
#translateLabel: true
- #value: #doReturn
- #enabled: #canReturn
)
#(#MenuItem
+ #enabled: #canRestart
#label: 'Restart'
+ #itemValue: #doRestart
#translateLabel: true
- #value: #doRestart
- #enabled: #canRestart
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasContextSelected
#label: 'Inspect'
+ #itemValue: #inspectContext
#translateLabel: true
- #value: #inspectContext
- #enabled: #hasContextSelected
)
#(#MenuItem
#label: 'Copy WalkBack Text'
+ #itemValue: #copyWalkbackText
#translateLabel: true
- #value: #copyWalkbackText
)
)
nil
@@ -534,31 +578,31 @@
#(#Menu
#(
#(#MenuItem
+ #enabled: #canBrowseImplementingClass
#label: 'Browse Implementing Class'
+ #itemValue: #browseImplementingClass
#translateLabel: true
- #value: #browseImplementingClass
- #enabled: #canBrowseImplementingClass
)
#(#MenuItem
+ #enabled: #canBrowseReceiversClass
#label: 'Browse Receivers Class'
+ #itemValue: #browseReceiversClass
#translateLabel: true
- #value: #browseReceiversClass
- #enabled: #canBrowseReceiversClass
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #canBrowseClassHierarchy
#label: 'Browse Receivers Class Hierarchy'
+ #itemValue: #browseClassHierarchy
#translateLabel: true
- #value: #browseClassHierarchy
- #enabled: #canBrowseClassHierarchy
)
#(#MenuItem
+ #enabled: #canBrowseFullClassProtocol
#label: 'Browse Receivers Full Protocol'
+ #itemValue: #browseFullClassProtocol
#translateLabel: true
- #value: #browseFullClassProtocol
- #enabled: #canBrowseFullClassProtocol
)
)
nil
@@ -573,51 +617,22 @@
#(
#(#MenuItem
#label: 'Browse Implementors...'
+ #itemValue: #browseImplementorsOf
#translateLabel: true
- #value: #browseImplementorsOf
)
#(#MenuItem
#label: 'Browse Senders...'
+ #itemValue: #browseSendersOf
#translateLabel: true
- #value: #browseSendersOf
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #canDefineMethod
#label: 'Define'
+ #itemValue: #doDefineMethod
#translateLabel: true
- #value: #doDefineMethod
- #enabled: #canDefineMethod
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: 'View'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Show more WalkBack'
- #translateLabel: true
- #value: #showMore
- #enabled: #canShowMore
- )
- #(#MenuItem
- #label: 'Show verbose WalkBack'
- #translateLabel: true
- #isVisible: #showingDenseWalkback
- #value: #toggleVerboseWalkback
- )
- #(#MenuItem
- #label: 'Show dense WalkBack'
- #translateLabel: true
- #isVisible: #showingVerboseWalkback
- #value: #toggleVerboseWalkback
)
)
nil
@@ -631,32 +646,32 @@
#(#Menu
#(
#(#MenuItem
+ #enabled: #canRemoveBreakpoint
#label: 'Remove'
+ #itemValue: #removeBreakpoint
#translateLabel: true
- #value: #removeBreakpoint
- #enabled: #canRemoveBreakpoint
)
#(#MenuItem
#label: 'Remove all Breakpoints'
+ #itemValue: #removeAllBreakpoints
#translateLabel: true
- #value: #removeAllBreakpoints
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #canAddBreakpoint
#label: 'Add'
+ #itemValue: #addBreakpoint
#translateLabel: true
- #value: #addBreakpoint
- #enabled: #canAddBreakpoint
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Allow Breakpoints in Debugger'
+ #itemValue: #allowBreakPointsInDebugger:
#translateLabel: true
- #value: #allowBreakPointsInDebugger:
#indication: #allowBreakPointsInDebugger
)
)
@@ -673,8 +688,8 @@
#(
#(#MenuItem
#label: 'Debuggers Documentation'
+ #itemValue: #openHTMLDocument:
#translateLabel: true
- #value: #openHTMLDocument:
#argument: 'tools/debugView/TOP.html'
)
#(#MenuItem
@@ -682,8 +697,8 @@
)
#(#MenuItem
#label: 'About DebugView...'
+ #itemValue: #openAboutThisApplication
#translateLabel: true
- #value: #openAboutThisApplication
)
)
nil
@@ -1637,6 +1652,14 @@
"Modified: / 17.11.2001 / 22:51:46 / cg"
!
+isInspecting
+ ^ inspecting
+!
+
+isNotInspecting
+ ^ inspecting not
+!
+
openOn:aProcess
"enter the debugger on a process -
in this case, we are just inspecting the context chain of the process,
@@ -5894,7 +5917,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.345 2003-08-19 16:01:33 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.346 2003-08-22 14:34:25 cg Exp $'
! !
DebugView initialize!