equal
deleted
inserted
replaced
230 |
230 |
231 selectionList := v scrolledView. |
231 selectionList := v scrolledView. |
232 |
232 |
233 "self updateList." |
233 "self updateList." |
234 |
234 |
235 "I am interested in what is done int the selectionList |
235 "I am interested in what is done in the selectionList |
236 (could also create a SelectionInList-model and catch its changes ...)" |
236 (could also create a SelectionInList-model and catch its changes ...)" |
237 selectionList action:[:lineNr | self selectionChanged]. |
237 selectionList action:[:lineNr | self selectionChanged]. |
238 selectionList doubleClickAction:[:lineNr | self doubleClick]. |
238 selectionList doubleClickAction:[:lineNr | self doubleClick]. |
239 |
239 |
240 enterField removeDependent:self. "dont want preferredExtent-changes" |
240 enterField removeDependent:self. "dont want preferredExtent-changes" |
248 toView:enterField |
248 toView:enterField |
249 condition:#noFocus |
249 condition:#noFocus |
250 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
250 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
251 ) |
251 ) |
252 |
252 |
253 "Modified: 27.2.1996 / 01:11:41 / cg" |
253 "Modified: 18.4.1996 / 18:31:50 / cg" |
254 ! |
254 ! |
255 |
255 |
256 realize |
256 realize |
257 "redefined to update the list now. |
257 "redefined to update the list now. |
258 This was not done in #initialize to allow settings to be changed before, |
258 This was not done in #initialize to allow settings to be changed before, |
335 ! ! |
335 ! ! |
336 |
336 |
337 !ListSelectionBox class methodsFor:'documentation'! |
337 !ListSelectionBox class methodsFor:'documentation'! |
338 |
338 |
339 version |
339 version |
340 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.32 1996-05-29 10:16:58 cg Exp $' |
340 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.33 1996-05-29 14:58:33 cg Exp $' |
341 ! ! |
341 ! ! |