--- 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