A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-kph.50.mcz
==================== Summary ====================
Name: PackageInfo-Base-kph.50 Author: kph Time: 3 August 2008, 5:05:54 am UUID: 07da6a49-7423-4c00-982b-760191ab213b Ancestors: PackageInfo-Base-mtf.49
Latest PackageInfo supporting big changes in Monticello.impl-kph.562
=============== Diff against PackageInfo-Base-mtf.49 ===============
Item was changed: ----- Method: PackageInfo class>>named: (in category 'packages access') ----- named: aString + ^ PackageOrganizer default packageNamed: aString ifAbsent: [(self newForName: aString) register]!
Item was added: + ----- Method: PackageInfo>>propertyAt:ifAbsentPut: (in category 'preamble/postscript') ----- + propertyAt: key ifAbsentPut: valBlock + + properties ifNil:[ ^ self propertyAt: key put: valBlock ]. + + ^ properties at: key ifAbsent: [ self propertyAt: key put: valBlock ]!
Item was added: + ----- Method: PackageInfo>>postscriptDefault (in category 'preamble/postscript') ----- + postscriptDefault + + ^ StringHolder new contents: '"below, add code to be run after the loading of this package"' + !
Item was changed: Object subclass: #PackageInfo + instanceVariableNames: 'packageName methodCategoryPrefix properties' - instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval' classVariableNames: '' poolDictionaries: '' category: 'PackageInfo-Base'! PackageInfo class instanceVariableNames: 'default'!
!PackageInfo commentStamp: 'kph 6/2/2008 23:37' prior: 0! Subclass this class to create new Packages. !
Item was added: + ----- Method: PackageInfo>>preambleDefault (in category 'preamble/postscript') ----- + preambleDefault + + ^ StringHolder new contents: '"below, add code to be run before the loading of this package"' + !
Item was added: + ----- Method: PackageInfo>>propertyAt:put: (in category 'preamble/postscript') ----- + propertyAt: key put: value + + properties ifNil:[ properties := IdentityDictionary new ]. + + ^ properties at: key put: value!
Item was added: + ----- Method: PackageInfo>>propertyOrDefaultAt: (in category 'preamble/postscript') ----- + propertyOrDefaultAt: key + + | defaultSelector value | + + (self propertyAt: key) ifNotNilDo: [ :v | ^ v ]. + + defaultSelector := (key, 'Default') asSymbol. + + value := (self respondsTo: defaultSelector) ifTrue: [ self perform: defaultSelector ] ifFalse: [ ^ nil ]. + + ^ self propertyAt: key put: value + + !
Item was added: + ----- Method: PackageInfo>>preambleOfRemovalDefault (in category 'preamble/postscript') ----- + preambleOfRemovalDefault + + ^ StringHolder new contents: '"below, add code to prepare for the unloading of this package"'!
Item was added: + ----- Method: PackageInfo>>propertyAt: (in category 'preamble/postscript') ----- + propertyAt: key + + properties ifNil:[ ^ nil ]. + + ^ properties at: key ifAbsent: [ nil ]!
Item was added: + ----- Method: PackageInfo>>printOn: (in category 'listing') ----- + printOn: str + super printOn: str. + str nextPut: $(; nextPutAll: self packageName; nextPut: $)!
Item was added: + ----- Method: PackageInfo>>postscriptOfRemovalDefault (in category 'preamble/postscript') ----- + postscriptOfRemovalDefault + + ^ StringHolder new contents:'"below, add code to clean up after the unloading of this package"' + !
Item was removed: - ----- Method: PackageInfo>>preamble: (in category 'preamble/postscript') ----- - preamble:aString - - preamble := StringHolder new contents: aString!
Item was removed: - ----- Method: PackageInfo>>preambleOfRemoval: (in category 'preamble/postscript') ----- - preambleOfRemoval: aString - - preambleOfRemoval := StringHolder new contents: aString - !
Item was removed: - ----- Method: PackageInfo>>preambleOfRemoval (in category 'preamble/postscript') ----- - preambleOfRemoval - - ^ preambleOfRemoval ifNil: [preambleOfRemoval := StringHolder new contents: '"below, add code to prepare for the unloading of this package"']!
Item was removed: - ----- Method: PackageInfo>>hasPreamble (in category 'preamble/postscript') ----- - hasPreamble - ^ preamble notNil!
Item was removed: - ----- Method: PackageInfo>>hasPreambleOfRemoval (in category 'preamble/postscript') ----- - hasPreambleOfRemoval - - ^ preambleOfRemoval notNil!
Item was removed: - ----- Method: PackageInfo>>postscriptOfRemoval (in category 'preamble/postscript') ----- - postscriptOfRemoval - - ^ postscriptOfRemoval ifNil: [postscriptOfRemoval := StringHolder new contents: '"below, add code to clean up after the unloading of this package"']!
Item was removed: - ----- Method: PackageInfo>>hasPostscriptOfRemoval (in category 'preamble/postscript') ----- - hasPostscriptOfRemoval - - ^ postscriptOfRemoval notNil!
Item was removed: - ----- Method: PackageInfo>>postscriptOfRemoval: (in category 'preamble/postscript') ----- - postscriptOfRemoval: aString - - postscriptOfRemoval := StringHolder new contents: aString - !
Item was removed: - ----- Method: PackageInfo>>hasPostscript (in category 'preamble/postscript') ----- - hasPostscript - - ^ postscript notNil!
Item was removed: - ----- Method: PackageInfo>>preamble (in category 'preamble/postscript') ----- - preamble - - ^ preamble ifNil: [preamble := StringHolder new contents: '"below, add code to be run before the loading of this package"']. - !
Item was removed: - ----- Method: PackageInfo>>postscript (in category 'preamble/postscript') ----- - postscript - - ^ postscript ifNil: [postscript := StringHolder new contents: '"below, add code to be run after the loading of this package"'].!
Item was removed: - ----- Method: PackageInfo>>postscript: (in category 'preamble/postscript') ----- - postscript: aString - - postscript := StringHolder new contents: aString!