Mercurial Mercurial > hg > stx-libwidg / 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>
Thu, 21 May 1998 03:18:07 +0200
changeset 1541 d90417495d52
parent 1540 8dffe3f0de97
child 1542 5778dd813273
checkin from browser
SelList.st file | annotate | diff | comparison | revisions
SelectionInList.st file | annotate | diff | comparison | revisions 
--- a/SelList.st	Thu May 21 03:07:12 1998 +0200
+++ b/SelList.st	Thu May 21 03:18:07 1998 +0200
@@ -153,10 +153,9 @@
 with:aList
     "return a new instance holding aList"
 
-    ^ self new 
-        listHolder:aList asValue
+    ^ self new listHolder:(ValueHolder with:aList)
 
-    "Modified: 25.1.1997 / 18:49:53 / cg"
+    "Modified: / 21.5.1998 / 03:17:16 / cg"
 !
 
 with:aList initialSelection:index
@@ -164,10 +163,10 @@
      the item at index."
 
     ^ (self with:aList) 
-        selectionIndexHolder:index asValue
+        selectionIndexHolder:(ValueHolder with:index)
 
-    "Created: 24.4.1996 / 08:47:33 / cg"
-    "Modified: 25.1.1997 / 18:51:56 / cg"
+    "Created: / 24.4.1996 / 08:47:33 / cg"
+    "Modified: / 21.5.1998 / 03:17:31 / cg"
 ! !
 
 !SelectionInList methodsFor:'accessing-holders'!
@@ -323,10 +322,10 @@
 initialize
     "initialize; create the valueHolders for the index and the list"
 
-    self listHolder:(List new asValue).
-    self selectionIndexHolder:(self zeroIndex asValue).
+    self listHolder:(ValueHolder with:List new).
+    self selectionIndexHolder:(ValueHolder with:self zeroIndex).
 
-    "Modified: 24.4.1996 / 08:42:33 / cg"
+    "Modified: / 21.5.1998 / 03:17:56 / cg"
 ! !
 
 !SelectionInList methodsFor:'obsolete backward compatibility'!
@@ -426,5 +425,5 @@
 !SelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.23 1998-02-02 12:06:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.24 1998-05-21 01:18:07 cg Exp $'
 ! !
--- a/SelectionInList.st	Thu May 21 03:07:12 1998 +0200
+++ b/SelectionInList.st	Thu May 21 03:18:07 1998 +0200
@@ -153,10 +153,9 @@
 with:aList
     "return a new instance holding aList"
 
-    ^ self new 
-        listHolder:aList asValue
+    ^ self new listHolder:(ValueHolder with:aList)
 
-    "Modified: 25.1.1997 / 18:49:53 / cg"
+    "Modified: / 21.5.1998 / 03:17:16 / cg"
 !
 
 with:aList initialSelection:index
@@ -164,10 +163,10 @@
      the item at index."
 
     ^ (self with:aList) 
-        selectionIndexHolder:index asValue
+        selectionIndexHolder:(ValueHolder with:index)
 
-    "Created: 24.4.1996 / 08:47:33 / cg"
-    "Modified: 25.1.1997 / 18:51:56 / cg"
+    "Created: / 24.4.1996 / 08:47:33 / cg"
+    "Modified: / 21.5.1998 / 03:17:31 / cg"
 ! !
 
 !SelectionInList methodsFor:'accessing-holders'!
@@ -323,10 +322,10 @@
 initialize
     "initialize; create the valueHolders for the index and the list"
 
-    self listHolder:(List new asValue).
-    self selectionIndexHolder:(self zeroIndex asValue).
+    self listHolder:(ValueHolder with:List new).
+    self selectionIndexHolder:(ValueHolder with:self zeroIndex).
 
-    "Modified: 24.4.1996 / 08:42:33 / cg"
+    "Modified: / 21.5.1998 / 03:17:56 / cg"
 ! !
 
 !SelectionInList methodsFor:'obsolete backward compatibility'!
@@ -426,5 +425,5 @@
 !SelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.23 1998-02-02 12:06:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.24 1998-05-21 01:18:07 cg Exp $'
 ! !
hg/stx-libwidg