--- a/Tools__ToDoListBrowser.st	Wed Mar 14 11:45:47 2007 +0100
+++ b/Tools__ToDoListBrowser.st	Wed Mar 14 13:13:51 2007 +0100
@@ -265,7 +265,7 @@
          label: 'Type'
          labelButtonType: Button
          width: 32
-         model: severity
+         model: severityString
          canSelect: false
        )
       (DataSetColumnSpec
@@ -274,6 +274,8 @@
          width: 30
          model: priority
          canSelect: false
+         labelActionSelector: sortBy:
+         labelActionArgument: 'priority'
        )
       (DataSetColumnSpec
          label: 'Time'
@@ -565,5 +567,5 @@
 !ToDoListBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.8 2007-03-13 17:40:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListBrowser.st,v 1.9 2007-03-14 12:13:51 cg Exp $'
 ! !