--- a/Tools__CompilerWarningToDoListEntry.st	Mon Nov 13 13:14:16 2006 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Mon Nov 13 13:20:34 2006 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Tools }"
 
 ToDoListEntry subclass:#CompilerWarningToDoListEntry
-	instanceVariableNames:'checkAction className class selector equalityParameter'
+	instanceVariableNames:'checkAction className class selector position equalityParameter'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Smalltalk-ToDo'
@@ -40,6 +40,14 @@
     "Created: / 22-10-2006 / 11:05:21 / cg"
 !
 
+position
+    ^ position
+!
+
+position:something
+    position := something.
+!
+
 problemClass
     ^ Smalltalk classNamed:className
 
@@ -99,10 +107,15 @@
 !CompilerWarningToDoListEntry methodsFor:'misc'!
 
 browse
-    UserPreferences browserClass 
-        openInClass:(self problemClass) selector:selector
+    |brwsr|
+
+    brwsr := UserPreferences browserClass 
+        openInClass:(self problemClass) selector:selector.
+    brwsr codeView cursorToCharacterPosition:position.
+"/    brwsr codeView selectLine:(brwsr codeView cursorLine).
 
     "Created: / 22-10-2006 / 01:38:11 / cg"
+    "Modified: / 11-11-2006 / 14:49:35 / cg"
 ! !
 
 !CompilerWarningToDoListEntry methodsFor:'validation'!
@@ -140,5 +153,5 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.1 2006-10-23 08:58:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.2 2006-11-13 12:20:34 cg Exp $'
 ! !