Initial revision
authorclaus
Sat, 13 Aug 1994 20:44:07 +0200
changeset 18 4560fcdc40df
parent 17 bda821037847
child 19 79ab6bc98651
Initial revision
FNmEntrBox.st
FilenameEnterBox.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/FNmEntrBox.st	Sat Aug 13 20:44:07 1994 +0200
@@ -0,0 +1,68 @@
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+EnterBox subclass:#FilenameEnterBox
+         instanceVariableNames:''
+         classVariableNames:''
+         poolDictionaries:''
+         category:'Views-DialogBoxes'
+!
+
+FilenameEnterBox comment:'
+COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.1 1994-08-13 18:44:07 claus Exp $
+'!
+
+!FilenameEnterBox class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libwidg2/Attic/FNmEntrBox.st,v 1.1 1994-08-13 18:44:07 claus Exp $
+"
+!
+
+documentation
+"
+    like a normal enterBox, but does filename-completion when TAB is
+    pressed.
+"
+! !
+
+!FilenameEnterBox methodsFor:'initialization'!
+
+createEnterField
+    "
+     redefined, since we need an editfield for filenames here
+    "
+
+    enterField := FilenameEditField in:self.
+! !
+
+
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/FilenameEnterBox.st	Sat Aug 13 20:44:07 1994 +0200
@@ -0,0 +1,68 @@
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+EnterBox subclass:#FilenameEnterBox
+         instanceVariableNames:''
+         classVariableNames:''
+         poolDictionaries:''
+         category:'Views-DialogBoxes'
+!
+
+FilenameEnterBox comment:'
+COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.1 1994-08-13 18:44:07 claus Exp $
+'!
+
+!FilenameEnterBox class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.1 1994-08-13 18:44:07 claus Exp $
+"
+!
+
+documentation
+"
+    like a normal enterBox, but does filename-completion when TAB is
+    pressed.
+"
+! !
+
+!FilenameEnterBox methodsFor:'initialization'!
+
+createEnterField
+    "
+     redefined, since we need an editfield for filenames here
+    "
+
+    enterField := FilenameEditField in:self.
+! !
+
+
+
+