hack for tabable (becomes better)
authorca
Mon, 24 Jan 2000 17:37:26 +0100
changeset 1306 66252dfdd14c
parent 1305 3aa9dab59633
child 1307 52898ecde37d
hack for tabable (becomes better)
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