[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:
http://source.squeak.org/trunk/Morphic-mt.1820.mcz
==================== 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') -----
themeProperties
^ 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') -----
createCloseBox
+ ^ (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') -----
createCollapseBox
+ ^ (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') -----
createExpandBox
+ ^ (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') -----
createMenuBox
+ ^ (self createBox: (self userInterfaceTheme menuBoxImage ifNil: [self class menuBoxImage]))
- ^ (self createBox: self class menuBoxImage)
actionSelector: #offerWindowMenu;
setBalloonText: 'window menu' translated;
actWhen: #buttonDown;
yourself!
More information about the Squeak-dev
mailing list
|