GraphColumnView2DSpec.st
changeset 742 287f20104462
parent 740 9f14842f602e
child 751 616686a9b678
--- a/GraphColumnView2DSpec.st	Sat Feb 07 16:16:52 1998 +0100
+++ b/GraphColumnView2DSpec.st	Sat Feb 07 16:51:11 1998 +0100
@@ -414,14 +414,14 @@
 
     l := super skippedInLiteralEncoding asOrderedCollection.
 
-    actionBlock        isNil ifTrue:[l add:actionBlock].
-    doubleClickBlock   isNil ifTrue:[l add:doubleClickBlock].
-    buttonReleaseBlock isNil ifTrue:[l add:buttonReleaseBlock].
-    menuAccessBlock    isNil ifTrue:[l add:menuAccessBlock].
+    actionBlock        isNil ifTrue:[l add:#actionBlock].
+    doubleClickBlock   isNil ifTrue:[l add:#doubleClickBlock].
+    buttonReleaseBlock isNil ifTrue:[l add:#buttonReleaseBlock].
+    menuAccessBlock    isNil ifTrue:[l add:#menuAccessBlock].
 
     self showGrid ifFalse:[
-        l add:gridX.
-        l add:gridY.
+        l add:#gridX.
+        l add:#gridY.
     ].
   ^ l
 
@@ -445,5 +445,5 @@
 !GraphColumnView2DSpec class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.1 1998-02-07 15:13:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.2 1998-02-07 15:51:11 ca Exp $'
 ! !