# HG changeset patch
# User ca
# Date 948731846 -3600
# Node ID 66252dfdd14c0f037fba91428e4ac13f7559b199
# Parent  3aa9dab5963364e52d8fb35476ea8aa8fe7f53da
hack for tabable (becomes better)

diff -r 3aa9dab59633 -r 66252dfdd14c UIPainter.st
--- a/UIPainter.st	Mon Jan 24 16:34:28 2000 +0100
+++ b/UIPainter.st	Mon Jan 24 17:37:26 2000 +0100
@@ -2436,15 +2436,22 @@
 raiseTabView
 
     self isLayoutToolSelected ifTrue:[
-	layoutCanvas raise
+        helpCanvas   unmap.
+        specCanvas   unmap.
+        layoutCanvas realize.
     ] ifFalse:[
-	self isHelpToolSelected ifTrue:[
-	    helpCanvas raise
-	] ifFalse:[
-	    self specTool selection:tabSelection.
-	    specCanvas raise
-	]
+        self isHelpToolSelected ifTrue:[
+            layoutCanvas unmap.
+            specCanvas   unmap.
+            helpCanvas   realize.
+        ] ifFalse:[
+            layoutCanvas unmap.
+            helpCanvas   unmap.
+            specCanvas   realize.
+            specCanvas application selection:tabSelection.
+        ]
     ]
+
 !
 
 raiseUIView:aView