# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1199793104 -3600
# Node ID 23205ddb56e1e850cda2003738b307d314c6ba03
# Parent  8ac60d4545ad69ba3a18e47922651d3c67b1f32d
bug fix: saving a spec while grid is on saved the grid-Form
as backgroundColor in the spec.

diff -r 8ac60d4545ad -r 23205ddb56e1 UIPainter.st
--- a/UIPainter.st	Mon Dec 17 12:05:23 2007 +0100
+++ b/UIPainter.st	Tue Jan 08 12:51:44 2008 +0100
@@ -3904,6 +3904,10 @@
 !
 
 doBrowseActionMethod:aspectSelector
+    self doBrowseActionMethod:aspectSelector nameAs:aspectSelector
+!
+
+doBrowseActionMethod:aspectSelector nameAs:aspectNameShown
     |cls spec aspect code|
 
     cls := self specClass.
@@ -3917,8 +3921,8 @@
     aspect := spec perform:aspectSelector.
     aspect isNil ifTrue:[
         Dialog information:(resources 
-                                string:'Please enter a Method name for %1 first.'
-                                with:aspectSelector allBold).
+                                string:'Please enter a Method name for "%1" first.'
+                                with:(resources string:aspectNameShown) allBold).
         ^ self
     ].
         
@@ -4721,6 +4725,11 @@
     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 copyValuesFromSpec:windowSpec.