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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 14 May 1996 13:09:44 +0200
changeset 181 31e8f8ab2fb8
parent 180 c63c079dea01
child 182 8f009f7173c3
checkin from browser
ComboBoxV.st file | annotate | diff | comparison | revisions
ComboBoxView.st file | annotate | diff | comparison | revisions
ComboListV.st file | annotate | diff | comparison | revisions
ComboListView.st file | annotate | diff | comparison | revisions
ComboView.st file | annotate | diff | comparison | revisions 
--- a/ComboBoxV.st	Tue May 14 09:39:32 1996 +0200
+++ b/ComboBoxV.st	Tue May 14 13:09:44 1996 +0200
@@ -16,11 +16,15 @@
     the list is actually only a set of values for the convenience of the user.
 
     Not yet finished.
+
+    [see also:]
+        ComboListView
 "
 !
 
 examples
 "
+                                                                        [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -32,11 +36,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
+                                                                        [exEnd]
 
 
 
   model operation:
-
+                                                                        [exBegin]
      |model top b|
 
      model := 'foo' asValue.
@@ -53,10 +58,11 @@
 
      top openModal.
      Transcript showCr:('comboBox''s value: ' , model value).
+                                                                        [exEnd]
 
 
   in a dialog:
-
+                                                                        [exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -80,6 +86,7 @@
 
      Transcript showCr:('1st comboBox''s value: ' , model1 value).
      Transcript showCr:('2nd comboBox''s value: ' , model2 value).
+                                                                        [exEnd]
 "
 ! !
 
@@ -160,5 +167,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboBoxV.st,v 1.6 1996-03-05 00:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboBoxV.st,v 1.7 1996-05-14 11:09:18 cg Exp $'
 ! !
--- a/ComboBoxView.st	Tue May 14 09:39:32 1996 +0200
+++ b/ComboBoxView.st	Tue May 14 13:09:44 1996 +0200
@@ -16,11 +16,15 @@
     the list is actually only a set of values for the convenience of the user.
 
     Not yet finished.
+
+    [see also:]
+        ComboListView
 "
 !
 
 examples
 "
+                                                                        [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -32,11 +36,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
+                                                                        [exEnd]
 
 
 
   model operation:
-
+                                                                        [exBegin]
      |model top b|
 
      model := 'foo' asValue.
@@ -53,10 +58,11 @@
 
      top openModal.
      Transcript showCr:('comboBox''s value: ' , model value).
+                                                                        [exEnd]
 
 
   in a dialog:
-
+                                                                        [exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -80,6 +86,7 @@
 
      Transcript showCr:('1st comboBox''s value: ' , model1 value).
      Transcript showCr:('2nd comboBox''s value: ' , model2 value).
+                                                                        [exEnd]
 "
 ! !
 
@@ -160,5 +167,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.6 1996-03-05 00:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.7 1996-05-14 11:09:18 cg Exp $'
 ! !
--- a/ComboListV.st	Tue May 14 09:39:32 1996 +0200
+++ b/ComboListV.st	Tue May 14 13:09:44 1996 +0200
@@ -20,6 +20,7 @@
 
 examples
 "
+                                                                [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -31,11 +32,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
+                                                                [exEnd]
 
 
 
   model operation:
-
+                                                                [exBegin]
      |model top b|
 
      model := 'foo' asValue.
@@ -52,10 +54,11 @@
 
      top openModal.
      Transcript showCr:('comboBox''s value: ' , model value).
+                                                                [exEnd]
 
 
   in a dialog:
-
+                                                                [exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -79,13 +82,14 @@
 
      Transcript showCr:('1st comboBox''s value: ' , model1 value).
      Transcript showCr:('2nd comboBox''s value: ' , model2 value).
+                                                                [exEnd]
 "
 ! !
 
 !ComboListView methodsFor:'accessing-components'!
 
 label 
-    "return the inputField component"
+    "return the label component"
 
     ^ field
 
@@ -126,5 +130,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.1 1996-02-28 14:26:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.2 1996-05-14 11:09:30 cg Exp $'
 ! !
--- a/ComboListView.st	Tue May 14 09:39:32 1996 +0200
+++ b/ComboListView.st	Tue May 14 13:09:44 1996 +0200
@@ -20,6 +20,7 @@
 
 examples
 "
+                                                                [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -31,11 +32,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
+                                                                [exEnd]
 
 
 
   model operation:
-
+                                                                [exBegin]
      |model top b|
 
      model := 'foo' asValue.
@@ -52,10 +54,11 @@
 
      top openModal.
      Transcript showCr:('comboBox''s value: ' , model value).
+                                                                [exEnd]
 
 
   in a dialog:
-
+                                                                [exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -79,13 +82,14 @@
 
      Transcript showCr:('1st comboBox''s value: ' , model1 value).
      Transcript showCr:('2nd comboBox''s value: ' , model2 value).
+                                                                [exEnd]
 "
 ! !
 
 !ComboListView methodsFor:'accessing-components'!
 
 label 
-    "return the inputField component"
+    "return the label component"
 
     ^ field
 
@@ -126,5 +130,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.1 1996-02-28 14:26:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.2 1996-05-14 11:09:30 cg Exp $'
 ! !
--- a/ComboView.st	Tue May 14 09:39:32 1996 +0200
+++ b/ComboView.st	Tue May 14 13:09:44 1996 +0200
@@ -101,6 +101,20 @@
 
 !ComboView methodsFor:'accessing-contents'!
 
+contents
+    ^ field model value
+
+    "Created: 14.5.1996 / 13:05:16 / cg"
+    "Modified: 14.5.1996 / 13:07:02 / cg"
+!
+
+contents:something
+    field model value:something
+
+    "Created: 14.5.1996 / 13:05:33 / cg"
+    "Modified: 14.5.1996 / 13:07:11 / cg"
+!
+
 list:aList
     list := aList.
     (list notNil and:[list notEmpty]) ifTrue:[
@@ -233,5 +247,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.2 1996-05-02 16:30:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.3 1996-05-14 11:09:44 cg Exp $'
 ! !
hg/stx-libwidg2