[squeak-dev] The Trunk: Morphic-mt.1820.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 9 15:23:17 UTC 2021

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-mt.1820
Author: mt
Time: 9 December 2021, 4:23:11.710766 pm
UUID: 71b1770c-4410-be47-94b8-50122b77016f
Ancestors: Morphic-mt.1819

Attach SystemWindow's icons to the UI theme to make the example in the UserInterfaceTheme class-comment work.

=============== Diff against Morphic-mt.1819 ===============

Item was changed:
  ----- Method: SystemWindow class>>themeProperties (in category 'preferences') -----
  	^ super themeProperties, {	
  		{ #borderColorModifier. 'Colors'. 'How to derive the borderColor from the window color.' }.
+ 		{ #borderWidth. 'Borders'. 'Width of the window''s border.' }.
- 		{ #borderWidth. 'Borders'. 'Width of the menu''s border.' }.
  		{ #titleFont. 'Fonts'. 'Font of the window title.' }.
  		{ #unfocusedWindowColorModifier. 'Colors'. 'A block with one argument that modifies a color to look unfocused.' }.
  		{ #unfocusedLabelColor. 'Colors'. 'Window title color when window has no focus.'}.
  		{ #focusedLabelColor. 'Colors'. 'Window title color when window has focus.'}.
  		{ #color. 'Colors'. 'Color to use if the model or the pane morphs do not provide one.' }.
+ 		{ #closeBoxImage. 'Icons'. 'Icon to click on to close the window.' }.
+ 		{ #collapseBoxImage. 'Icons'. 'Icon to click on to collapse the window.' }.
+ 		{ #expandBoxImage. 'Icons'. 'Icon to click on to expand the window.' }.
+ 		{ #menuBoxImage. 'Icons'. 'Icon to click on to show window/application menu.' }.				

Item was changed:
  ----- Method: SystemWindow>>createCloseBox (in category 'initialization') -----
+ 	^ (self createBox: (self userInterfaceTheme closeBoxImage ifNil: [self class closeBoxImage]))
- 	^ (self createBox: self class closeBoxImage)
  		actionSelector: #closeBoxHit;
  		setBalloonText: 'close this window' translated!

Item was changed:
  ----- Method: SystemWindow>>createCollapseBox (in category 'initialization') -----
+ 	^ (self createBox: (self userInterfaceTheme collapseBoxImage ifNil: [self class collapseBoxImage]))
- 	^ (self createBox: self class collapseBoxImage)
  		actionSelector: #collapseOrExpand;
  		setBalloonText: 'collapse this window' translated.

Item was changed:
  ----- Method: SystemWindow>>createExpandBox (in category 'initialization') -----
+ 	^ (self createBox: (self userInterfaceTheme expandBoxImage ifNil: [self class expandBoxImage]))
- 	^ (self createBox: self class expandBoxImage)
  		actionSelector: #expandBoxHit;
  		setBalloonText: 'expand this window' translated!

Item was changed:
  ----- Method: SystemWindow>>createMenuBox (in category 'initialization') -----
+ 	^ (self createBox: (self userInterfaceTheme menuBoxImage ifNil: [self class menuBoxImage]))
- 	^ (self createBox: self class menuBoxImage)
  		actionSelector: #offerWindowMenu;
  		setBalloonText: 'window menu' translated;
  		actWhen: #buttonDown;

More information about the Squeak-dev mailing list