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

commits at source.squeak.org commits at source.squeak.org
Fri Nov 19 17:15:26 UTC 2021


Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.117.mcz

==================== Summary ====================

Name: PreferenceBrowser-mt.117
Author: mt
Time: 19 November 2021, 6:15:26.881971 pm
UUID: f42fbb2c-497d-bb44-a3ea-fae2882df7ce
Ancestors: PreferenceBrowser-mt.116

Complements Morphic-mt.1792

=============== Diff against PreferenceBrowser-mt.116 ===============

Item was changed:
  ----- Method: PreferenceBrowserMorph>>initializeWithModel: (in category 'initialization') -----
  initializeWithModel: aPreferenceBrowser
  	lastKeystrokeTime := 0.
  	lastKeystrokes := ''.
  	self
+ 		defaultFocusMorph: #search;
  		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).!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') -----
  newSearchTextField
  	
  	| ptm  |
  	ptm := PluggableTextMorphPlus
  		on: self model
  		text: #searchPatternNeverTriggered
  		accept: #searchPattern:.
  	
  	ptm
+ 		name: #search;
  		minimumHeight: 0;
  		balloonText: 'Search preferences ...';
  		hideScrollBarsIndefinitely;
  		layoutFrame: self searchTextFieldLayoutFrame;
  		borderInset;
  		vResizing: #spaceFill;
  		hResizing: #spaceFill;
  		acceptOnCR: true;
  		onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ].
  	^ptm.!



More information about the Squeak-dev mailing list