The Trunk: SMLoader-bf.80.mcz

Bert Freudenberg uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-bf.80.mcz

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

Name: SMLoader-bf.80
Author: bf
Time: 8 December 2014, 2:00:38.883 am
UUID: 557eeed3-a3db-4eca-9f4f-d8fb732e5795
Ancestors: SMLoader-fbs.79

Restore timestamps lost in assignment conversion.

=============== Diff against SMLoader-fbs.79 ===============

Item was changed:
  ----- Method: FileList2 class>>morphicViewOnDirectory: (in category '*smloader-extension') -----
  morphicViewOnDirectory: aFileDirectory
  | aFileList window fileListBottom midLine fileListTopOffset buttonPane |
 
  aFileList := self new directory: aFileDirectory.
  window := (SystemWindow labelled: aFileDirectory pathName) model: aFileList.
 
  fileListTopOffset := (TextStyle defaultFont pointSize * 2) + 14.
  fileListBottom := 0.4.
  midLine := 0.4.
  buttonPane := aFileList optionalButtonRow addMorph:
  (aFileList morphicPatternPane vResizing: #spaceFill; yourself).
  self addFullPanesTo: window from: {
  {buttonPane. 0@0 corner: 1@0. 0@0 corner: 0@fileListTopOffset}.
  {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@fileListBottom.
  0@fileListTopOffset corner: 0@0}.
  {aFileList morphicFileListPane. midLine @ 0 corner: 1@fileListBottom.
  0@fileListTopOffset corner: 0@0}.
  {aFileList morphicFileContentsPane. 0@fileListBottom corner: 1@1. nil}.
  }.
  aFileList postOpen.
  ^ window !

Item was changed:
  ----- Method: SMLoader>>buildPackagePane (in category 'interface') -----
  buildPackagePane
  "Create the text area to the right in the loader."
 
  | ptm |
  ptm := PluggableTextMorph
  on: self
  text: #contents
  accept: nil
  readSelection: nil "#packageSelection "
  menu: nil.
  ptm setBalloonText: 'This is where the selected package or package release is displayed.'.
  ptm lock.
  ^ptm!

Item was changed:
  ----- Method: SMLoader>>contents (in category 'private') -----
  contents
  | packageOrRelease |
  packageOrRelease := self selectedPackageOrRelease.
  ^packageOrRelease
  ifNil: ['<No package selected>']
  ifNotNil: [packageOrRelease fullDescription]
  !

Item was changed:
  ----- Method: SMLoader>>selectedItemWrapper: (in category 'accessing') -----
  selectedItemWrapper: aWrapper
  selectedItemWrapper := aWrapper.
  self changed: #selectedItemWrapper.
  self contentsChanged!