The Trunk: Tools-ct.1360.mcz

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

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

Name: Tools-ct.1360
Author: ct
Time: 4 July 2026, 1:58:01.65862 am
UUID: fe74dc64-08ea-4dcc-86fc-56a47a032101
Ancestors: Tools-ct.1359

Fixes a small UI glitch with the height of the package file name field in file contents browsers.

=============== Diff against Tools-ct.1359 ===============

Item was changed:
  ----- Method: Browser>>buildCategoryBrowserWith: (in category 'toolbuilder') -----
  buildCategoryBrowserWith: builder
  	"assemble the spec for a system category browser, build it and return it"
  
  	| max windowSpec catPaneHeight|
+ 	catPaneHeight := self systemCatListHeightFor: builder.
- 	catPaneHeight := builder listHeight.
  	max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4].
  
  	windowSpec := self buildWindowWith: builder specs: {
  		(LayoutFrame fractions: (0@0 corner: 1.0@0) offsets: (0@0 corner: 0@catPaneHeight)) -> [self buildSystemCatListSingletonWith: builder].
  		((self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333)
  			topOffset: catPaneHeight) -> [self buildClassListWith: builder].
  		(self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder].
  		(LayoutFrame fractions: (0.333@0 corner: 0.666@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageCategoryListWith: builder].
  		(LayoutFrame fractions: (0.666@0 corner: 1@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageListWith: builder].
  		(0@max corner: 1@1) -> [self buildCodePaneWith: builder].
  	}.
  	self setMultiWindowFor:windowSpec.
  
  	^builder build: windowSpec
  !

Item was added:
+ ----- Method: Browser>>systemCatListHeightFor: (in category 'initialize-release') -----
+ systemCatListHeightFor: builder
+ 
+ 	^ builder listHeight!

Item was added:
+ ----- Method: FileContentsBrowser>>systemCatListHeightFor: (in category 'initialize-release') -----
+ systemCatListHeightFor: builder
+ 
+ 	^ builder inputFieldHeight!

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