Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.121.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.121 Author: mt Time: 8 December 2021, 2:30:30.164213 pm UUID: 5ef60dcd-d6b9-1340-af0e-2abd5e407de6 Ancestors: PreferenceBrowser-mt.120
Some high-dpi fixes for the preference browser.
=============== Diff against PreferenceBrowser-mt.120 ===============
Item was changed: ----- Method: PreferenceBrowserMorph>>basicButton (in category 'submorphs - buttons') ----- basicButton
^ PluggableButtonMorph new model: self model; offColor: self paneColor; hResizing: #spaceFill; vResizing: #spaceFill; - layoutInset: 4; yourself!
Item was changed: ----- Method: PreferenceBrowserMorph>>buttonRowLayoutFrame (in category 'submorphs - buttons') ----- buttonRowLayoutFrame + + ^ LayoutFrame + fractions: (0@0 corner: 1@0) + offsets: (0@0 corner: 0@ (Preferences standardButtonFont height * 2.5) truncated)! - ^LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (Preferences standardButtonFont height * 2))!
Item was added: + ----- Method: PreferenceBrowserMorph>>categoryListLayoutFrame (in category 'submorphs - category list') ----- + categoryListLayoutFrame + + ^ LayoutFrame fractions: (0@0 corner: 0.25@1)!
Item was changed: ----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') ----- mainPanel ^mainPanel ifNil: [mainPanel := BorderedMorph new color: Color transparent; borderWidth: 0; hResizing: #spaceFill; vResizing: #spaceFill; + cellGap: ProportionalSplitterMorph gripThickness; - cellGap: 5; changeProportionalLayout; on: #mouseEnter send: #paneTransition: to: self; + addMorph: self newCategoryList fullFrame: self categoryListLayoutFrame; + addMorph: self preferenceList fullFrame: self preferenceListLayoutFrame; - addMorphBack: self newCategoryList; - addMorphBack: self preferenceList; - layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@ self searchTextFieldLayoutFrame bottomOffset corner: 0@0)); addPaneSplitters; yourself].!
Item was added: + ----- Method: PreferenceBrowserMorph>>mainPanelLayoutFrame (in category 'submorphs - main panel') ----- + mainPanelLayoutFrame + + ^ LayoutFrame + fractions: (0@0 corner: 1@1) + offsets: (0@ self searchTextFieldLayoutFrame bottomOffset corner: 0@0)!
Item was changed: ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') ----- newSearchTextField | ptm | ptm := PluggableTextMorphPlus on: self model text: #searchPatternNeverTriggered accept: #searchPattern:. ptm name: #search; minimumHeight: 0; balloonText: 'Search preferences ...'; hideScrollBarsIndefinitely; - layoutFrame: self searchTextFieldLayoutFrame; - borderInset; vResizing: #spaceFill; hResizing: #spaceFill; acceptOnCR: true; onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ]. ^ptm.!
Item was changed: ----- Method: PreferenceBrowserMorph>>preferenceList (in category 'submorphs - preference list') ----- preferenceList + + ^ preferenceList ifNil: [ + preferenceList := ScrollPane new. + preferenceList scroller changeTableLayout. + preferenceList]! - ^preferenceList ifNil: - [preferenceList := ScrollPane new - vResizing: #spaceFill; - hResizing: #spaceFill; - layoutFrame: (LayoutFrame fractions: (0.25@0 corner: 1@1) offsets: (4@0 corner: 0@0)). - preferenceList scroller - changeTableLayout. - preferenceList.]!
Item was added: + ----- Method: PreferenceBrowserMorph>>preferenceListLayoutFrame (in category 'submorphs - preference list') ----- + preferenceListLayoutFrame + + ^ LayoutFrame fractions: (0.25@0 corner: 1@1)!
Item was changed: ----- Method: PreferenceBrowserMorph>>rootPanel (in category 'submorphs - root panel') ----- rootPanel + + ^ BorderedMorph new - ^BorderedMorph new color: Color transparent; borderWidth: 0; + cellGap: ProportionalSplitterMorph gripThickness; changeProportionalLayout; + addMorph: self newSearchTextField fullFrame: self searchTextFieldLayoutFrame; + addMorph: self mainPanel fullFrame: self mainPanelLayoutFrame; + yourself! - addMorphBack: self newSearchTextField; - addMorphBack: self mainPanel; - yourself.!
Item was changed: ----- Method: PreferenceBrowserMorph>>searchTextFieldLayoutFrame (in category 'submorphs - search panel') ----- searchTextFieldLayoutFrame ^ LayoutFrame fractions: (0@0 corner: 1@0) + offsets: (0@0 corner: 0@ (Preferences standardDefaultTextFont height * 3/2) truncated)! - offsets: (0@0 corner: 0@ (Preferences standardDefaultTextFont height * 3/2) rounded)!
squeak-dev@lists.squeakfoundation.org