--- a/DebugView.st Mon Feb 11 14:00:37 2002 +0100
+++ b/DebugView.st Mon Feb 11 20:49:59 2002 +0100
@@ -1966,8 +1966,8 @@
menuPanel := MenuPanel in:self.
menuPanel verticalLayout:false.
+ menuPanel menu:(self class menuSpec).
menuPanel receiver:self.
- menuPanel menu:(self pullDownMenu).
mH := menuPanel preferredExtent y.
menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
@@ -2031,7 +2031,8 @@
DefaultDebuggerBackgroundColor notNil ifTrue:[
self allViewBackground:DefaultDebuggerBackgroundColor.
- ]
+ ].
+
"
Debugger newDebugger
@@ -2481,21 +2482,6 @@
"Created: 24.7.1997 / 18:17:44 / cg"
!
-pullDownMenu
- "return the top (pullDown) menu"
-
- <resource: #programMenu>
-
- ^ self menuFromSpec:self class menuSpec.
-"/ |m|
-"/
-"/ m := self class menuSpec.
-"/ m := m decodeAsLiteralArray.
-"/ m receiver:self.
-"/ m findGuiResourcesIn:self.
-"/ ^ m.
-!
-
reinitialize
"/ redefined - since the debugView runs on top of
"/ the debuggee, there would be no event loop for me.
@@ -5069,6 +5055,16 @@
>>>> : ' , ex suspendedContext sender sender printString , '
>>>> : ' , ex suspendedContext sender sender sender printString , '
>>>> : ' , ex suspendedContext sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
+>>>> : ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
>>>> Message: ' , ex errorString , '
caught & ignored.'.
@@ -5356,6 +5352,16 @@
"Modified: / 18.11.2001 / 00:12:29 / cg"
!
+confirm:aString
+ "redefined here, to answer true, if exclusice Debugger, which
+ cannot handle popup boxes"
+
+ (exclusive or:[windowGroup isNil]) ifTrue:[
+ ^ true
+ ].
+ ^ super confirm:aString.
+!
+
doShowSelection:lineNr
"user clicked on a header line - show selected code in textView.
Also sent to autoselect an interesting context on entry."
@@ -5858,6 +5864,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.312 2002-01-10 17:42:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.313 2002-02-11 19:49:59 stefan Exp $'
! !
DebugView initialize!