# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 918139252 -3600
# Node ID 8c1deb0281c734c8873a13586ef26da286454448
# Parent  dcfbf3acb03730695d6dcbb064d3d10f9c469898
checkin from browser

diff -r dcfbf3acb037 -r 8c1deb0281c7 UIPainter.st
--- a/UIPainter.st	Wed Jan 20 20:25:32 1999 +0100
+++ b/UIPainter.st	Thu Feb 04 15:40:52 1999 +0100
@@ -850,7 +850,6 @@
     "Modified: / 5.9.1998 / 17:42:12 / cg"
 ! !
 
-
 !UIPainter class methodsFor:'menu specs'!
 
 menu
@@ -3108,14 +3107,15 @@
     painter  := self painter.
     bindings := IdentityDictionary new.
     gridPara := painter gridParameters copy.
-
-    bindings at:#showGrid    put:((self class settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
-    bindings at:#alignToGrid put:((self class settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
+    settings := self class settings.
+
+    bindings at:#showGrid    put:((settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
+    bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
     bindings at:#hspace      put:((gridPara at:1) asValue).
     bindings at:#vspace      put:((gridPara at:2) asValue).
 
     (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
-	^ self
+        ^ self
     ].
 
     hspace := (bindings at:#hspace) value ? 5.
@@ -3131,13 +3131,14 @@
     painter gridParameters:gridPara.
     painter gridAlign:(bindings at:#alignToGrid) value.
     painter gridShown:(bindings at:#showGrid) value.
-    settings := self class settings.
+
     settings at: #GridShown  put: (bindings at:#showGrid) value.
     settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
     settings at: #HGridSpace put: hspace.
     settings at: #VGridSpace put: vspace.
     painter clear.
 
+    "Modified: / 4.2.1999 / 15:36:34 / cg"
 !
 
 doGenerateAspectMethods