The Trunk: Tools-ct.1363.mcz

Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1363.mcz

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

Name: Tools-ct.1363
Author: ct
Time: 6 July 2026, 3:17:01.43403 am
UUID: 5bbfdf83-1b2b-4c1c-93d6-64f0d0ed3d71
Ancestors: Tools-ct.1362

Complements SMLoader-ct.102 (moves an extension method from SqueakMap that is needed by FileList2 itself to the original Tools package).

=============== Diff against Tools-ct.1362 ===============

Item was added:
+ ----- Method: FileList2 class>>morphicViewOnDirectory: (in category 'morphic ui') -----
+ 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.
+ 	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 !

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]