equal
deleted
inserted
replaced
394 This was not done in #initialize to allow settings to be changed before, |
394 This was not done in #initialize to allow settings to be changed before, |
395 in case list-updating is a slow operation - such as reading a directory" |
395 in case list-updating is a slow operation - such as reading a directory" |
396 |
396 |
397 super postRealize. |
397 super postRealize. |
398 self updateList. |
398 self updateList. |
399 |
399 self setupEditfieldToMoveToListOnCursorDown. |
|
400 |
400 "Modified: 12.5.1996 / 21:50:50 / cg" |
401 "Modified: 12.5.1996 / 21:50:50 / cg" |
401 "Created: 24.7.1997 / 18:22:19 / cg" |
402 "Created: 24.7.1997 / 18:22:19 / cg" |
|
403 ! |
|
404 |
|
405 setupEditfieldToMoveToListOnCursorDown |
|
406 self enterField |
|
407 onKey:#CursorDown |
|
408 leaveWith:[ |
|
409 |listView| |
|
410 |
|
411 listView := self listView. |
|
412 listView windowGroup focusView:listView byTab:true. |
|
413 listView hasSelection ifFalse:[ |
|
414 listView selectFirst |
|
415 ] ifTrue:[ |
|
416 listView selectNext |
|
417 ]. |
|
418 ]. |
402 ! |
419 ! |
403 |
420 |
404 updateList |
421 updateList |
405 "setup contents of list; |
422 "setup contents of list; |
406 nothing done here but typically redefined in subclasses." |
423 nothing done here but typically redefined in subclasses." |