# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1216989834 -7200
# Node ID a5df2627ebdeb31ffe94e6b28da0a98ce707c0eb
# Parent  f5964848f894e1a75e4ec795f0d57bbce1171c66
refactored;
added RadioButton style

diff -r f5964848f894 -r a5df2627ebde DataSetView.st
--- 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 $'
 ! !