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.
*** empty log message ***
authorclaus
Wed, 15 Feb 1995 11:37:50 +0100
changeset 85 c229bb31d758
parent 84 d7441c050387
child 86 df2687090a7f
*** empty log message ***
OptBox.st file | annotate | diff | comparison | revisions
OptionBox.st file | annotate | diff | comparison | revisions 
--- a/OptBox.st	Sat Feb 11 17:51:08 1995 +0100
+++ b/OptBox.st	Wed Feb 15 11:37:50 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 '!
 
 !OptionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/OptBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 "
 !
 
@@ -107,8 +107,8 @@
 numberOfOptions:nOptions
     "set the number of options"
 
-    buttons := Array new:nOptions.
-    actions := Array new:nOptions
+    buttons := (OrderedCollection new:nOptions) grow:nOptions.
+    actions := (OrderedCollection new:nOptions) grow:nOptions
 !
 
 numberOfOptions
--- a/OptionBox.st	Sat Feb 11 17:51:08 1995 +0100
+++ b/OptionBox.st	Wed Feb 15 11:37:50 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 '!
 
 !OptionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 "
 !
 
@@ -107,8 +107,8 @@
 numberOfOptions:nOptions
     "set the number of options"
 
-    buttons := Array new:nOptions.
-    actions := Array new:nOptions
+    buttons := (OrderedCollection new:nOptions) grow:nOptions.
+    actions := (OrderedCollection new:nOptions) grow:nOptions
 !
 
 numberOfOptions
hg/stx-libwidg