Christoph Thiede uploaded a new version of PreferenceBrowser to project The Inbox:
http://source.squeak.org/inbox/PreferenceBrowser-ct.101.mcz==================== Summary ====================
Name: PreferenceBrowser-ct.101
Author: ct
Time: 31 December 2019, 3:20:07.412022 am
UUID: 2a3197c6-9d2f-9b44-90b6-f73b221b3e54
Ancestors: PreferenceBrowser-mt.97
Honor #openToolsAttachedToMouseCursor when opening the PreferenceBrowser
=============== Diff against PreferenceBrowser-mt.97 ===============
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
model: aPreferenceBrowser;
setLabel: self model windowTitle;
name: 'PreferenceBrowser';
addMorph: self rootPanel fullFrame: self rootPanelLayoutFrame;
+ addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame;
+ extent: aPreferenceBrowser initialExtent.!
- addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame.!