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