--- a/FNmEntrBox.st Thu Nov 23 01:53:37 1995 +0100
+++ b/FNmEntrBox.st Thu Nov 23 03:25:38 1995 +0100
@@ -33,15 +33,37 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.7 1995-11-11 16:28:56 cg Exp $'
-!
-
documentation
"
like a normal enterBox, but does filename-completion when TAB is
pressed.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.8 1995-11-23 02:25:38 cg Exp $'
+! !
+
+!FilenameEnterBox methodsFor:'accessing'!
+
+directoriesOnly
+ "set to expand names for directories only"
+
+ enterField directoriesOnly
+!
+
+directory:aFilename
+ "set the directory"
+
+ enterField directory:aFilename
+
+ "Modified: 7.9.1995 / 10:33:00 / claus"
+!
+
+filesOnly
+ "set to expand names for files only"
+
+ enterField filesOnly
! !
!FilenameEnterBox methodsFor:'initialization'!
@@ -56,24 +78,3 @@
^ super createEnterField
! !
-!FilenameEnterBox methodsFor:'accessing'!
-
-directory:aFilename
- "set the directory"
-
- enterField directory:aFilename
-
- "Modified: 7.9.1995 / 10:33:00 / claus"
-!
-
-directoriesOnly
- "set to expand names for directories only"
-
- enterField directoriesOnly
-!
-
-filesOnly
- "set to expand names for files only"
-
- enterField filesOnly
-! !
--- a/FilenameEnterBox.st Thu Nov 23 01:53:37 1995 +0100
+++ b/FilenameEnterBox.st Thu Nov 23 03:25:38 1995 +0100
@@ -33,15 +33,37 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.7 1995-11-11 16:28:56 cg Exp $'
-!
-
documentation
"
like a normal enterBox, but does filename-completion when TAB is
pressed.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.8 1995-11-23 02:25:38 cg Exp $'
+! !
+
+!FilenameEnterBox methodsFor:'accessing'!
+
+directoriesOnly
+ "set to expand names for directories only"
+
+ enterField directoriesOnly
+!
+
+directory:aFilename
+ "set the directory"
+
+ enterField directory:aFilename
+
+ "Modified: 7.9.1995 / 10:33:00 / claus"
+!
+
+filesOnly
+ "set to expand names for files only"
+
+ enterField filesOnly
! !
!FilenameEnterBox methodsFor:'initialization'!
@@ -56,24 +78,3 @@
^ super createEnterField
! !
-!FilenameEnterBox methodsFor:'accessing'!
-
-directory:aFilename
- "set the directory"
-
- enterField directory:aFilename
-
- "Modified: 7.9.1995 / 10:33:00 / claus"
-!
-
-directoriesOnly
- "set to expand names for directories only"
-
- enterField directoriesOnly
-!
-
-filesOnly
- "set to expand names for files only"
-
- enterField filesOnly
-! !