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 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 !