equal
deleted
inserted
replaced
80 LiveCompletionEditField example_1 |
80 LiveCompletionEditField example_1 |
81 [exEnd] |
81 [exEnd] |
82 " |
82 " |
83 ! ! |
83 ! ! |
84 |
84 |
85 |
|
86 !EditFieldWithCompletion methodsFor:'accepting'! |
85 !EditFieldWithCompletion methodsFor:'accepting'! |
87 |
86 |
88 accept |
87 accept |
89 |
88 |
90 self unselect. |
89 self unselect. |
92 |
91 |
93 "Created: / 27-07-2009 / 09:38:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
92 "Created: / 27-07-2009 / 09:38:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
94 "Modified: / 12-02-2010 / 11:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
93 "Modified: / 12-02-2010 / 11:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 ! ! |
94 ! ! |
96 |
95 |
97 |
|
98 !EditFieldWithCompletion methodsFor:'accessing-behavior'! |
96 !EditFieldWithCompletion methodsFor:'accessing-behavior'! |
99 |
97 |
100 showOptions |
98 showOptions |
101 ^ showOptions |
99 ^ showOptions |
102 ! |
100 ! |
103 |
101 |
104 showOptions:aBoolean |
102 showOptions:aBoolean |
105 showOptions := aBoolean. |
103 showOptions := aBoolean. |
106 ! ! |
104 ! ! |
107 |
|
108 |
105 |
109 !EditFieldWithCompletion methodsFor:'accessing-dimensions'! |
106 !EditFieldWithCompletion methodsFor:'accessing-dimensions'! |
110 |
107 |
111 absoluteLeft |
108 absoluteLeft |
112 |
109 |
132 ^absoluteTop |
129 ^absoluteTop |
133 |
130 |
134 "Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
131 "Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
135 ! ! |
132 ! ! |
136 |
133 |
137 |
|
138 !EditFieldWithCompletion methodsFor:'accessing-mvc'! |
134 !EditFieldWithCompletion methodsFor:'accessing-mvc'! |
139 |
135 |
140 optionsHolder |
136 optionsHolder |
141 |
137 |
142 ^ optionsHolder |
138 ^ optionsHolder |
149 |
145 |
150 optionsHolder := aValueHolder. |
146 optionsHolder := aValueHolder. |
151 |
147 |
152 "Created: / 09-08-2009 / 08:14:24 / Jan Vrany <vranyj1@fel.cvut.cz>" |
148 "Created: / 09-08-2009 / 08:14:24 / Jan Vrany <vranyj1@fel.cvut.cz>" |
153 ! ! |
149 ! ! |
154 |
|
155 |
150 |
156 !EditFieldWithCompletion methodsFor:'event handling'! |
151 !EditFieldWithCompletion methodsFor:'event handling'! |
157 |
152 |
158 completion:best options:options |
153 completion:best options:options |
159 |newContent oldContent| |
154 |newContent oldContent| |
276 self keyPress: key x:x y:y |
271 self keyPress: key x:x y:y |
277 |
272 |
278 "Created: / 09-12-2010 / 21:32:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
273 "Created: / 09-12-2010 / 21:32:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
279 ! ! |
274 ! ! |
280 |
275 |
281 |
|
282 !EditFieldWithCompletion methodsFor:'initialization & release'! |
276 !EditFieldWithCompletion methodsFor:'initialization & release'! |
283 |
277 |
284 destroy |
278 destroy |
285 |
279 |
286 self hideOptionsWindow. |
280 self hideOptionsWindow. |
302 |
296 |
303 "Created: / 08-08-2009 / 20:24:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
297 "Created: / 08-08-2009 / 20:24:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
304 "Modified: / 09-08-2009 / 08:17:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
298 "Modified: / 09-08-2009 / 08:17:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
305 "Modified: / 03-08-2011 / 17:50:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
299 "Modified: / 03-08-2011 / 17:50:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
306 ! ! |
300 ! ! |
307 |
|
308 |
301 |
309 !EditFieldWithCompletion methodsFor:'private'! |
302 !EditFieldWithCompletion methodsFor:'private'! |
310 |
303 |
311 doCompletion |
304 doCompletion |
312 |oldContents options best| |
305 |oldContents options best| |
411 |
404 |
412 "Created: / 26-07-2009 / 17:41:41 / Jan Vrany <vranyj1@fel.cvut.cz>" |
405 "Created: / 26-07-2009 / 17:41:41 / Jan Vrany <vranyj1@fel.cvut.cz>" |
413 "Modified (format): / 03-08-2011 / 17:50:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
406 "Modified (format): / 03-08-2011 / 17:50:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
414 ! ! |
407 ! ! |
415 |
408 |
416 |
|
417 !EditFieldWithCompletion class methodsFor:'documentation'! |
409 !EditFieldWithCompletion class methodsFor:'documentation'! |
418 |
410 |
419 version_CVS |
411 version_CVS |
420 ^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletion.st,v 1.6 2013-01-17 10:47:17 cg Exp $' |
412 ^ '$Header: /cvs/stx/stx/libtool/EditFieldWithCompletion.st,v 1.6 2013-01-17 10:47:17 cg Exp $' |
421 ! |
413 ! |
422 |
414 |
|
415 version_HG |
|
416 |
|
417 ^ '$Changeset: <not expanded> $' |
|
418 ! |
|
419 |
423 version_SVN |
420 version_SVN |
424 ^ '§Id: EditFieldWithCompletion.st 7662 2010-12-09 21:05:19Z vranyj1 §' |
421 ^ '§Id: EditFieldWithCompletion.st 7662 2010-12-09 21:05:19Z vranyj1 §' |
425 ! ! |
422 ! ! |
426 |
423 |