equal
deleted
inserted
replaced
19 |
19 |
20 FilenameEditField comment:' |
20 FilenameEditField comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.10 1995-05-03 00:42:24 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.11 1995-07-03 02:34:42 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !FilenameEditField class methodsFor:'documentation'! |
27 !FilenameEditField class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.10 1995-05-03 00:42:24 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg2/Attic/FNmEdtFld.st,v 1.11 1995-07-03 02:34:42 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
97 |
97 |
98 keyPress:key x:x y:y |
98 keyPress:key x:x y:y |
99 "handle tab for filename completion. |
99 "handle tab for filename completion. |
100 Bug: it completes the last word; it should complete the |
100 Bug: it completes the last word; it should complete the |
101 word before the cursor." |
101 word before the cursor." |
|
102 |
|
103 <resource: #keyboard ( #FilenameCompletion ) > |
102 |
104 |
103 |s f matchSet nMatch name words dir| |
105 |s f matchSet nMatch name words dir| |
104 |
106 |
105 enabled ifTrue:[ |
107 enabled ifTrue:[ |
106 ((key == #Tab) |
108 ((key == #Tab) |