[squeak-dev] The Trunk: PreferenceBrowser-mt.113.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 3 07:04:40 UTC 2021


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



More information about the Squeak-dev mailing list