equal
deleted
inserted
replaced
252 |space2 halfSpace v vbw| |
252 |space2 halfSpace v vbw| |
253 |
253 |
254 super initialize. |
254 super initialize. |
255 |
255 |
256 useIndex := false. |
256 useIndex := false. |
257 label := resources string:'Select or enter'. |
257 "/ label := resources string:'Select or Enter'. |
|
258 label := resources string:'Please Select'. |
258 |
259 |
259 "need more space than an enterBox" |
260 "need more space than an enterBox" |
260 |
261 |
261 "self height:(height + (font height * 5)). " |
262 "self height:(height + (font height * 5)). " |
262 |
263 |
329 toView:enterField |
330 toView:enterField |
330 condition:#noFocus |
331 condition:#noFocus |
331 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
332 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
332 ) |
333 ) |
333 |
334 |
334 "Modified: 31.5.1996 / 22:02:33 / cg" |
335 "Modified: / 25-08-2010 / 22:01:48 / cg" |
335 ! |
336 ! |
336 |
337 |
337 postRealize |
338 postRealize |
338 "update the list now. |
339 "update the list now. |
339 This was not done in #initialize to allow settings to be changed before, |
340 This was not done in #initialize to allow settings to be changed before, |
437 ! ! |
438 ! ! |
438 |
439 |
439 !ListSelectionBox class methodsFor:'documentation'! |
440 !ListSelectionBox class methodsFor:'documentation'! |
440 |
441 |
441 version |
442 version |
442 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.59 2009-11-07 10:43:55 cg Exp $' |
443 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.60 2010-08-25 20:02:37 cg Exp $' |
443 ! |
444 ! |
444 |
445 |
445 version_CVS |
446 version_CVS |
446 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.59 2009-11-07 10:43:55 cg Exp $' |
447 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.60 2010-08-25 20:02:37 cg Exp $' |
447 ! ! |
448 ! ! |