ProjectProblem.st
branchjv
changeset 4384 e28fcaaf93c7
parent 4114 400f59aa641f
equal deleted inserted replaced
4383:c6ff0a1dc213 4384:e28fcaaf93c7
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 2006 by eXept Software AG
     4  COPYRIGHT (c) 2006 by eXept Software AG
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  1555 label
  1557 label
  1556     "Return the label (possibly instance if a Text) shortly describing the problem"
  1558     "Return the label (possibly instance if a Text) shortly describing the problem"
  1557 
  1559 
  1558     |mthd text|
  1560     |mthd text|
  1559 
  1561 
  1560     text := 'Extension method %1 » %2 listed but in different package'.
  1562     text := 'Extension method %1 » %2 listed but in different package'.
  1561 
  1563 
  1562     (mthd := self method) notNil ifTrue:[
  1564     (mthd := self method) notNil ifTrue:[
  1563         mthd package = mthd mclass package ifTrue:[
  1565         mthd package = mthd mclass package ifTrue:[
  1564             text := 'Extension method %1 » %2 listed but in classes package' 
  1566             text := 'Extension method %1 » %2 listed but in classes package' 
  1565         ]
  1567         ]
  1566     ].
  1568     ].
  1567     ^ text
  1569     ^ text
  1568         bindWith: className allBold 
  1570         bindWith: className allBold 
  1569         with: selector allBold
  1571         with: selector allBold
  1620 !
  1622 !
  1621 
  1623 
  1622 label
  1624 label
  1623     "Return the label (possibly instance if a Text) shortly describing the problem"
  1625     "Return the label (possibly instance if a Text) shortly describing the problem"
  1624 
  1626 
  1625     ^'Extension method %1 » %2 not listed in project definition "%3"' bindWith: className allBold with: selector allBold with:self packageDefinitionClass
  1627     ^'Extension method %1 » %2 not listed in project definition "%3"' bindWith: className allBold with: selector allBold with:self packageDefinitionClass
  1626 
  1628 
  1627     "Modified: / 23-02-2012 / 14:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1629     "Modified: / 23-02-2012 / 14:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1628 ! !
  1630 ! !
  1629 
  1631 
  1630 !ProjectProblem::ExtensionMethodNotListed methodsFor:'fixing'!
  1632 !ProjectProblem::ExtensionMethodNotListed methodsFor:'fixing'!
  1694 !
  1696 !
  1695 
  1697 
  1696 label
  1698 label
  1697     "Return the label (possibly instance if a Text) shortly describing the problem"
  1699     "Return the label (possibly instance if a Text) shortly describing the problem"
  1698 
  1700 
  1699     ^'Extension method %1 » %2 listed but class not existing' 
  1701     ^'Extension method %1 » %2 listed but class not existing' 
  1700         bindWith: className allBold 
  1702         bindWith: className allBold 
  1701         with: selector allBold
  1703         with: selector allBold
  1702 
  1704 
  1703     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1705     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1704 ! !
  1706 ! !
  1848 
  1850 
  1849 label
  1851 label
  1850     "Return the label (possibly instance if a Text) shortly describing the problem"
  1852     "Return the label (possibly instance if a Text) shortly describing the problem"
  1851 
  1853 
  1852     ^ (errors notNil 
  1854     ^ (errors notNil 
  1853         ifTrue:[ 'Uncompilable method %1 » %2' ]
  1855         ifTrue:[ 'Uncompilable method %1 » %2' ]
  1854         ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
  1856         ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
  1855 
  1857 
  1856 
  1858 
  1857     "Modified: / 11-04-2012 / 16:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1859     "Modified: / 11-04-2012 / 16:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1858 ! !
  1860 ! !
  1859 
  1861 
  2092 
  2094 
  2093 label
  2095 label
  2094     "Return the label (possibly instance if a Text) shortly describing the problem"
  2096     "Return the label (possibly instance if a Text) shortly describing the problem"
  2095 
  2097 
  2096     ^ ((self severity == #error) 
  2098     ^ ((self severity == #error) 
  2097         ifTrue:[ 'Uncompilable method %1 » %2' ]
  2099         ifTrue:[ 'Uncompilable method %1 » %2' ]
  2098         ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
  2100         ifFalse:[ 'Warnings for method %1 » %2' ]) bindWith: className allBold with: selector allBold
  2099 
  2101 
  2100     "Modified: / 29-05-2014 / 15:39:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2102     "Modified: / 29-05-2014 / 15:39:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2101 ! !
  2103 ! !
  2102 
  2104 
  2103 !ProjectProblem::MethodCompilabilityIssue2 methodsFor:'adding & removing'!
  2105 !ProjectProblem::MethodCompilabilityIssue2 methodsFor:'adding & removing'!
  2147 !
  2149 !
  2148 
  2150 
  2149 label
  2151 label
  2150     "Return the label (possibly instance if a Text) shortly describing the problem"
  2152     "Return the label (possibly instance if a Text) shortly describing the problem"
  2151 
  2153 
  2152     ^'Unpackaged method %1 » %2' bindWith: className allBold with: selector allBold
  2154     ^'Unpackaged method %1 » %2' bindWith: className allBold with: selector allBold
  2153 
  2155 
  2154     "Modified: / 23-02-2012 / 14:19:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2156     "Modified: / 23-02-2012 / 14:19:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2155 ! !
  2157 ! !
  2156 
  2158 
  2157 !ProjectProblem::MethodInNoPackage methodsFor:'fixing'!
  2159 !ProjectProblem::MethodInNoPackage methodsFor:'fixing'!
  2277 !
  2279 !
  2278 
  2280 
  2279 label
  2281 label
  2280     "Return the label (possibly instance if a Text) shortly describing the problem"
  2282     "Return the label (possibly instance if a Text) shortly describing the problem"
  2281 
  2283 
  2282     ^'Method %1 » %2 also present in other pacakge(s)' bindWith: className allBold with: selector allBold
  2284     ^'Method %1 » %2 also present in other pacakge(s)' bindWith: className allBold with: selector allBold
  2283 ! !
  2285 ! !
  2284 
  2286 
  2285 !ProjectProblem::MethodListedInOtherPackage methodsFor:'fixing'!
  2287 !ProjectProblem::MethodListedInOtherPackage methodsFor:'fixing'!
  2286 
  2288 
  2287 doRemoveMethodFromOtherPackages
  2289 doRemoveMethodFromOtherPackages
  2334 !
  2336 !
  2335 
  2337 
  2336 label
  2338 label
  2337     "Return the label (possibly instance if a Text) shortly describing the problem"
  2339     "Return the label (possibly instance if a Text) shortly describing the problem"
  2338 
  2340 
  2339     ^'Extension method %1 » %2 listed but not existing' bindWith: className allBold with: selector allBold
  2341     ^'Extension method %1 » %2 listed but not existing' bindWith: className allBold with: selector allBold
  2340 
  2342 
  2341     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2343     "Modified: / 23-02-2012 / 14:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2342 ! !
  2344 ! !
  2343 
  2345 
  2344 !ProjectProblem::ExtensionMethodListedButDoesNotExist methodsFor:'fixing'!
  2346 !ProjectProblem::ExtensionMethodListedButDoesNotExist methodsFor:'fixing'!
  2389 !
  2391 !
  2390 
  2392 
  2391 label
  2393 label
  2392     "Return the label (possibly instance if a Text) shortly describing the problem"
  2394     "Return the label (possibly instance if a Text) shortly describing the problem"
  2393 
  2395 
  2394     ^ 'Corrupted source code for %1 » %2' bindWith: className allBold with: selector allBold
  2396     ^ 'Corrupted source code for %1 » %2' bindWith: className allBold with: selector allBold
  2395 
  2397 
  2396     "Modified: / 11-04-2012 / 12:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2398     "Modified: / 11-04-2012 / 12:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2397 ! !
  2399 ! !
  2398 
  2400 
  2399 !ProjectProblem::MethodSourceNotAvailable methodsFor:'accessing'!
  2401 !ProjectProblem::MethodSourceNotAvailable methodsFor:'accessing'!
  2422 !
  2424 !
  2423 
  2425 
  2424 label
  2426 label
  2425     "Return the label (possibly instance if a Text) shortly describing the problem"
  2427     "Return the label (possibly instance if a Text) shortly describing the problem"
  2426 
  2428 
  2427     ^ 'Unavailable source code for %1 » %2' bindWith: className allBold with: selector allBold
  2429     ^ 'Unavailable source code for %1 » %2' bindWith: className allBold with: selector allBold
  2428 
  2430 
  2429     "Modified: / 11-04-2012 / 12:41:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2431     "Modified: / 11-04-2012 / 12:41:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2430 ! !
  2432 ! !
  2431 
  2433 
  2432 !ProjectProblem::ProjectDefinitionDoesNotExist methodsFor:'accessing'!
  2434 !ProjectProblem::ProjectDefinitionDoesNotExist methodsFor:'accessing'!