Christoph Thiede uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-ct.99.mcz
==================== Summary ====================
Name: SMLoader-ct.99 Author: ct Time: 13 September 2022, 9:07:19.907523 am UUID: 81baa5fb-e073-de40-bedd-5512d6c17392 Ancestors: SMLoader-ct.98
Complements Tools-ct.1176 (high-dpi support for FileList2).
=============== Diff against SMLoader-ct.98 ===============
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 px. - 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 !
packages@lists.squeakfoundation.org