- ProjectProblem (added lost method) jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 11 Apr 2012 17:26:20 +0100
branchjv
changeset 3047 a19c6e22a8bb
parent 3046 c99775eaf08a
child 3048 d36a2f8da02a
- ProjectProblem (added lost method)
ProjectProblem.st
libbasic3.rc
--- a/ProjectProblem.st	Wed Apr 11 17:07:51 2012 +0100
+++ b/ProjectProblem.st	Wed Apr 11 17:26:20 2012 +0100
@@ -302,8 +302,8 @@
 !ProjectProblem methodsFor:'utilities-HTML'!
 
 linkToClass: classOrclassName
+    | className |
 
-    | className |
     className := classOrclassName isBehavior
                     ifTrue: [classOrclassName storeString]
                     ifFalse:[classOrclassName].
@@ -685,6 +685,18 @@
     startPosition := something.
 ! !
 
+!ProjectProblem::MethodCompilabilityIssue::Warning class methodsFor:'instance creation'!
+
+message: message from: startPosition to: endPosition
+
+    ^self new
+        message: message;
+        startPosition: startPosition;
+        endPosition: endPosition;
+        yourself.
+
+    "Created: / 11-04-2012 / 15:38:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !ProjectProblem::MethodCompilabilityIssue::Warning methodsFor:'accessing'!
 
@@ -857,5 +869,5 @@
 !ProjectProblem class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: ProjectProblem.st 1914 2012-04-11 16:07:51Z vranyj1 $'
+    ^ '$Id: ProjectProblem.st 1915 2012-04-11 16:26:20Z vranyj1 $'
 ! !
--- a/libbasic3.rc	Wed Apr 11 17:07:51 2012 +0100
+++ b/libbasic3.rc	Wed Apr 11 17:26:20 2012 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.1.1\0"
-      VALUE "ProductDate", "Wed, 11 Apr 2012 16:08:30 GMT\0"
+      VALUE "ProductDate", "Wed, 11 Apr 2012 16:27:27 GMT\0"
     END
 
   END