--- a/DebugView.st	Mon Apr 16 16:17:08 2007 +0200
+++ b/DebugView.st	Tue May 15 13:41:23 2007 +0200
@@ -451,6 +451,15 @@
                   label: '-'
                 )
                (MenuItem
+                  label: 'Raise Debugger when Entering'
+                  itemValue: autoRaiseView:
+                  translateLabel: true
+                  indication: autoRaiseView
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
                   label: 'Exit'
                   itemValue: closeRequest
                   translateLabel: true
@@ -685,6 +694,8 @@
         nil
         nil
       )
+
+    "Modified: / 15-05-2007 / 13:31:52 / cg"
 ! !
 
 !DebugView class methodsFor:'misc'!
@@ -1159,7 +1170,12 @@
 Also, there is no event processing (redraw) for other views.'
     ].
 
-    self raise.
+    self autoRaiseView ifTrue:[
+        "/ self raise.
+        self raiseDeiconified.
+        self topView activate.
+        self topView setForegroundWindow.
+    ].
 
     canContinue := true.
     exitAction := nil.
@@ -1318,10 +1334,10 @@
         self cacheMyself.
     ]
 
-    "Modified: / 17.4.1997 / 13:01:32 / stefan"
-    "Created: / 30.10.1997 / 21:08:18 / cg"
-    "Modified: / 13.10.1998 / 19:56:59 / ps"
-    "Modified: / 18.11.2001 / 00:48:47 / cg"
+    "Modified: / 17-04-1997 / 13:01:32 / stefan"
+    "Created: / 30-10-1997 / 21:08:18 / cg"
+    "Modified: / 13-10-1998 / 19:56:59 / ps"
+    "Modified: / 15-05-2007 / 13:41:46 / cg"
 !
 
 exit_abort
@@ -3111,6 +3127,18 @@
     self initializeContextViewsMiddleButtonMenu.
 !
 
+autoRaiseView
+    ^ UserPreferences current autoRaiseDebugger
+
+    "Created: / 15-05-2007 / 13:29:55 / cg"
+!
+
+autoRaiseView:aBoolean
+    UserPreferences current autoRaiseDebugger:aBoolean
+
+    "Created: / 15-05-2007 / 13:30:04 / cg"
+!
+
 autoUpdateOff
     "stop the update process"
 
@@ -5991,7 +6019,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.414 2007-03-06 13:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.415 2007-05-15 11:41:23 cg Exp $'
 ! !
 
 DebugView initialize!