Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update examples
authorClaus Gittinger <cg@exept.de>
Sun, 29 Aug 1999 18:56:13 +0200
changeset 1495 edd56c071260
parent 1494 096845be5d75
child 1496 78d702c6c614
update examples
DataSetView.st file | annotate | diff | comparison | revisions 
--- a/DataSetView.st	Sun Aug 29 16:28:56 1999 +0200
+++ b/DataSetView.st	Sun Aug 29 18:56:13 1999 +0200
@@ -60,7 +60,7 @@
                                                                                 [exBegin]
     |top scr columns rows bool rdWtSel|
 
-    top  := StandardSystemView new label:'select'; extent:700@440.
+    top  := StandardSystemView new label:'Simple Test'; extent:700@440.
     scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
 
     columns := OrderedCollection new.
@@ -89,7 +89,7 @@
                                                                                 [exBegin]
     |top scr columns bool rdWtSel|
 
-    top  := StandardSystemView new label:'select'; extent:700@440.
+    top  := StandardSystemView new label:'Row Is Absent'; extent:700@440.
     scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
 
     columns := OrderedCollection new.
@@ -116,7 +116,7 @@
                                                                                 [exBegin]
     |top scr clDc rows slct list idx bool|
 
-    top  := StandardSystemView new label:'select'; extent:700@440.
+    top  := StandardSystemView new label:'Editors'; extent:700@440.
     scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
 
     clDc := OrderedCollection new.
@@ -157,7 +157,7 @@
                                                                                 [exBegin]
     |top scr clDc rows slct list idx bool|
 
-    top  := StandardSystemView new label:'select'; extent:700@440.
+    top  := StandardSystemView new label:'Multiple Select'; extent:700@440.
     scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
 
     clDc := OrderedCollection new.
@@ -194,47 +194,44 @@
                                                                                 [exEnd]
 
 
-    example 5: images as label
+    example 5: Images and Layout
                                                                                 [exBegin]
+    |top scr columns rows colDesc image text|
 
-    |lbl top scr clDc rows slct list idx bool|
+    text := 'Text'.
+    rows := Array new:1000.
 
-    top  := StandardSystemView new label:'select'; extent:400@440.
-    scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
+    1 to:(rows size) do:[:i|
+        rows at:i put:(Array with:('Id: ', i printString) with:text with:text)
+    ].
 
-    clDc := OrderedCollection new.
-    rows := OrderedCollection new.
-    list := #( 'Text ' 'Field ' 'C-Box ' 'C-List ' true    #( 'foo' 'bar' 'baz' ) ).
-    slct := #( #text   #field   #cbox    #clist    #toggle #choices               ).
-    idx  := 11.
-    bool := true.
+    columns := OrderedCollection new.
+    image   := Image fromFile:('xpmBitmaps/misc_tools/box_full.xpm' ).
+
+    colDesc := DataSetColumnSpec label:(LabelAndIcon icon:image string:'Left') selector:#at:.
+    colDesc labelAlignment:#left.
+    colDesc columnAlignment:#left.
+    columns add:colDesc.
 
-    20 timesRepeat:[ |values|
-        values := list collect:[:n|
-            n isString ifTrue:[n, idx printString]
-                      ifFalse:[n == true ifTrue:[bool] ifFalse:[n]]
-        ].
-        rows add:(Structure newWith:slct values:values).
-        bool := bool not.
-        idx  := idx + 1.
-    ].
-    lbl := Image fromFile:('gifImages/nexthand.gif' ).
+    colDesc := DataSetColumnSpec label:(LabelAndIcon icon:image string:'Right') selector:#at:.
+    colDesc labelAlignment:#right.
+    colDesc columnAlignment:#right.
+    columns add:colDesc.
+
+    colDesc := DataSetColumnSpec label:(LabelAndIcon icon:image string:'Center') selector:#at:.
+    colDesc labelAlignment:#center.
+    colDesc columnAlignment:#center.
+    columns add:colDesc.
 
-    clDc add:( DataSetColumnSpec label:lbl      editorType:#None        selector:#text ).
-    clDc add:( DataSetColumnSpec label:'Text'   editorType:#None        selector:#text ).
-    clDc add:( DataSetColumnSpec label:'Field'  editorType:#InputField  selector:#field ).
+    columns do:[:el|el labelActionSelector:#dummy].
 
-    lbl := Image fromFile:('xpmBitmaps/misc_tools/box_full.xpm' ).
-    clDc add:( DataSetColumnSpec label:lbl      editorType:#ComboBox    selector:#cbox ).
-    clDc last choices:#choices.
-    clDc add:( DataSetColumnSpec label:'C-List' editorType:#ComboList   selector:#clist ).
-    clDc last choices:#choices.
-    clDc add:( DataSetColumnSpec label:'Toggle' editorType:#CheckToggle selector:#toggle ).
+    top := StandardSystemView new label:'Layout'; extent:500@500.
+    scr := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
+    scr has3Dseparators:true.
+    scr columnDescriptors:columns.
+    scr list:rows.
 
-    scr has3Dseparators:true.
-    scr columnDescriptors:clDc.
-    scr list:rows.
-    top open.
+    top open
                                                                                 [exEnd]
 
 
@@ -243,7 +240,7 @@
                                                                                 [exBegin]
     |top scr list|
 
-    top  := StandardSystemView new label:'select'; extent:600@440.
+    top  := StandardSystemView new label:'Adding & Removing'; extent:600@440.
     scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
 
     scr columnDescriptors:( Array with:(DataSetColumnSpec label:'FOO' selector:#at:)
@@ -269,90 +266,6 @@
 "
 ! !
 
-!DataSetView class methodsFor:'test'!
-
-test
-    |top scr clDc rows slct list bool spc img model idx size|
-
-    top  := StandardSystemView new label:'select'; extent:600@500.
-    scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
-
-    clDc := OrderedCollection new.
-    rows := OrderedCollection new.
-    list := #( 'Text ' 'Field ' 'C-Box ' 'C-List ' true    #( 'foo' 'bar' 'baz' ) ).
-    slct := #( #text   #field   #cbox    #clist    #toggle #choices               ).
-    bool := true.
-
-    10 to:30 do:[:i| |values|
-        values := list collect:[:n|
-            n isString ifTrue:[n, i printString]
-                      ifFalse:[n == true ifTrue:[bool] ifFalse:[n]]
-        ].
-        rows add:(Structure newWith:slct values:values).
-        bool := bool not.
-    ].
-    clDc add:( spc := DataSetColumnSpec label:'Text'   editorType:#None        selector:#text ).
-    spc labelAlignment:#left.
-
-    img := Image fromFile:('xpmBitmaps/misc_tools/box_full.xpm' ).
-    clDc add:( spc := DataSetColumnSpec label:img   editorType:#None        selector:#text ).
-    spc labelAlignment:#right.
-
-    img := Image fromFile:('xpmBitmaps/misc_tools/box_full.xpm' ).
-    clDc add:( spc := DataSetColumnSpec label:img  editorType:#InputField  selector:#field ).
-    spc labelAlignment:#left.
-
-    img := Image fromFile:('xpmBitmaps/misc_tools/box_full.xpm' ).
-    clDc add:( spc := DataSetColumnSpec label:(LabelAndIcon icon:img string:'Combo')  editorType:#ComboBox    selector:#cbox ).
-    spc labelAlignment:#center.
-    spc choices:#choices.
-
-    clDc add:( spc := DataSetColumnSpec label:'C-List' editorType:#ComboList   selector:#clist ).
-    spc choices:#choices.
-    clDc add:( spc := DataSetColumnSpec label:'Toggle' editorType:#CheckToggle selector:#toggle ).
-    clDc do:[:el|
-        el minWidth:80.
-"/        el labelActionSelector:#dummy.
-    ].
-    clDc first labelActionSelector:#dummy.
-
-    scr has3Dseparators:true.
-    model := ValueHolder new.
-    model value:clDc.
-    scr columnHolder:model.
-    "/ scr columnDescriptors:clDc.
-    scr list:rows.
-    top open.
-!
-
-test2
-"
-self test2
-"
-    |top scr list|
-
-    top  := StandardSystemView new label:'select'; extent:600@440.
-    scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
-
-    scr columnDescriptors:( Array with:(DataSetColumnSpec label:'FOO' selector:#at:)
-                                  with:(DataSetColumnSpec label:'BAR' selector:#at:)
-                                  with:(DataSetColumnSpec label:'BAZ' selector:#at:)
-                          ).
-
-    scr has3Dseparators:true.
-    scr listHolder:(list := List new).
-    top openAndWait.
-
-    1 to:32 do:[:i| |pid|
-        pid := i printString.
-        list add:(Array with:('foo: ', pid) with:('bar: ', pid) with:('baz: ', pid)).
-        i even ifTrue:[
-            list removeFirst
-        ].       
-        Delay waitForSeconds:0.01.
-    ].
-! !
-
 !DataSetView methodsFor:'initialize / release'!
 
 initialize
@@ -375,5 +288,5 @@
 !DataSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.30 1999-08-24 15:29:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.31 1999-08-29 16:56:13 cg Exp $'
 ! !
hg/stx-libwidg2