--- a/ListSelectionBox.st Fri May 12 20:25:18 1995 +0200
+++ b/ListSelectionBox.st Wed May 17 14:26:27 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.12 1995-05-09 01:55:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.13 1995-05-17 12:25:14 claus Exp $
'!
!ListSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.12 1995-05-09 01:55:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.13 1995-05-17 12:25:14 claus Exp $
"
!
@@ -163,6 +163,8 @@
enterField contents:(selectionList selectionValue).
self okPressed
].
+ enterField removeDependent:self. "dont want preferedExtent-changes"
+
"
mhm: the lists keyboard functions are disabled,
and input passed to the enterfield
@@ -213,6 +215,13 @@
!ListSelectionBox methodsFor:'accessing'!
+initialText:someString
+ "in addition to showing the initial text, also select it in the list"
+
+ super initialText:someString.
+ selectionList selectElement:someString.
+!
+
list:aList
"set the list to be displayed in selection list"