hg/stx-libbasic3: comparison ProjectProblem.st

equal deleted inserted replaced

-:5f1c66fe73e8
+:f03628f5a60a
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2006 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 "
 ! !
 !ProjectProblem class methodsFor:'instance creation'!
+newClass:aClass usesPoolButItDoesNotExist:poolName
+^ self newClassUsesPoolButItDoesNotExist
+className: aClass name;
+poolName: poolName;
+yourself
+!
 newClassIsCompiledButSuperclassIsAutoloaded
 ^ClassIsCompiledButSuperclassIsAutoloaded new
 "Created: / 20-09-2013 / 11:18:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ^ClassListedBeforeItsSuperclass new
 "Created: / 13-09-2012 / 17:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+newClassListedBeforeItsSuperclass:aClass
+^ self newClassListedBeforeItsSuperclass
+className: aClass name;
+superClassName: aClass superclass name
+!
 newClassListedButDoesNotExist
 ^ClassListedButDoesNotExist new
 "Created: / 23-02-2012 / 13:18:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 newClassListedMultipleTimes
 ^ClassListedMultipleTimes new
 "Created: / 13-09-2012 / 17:40:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+newClassListedMultipleTimes:aClass
+^ self newClassListedMultipleTimes
+className:aClass name;
+yourself
 !
 newClassNotListed
 ^ClassNotListed new
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
 |mthd text|
-text := 'Extension method %1 � %2 listed but in different package'.
+text := 'Extension method %1 » %2 listed but in different package'.
 (mthd := self method) notNil ifTrue:[
 mthd package = mthd mclass package ifTrue:[
-text := 'Extension method %1 � %2 listed but in classes package'
+text := 'Extension method %1 » %2 listed but in classes package'
 ]
 ].
 ^ text
 bindWith: className allBold
 with: selector allBold
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^'Extension method %1 � %2 not listed in project definition "%3"' bindWith: className allBold with: selector allBold with:self packageDefinitionClass
+^'Extension method %1 » %2 not listed in project definition "%3"' bindWith: className allBold with: selector allBold with:self packageDefinitionClass
 "Modified: / 23-02-2012 / 14:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::ExtensionMethodNotListed methodsFor:'fixing'!
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^'Extension method %1 � %2 listed but class not existing'
+^'Extension method %1 » %2 listed but class not existing'
 bindWith: className allBold
 with: selector allBold
 "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
 ^ (errors notNil
-ifTrue:[ 'Uncompilable method %1 � %2' ]
+ifTrue:[ 'Uncompilable method %1 » %2' ]
-ifFalse:[ 'Warnings for method %1 � %2' ]) bindWith: className allBold with: selector allBold
+ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
 "Modified: / 11-04-2012 / 16:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
 ^ ((self severity == #error)
-ifTrue:[ 'Uncompilable method %1 � %2' ]
+ifTrue:[ 'Uncompilable method %1 » %2' ]
-ifFalse:[ 'Warnings for method %1 � %2' ]) bindWith: className allBold with: selector allBold
+ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
 "Modified: / 29-05-2014 / 15:39:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::MethodCompilabilityIssue2 methodsFor:'adding & removing'!
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^'Unpackaged method %1 � %2' bindWith: className allBold with: selector allBold
+^'Unpackaged method %1 » %2' bindWith: className allBold with: selector allBold
 "Modified: / 23-02-2012 / 14:19:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::MethodInNoPackage methodsFor:'fixing'!
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^'Method %1 � %2 also present in other pacakge(s)' bindWith: className allBold with: selector allBold
+^'Method %1 » %2 also present in other pacakge(s)' bindWith: className allBold with: selector allBold
 ! !
 !ProjectProblem::MethodListedInOtherPackage methodsFor:'fixing'!
 doRemoveMethodFromOtherPackages
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^'Extension method %1 � %2 listed but not existing' bindWith: className allBold with: selector allBold
+^'Extension method %1 » %2 listed but not existing' bindWith: className allBold with: selector allBold
 "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::ExtensionMethodListedButDoesNotExist methodsFor:'fixing'!
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^ 'Corrupted source code for %1 � %2' bindWith: className allBold with: selector allBold
+^ 'Corrupted source code for %1 » %2' bindWith: className allBold with: selector allBold
 "Modified: / 11-04-2012 / 12:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::MethodSourceNotAvailable methodsFor:'accessing'!
 !
 label
 "Return the label (possibly instance if a Text) shortly describing the problem"
-^ 'Unavailable source code for %1 � %2' bindWith: className allBold with: selector allBold
+^ 'Unavailable source code for %1 » %2' bindWith: className allBold with: selector allBold
 "Modified: / 11-04-2012 / 12:41:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ProjectProblem::ProjectDefinitionDoesNotExist methodsFor:'accessing'!

changeset 4370	f03628f5a60a
parent 4358	c113067bf9f2
child 4460	044252f25c7d