--- a/DebugView.st	Mon Feb 23 16:05:38 1998 +0100
+++ b/DebugView.st	Tue Feb 24 16:36:11 1998 +0100
@@ -733,12 +733,17 @@
 Also, there is no event processing (redraw) for other views.'
     ].
 
-    "
-     bring us to the top
-    "
+    "/
+    "/ bring us to the top
+    "/
     self raise.
-    device flush.
-    codeView invalidate.
+
+    "/
+    "/ wait until realized ...
+    "/ - kludge; I have (currently) no idea, why this is needed ...
+    "/
+    windowGroup eventLoopWhile:[self shown not] onLeave:[].
+    self withAllSubViewsDo:[:v | v invalidate].
 
     canContinue := true.
     exitAction := nil.
@@ -1289,7 +1294,7 @@
                 miniScrollerV:false
                  in:panel.
     v origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
-    v autoHideScrollBars:true.
+"/    v autoHideScrollBars:true.
     codeView := v scrolledView.
 
     hpanel := VariableHorizontalPanel in:panel.
@@ -3778,6 +3783,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.190 1998-02-21 14:47:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.191 1998-02-24 15:36:11 cg Exp $'
 ! !
 DebugView initialize!