ExtendedComboBox.st
changeset 1395 31e313f07658
parent 1392 2d4a90914f2b
child 1406 982b813545c8
--- a/ExtendedComboBox.st	Tue May 25 15:20:09 1999 +0200
+++ b/ExtendedComboBox.st	Tue May 25 15:22:56 1999 +0200
@@ -213,9 +213,10 @@
     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:'/home'.
+    menu directory:(OperatingSystem getHomeDirectory).
     top  open.
 
+    "Modified: / 25.5.1999 / 15:16:16 / cg"
 ! !
 
 !ExtendedComboBox methodsFor:'accessing'!
@@ -1070,5 +1071,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.12 1999-05-23 16:07:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.13 1999-05-25 13:22:56 cg Exp $'
 ! !