[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