DSVColumnView.st
changeset 5447 867fdca4b691
parent 5421 3fd7edaeb379
child 5517 9acf3fa7e7a8
--- a/DSVColumnView.st	Sat Feb 04 22:19:14 2017 +0100
+++ b/DSVColumnView.st	Sat Feb 04 22:19:48 2017 +0100
@@ -595,12 +595,12 @@
     ^ multipleSelectOk
 !
 
-multipleSelectOk:aState 
+multipleSelectOk:sBoolean 
     "allow/disallow multiple row selections; the default is false"
 
     |colIdx rowIdx|
 
-    aState == multipleSelectOk ifTrue:[^ self ].
+    sBoolean == multipleSelectOk ifTrue:[^ self ].
     colIdx := rowIdx := 0.
 
     self hasSelection ifTrue:[
@@ -612,8 +612,10 @@
         ].
         self setSelectColIndex:0 rowIndex:0 openEditor:false.
     ].
-    multipleSelectOk := aState.
+    multipleSelectOk := sBoolean.
     self selectColIndex:colIdx rowIndex:rowIdx openEditor:false.
+
+    "Modified (format): / 04-02-2017 / 21:31:30 / cg"
 !
 
 opaqueColumnResize
@@ -1336,10 +1338,12 @@
     ^ labelView isVisible
 !
 
-showLabels:aState 
+showLabels:aBoolean 
     "control the labels view to be visible or unvisible"
     
-    labelView isVisible:aState
+    labelView isVisible:aBoolean
+
+    "Modified (format): / 04-02-2017 / 21:31:43 / cg"
 !
 
 verticalSpacing
@@ -2329,7 +2333,7 @@
         style:ButtonEdgeStyle.
 !
 
-drawRadioButtonAtX:xLeft y:yTop w:cellWidth state:aState
+drawRadioButtonAtX:xLeft y:yTop w:cellWidth state:aBooleanOrNil
     "draw a radio button"
 
     |image
@@ -2344,13 +2348,15 @@
     x := xLeft + ((cellWidth - w) // 2).
     h odd ifTrue:[y := y + 1].
 
-    image := (aState == true) 
+    image := (aBooleanOrNil == true) 
                 ifTrue:[radioButtonActiveImage]
                 ifFalse:[radioButtonPassiveImage].
 
     image := image onDevice:device.
 
     self displayForm:image x:x y:y.
+
+    "Modified (format): / 04-02-2017 / 21:31:16 / cg"
 ! !
 
 !DSVColumnView methodsFor:'enumerating columns'!