The Inbox: PreferenceBrowser-ct.101.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: PreferenceBrowser-ct.101.mcz

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