--- a/GraphColumnView2DSpec.st	Wed Jan 09 12:32:13 2008 +0100
+++ b/GraphColumnView2DSpec.st	Wed Jan 09 21:41:17 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 GraphColumnViewSpec subclass:#GraphColumnView2DSpec
@@ -321,32 +320,38 @@
 actionBlock
     "return the value of the instance variable 'actionBlock' (automatically generated)"
 
-    ^ actionBlock!
+    ^ actionBlock
+!
 
 actionBlock:something
     "set the value of the instance variable 'actionBlock' (automatically generated)"
 
-    actionBlock := something.!
+    actionBlock := something.
+!
 
 buttonReleaseBlock
     "return the value of the instance variable 'buttonReleaseBlock' (automatically generated)"
 
-    ^ buttonReleaseBlock!
+    ^ buttonReleaseBlock
+!
 
 buttonReleaseBlock:something
     "set the value of the instance variable 'buttonReleaseBlock' (automatically generated)"
 
-    buttonReleaseBlock := something.!
+    buttonReleaseBlock := something.
+!
 
 doubleClickBlock
     "return the value of the instance variable 'doubleClickBlock' (automatically generated)"
 
-    ^ doubleClickBlock!
+    ^ doubleClickBlock
+!
 
 doubleClickBlock:something
     "set the value of the instance variable 'doubleClickBlock' (automatically generated)"
 
-    doubleClickBlock := something.!
+    doubleClickBlock := something.
+!
 
 gridX
     "return the value of the instance variable 'gridX' (automatically generated)"
@@ -357,7 +362,8 @@
 gridX:something
     "set the value of the instance variable 'gridX' (automatically generated)"
 
-    gridX := something.!
+    gridX := something.
+!
 
 gridY
     "return the value of the instance variable 'gridY' (automatically generated)"
@@ -368,17 +374,20 @@
 gridY:something
     "set the value of the instance variable 'gridY' (automatically generated)"
 
-    gridY := something.!
+    gridY := something.
+!
 
 menuAccessBlock
     "return the value of the instance variable 'menuAccessBlock' (automatically generated)"
 
-    ^ menuAccessBlock!
+    ^ menuAccessBlock
+!
 
 menuAccessBlock:something
     "set the value of the instance variable 'menuAccessBlock' (automatically generated)"
 
-    menuAccessBlock := something.! !
+    menuAccessBlock := something.
+! !
 
 !GraphColumnView2DSpec methodsFor:'building'!
 
@@ -424,12 +433,19 @@
     super setAttributesIn:aView with:aBuilder.
 
     aBuilder isEditing ifFalse:[
-	aView gridExtent:(self gridX @ self gridY).
-
-	aView             action:(self defineCallBackActionFor:actionBlock with:aBuilder).
-	aView  doubleClickAction:(self defineCallBackActionFor:doubleClickBlock with:aBuilder).
-	aView buttonReleaseBlock:(self defineCallBackActionFor:buttonReleaseBlock with:aBuilder).
-	aView    menuAccessBlock:(self defineCallBackActionFor:menuAccessBlock with:aBuilder).
+        aView gridExtent:(self gridX @ self gridY).
+        actionBlock notNil ifTrue:[
+            aView action:(self callBackActionFor:actionBlock with:aBuilder).
+        ].
+        doubleClickBlock notNil ifTrue:[
+            aView doubleClickAction:(self callBackActionFor:doubleClickBlock with:aBuilder).
+        ].
+        buttonReleaseBlock notNil ifTrue:[
+            aView buttonReleaseBlock:(self callBackActionFor:buttonReleaseBlock with:aBuilder).
+        ].
+        menuAccessBlock notNil ifTrue:[
+            aView menuAccessBlock:(self callBackActionFor:menuAccessBlock with:aBuilder).
+        ]
     ]
 ! !
 
@@ -469,5 +485,5 @@
 !GraphColumnView2DSpec class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.9 2006-11-13 16:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.10 2008-01-09 20:41:17 cg Exp $'
 ! !