The Trunk: SMLoader-cmm.81.mcz

Chris Muller uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-cmm.81.mcz

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

Name: SMLoader-cmm.81
Author: cmm
Time: 1 April 2015, 3:04:04.314 pm
UUID: 5b84720e-18e5-4254-88b5-b58ad5abaa46
Ancestors: SMLoader-bf.80

- Fix selection rendering in SqueakMap.

=============== Diff against SMLoader-bf.80 ===============

Item was removed:
- ----- Method: FileList2 class>>morphicView (in category '*smloader-override') -----
- morphicView
- ^ self morphicViewOnDirectory: FileDirectory default!

Item was changed:
  ----- Method: SMLoaderPlus>>selectedCategory: (in category 'accessing') -----
  selectedCategory: anSMCategory
  "Change the selected category."
  selectedCategory := anSMCategory.
+ selectedCategory ifNotNil:
+ [ (selectedCategory objects includes: self selectedItem) ifFalse: [ self selectedItem: nil ] ].
+ self
+ changed: #selectedCategoryPath ;
+ changed: #packageList!
- selectedCategory
- ifNotNil: [(selectedCategory objects includes: self selectedItem)
- ifFalse: [self selectedItem: nil]].
- self changed: #selectedCategory.
- self changed: #packageList!

Item was changed:
  ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') -----
  selectedCategoryPath
  "Return selected category's path."
  | path |
  path := #().
  selectedCategory
  ifNotNil: [selectedCategory parent
  ifNotNilDo: [:p | path := path copyWith: p].
  path := path copyWith: selectedCategory].
+ ^ path!
- ^ path
- collect: [:cat | self categoryLabel: cat]!