--- a/ProjectProblem.st Wed Mar 27 17:39:07 2013 +0100
+++ b/ProjectProblem.st Wed Mar 27 17:48:05 2013 +0100
@@ -488,9 +488,10 @@
"Return a (HTML) describing the problem."
^
-'Class %2 is listed in project definition (%1) before its superclass. Such class will fail to
-compile (if the package is being stc-compiled) and load (if the package is being loaded from
-source). Make sure class (%3) is listed before (%2).
+'Class %2 is listed in project definition (%1) before its superclass.
+<br>Such a class will fail to compile (if the package is being stc-compiled)
+and load (if the package is being loaded from source).
+<br>Make sure class (%3) is listed before (%2).
'
bindWith: (self linkToClass: self packageDefinitionClass class selector: #classNamesAndAttributes omitClassName: true)
@@ -521,8 +522,8 @@
description
"Return a (HTML) describing the problem."
^
-'A class (<code>%1</code>) is listed in project definition class but
-it is not present in the system.
+'A class (<code>%1</code>) is listed in the project definition but
+not present in the system.
You should either create it or remove it from %2.'
bindWith: className with: (self linkToClass: self packageDefinitionClass class selector: #classNamesAndAttributes)
@@ -553,7 +554,7 @@
'A class %1 is listed more than once in %2.
Such package will fail to compile, as linker will complain
-about multiple definitions of same symbols. Make sure each
+about multiple definitions of the same symbols. Make sure each
class is listed only once.
'
bindWith: (self linkToClass: className)
@@ -576,8 +577,8 @@
"Return a (HTML) describing the problem."
^
-'Class %1 is not listed in project definition (%2) Such class won''t be compiled
-and - if some other class dependents on it - whole package will fail to compile
+'Class %1 is not listed in project definition (%2).
+<br>The class won''t be compiled and - if some other class dependents on it - the whole package will fail to compile
at all.'
bindWith: (self linkToClass: className)
with: (self linkToClass: self packageDefinitionClass class selector: #classNamesAndAttributes omitClassName: true)
@@ -640,9 +641,10 @@
"Return a (HTML) describing the problem."
^
-'Class %2 is listed in project definition (%1) before one of its pools (%3). Such class will fail to
-compile (if the package is being stc-compiled) and load (if the package is being loaded from
-source). Make sure class (%3) is listed before (%2).
+'Class %2 is listed in project definition (%1) before one of its pools (%3).
+<br>Such class will fail to compile (if the package is being stc-compiled)
+and load (if the package is being loaded from source).
+<br>Make sure class (%3) is listed before (%2).
'
bindWith: (self linkToClass: self packageDefinitionClass class selector: #classNamesAndAttributes omitClassName: true)
@@ -655,7 +657,7 @@
label
"Return the label (possibly instance if a Text) shortly describing the problem"
- ^'Class %1 listed in project definition before one of its pool' bindWith: className
+ ^'Class %1 listed in project definition before one of its pools' bindWith: className
"Modified: / 13-09-2012 / 17:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -684,12 +686,12 @@
"Return a (HTML) describing the problem."
^
-'A class %1 uses pool %2 but it does not exists.
+'A class %1 uses pool %2 but it does not exist.
-The pool should be removed from class definition otherwise
-the package won''t compile due missing class.'
+The pool should be removed from the class definition;
+otherwise the package won''t compile due to a missing class.'
bindWith: (self linkToClass: className)
- with: (self linkToClass: poolName)
+ with: (self linkToClass: poolName)
"Modified: / 23-02-2012 / 13:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -708,11 +710,11 @@
"Return a (HTML) describing the problem."
^
-'A class %1 uses pool %2 from same namespace as the class itself but
-the namespace is not explicitly written in shared pools definition.
+'A class %1 uses pool %2 from same namespace as the class,
+but the namespace is not explicitly named in the shared pools definition.
Due to a bug in stc, such code will fail to compile. A pool definition
-must contain fully qualified class name including namespace.'
+must contain a fully qualified class name including namespace.'
bindWith: (self linkToClass: className)
with: (self linkToClass: poolName)
@@ -733,10 +735,10 @@
"Return a (HTML) describing the problem."
^
-'A class %1 uses pool %2 but it does not exists.
+'A class %1 uses pool %2 but it does not exist.
-The pool should be removed from class definition otherwise
-the package won''t compile due to a missing class.'
+The pool should be removed from the class definition;
+otherwise the package won''t compile due to a missing class.'
bindWith: (self linkToClass: className) with: poolName
"Modified: / 13-09-2012 / 16:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -859,27 +861,27 @@
| issuePrinter |
issuePrinter := [:stream :issue|
- stream nextPutAll:'<li>'.
- issue descriptionOn: stream.
- stream nextPutAll:'</li>'.
- stream cr.
+ stream nextPutAll:'<li>'.
+ issue descriptionOn: stream.
+ stream nextPutAll:'</li>'.
+ stream cr.
].
^ String streamContents:[:s|
- s
- nextPutAll: 'Following problems has been found in ';
- nextPutAll: self linkToMethod;
- nextPutAll: ':'; cr;
- nextPutAll: '<ul>'.
- errors ? #() do:[:issue|issuePrinter value: s value: issue].
- warnings ? #() do:[:issue|issuePrinter value: s value: issue].
- s
- nextPutAll: '</ul>'.
+ s
+ nextPutAll: 'The following problems have been found in ';
+ nextPutAll: self linkToMethod;
+ nextPutAll: ':'; cr;
+ nextPutAll: '<ul>'.
+ errors ? #() do:[:issue|issuePrinter value: s value: issue].
+ warnings ? #() do:[:issue|issuePrinter value: s value: issue].
+ s
+ nextPutAll: '</ul>'.
- errors notNil ifTrue:[
- s nextPutAll:
-'STC won''t compile such a code, therefore you must fix it before commiting'
- ].
+ errors notNil ifTrue:[
+ s nextPutAll:
+'STC won''t compile such code, therefore you must fix it before committing'
+ ].
]
"Modified: / 11-04-2012 / 15:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1078,10 +1080,10 @@
^
'Method %1 does not belong to any package. Such methods
-are not commited and will be lost when you restart/recompile.
+are not committed and will be lost when you restart/recompile.
Method should be moved to some package, %2 maybe?'
bindWith: (self linkToMethod)
- with: package
+ with: package
"Modified: / 23-02-2012 / 14:21:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -1118,13 +1120,13 @@
description
"Return a (HTML) describing the problem."
-^'Method %1>>%2 listed in %3 but does not exists. This does not hurt
-if you stc-compile all your code, but such a package will fail to
+^'Method %1>>%2 listed in %3 but does not exist.
+This does not hurt if you stc-compile all your code, but such a package will fail to
(auto)load from sources.
-It is highly reccomended to remove the method from the list (%3).'
+It is highly recommended to remove the method from the list (%3).'
bindWith: className with: selector
- with: (self linkToClass: self packageDefinitionClass class selector: #extensionMethodNames)
+ with: (self linkToClass: self packageDefinitionClass class selector: #extensionMethodNames)
"Modified: / 23-02-2012 / 15:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -1145,9 +1147,13 @@
^
'Source code for %1 is <b>corrupted</b>. This is likely because
the binary class version does not match the source file. This may happen,
-for instance, if you compile a class library and then edit the .st file.'
+for instance, if you compile a class library and then edit the .st file,
+or you have checked out from the SCM over the existing source code.
+<BR>Be very careful with checkin or fileOut, and check for currupt source code.
+<BR>It is recommended to leave ST/X, restore the old source or compile a system
+based on the current source, restart ST/X, reapply the chages and commit then.'
bindWith: (self linkToMethod)
- with: package
+ with: package
"Modified: / 11-04-2012 / 12:47:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -1174,11 +1180,11 @@
"Return a (HTML) describing the problem."
^
-'Source code for %1 is not available. Check your package path
+'Source code for %1 is not available. Check your package path
and/or source code management settings.
'
bindWith: (self linkToMethod)
- with: package
+ with: package
"Modified: / 11-04-2012 / 12:44:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -1205,7 +1211,7 @@
"Return a (HTML) describing the problem."
^
-'A project definition class for package %1 does not exists.
+'A project definition class for package %1 does not exist.
You <b>must</b> create it, otherwise package management won''t work'.
"Modified: / 23-02-2012 / 13:29:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1228,11 +1234,11 @@
!ProjectProblem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.7 2013-03-27 14:06:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.8 2013-03-27 16:48:05 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.7 2013-03-27 14:06:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.8 2013-03-27 16:48:05 cg Exp $'
!
version_SVN