[squeak-dev] The Trunk: PreferenceBrowser-ct.101.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 3 07:05:09 UTC 2021


Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/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.!



More information about the Squeak-dev mailing list