# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1013456999 -3600
# Node ID da6d661593d852b6dbb8bb2c834464eef34bc561
# Parent  cfeb30edc2519f197cf798423b1398ee151277af
Exclusive debugger (on top of scheduler process) is working again.

diff -r cfeb30edc251 -r da6d661593d8 DebugView.st
--- 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!