equal
deleted
inserted
replaced
44 |
44 |
45 [author:] |
45 [author:] |
46 Claus Gittinger |
46 Claus Gittinger |
47 " |
47 " |
48 ! ! |
48 ! ! |
49 |
|
50 |
49 |
51 !FilenameEditFieldV2 methodsFor:'accessing'! |
50 !FilenameEditFieldV2 methodsFor:'accessing'! |
52 |
51 |
53 acceptOnExpand |
52 acceptOnExpand |
54 "return the autoAccept on filename expansion flag. |
53 "return the autoAccept on filename expansion flag. |
144 |
143 |
145 ^ filesOnly |
144 ^ filesOnly |
146 |
145 |
147 "Modified: 6.9.1995 / 20:34:57 / claus" |
146 "Modified: 6.9.1995 / 20:34:57 / claus" |
148 ! ! |
147 ! ! |
149 |
|
150 |
148 |
151 !FilenameEditFieldV2 methodsFor:'initialization'! |
149 !FilenameEditFieldV2 methodsFor:'initialization'! |
152 |
150 |
153 initialize |
151 initialize |
154 |myEditor| |
152 |myEditor| |
212 self editor cursorToEndOfLine. |
210 self editor cursorToEndOfLine. |
213 |
211 |
214 "Created: 24.7.1997 / 18:21:51 / cg" |
212 "Created: 24.7.1997 / 18:21:51 / cg" |
215 ! ! |
213 ! ! |
216 |
214 |
217 |
|
218 !FilenameEditFieldV2 methodsFor:'menu'! |
215 !FilenameEditFieldV2 methodsFor:'menu'! |
219 |
216 |
220 processEvent:anEvent |
217 processEvent:anEvent |
221 "catch keyEvents in pulled menu (see redefined pullMenu-method). |
218 "catch keyEvents in pulled menu (see redefined pullMenu-method). |
222 Return true, if I have eaten the event" |
219 Return true, if I have eaten the event" |
275 field acceptOnLostFocus:acceptOnLostFocus. |
272 field acceptOnLostFocus:acceptOnLostFocus. |
276 activeMenu := nil. |
273 activeMenu := nil. |
277 pullDownButton turnOff. |
274 pullDownButton turnOff. |
278 ! ! |
275 ! ! |
279 |
276 |
280 |
|
281 !FilenameEditFieldV2 class methodsFor:'documentation'! |
277 !FilenameEditFieldV2 class methodsFor:'documentation'! |
282 |
278 |
283 version |
279 version |
284 ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.14 2013-01-17 11:18:19 cg Exp $' |
280 ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.14 2013-01-17 11:18:19 cg Exp $' |
285 ! |
281 ! |
286 |
282 |
|
283 version_HG |
|
284 |
|
285 ^ '$Changeset: <not expanded> $' |
|
286 ! |
|
287 |
287 version_SVN |
288 version_SVN |
288 ^ '$Id: FilenameEditFieldV2.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
289 ^ '$Id: FilenameEditFieldV2.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
289 ! ! |
290 ! ! |
290 |
291 |