446 toDoList removeAll |
468 toDoList removeAll |
447 |
469 |
448 "Created: / 22-10-2006 / 00:02:15 / cg" |
470 "Created: / 22-10-2006 / 00:02:15 / cg" |
449 ! |
471 ! |
450 |
472 |
451 menuSave |
|
452 "This method was generated by the Browser. |
|
453 It will be invoked when the menu-item 'save' is selected." |
|
454 |
|
455 "/ change below and add any actions as required here ... |
|
456 self warn:'no action for ''save'' defined.'. |
|
457 ! |
|
458 |
|
459 menuSaveAs |
|
460 "This method was generated by the Browser. |
|
461 It will be invoked when the menu-item 'saveAs' is selected." |
|
462 |
|
463 "/ change below and add any actions as required here ... |
|
464 self warn:'no action for ''saveAs'' defined.'. |
|
465 ! |
|
466 |
|
467 openAboutThisApplication |
473 openAboutThisApplication |
468 "This method was generated by the Browser. |
|
469 It will be invoked when the menu-item 'help-about' is selected." |
|
470 |
|
471 "/ could open a customized aboutBox here ... |
|
472 super openAboutThisApplication |
474 super openAboutThisApplication |
473 ! |
475 ! |
474 |
476 |
475 openDocumentation |
477 openDocumentation |
476 "This method was generated by the Browser. |
|
477 It will be invoked when the menu-item 'help-documentation' is selected." |
|
478 |
|
479 "/ change below as required ... |
|
480 |
|
481 "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ): |
|
482 HTMLDocumentView openFullOnDocumentationFile:'tools\misc\TOP.html#TODOLIST'. |
478 HTMLDocumentView openFullOnDocumentationFile:'tools\misc\TOP.html#TODOLIST'. |
483 |
479 |
484 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
480 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
485 "/ directory, and open a viewer with: |
481 "/ directory, and open a viewer with: |
486 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
482 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
487 ! ! |
483 ! ! |
488 |
484 |
489 !ToDoListBrowser methodsFor:'menu actions-item'! |
485 !ToDoListBrowser methodsFor:'menu actions-item'! |
490 |
486 |
491 browseItem |
487 browseItem |
492 (shownCopyOfToDoList at:self selectionIndexHolder value) browse |
488 (self todoListEntryAtIndex:self selectionIndexHolder value) browse |
493 |
489 |
494 "Created: / 22-10-2006 / 02:00:20 / cg" |
490 "Created: / 22-10-2006 / 02:00:20 / cg" |
495 "Modified: / 18-02-2007 / 12:56:49 / cg" |
491 "Modified: / 18-02-2007 / 12:56:49 / cg" |
496 ! |
492 ! |
497 |
493 |
498 removeItem |
494 removeItem |
499 toDoList remove:(shownCopyOfToDoList at:self selectionIndexHolder value) |
495 toDoList remove:(self selectedTodoListEntry) |
500 |
496 |
501 "Created: / 22-10-2006 / 10:45:52 / cg" |
497 "Created: / 22-10-2006 / 10:45:52 / cg" |
502 "Modified: / 18-02-2007 / 12:57:58 / cg" |
498 "Modified: / 18-02-2007 / 12:57:58 / cg" |
|
499 ! |
|
500 |
|
501 removeItems:entriesToRemove |
|
502 entriesToRemove do:[:entryToRemove | |
|
503 toDoList remove:entryToRemove |
|
504 ]. |
|
505 ! |
|
506 |
|
507 removeItemsForClass |
|
508 |cls entriesToRemove| |
|
509 |
|
510 cls := self selectedTodoListEntry problemClass. |
|
511 entriesToRemove := toDoList select:[:entry | entry problemClass == cls]. |
|
512 self removeItems:entriesToRemove |
|
513 ! |
|
514 |
|
515 removeItemsForClassOrPrivateClass |
|
516 |cls entriesToRemove| |
|
517 |
|
518 cls := self selectedTodoListEntry problemClass. |
|
519 entriesToRemove := toDoList select:[:entry | entry problemClass == cls |
|
520 or:[ entry problemClass topOwningClass == cls]]. |
|
521 self removeItems:entriesToRemove |
503 ! ! |
522 ! ! |
504 |
523 |
505 !ToDoListBrowser methodsFor:'user actions'! |
524 !ToDoListBrowser methodsFor:'user actions'! |
506 |
525 |
507 itemDoubleClicked:itemIndex |
526 itemDoubleClicked:itemIndex |
508 (shownCopyOfToDoList at:itemIndex) browse |
527 (self selectedTodoListEntry) browse |
509 |
528 |
510 "Created: / 22-10-2006 / 01:49:13 / cg" |
529 "Created: / 22-10-2006 / 01:49:13 / cg" |
511 "Modified: / 18-02-2007 / 12:56:30 / cg" |
530 "Modified: / 18-02-2007 / 12:56:30 / cg" |
512 ! |
531 ! |
513 |
532 |