# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1199802912 -3600
# Node ID 7cddff46d0ad1b12eba6f932e0d6c622db793626
# Parent  23205ddb56e1e850cda2003738b307d314c6ba03
*** empty log message ***

diff -r 23205ddb56e1 -r 7cddff46d0ad UIPainter.st
--- a/UIPainter.st	Tue Jan 08 12:51:44 2008 +0100
+++ b/UIPainter.st	Tue Jan 08 15:35:12 2008 +0100
@@ -4725,16 +4725,16 @@
     fullSpec fromBuilder:(self canvas)
               components:(SpecCollection new collection:aSpecArray).
 
-    "/ kludge: if grid was on, its now present in the windowSpec (which should not)
-    self canvas gridShown ifTrue:[
-        fullSpec window backgroundColor:nil.    
-    ].
-
-    windowSpec notNil ifTrue:[
-        winSpec := fullSpec window.
+    winSpec := fullSpec window.
+    windowSpec isNil ifTrue:[
+        "/ kludge: if grid was on, its now present in the windowSpec (which should not)
+        self canvas gridShown ifTrue:[
+            fullSpec window backgroundColor:nil.    
+        ].
+    ] ifFalse:[
         winSpec copyValuesFromSpec:windowSpec.
-        winSpec name: winSpec label.
     ].    
+    winSpec name: winSpec label.
     ^ fullSpec literalArrayEncoding.
 !