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. - ]. - - - - !