--- 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 $'
! !