[Pkg] Monticello Public: Monticello.impl-mtf.562.mcz

[squeaksource-noreply at iam.unibe.ch]

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

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

Name: Monticello.impl-mtf.562
Author: mtf
Time: 12 August 2008, 4:48:17 pm
UUID: 8147bb8a-e715-4a0e-bb1e-e1773c35f9e5
Ancestors: Monticello.impl-mtf.561

removed dependence on keith's progress bar enhancements

=============== Diff against Monticello.impl-mtf.561 ===============

Item was changed:
  ----- Method: MCPackageLoader2>>basicLoad (in category 'private') -----
  basicLoad
+ 
-  
  	| postloads postunloads |
  
  	editor := SystemEditor new.
+ 	postloads := OrderedCollection new.
+ 	postunloads := OrderedCollection new.
+ 
+ 	additions do: [:defn | (defn edLoad: editor) ifTrue: [postloads add: defn]]
+ 		displayingProgress: 'Assembling Changes...'.
+ 	removals do: [:defn | (defn edUnload: editor) ifTrue: [postunloads add: defn]]
+ 		displayingProgress: 'Assembling Removals...'.
  
- 	postloads := additions select: [:defn | self progressBar value: #increment. defn edLoad: editor ].
- 	postunloads := removals select: [:defn | self progressBar value: #increment. defn edUnload: editor ].
- 	
- 	"idiom add our work to the progress bar"
- 	self progressBar value: (self progressBar value: #setMax) + postloads size + postunloads size. 
- 			
  	"the business"
+ 	editor commitWithProgress.
+ 
+ 	postloads do: [:ea | ea edPostload] displayingProgress: 'Running post-load scripts...'.
+ 	postunloads do: [ :ea |  ea edPostunload] displayingProgress: 'Running post-unload scripts...'.!
- 	 editor setProgressBar: self progressBar. "here use mine!!"
- 	 editor commitWithProgress.
- 	
- 	postloads do: [:ea | self progressBar value: #increment. ea edPostload ].
- 	postunloads do: [ :ea | self progressBar value: #increment. ea edPostunload ].
- 					
- 	 !

Item was changed:
  Object subclass: #MCPackageLoader2
+ 	instanceVariableNames: 'editor requirements unloadableDefinitions obsoletions additions removals errorDefinitions provisions isUnloading isMultiplePackage'
- 	instanceVariableNames: 'editor requirements unloadableDefinitions obsoletions additions removals errorDefinitions provisions isUnloading progressBar isMultiplePackage'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Monticello-Loading'!
  
  !MCPackageLoader2 commentStamp: 'kph 5/26/2007 09:32' prior: 0!
  MCPackageLoader2
  
  ProgressBar has great improvements.
  
  #setProgressBar: is used for clients to control how progress is displayed.
  
  If no one indicates a preference we display our own progress bar.
  Otherwise we use the one passed to us.
  
  To not have any progress bar displayed give us an empty block.
  #setProgressBar: [:v |  ] !

Item was changed:
  ----- Method: MCPackageLoader2>>protectedLoad (in category 'private') -----
  protectedLoad
  
   		[
  			[
+ 				[ self basicLoad ] on: InMidstOfFileinNotification do: [:n | n resume: true]
- 				[ self progressedLoad ] on: InMidstOfFileinNotification do: [:n | n resume: true]
  
  			] ensure: [self flushChangesFile].
  		
  		]  on: MCOrphanedNotification do: [ :ex | additions remove: ex orphan ifAbsent: [].
  											errorDefinitions add: ex orphan. 
  									 		ex resume.					  		]
   !

Item was removed:
- ----- Method: MCPackageLoader2>>progressedLoad (in category 'private') -----
- progressedLoad
-  
-   'Loading...'
- 
- 		 displayProgress: progressBar at: Sensor cursorPoint
- 			from: 0 to: (additions size + removals size)
- 			during: [ :bar |
- 	 			self setProgressBar: bar.
- 	 			self basicLoad.
- 				self setProgressBar: nil.
- 			].
- 		
- 
- 
-  	 !