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.
tests as comments
authorClaus Gittinger <cg@exept.de>
Wed, 27 Sep 2000 09:41:59 +0200
changeset 1851 594128936afe
parent 1850 e22e95d8f184
child 1852 8e467f716b6e
tests as comments
ExtendedComboBox.st file | annotate | diff | comparison | revisions 
--- a/ExtendedComboBox.st	Mon Sep 25 23:52:25 2000 +0200
+++ b/ExtendedComboBox.st	Wed Sep 27 09:41:59 2000 +0200
@@ -388,214 +388,153 @@
 
 !ExtendedComboBox class methodsFor:'testing'!
 
-test
-"
-self test
+tests
 "
-    |top menu|
-
-    top  := StandardSystemView extent:200@35.
-    menu := ExtendedComboBox origin:5 @ 5 corner:0.8 @ 0.0 in:top.
-    menu bottomInset:(menu preferredExtent y negated).
-    menu list:#('foo' 'bar' 'baz' 'hjh' 'kk' 'claus' 'gjhj').
-    top  open.
-!
-
-test1
-"
-self test1
-"
-    |top menu|
+    test1
+        |top menu|
 
-    top  := StandardSystemView extent:200@35.
-    menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
-    menu bottomInset:(menu preferredExtent y negated).
-    menu directory:(OperatingSystem getHomeDirectory).
-    top  open.
-
-    "Modified: / 25.5.1999 / 15:16:16 / cg"
-!
-
-test10
-"
-self test10
-"
-    |top menu view o|
-
-    top  := StandardSystemView extent:300@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
-
-    view := DrawView new.
-    o := DrawRectangle new.
-    o origin:10@10 corner:100@100.
-    view add:o.
-
-    o := DrawText new.
-    o text:'hello there'; origin:50@50; foreground:Color red.
-    view add:o.
+        top  := StandardSystemView extent:200@35.
+        menu := ExtendedComboBox origin:5 @ 5 corner:0.8 @ 0.0 in:top.
+        menu bottomInset:(menu preferredExtent y negated).
+        menu list:#('foo' 'bar' 'baz' 'hjh' 'kk' 'claus' 'gjhj').
+        top  open.
 
 
-    menu menuWidget:view.
-    menu menuHeight:300.
-    top  open.
-
-!
+    test2
+        |top menu view edit|
 
-test2
-"
-self test2
-"
-    |top menu view edit|
+        top  := StandardSystemView extent:200@35.
+        menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
+        view := View extent:180 @ 100.
+        edit := EditField origin:5@5 in:view.
+        edit width:175.
 
-    top  := StandardSystemView extent:200@35.
-    menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
-    view := View extent:180 @ 100.
-    edit := EditField origin:5@5 in:view.
-    edit width:175.
+        edit := EditField origin:5@30 in:view.
+        edit width:175.
+
+        menu menuWidget:view.
+        menu menuHeight:100.
+        top  open.
 
-    edit := EditField origin:5@30 in:view.
-    edit width:175.
-
-    menu menuWidget:view.
-    menu menuHeight:100.
-    top  open.
-
-    "Modified: / 25.5.1999 / 15:16:16 / cg"
-!
+    test3
+        |top menu view edit b|
 
-test3
-"
-self test3
-"
-    |top menu view edit b|
+        top  := StandardSystemView extent:200@35.
+        menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
+        view := View extent:180 @ 100.
+        edit := EditField origin:5@5 in:view.
+        edit width:175.
 
-    top  := StandardSystemView extent:200@35.
-    menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
-    view := View extent:180 @ 100.
-    edit := EditField origin:5@5 in:view.
-    edit width:175.
+        edit := EditField origin:5@30 in:view.
+        edit width:175.
+
+        b := Button label:'button' in:view.
+        b origin:5@50. 
+        b action:[ Transcript showCR:'.. things to do, when pressed ...' ].
 
-    edit := EditField origin:5@30 in:view.
-    edit width:175.
+        menu menuWidget:view.
+        menu menuHeight:100.
+        top  open.
 
-    b := Button label:'button' in:view.
-    b origin:5@50. 
-    b action:[ Transcript showCR:'.. things to do, when pressed ...' ].
+    test4
+        |top menu view edit b|
 
-    menu menuWidget:view.
-    menu menuHeight:100.
-    top  open.
-
-    "Modified: / 25.5.1999 / 15:16:16 / cg"
-!
-
-test4
-"
-self test4
-"
-    |top menu view edit b|
+        top  := StandardSystemView extent:200@35.
+        menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
+        view := View extent:180 @ 100.
+        edit := HVScrollableView for:EditTextView origin:0@0 corner:1.0@1.0 in:view.
+        edit contents:'Makefile' asFilename contents.
+        menu menuWidget:view.
+        menu menuHeight:100.
+        top  open.
 
-    top  := StandardSystemView extent:200@35.
-    menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
-    view := View extent:180 @ 100.
-    edit := HVScrollableView for:EditTextView origin:0@0 corner:1.0@1.0 in:view.
-    edit contents:'Makefile' asFilename contents.
-    menu menuWidget:view.
-    menu menuHeight:100.
-    top  open.
+    test5
+        |top menu view|
+
+        top  := StandardSystemView extent:300@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+
+        view := View new.
+        'view client:(CodingExamples_GUI::GUIDemoDataSetView new)'.
+        view client:(CodingExamples_GUI::GUIDemoDragAndDrop new).
 
-    "Modified: / 25.5.1999 / 15:16:16 / cg"
-!
+        menu menuWidget:view.
+        menu menuHeight:300.
+        top  open.
 
-test5
-"
-self test5
-"
-    |top menu view|
+    test6
+        |top menu view|
 
-    top  := StandardSystemView extent:300@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+        top  := StandardSystemView extent:300@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
 
-    view := View new.
-"/    view client:(CodingExamples_GUI::GUIDemoDataSetView new).
-    view client:(CodingExamples_GUI::GUIDemoDragAndDrop new).
+        view := View new.
+        view client:(CodingExamples_GUI::GUIDemoDataSetView new).
 
-    menu menuWidget:view.
-    menu menuHeight:300.
-    top  open.
+        menu menuWidget:view.
+        menu menuHeight:300.
+        top  open.
 
-!
+    test7
+        |top menu view|
 
-test6
-"
-self test6
-"
-    |top menu view|
+        top  := StandardSystemView extent:300@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
 
-    top  := StandardSystemView extent:300@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+        view := View new.
+        view client:(CodingExamples_GUI::GUIDemoTabs new).
 
-    view := View new.
-    view client:(CodingExamples_GUI::GUIDemoDataSetView new).
+        menu menuWidget:view.
+        menu menuHeight:300.
+        top  open.
 
-    menu menuWidget:view.
-    menu menuHeight:300.
-    top  open.
-
-!
+    test8
+        |top menu view|
 
-test7
-"
-self test7
-"
-    |top menu view|
+        top  := StandardSystemView extent:300@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
 
-    top  := StandardSystemView extent:300@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+        view := View new.
+        view client:(CodingExamples_GUI::GUIDemoSliders new).
 
-    view := View new.
-    view client:(CodingExamples_GUI::GUIDemoTabs new).
+        menu menuWidget:view.
+        menu menuHeight:300.
+        top  open.
 
-    menu menuWidget:view.
-    menu menuHeight:300.
-    top  open.
+    test9
+        |top menu view|
 
-!
+        top  := StandardSystemView extent:400@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
 
-test8
-"
-self test8
-"
-    |top menu view|
+        view := View new.
+        view client:(CodingExamples_GUI::GUIDemo new).
 
-    top  := StandardSystemView extent:300@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+        menu menuWidget:view.
+        menu menuHeight:500.
+        top  open.
 
-    view := View new.
-    view client:(CodingExamples_GUI::GUIDemoSliders new).
+    test10
+        |top menu view o|
 
-    menu menuWidget:view.
-    menu menuHeight:300.
-    top  open.
+        top  := StandardSystemView extent:300@35.
+        menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
+
+        view := DrawView new.
+        o := DrawRectangle new.
+        o origin:10@10 corner:100@100.
+        view add:o.
 
-!
+        o := DrawText new.
+        o text:'hello there'; origin:50@50; foreground:Color red.
+        view add:o.
+
 
-test9
-"
-self test9
+        menu menuWidget:view.
+        menu menuHeight:300.
+        top  open.
+
 "
-    |top menu view|
-
-    top  := StandardSystemView extent:400@35.
-    menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
-
-    view := View new.
-    view client:(CodingExamples_GUI::GUIDemo new).
-
-    menu menuWidget:view.
-    menu menuHeight:500.
-    top  open.
-
 ! !
 
 !ExtendedComboBox methodsFor:'accessing'!
@@ -1510,5 +1449,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.22 2000-09-20 22:46:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.23 2000-09-27 07:41:59 cg Exp $'
 ! !
hg/stx-libwidg2