The Trunk: PreferenceBrowser-mt.113.mcz

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.!