Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.124.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.124 Author: mt Time: 31 December 2021, 9:45:05.003725 am UUID: 2bcd047d-e488-a248-b512-ef43d4611855 Ancestors: PreferenceBrowser-mt.123
Allow users to experiment with various scale factors in the wizard, which requires to hide some static texts to be able to click on 100% again after trying, e.g., 300%.
=============== Diff against PreferenceBrowser-mt.123 ===============
Item was changed: ----- Method: PreferenceWizardMorph>>step (in category 'stepping') ----- step
+ | oldBounds | - | oldWidth oldBounds | "self comeToFront."
isFullScreen == true ifTrue: [ oldBounds := self bounds. self bounds: self world bounds. self bounds = oldBounds ifFalse: [ + self updateWindowBounds. + self updatePageVisibility]] - self updateWindowBounds]] ifFalse: [ - oldWidth := self width. self width: self world width. + self center: self world center].! - self center: self world center. - self width = oldWidth ifFalse: [ - self updateWindowBounds]].!
Item was added: + ----- Method: PreferenceWizardMorph>>updatePageVisibility (in category 'layout') ----- + updatePageVisibility + "Hide extra labels if page has not enough space." + + | currentPage scrollPane enoughRoom topText bottomText firstItem | + controlMorph ifNil: [^ self]. + controlMorph submorphs size > 1 ifFalse: [^ self]. + currentPage := controlMorph lastSubmorph. + scrollPane := currentPage submorphs second. + + topText := controlMorph firstSubmorph. + bottomText := currentPage lastSubmorph isTextMorph + ifTrue: [currentPage lastSubmorph]. + firstItem := scrollPane scroller firstSubmorph firstSubmorph. "checkbox" + + enoughRoom := topText visible + ifTrue: [firstItem height <= scrollPane height] + ifFalse: [firstItem height <= (scrollPane height + - topText height - (bottomText ifNil: [0] ifNotNil: [:t | t height]))]. + + enoughRoom not + ifTrue: [ + controlMorph firstSubmorph + visible: false; + disableLayout: true. + currentPage lastSubmorph isTextMorph + ifTrue: [ + currentPage lastSubmorph + visible: false; + disableLayout: true]] + ifFalse: [ + controlMorph firstSubmorph + visible: true; + disableLayout: false. + currentPage lastSubmorph isTextMorph + ifTrue: [ + currentPage lastSubmorph + visible: true; + disableLayout: false]]!
packages@lists.squeakfoundation.org