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