GraphColumnViewSpec.st
changeset 3309 5e33115fabe7
parent 3150 e3a55f15ef7e
child 4770 6634b540fea2
--- a/GraphColumnViewSpec.st	Thu Jan 10 14:00:52 2008 +0100
+++ b/GraphColumnViewSpec.st	Thu Jan 10 14:00:55 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 MenuComponentSpec subclass:#GraphColumnViewSpec
@@ -464,32 +463,38 @@
 graphOriginX
     "return the value of the instance variable 'graphOriginX' (automatically generated)"
 
-    ^ graphOriginX!
+    ^ graphOriginX
+!
 
 graphOriginX:something
     "set the value of the instance variable 'graphOriginX' (automatically generated)"
 
-    graphOriginX := something.!
+    graphOriginX := something.
+!
 
 listHolder
     "return the value of the instance variable 'listHolder' (automatically generated)"
 
-    ^ listHolder!
+    ^ listHolder
+!
 
 listHolder:something
     "set the value of the instance variable 'listHolder' (automatically generated)"
 
-    listHolder := something.!
+    listHolder := something.
+!
 
 referenceSelector
     "return the value of the instance variable 'referenceSelector' (automatically generated)"
 
-    ^ referenceSelector!
+    ^ referenceSelector
+!
 
 referenceSelector:something
     "set the value of the instance variable 'referenceSelector' (automatically generated)"
 
-    referenceSelector := something.!
+    referenceSelector := something.
+!
 
 references
     "return the value of the instance variable 'references' (automatically generated)"
@@ -524,7 +529,8 @@
 showDefaultMenu:something
     "set the value of the instance variable 'showDefaultMenu' (automatically generated)"
 
-    showDefaultMenu := something.!
+    showDefaultMenu := something.
+!
 
 showGrid
     "return the value of the instance variable 'showGrid' (automatically generated)"
@@ -535,33 +541,38 @@
 showGrid:something
     "set the value of the instance variable 'showGrid' (automatically generated)"
 
-    showGrid := something.!
+    showGrid := something.
+!
 
 windowSize
     "return the value of the instance variable 'windowSize' (automatically generated)"
 
-    ^ windowSize!
+    ^ windowSize
+!
 
 windowSize:something
     "set the value of the instance variable 'windowSize' (automatically generated)"
 
-    windowSize := something.!
+    windowSize := something.
+!
 
 zoomY
     "return the value of the instance variable 'zoomY' (automatically generated)"
 
-    ^ zoomY!
+    ^ zoomY
+!
 
 zoomY:something
     "set the value of the instance variable 'zoomY' (automatically generated)"
 
-    zoomY := something.! !
+    zoomY := something.
+! !
 
 !GraphColumnViewSpec methodsFor:'building'!
 
 aspectSelectors
-    "add more aspect selectors
-    "
+    "add more aspect selectors (these generate aspect methods in the definer)"
+
     |more|
 
     more := super aspectSelectors.
@@ -571,7 +582,7 @@
     references   notNil ifTrue:[more add:references].
     zoomY        notNil ifTrue:[more add:zoomY].
 
-  ^ more
+    ^ more
 !
 
 createViewFor:aBuilder in:aView
@@ -676,6 +687,7 @@
 !GraphColumnViewSpec class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.12 2006-11-13 16:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.13 2008-01-10 13:00:55 cg Exp $'
 ! !
+
 GraphColumnViewSpec initialize!