[squeak-dev] The Trunk: Monticello-mt.758.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Dec 6 12:39:06 UTC 2021
Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.758.mcz
==================== Summary ====================
Name: Monticello-mt.758
Author: mt
Time: 6 December 2021, 1:39:03.225534 pm
UUID: 49466f4b-ae12-5143-b411-a1d8774bf6bd
Ancestors: Monticello-mt.757
Fixes high-dpi scaling issues in Monticello tools.
=============== Diff against Monticello-mt.757 ===============
Item was changed:
----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'ui') -----
widgetSpecs
^ #(
+ ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 0.5 0.6) (0 0 0 defaultAnnotationPaneHeightNegated) )
- ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 0.5 0.6) (0 0 0 -47) )
((inputMorph: versionName) (0.5 0 1 0) (0 0 0 defaultInputFieldHeight))
+ ((textMorph: logMessage) (0.5 0 1 0.6) (0 defaultInputFieldHeight 0 defaultAnnotationPaneHeightNegated))
+ ((buttonRow) (0.5 0.6 1 0.6) (0 defaultAnnotationPaneHeightNegated 0 0))
+ ((textMorph: annotations) (0 0.6 0.5 0.6) (0 defaultAnnotationPaneHeightNegated 0 0))
- ((textMorph: logMessage) (0.5 0 1 0.6) (0 defaultInputFieldHeight 0 -47))
- ((buttonRow) (0.5 0.6 1 0.6) (0 -47 0 0))
- ((textMorph: annotations) (0 0.6 0.5 0.6) (0 -47 0 0))
((textMorph: text) (0 0.6 1 1) (0 0 0 0))
)!
Item was added:
+ ----- Method: MCTool>>defaultAnnotationPaneHeightNegated (in category 'morphic ui') -----
+ defaultAnnotationPaneHeightNegated
+
+ ^ self defaultAnnotationPaneHeight negated!
Item was added:
+ ----- Method: MCTool>>defaultButtonPaneHeightNegated (in category 'morphic ui') -----
+ defaultButtonPaneHeightNegated
+
+ ^ self defaultButtonPaneHeight negated!
Item was added:
+ ----- Method: MCTool>>initialExtent (in category 'morphic ui') -----
+ initialExtent
+
+ ^ self defaultExtent!
Item was changed:
----- Method: MCTool>>show (in category 'morphic ui') -----
show
modalProcess := nil.
Smalltalk at: #ToolBuilder ifPresent: [:tb | tb open: self. ^ self].
+ ^self window openInWorld; yourself!
- ^self window openInWorldExtent: self defaultExtent; yourself!
Item was changed:
----- Method: MCTool>>showLabelled: (in category 'morphic ui') -----
showLabelled: labelString
modalProcess := nil.
self label: labelString.
^(self window)
+ openInWorld;
- openInWorldExtent: self defaultExtent;
yourself!
Item was changed:
----- Method: MCTool>>showModally (in category 'morphic ui') -----
showModally
modalProcess := Processor activeProcess.
+ self window openInWorld.
- self window openInWorldExtent: self defaultExtent.
ToolBuilder default runModal: self window.
morph := nil.
^ modalValue!
More information about the Squeak-dev
mailing list
|