[Pkg] The Trunk: Morphic-mt.1203.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 28 11:14:06 UTC 2016


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

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

Name: Morphic-mt.1203
Author: mt
Time: 28 July 2016, 1:13:25.393105 pm
UUID: c1d37e3b-d0d3-8542-88d3-1d50d513eb9d
Ancestors: Morphic-mt.1202

Cleans up window refreshing code. Fixes a bug that recreated the close box for windows that where uncloseable.

=============== Diff against Morphic-mt.1202 ===============

Item was changed:
  ----- Method: SystemWindow class>>clickOnLabelToEdit: (in category 'preferences') -----
  clickOnLabelToEdit: aBoolean
  
  	ClickOnLabelToEdit := aBoolean.
+ 	self refreshAllWindows.!
- 	self rebuildAllWindowLabels.!

Item was changed:
  ----- Method: SystemWindow class>>doubleClickOnLabelToExpand: (in category 'preferences') -----
  doubleClickOnLabelToExpand: aBoolean
  
  	DoubleClickOnLabelToExpand := aBoolean.
+ 	self refreshAllWindows.
- 	self rebuildAllWindowLabels.
  !

Item was changed:
  ----- Method: SystemWindow class>>moveMenuButtonRight: (in category 'preferences') -----
  moveMenuButtonRight: aBoolean
  
  	| absLeftOffset |
  	absLeftOffset := ((self hideExpandButton and: [aBoolean])
  		ifTrue: [absLeftOffset := self boxExtent x * 2]
  		ifFalse: [absLeftOffset := self boxExtent x]) + 3.
  	self menuBoxFrame leftOffset: (aBoolean 
  										ifTrue: [absLeftOffset negated]
  										ifFalse: [absLeftOffset]).
+ 	self refreshAllWindows.!
- 	self rebuildAllWindowLabels.!

Item was removed:
- ----- Method: SystemWindow class>>rebuildAllWindowLabels (in category 'private') -----
- rebuildAllWindowLabels
- 
- 	self withAllSubclasses do: [:c | c allInstances do: [:w | w replaceBoxes]].!

Item was changed:
  ----- Method: SystemWindow class>>refreshAllWindows (in category 'initializing') -----
  refreshAllWindows
  	"If there is some prominent UI change, use this method to update all open windows."
  	
  	SystemWindow allSubInstances do: [:w |
  		w
+ 			replaceBoxes;
  			setDefaultParameters;
  			refreshWindowColor].!

Item was changed:
  ----- Method: SystemWindow>>addCloseBox (in category 'initialization') -----
  addCloseBox
  	"If I have a labelArea, add a close box to it"
  
+ 	labelArea ifNil: [^ self].
+ 	mustNotClose == true ifTrue: [^ self].
- 	labelArea
- 		ifNil: [^ self].
  	closeBox ifNotNil: [closeBox delete].
  	closeBox := self createCloseBox.
  	closeBox layoutFrame: self class closeBoxFrame.
  	labelArea addMorphFront: closeBox!



More information about the Packages mailing list