[Pkg] Monticello Public: PackageInfo-Base-kph.50.mcz

[squeaksource-noreply at iam.unibe.ch]

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!