equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libtool' }" |
14 "{ Package: 'stx:libtool' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 ComboBoxView subclass:#FilenameEditFieldV2 |
18 ComboBoxView subclass:#FilenameEditFieldV2 |
15 instanceVariableNames:'directoriesOnly filesOnly directory acceptOnExpand activeMenu |
19 instanceVariableNames:'directoriesOnly filesOnly directory acceptOnExpand activeMenu |
16 completitionList' |
20 completitionList' |
17 classVariableNames:'' |
21 classVariableNames:'' |
120 |
124 |
121 filesOnly := true. |
125 filesOnly := true. |
122 ! |
126 ! |
123 |
127 |
124 initialText:aString selected:aBoolean |
128 initialText:aString selected:aBoolean |
125 "move the cursor to the end - thats the most interesting part of |
129 "redefined to move the cursor to the end |
126 a filename |
130 - that's the most interesting part of a filename |
127 " |
131 " |
128 |
132 |
129 super initialText:aString selected:aBoolean. |
133 super initialText:aString selected:aBoolean. |
130 self cursorToEndOfLine. |
134 self cursorToEndOfLine. |
131 ! |
135 ! |
202 "Modified: 7.9.1995 / 10:20:46 / claus" |
206 "Modified: 7.9.1995 / 10:20:46 / claus" |
203 "Modified: 7.9.1997 / 23:51:47 / cg" |
207 "Modified: 7.9.1997 / 23:51:47 / cg" |
204 ! |
208 ! |
205 |
209 |
206 realize |
210 realize |
207 "move the cursor to the end - thats the most interesting part of a filename |
211 "redefined to move the cursor to the end |
|
212 - that's the most interesting part of a filename |
208 " |
213 " |
209 super realize. |
214 super realize. |
210 self editor cursorToEndOfLine. |
215 self editor cursorToEndOfLine. |
211 |
216 |
212 "Created: 24.7.1997 / 18:21:51 / cg" |
217 "Created: 24.7.1997 / 18:21:51 / cg" |
275 ! ! |
280 ! ! |
276 |
281 |
277 !FilenameEditFieldV2 class methodsFor:'documentation'! |
282 !FilenameEditFieldV2 class methodsFor:'documentation'! |
278 |
283 |
279 version |
284 version |
280 ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.15 2014-02-18 14:39:34 stefan Exp $' |
285 ^ '$Header$' |
281 ! ! |
286 ! ! |
282 |
287 |