--- a/DataSetView.st Fri Jul 25 14:43:51 2008 +0200
+++ b/DataSetView.st Fri Jul 25 14:43:54 2008 +0200
@@ -9,10 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
-
"{ Package: 'stx:libwidg2' }"
ScrollableView subclass:#DataSetView
@@ -74,13 +70,14 @@
1 to:1000 do:[:i||n|
n := i printString.
- rows add:(Array with:('text: ', n) with:('input: ', n) with:bool).
+ rows add:(Array with:('text: ', n) with:('input: ', n) with:bool with:(i==20)).
bool := bool not.
].
columns add:(DataSetColumnSpec label:'Text' editorType:#None selector:rdWtSel).
columns add:(DataSetColumnSpec label:'Input' editorType:#InputField selector:rdWtSel).
columns add:(DataSetColumnSpec label:'Toggle' editorType:#CheckToggle selector:rdWtSel).
+ columns add:(DataSetColumnSpec label:'Radio' editorType:#RadioButton selector:rdWtSel).
scr columnDescriptors:columns.
scr list:rows.
@@ -388,5 +385,5 @@
!DataSetView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.41 2006-01-31 14:07:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.42 2008-07-25 12:43:54 cg Exp $'
! !