[Pkg] Monticello Public: Monticello.impl-kph.633.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.633.mcz

==================== Summary ====================

Name: Monticello.impl-kph.633
Author: kph
Time: 15 February 2009, 11:32:49 pm
UUID: 39660155-95fb-42f9-bc34-c4298fe2ff1d
Ancestors: Monticello.impl-kph.632

fix preamble evaluation time.
script editting was broken - fixed

=============== Diff against Monticello.impl-kph.632 ===============

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>editScript: (in category 'morphic ui') -----
  editScript: scriptSymbol
  
+ 	| scriptHolder |
+ 	scriptHolder := workingCopy packageInfo propertyOrDefaultAt: scriptSymbol.
+ 
+ 	scriptHolder openLabel: scriptSymbol asString, ' of the Package ', workingCopy package name.!
- | script |
- script := workingCopy packageInfo propertyOrDefaultAt: scriptSymbol.
- script openLabel: scriptSymbol asString, ' of the Package ', workingCopy package name.!

Item was added:

Item was added:

Item was changed:
  ----- Method: MCScriptDefinition>>installScript: (in category 'as yet unclassified') -----
  installScript: aString
  	
+ 	self packageInfo propertyAt: self scriptSelector put: (StringHolder new contents: aString).
- 	self packageInfo propertyAt: self scriptSelector put: aString.
  	!

Item was added:
+ ----- Method: MCPreambleDefinition>>preloadOver: (in category 'as yet unclassified') -----
+ preloadOver: obs
+ 	super preloadOver: obs.
+ 	self evaluate !

Item was changed:
  ----- Method: MCScriptDefinition class>>from:addTo: (in category 'as yet unclassified') -----
  from: aPackageInfo addTo: definitions
  	
  	(aPackageInfo respondsTo: #propertyAt:) ifFalse: [ ^ self ].
  	
+ 	(self from: aPackageInfo) ifNotNilDo: [ :defn | definitions add: defn ].!
- 	(aPackageInfo propertyAt: self scriptSelector)
- 		ifNotNilDo: [ :v | definitions add: (self from: v) ]!

Item was changed:
  ----- Method: MCScriptDefinition>>preloadOver: (in category '') -----
  preloadOver: aDefinition
+ 	self halt.
-  
  	super preloadOver: aDefinition.
  	self installScript!

Item was changed:
  ----- Method: MCScriptDefinition class>>script:packageName: (in category 'as yet unclassified') -----
  script: aString packageName: packageString
+ 
  	^ self instanceLike: (self new initializeWithScript: aString packageName: packageString)!

Item was changed:
  ----- Method: MCDefinition>>postloadOver: (in category 'installing') -----
  postloadOver: aDefinition
+ 	!
- 	"this method is now obsolete, it runs when old versions of Monticello are used to load this one.
- 	It is also the only place in the transition where you can put 'initialization' code if you have to"
-  !

Item was added:

Item was changed:
  ----- Method: MCPostscriptDefinition>>postloadOver: (in category 'as yet unclassified') -----
  postloadOver: obs
+ 	super postloadOver: obs.
  	self evaluate!

Item was changed:
  ----- Method: MCScriptDefinition class>>from: (in category 'as yet unclassified') -----
  from: aPackageInfo
+ 	^ self 	script: ((aPackageInfo propertyAt: self scriptSelector) ifNil: [ ^ nil ]) contents 			packageName: aPackageInfo name!
- 	^ self script: (aPackageInfo propertyAt: self scriptSelector) contents asString packageName: aPackageInfo name!