--- a/Tools__CompilerWarningToDoListEntry.st	Sat Feb 10 17:13:54 2007 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Sat Feb 10 17:14:04 2007 +0100
@@ -35,6 +35,16 @@
     "Created: / 22-10-2006 / 01:38:26 / cg"
 !
 
+className:classNameArg selector:selectorArg checkAction:checkActionArg equalityParameter:equalityParameterArg position:positionArg
+    checkAction := checkActionArg.
+    className := classNameArg.
+    selector := selectorArg.
+    equalityParameter := equalityParameterArg.
+    position := positionArg.
+
+    "Created: / 22-10-2006 / 01:38:26 / cg"
+!
+
 equalityParameter
     ^ equalityParameter
 
@@ -88,6 +98,24 @@
     "Created: / 21-10-2006 / 21:50:58 / cg"
 !
 
+severity:severityArg priority:priorityArg timestamp:timestampArg 
+        message:msgArg className:classNameArg selector:selectorArg 
+        checkAction:checkActionArg equalityParameter:equalityParameterArg
+        position:positionArg
+    self
+        severity:severityArg 
+        priority:priorityArg 
+        timestamp:timestampArg 
+        message:msgArg.
+    self 
+        className:classNameArg 
+        selector:selectorArg 
+        checkAction:checkActionArg 
+        equalityParameter:equalityParameterArg.
+    self
+        position:positionArg
+!
+
 update:something with:aParameter from:changedObject
     self revalidate.
 
@@ -164,5 +192,5 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.3 2006-11-20 21:32:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.4 2007-02-10 16:14:04 cg Exp $'
 ! !