comment added
authorClaus Gittinger <cg@exept.de>
Fri, 19 Oct 2007 15:57:42 +0200
changeset 3250 e016b4cd8e65
parent 3249 224b457c40fd
child 3251 29b44f456526
comment added
FilenameComboBoxView.st
--- a/FilenameComboBoxView.st	Thu Oct 18 14:56:25 2007 +0200
+++ b/FilenameComboBoxView.st	Fri Oct 19 15:57:42 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 ComboBoxView subclass:#FilenameComboBoxView
@@ -46,6 +45,24 @@
         ComboBoxView
         FilenameEditField
 "
+!
+
+examples
+"
+                                                                        [exBegin]
+     |top b|
+
+     top := StandardSystemView new.
+     top extent:(300 @ 200).
+
+     b := FilenameComboBoxView in:top.
+     b origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
+     b bottomInset:(b preferredExtent y negated).
+
+     b list:#('c:\' 'd:\' 'c:\users').
+     top open.
+                                                                        [exEnd]
+"
 ! !
 
 !FilenameComboBoxView methodsFor:'initialization'!
@@ -57,5 +74,5 @@
 !FilenameComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameComboBoxView.st,v 1.2 2002-07-03 12:26:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameComboBoxView.st,v 1.3 2007-10-19 13:57:42 cg Exp $'
 ! !