--- a/ProjectProblem.st	Thu Apr 04 13:51:05 2013 +0200
+++ b/ProjectProblem.st	Thu Apr 04 14:20:03 2013 +0200
@@ -834,6 +834,38 @@
     selector := something.
 ! !
 
+!ProjectProblem::MethodProblem methodsFor:'fixes'!
+
+doRemoveMethodFromExtensionsList
+    "update the extension method info in the project definition.
+     Return false if fix fails, true otherwise"
+
+    | def mthd |
+
+    def := self packageDefinitionClass.
+    def isNil ifTrue:[ ^ false ].
+    mthd := self method.
+    mthd isNil ifTrue:[ ^ false ].
+
+    def excludeMethods:(Array with:mthd) usingCompiler:nil.
+    UserNotification notify: ('ProjectDefinition updated. Do not forget to check it in!!').
+    ^true
+!
+
+doRemoveNamedMethodFromExtensionsList
+    "update the extension method info in the project definition.
+     Return false if fix fails, true otherwise"
+
+    | def |
+
+    def := self packageDefinitionClass.
+    def isNil ifTrue:[ ^ false ].
+
+    def excludeMethodFor:selector inClassNamed:className usingCompiler:nil.    
+    UserNotification notify: ('ProjectDefinition updated. Do not forget to check it in!!').
+    ^true
+! !
+
 !ProjectProblem::MethodProblem methodsFor:'utilities-HTML'!
 
 linkToMethod
@@ -908,22 +940,6 @@
     self method package:package
 !
 
-doRemoveMethodFromExtensionsList
-    "update the extension method info in the project definition.
-     Return false if fix fails, true otherwise"
-
-    | def mthd |
-
-    def := self packageDefinitionClass.
-    def isNil ifTrue:[ ^ false ].
-    mthd := self method.
-    mthd isNil ifTrue:[ ^ false ].
-
-    def excludeMethods:(Array with:mthd) usingCompiler:nil.
-    UserNotification notify: ('ProjectDefinition updated. Do not forget to check it in!!').
-    ^true
-!
-
 fixes
     |mthd|
 
@@ -1029,6 +1045,15 @@
     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ProjectProblem::ExtensionMethodsClassDoesNotExist methodsFor:'fixes'!
+
+fixes
+    ^Array
+        with: (Array with: 'Remove from the extensionMethodNames list' with: [ self doRemoveNamedMethodFromExtensionsList ])    
+
+    "Created: / 26-07-2012 / 10:41:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ProjectProblem::ClassListedBeforeItsSuperclass methodsFor:'accessing'!
 
 superClassName
@@ -1370,6 +1395,15 @@
     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ProjectProblem::ExtensionMethodListedButDoesNotExist methodsFor:'fixes'!
+
+fixes
+    ^Array
+        with: (Array with: 'Remove from the extensionMethodNames list' with: [ self doRemoveNamedMethodFromExtensionsList ])    
+
+    "Created: / 26-07-2012 / 10:41:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ProjectProblem::MethodSourceCorrupted methodsFor:'accessing'!
 
 severity
@@ -1517,11 +1551,11 @@
 !ProjectProblem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.19 2013-04-03 22:34:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.20 2013-04-04 12:20:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.19 2013-04-03 22:34:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.20 2013-04-04 12:20:03 cg Exp $'
 !
 
 version_SVN