Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.113.mcz==================== Summary ====================
Name: PreferenceBrowser-mt.113
Author: mt
Time: 3 March 2021, 8:04:40.386712 am
UUID: ae453663-399c-804e-9c2e-df714093e1d6
Ancestors: PreferenceBrowser-mt.112, PreferenceBrowser-ct.101
Merge fix for preferences tool to honor "open attached to mouse" preference.
=============== Diff against PreferenceBrowser-mt.112 ===============
Item was changed:
----- Method: PreferenceBrowser class>>open (in category 'instance creation') -----
open
| browser |
browser := self new.
(PreferenceBrowserMorph withModel: browser)
+ openAsTool.
- openInWorld.
^browser. !
Item was changed:
----- Method: PreferenceBrowser>>initialize (in category 'initialize-release') -----
initialize
+ super initialize.
preferences := Preferences.
title := 'Preference Browser'.!
Item was changed:
----- Method: PreferenceBrowserMorph>>initializeWithModel: (in category 'initialization') -----
initializeWithModel: aPreferenceBrowser
lastKeystrokeTime := 0.
lastKeystrokes := ''.
self
hResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled."
vResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled."
model: aPreferenceBrowser;
setLabel: self model windowTitle;
name: 'PreferenceBrowser';
addMorph: self rootPanel fullFrame: self rootPanelLayoutFrame;
+ addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame;
+ "Set bounds like the MorphicToolBuilder does when building windows."
+ bounds: (RealEstateAgent
+ initialFrameFor: self
+ initialExtent: aPreferenceBrowser initialExtent
+ world: self currentWorld).!
- addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame.!