[Pkg] The Trunk: Monticello-mt.772.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Feb 8 12:46:47 UTC 2022
Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.772.mcz
==================== Summary ====================
Name: Monticello-mt.772
Author: mt
Time: 8 February 2022, 1:46:46.990027 pm
UUID: 486ad440-73e9-0f40-a4b0-6c3766f61272
Ancestors: Monticello-cmm.771
Complements Morphic-mt.1876
=============== Diff against Monticello-cmm.771 ===============
Item was changed:
----- Method: MCOperationsBrowser>>widgetSpecs (in category 'ui') -----
widgetSpecs
Preferences annotationPanes ifFalse: [ ^#(
((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 0 0 0))
((textMorph: text) (0 0.4 1 1))
) ].
^ #(
+ ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.5) (0 0 0 defaultAnnotationPaneHeightNegated))
+ ((textMorph: annotations) (0 0.5 1 0.5) (0 defaultAnnotationPaneHeightNegated 0 0))
+ ((textMorph: text) (0 0.5 1 1) (0 0 0 0))
- ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 1 0.4) (0 0 0 0))
- ((textMorph: annotations) (0 0.4 1 0.4) (0 0 0 defaultAnnotationPaneHeight))
- ((textMorph: text) (0 0.4 1 1) (0 defaultAnnotationPaneHeight 0 0))
)!
Item was changed:
----- Method: MCTool>>defaultAnnotationPaneHeight (in category 'morphic ui') -----
defaultAnnotationPaneHeight
"Answer the receiver's preferred default height for new annotation panes.
Since MC compares two annotations, reserve a bit less than a double the traditional height."
+ ^ ToolBuilder default inputFieldHeightFor: 2 "lines"!
- ^ Preferences standardDefaultTextFont height * 3!
Item was changed:
----- Method: MCTool>>defaultButtonPaneHeight (in category 'morphic ui') -----
defaultButtonPaneHeight
"Answer the user's preferred default height for new button panes."
+ ^ ToolBuilder default buttonRowHeight!
- ^ (Preferences standardButtonFont height * 2.5) rounded!
Item was changed:
----- Method: MCTool>>defaultInputFieldHeight (in category 'morphic ui') -----
defaultInputFieldHeight
+ ^ ToolBuilder default inputFieldHeight!
- ^ Preferences standardDefaultTextFont height * 2!
More information about the Packages
mailing list