equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 "{ Package: 'stx:libwidg' }" |
|
14 |
13 DialogBox subclass:#EnterBox |
15 DialogBox subclass:#EnterBox |
14 instanceVariableNames:'labelField enterField trimBlanks' |
16 instanceVariableNames:'labelField enterField trimBlanks' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
17 category:'Views-DialogBoxes' |
19 category:'Views-DialogBoxes' |
316 " |
318 " |
317 |
319 |
318 "Created: 16.11.1995 / 21:25:08 / cg" |
320 "Created: 16.11.1995 / 21:25:08 / cg" |
319 ! ! |
321 ! ! |
320 |
322 |
321 !EnterBox methodsFor:'accessing - behavior'! |
323 !EnterBox methodsFor:'accessing-behavior'! |
322 |
324 |
323 entryCompletionBlock:aBlock |
325 entryCompletionBlock:aBlock |
324 "define an entryCompletion block; if nonNil, that one |
326 "define an entryCompletion block; if nonNil, that one |
325 is evaluated if TAB is pressed in the field and should |
327 is evaluated if TAB is pressed in the field and should |
326 try to complete the input. |
328 try to complete the input. |
340 trimBlanks := aBoolean |
342 trimBlanks := aBoolean |
341 |
343 |
342 "Created: 22.5.1996 / 15:23:45 / cg" |
344 "Created: 22.5.1996 / 15:23:45 / cg" |
343 ! ! |
345 ! ! |
344 |
346 |
345 !EnterBox methodsFor:'accessing - components'! |
347 !EnterBox methodsFor:'accessing-components'! |
346 |
348 |
347 enterField |
349 enterField |
348 "provide access to the entryfield" |
350 "provide access to the entryfield" |
349 |
351 |
350 ^ enterField |
352 ^ enterField |
358 ^ labelField |
360 ^ labelField |
359 |
361 |
360 "Created: 16.11.1995 / 21:23:48 / cg" |
362 "Created: 16.11.1995 / 21:23:48 / cg" |
361 ! ! |
363 ! ! |
362 |
364 |
363 !EnterBox methodsFor:'accessing - contents'! |
365 !EnterBox methodsFor:'accessing-contents'! |
364 |
366 |
365 contents |
367 contents |
366 "return my contents" |
368 "return my contents" |
367 |
369 |
368 ^ enterField contents |
370 ^ enterField contents |
391 "define the initial selection in the enterfield" |
393 "define the initial selection in the enterfield" |
392 |
394 |
393 enterField selectFromLine:1 col:start toLine:1 col:stop |
395 enterField selectFromLine:1 col:start toLine:1 col:stop |
394 ! ! |
396 ! ! |
395 |
397 |
396 !EnterBox methodsFor:'accessing - look'! |
398 !EnterBox methodsFor:'accessing-look'! |
397 |
399 |
398 noCancel |
400 noCancel |
399 "make the cancel button invisible - i.e. only the ok button is shown. |
401 "make the cancel button invisible - i.e. only the ok button is shown. |
400 Not useful here, but useful with display-only textBoxes." |
402 Not useful here, but useful with display-only textBoxes." |
401 |
403 |
670 ! ! |
672 ! ! |
671 |
673 |
672 !EnterBox class methodsFor:'documentation'! |
674 !EnterBox class methodsFor:'documentation'! |
673 |
675 |
674 version |
676 version |
675 ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.52 1999-12-09 22:51:23 cg Exp $' |
677 ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.53 2000-08-21 22:43:50 cg Exp $' |
676 ! ! |
678 ! ! |