[Pkg] The Trunk: SMLoader-bf.80.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 8 01:00:51 UTC 2014


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 at 0 corner: 1 at 0. 0 at 0 corner: 0 at fileListTopOffset}.
  		{aFileList morphicDirectoryTreePane. 0 at 0 corner: midLine at fileListBottom. 
  					0 at fileListTopOffset corner: 0 at 0}.
  		{aFileList morphicFileListPane. midLine @ 0 corner: 1 at fileListBottom. 
  					0 at fileListTopOffset corner: 0 at 0}.
  		{aFileList morphicFileContentsPane. 0 at fileListBottom corner: 1 at 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!



More information about the Packages mailing list