[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
|