Chris Muller uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-cmm.60.mcz==================== Summary ====================
Name: SMLoader-cmm.60
Author: cmm
Time: 19 January 2011, 4:34:39.546 pm
UUID: 0d3e32f7-6c56-4a74-8348-19f37e1aca27
Ancestors: SMLoader-ar.59
Stop intruding on the user to update the SqueakMap package catalog from the net.
=============== Diff against SMLoader-ar.59 ===============
Item was removed:
- ----- Method: SMLoader>>askToLoadUpdates (in category 'actions') -----
- askToLoadUpdates
- "Check how old the map is and ask to update it
- if it is older than 10 days or if there is no map on disk."
-
- | available |
- available := model isCheckpointAvailable.
- (available not or: [
- (Date today subtractDate: (Date fromSeconds:
- (model directory directoryEntryFor: model lastCheckpointFilename)
- modificationTime)) > 3])
- ifTrue: [
- (self confirm:
- (available ifTrue: ['The map on disk is more than 10 days old,
- update it from the Internet?'] ifFalse: ['There is no map on disk,
- fetch it from the Internet?']))
- ifTrue: [self loadUpdates]]!
Item was changed:
----- Method: SMLoader>>on: (in category 'initialization') -----
on: aSqueakMap
"Initialize instance."
-
model := aSqueakMap.
model synchWithDisk.
filters := DefaultFilters copy.
+ categoriesToFilterIds := DefaultCategoriesToFilterIds copy!
- categoriesToFilterIds := DefaultCategoriesToFilterIds copy.
- self askToLoadUpdates!
Item was removed:
- ----- Method: SMLoaderPlus>>askToLoadUpdates (in category 'actions') -----
- askToLoadUpdates
- "Check how old the map is and ask to update it
- if it is older than 10 days or if there is no map on disk."
-
- | available |
- available := map isCheckpointAvailable.
- (available not or: [
- (Date today subtractDate: (Date fromSeconds:
- (map directory directoryEntryFor: map lastCheckpointFilename)
- modificationTime)) > 3])
- ifTrue: [
- (self confirm:
- (available ifTrue: ['The map on disk is more than 10 days old,
- update it from the Internet?'] ifFalse: ['There is no map on disk,
- fetch it from the Internet?']))
- ifTrue: [self loadUpdates]]!
Item was changed:
----- Method: SMLoaderPlus>>on: (in category 'initialization') -----
on: aSqueakMap
"Initialize instance."
-
map := aSqueakMap.
map synchWithDisk.
filters := DefaultFilters copy.
+ categoriesToFilterIds := DefaultCategoriesToFilterIds copy!
- categoriesToFilterIds := DefaultCategoriesToFilterIds copy.
- self askToLoadUpdates!