--- a/Tools__ToDoListBrowser.st Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__ToDoListBrowser.st Fri Nov 30 17:23:39 2012 +0000
@@ -523,7 +523,9 @@
!ToDoListBrowser methodsFor:'menu actions-item'!
browseItem
- (self todoListEntryAtIndex:self selectionIndexHolder value) browse
+ self withWaitCursorDo:[
+ (self todoListEntryAtIndex:self selectionIndexHolder value) browse
+ ].
"Created: / 22-10-2006 / 02:00:20 / cg"
"Modified: / 18-02-2007 / 12:56:49 / cg"
@@ -562,7 +564,9 @@
!ToDoListBrowser methodsFor:'user actions'!
itemDoubleClicked:itemIndex
- (self selectedTodoListEntry) browse
+ self withWaitCursorDo:[
+ (self selectedTodoListEntry) browse
+ ].
"Created: / 22-10-2006 / 01:49:13 / cg"
"Modified: / 18-02-2007 / 12:56:30 / cg"
@@ -636,5 +640,5 @@
!ToDoListBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.17 2008/10/08 07:16:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.18 2012/11/03 16:16:49 cg Exp $'
! !