Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-bf.63.mcz
==================== Summary ====================
Name: PackageInfo-Base-bf.63 Author: bf Time: 31 May 2012, 6:12:49.921 pm UUID: 263192a2-23dc-4a8f-af1b-70937ff15e08 Ancestors: PackageInfo-Base-bf.62
Really ignore meaningless scripts (i.e., only default comment, or 'nil' from ancient times, like this package's postscript)
=============== Diff against PackageInfo-Base-bf.62 ===============
Item was changed: ----- Method: PackageInfo>>hasPostscript (in category 'preamble/postscript') ----- hasPostscript + ^ self isScript: postscript not: self postscriptDefault! - - ^ postscript notNil and: [postscript contents asString withBlanksTrimmed notEmpty]!
Item was changed: ----- Method: PackageInfo>>hasPostscriptOfRemoval (in category 'preamble/postscript') ----- hasPostscriptOfRemoval + ^ self isScript: postscriptOfRemoval not: self postscriptOfRemovalDefault! - - ^ postscriptOfRemoval notNil and: [postscriptOfRemoval contents asString withBlanksTrimmed notEmpty]!
Item was changed: ----- Method: PackageInfo>>hasPreamble (in category 'preamble/postscript') ----- hasPreamble + ^ self isScript: preamble not: self preambleDefault! - - ^ preamble notNil and: [preamble contents asString withBlanksTrimmed notEmpty]!
Item was changed: ----- Method: PackageInfo>>hasPreambleOfRemoval (in category 'preamble/postscript') ----- hasPreambleOfRemoval + ^ self isScript: preambleOfRemoval not: self preambleOfRemovalDefault! - - ^ preambleOfRemoval notNil and: [preambleOfRemoval contents asString withBlanksTrimmed notEmpty]!
Item was added: + ----- Method: PackageInfo>>isScript:not: (in category 'preamble/postscript') ----- + isScript: script not: default + ^ script notNil + and: [ | contents | + contents := script contents asString withBlanksTrimmed. + contents notEmpty and: [contents ~= default and: [contents ~= 'nil']]]!
Item was changed: ----- Method: PackageInfo>>postscript (in category 'preamble/postscript') ----- postscript + ^ postscript ifNil: [ + postscript := StringHolder new contents: self postscriptDefault]! - - ^ postscript ifNil: [postscript := StringHolder new contents: '"below, add code to be run after the loading of this package"'].!
Item was added: + ----- Method: PackageInfo>>postscriptDefault (in category 'preamble/postscript') ----- + postscriptDefault + ^ '"below, add code to be run after the loading of this package"'!
Item was changed: ----- Method: PackageInfo>>postscriptOfRemoval (in category 'preamble/postscript') ----- postscriptOfRemoval + ^ postscriptOfRemoval ifNil: [ + postscriptOfRemoval := StringHolder new contents: self postscriptOfRemovalDefault]! - - ^ postscriptOfRemoval ifNil: [postscriptOfRemoval := StringHolder new contents: '"below, add code to clean up after the unloading of this package"']!
Item was added: + ----- Method: PackageInfo>>postscriptOfRemovalDefault (in category 'preamble/postscript') ----- + postscriptOfRemovalDefault + ^ '"below, add code to clean up after the unloading of this package"'!
Item was changed: ----- Method: PackageInfo>>preamble (in category 'preamble/postscript') ----- preamble + ^ preamble ifNil: [ + preamble := StringHolder new contents: self preambleDefault]! - - ^ preamble ifNil: [preamble := StringHolder new contents: '"below, add code to be run before the loading of this package"']. - !
Item was added: + ----- Method: PackageInfo>>preambleDefault (in category 'preamble/postscript') ----- + preambleDefault + ^ '"below, add code to be run before the loading of this package"' + !
Item was changed: ----- Method: PackageInfo>>preambleOfRemoval (in category 'preamble/postscript') ----- preambleOfRemoval + ^ preambleOfRemoval ifNil: [ + preambleOfRemoval := StringHolder new contents: self preambleOfRemovalDefault]! - - ^ preambleOfRemoval ifNil: [preambleOfRemoval := StringHolder new contents: '"below, add code to prepare for the unloading of this package"']!
Item was added: + ----- Method: PackageInfo>>preambleOfRemovalDefault (in category 'preamble/postscript') ----- + preambleOfRemovalDefault + ^'"below, add code to prepare for the unloading of this package"'!
Item was removed: - (PackageInfo named: 'PackageInfo-Base') postscript: 'nil'!