equal
deleted
inserted
replaced
67 ... executable example here ... |
67 ... executable example here ... |
68 [exEnd] |
68 [exEnd] |
69 " |
69 " |
70 ! ! |
70 ! ! |
71 |
71 |
72 |
|
73 !ToDoListBrowser class methodsFor:'class initialization'! |
72 !ToDoListBrowser class methodsFor:'class initialization'! |
74 |
73 |
75 current |
74 current |
76 ^ TheOneAndOnlyToDoListBrowser |
75 ^ TheOneAndOnlyToDoListBrowser |
77 |
76 |
93 ]. |
92 ]. |
94 ^ b |
93 ^ b |
95 |
94 |
96 "Created: / 21-10-2006 / 20:39:03 / cg" |
95 "Created: / 21-10-2006 / 20:39:03 / cg" |
97 ! ! |
96 ! ! |
98 |
|
99 |
97 |
100 !ToDoListBrowser class methodsFor:'interface specs'! |
98 !ToDoListBrowser class methodsFor:'interface specs'! |
101 |
99 |
102 windowSpec |
100 windowSpec |
103 "This resource specification was automatically generated |
101 "This resource specification was automatically generated |
146 ) |
144 ) |
147 |
145 |
148 "Modified: / 18-02-2007 / 12:55:32 / cg" |
146 "Modified: / 18-02-2007 / 12:55:32 / cg" |
149 ! ! |
147 ! ! |
150 |
148 |
151 |
|
152 !ToDoListBrowser class methodsFor:'menu specs'! |
149 !ToDoListBrowser class methodsFor:'menu specs'! |
153 |
150 |
154 itemMenu |
151 itemMenu |
155 "This resource specification was automatically generated |
152 "This resource specification was automatically generated |
156 by the MenuEditor of ST/X." |
153 by the MenuEditor of ST/X." |
276 nil |
273 nil |
277 ) |
274 ) |
278 |
275 |
279 "Modified: / 23-10-2006 / 23:22:45 / cg" |
276 "Modified: / 23-10-2006 / 23:22:45 / cg" |
280 ! ! |
277 ! ! |
281 |
|
282 |
278 |
283 !ToDoListBrowser class methodsFor:'tableColumns specs'! |
279 !ToDoListBrowser class methodsFor:'tableColumns specs'! |
284 |
280 |
285 tableColumns |
281 tableColumns |
286 "This resource specification was automatically generated |
282 "This resource specification was automatically generated |
345 ) |
341 ) |
346 |
342 |
347 "Modified: / 25-10-2006 / 01:05:50 / cg" |
343 "Modified: / 25-10-2006 / 01:05:50 / cg" |
348 ! ! |
344 ! ! |
349 |
345 |
350 |
|
351 !ToDoListBrowser methodsFor:'accessing'! |
346 !ToDoListBrowser methodsFor:'accessing'! |
352 |
347 |
353 aboutThisApplicationText |
348 aboutThisApplicationText |
354 |msg| |
349 |msg| |
355 |
350 |
401 ! |
396 ! |
402 |
397 |
403 todoListEntryAtIndex:idx |
398 todoListEntryAtIndex:idx |
404 ^ shownCopyOfToDoList at:idx |
399 ^ shownCopyOfToDoList at:idx |
405 ! ! |
400 ! ! |
406 |
|
407 |
401 |
408 !ToDoListBrowser methodsFor:'change & update'! |
402 !ToDoListBrowser methodsFor:'change & update'! |
409 |
403 |
410 delayedUpdate:something with:aParameter from:changedObject |
404 delayedUpdate:something with:aParameter from:changedObject |
411 changedObject == toDoList ifTrue:[ |
405 changedObject == toDoList ifTrue:[ |
428 self shownCopyOfToDoList contents:(self toDoList). |
422 self shownCopyOfToDoList contents:(self toDoList). |
429 self resort. |
423 self resort. |
430 |
424 |
431 "Created: / 18-02-2007 / 12:54:58 / cg" |
425 "Created: / 18-02-2007 / 12:54:58 / cg" |
432 ! ! |
426 ! ! |
433 |
|
434 |
427 |
435 !ToDoListBrowser methodsFor:'initialization & release'! |
428 !ToDoListBrowser methodsFor:'initialization & release'! |
436 |
429 |
437 closeDownViews |
430 closeDownViews |
438 "This is a hook method generated by the Browser. |
431 "This is a hook method generated by the Browser. |
505 |
498 |
506 "Created: / 21-10-2006 / 20:40:31 / cg" |
499 "Created: / 21-10-2006 / 20:40:31 / cg" |
507 "Modified: / 18-02-2007 / 12:57:07 / cg" |
500 "Modified: / 18-02-2007 / 12:57:07 / cg" |
508 ! ! |
501 ! ! |
509 |
502 |
510 |
|
511 !ToDoListBrowser methodsFor:'menu actions'! |
503 !ToDoListBrowser methodsFor:'menu actions'! |
512 |
504 |
513 clearList |
505 clearList |
514 toDoList removeAll |
506 toDoList removeAll |
515 |
507 |
525 |
517 |
526 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
518 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
527 "/ directory, and open a viewer with: |
519 "/ directory, and open a viewer with: |
528 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
520 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
529 ! ! |
521 ! ! |
530 |
|
531 |
522 |
532 !ToDoListBrowser methodsFor:'menu actions-item'! |
523 !ToDoListBrowser methodsFor:'menu actions-item'! |
533 |
524 |
534 browseItem |
525 browseItem |
535 self withWaitCursorDo:[ |
526 self withWaitCursorDo:[ |
567 cls := self selectedTodoListEntry problemClass. |
558 cls := self selectedTodoListEntry problemClass. |
568 entriesToRemove := toDoList select:[:entry | entry problemClass == cls |
559 entriesToRemove := toDoList select:[:entry | entry problemClass == cls |
569 or:[ entry problemClass topOwningClass == cls]]. |
560 or:[ entry problemClass topOwningClass == cls]]. |
570 self removeItems:entriesToRemove |
561 self removeItems:entriesToRemove |
571 ! ! |
562 ! ! |
572 |
|
573 |
563 |
574 !ToDoListBrowser methodsFor:'user actions'! |
564 !ToDoListBrowser methodsFor:'user actions'! |
575 |
565 |
576 itemDoubleClicked:itemIndex |
566 itemDoubleClicked:itemIndex |
577 self withWaitCursorDo:[ |
567 self withWaitCursorDo:[ |
645 self resort. |
635 self resort. |
646 |
636 |
647 "Created: / 25-10-2006 / 00:54:59 / cg" |
637 "Created: / 25-10-2006 / 00:54:59 / cg" |
648 ! ! |
638 ! ! |
649 |
639 |
650 |
|
651 !ToDoListBrowser class methodsFor:'documentation'! |
640 !ToDoListBrowser class methodsFor:'documentation'! |
652 |
641 |
653 version |
642 version |
654 ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.18 2012-11-03 16:16:49 cg Exp $' |
643 ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.18 2012-11-03 16:16:49 cg Exp $' |
655 ! ! |
644 ! |
656 |
645 |
|
646 version_HG |
|
647 |
|
648 ^ '$Changeset: <not expanded> $' |
|
649 ! ! |
|
650 |