[Pkg] The Trunk: System-mt.990.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 21 08:36:51 UTC 2017
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.990.mcz
==================== Summary ====================
Name: System-mt.990
Author: mt
Time: 21 December 2017, 9:36:40.491231 am
UUID: 3ee22422-e98a-d74b-a567-e1797e988900
Ancestors: System-dtl.989
Provide UI theme specs for drag-transfer-morphs derived from balloon morphs.
=============== Diff against System-dtl.989 ===============
Item was changed:
----- Method: SqueakTheme class>>addDialogs: (in category 'instance creation') -----
addDialogs: theme
"self create apply."
theme
set: #borderColor for: #DialogWindow to: Color gray;
set: #borderWidth for: #DialogWindow to: 1;
set: #borderStyle for: #DialogWindow to: BorderStyle default;
set: #color for: #DialogWindow to: Color white;
set: #titleBorderColor for: #DialogWindow to: Color gray;
set: #titleBorderWidth for: #DialogWindow to: 0;
set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;
set: #titleColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78);
set: #titleFont for: #DialogWindow to: [Preferences windowTitleFont];
set: #titleTextColor for: #DialogWindow to: Color black;
set: #font for: #DialogWindow to: [Preferences standardSystemFont];
set: #textColor for: #DialogWindow to: Color black;
set: #okColor for: #DialogWindow to: (Color r: 0.49 g: 0.749 b: 0.49);
set: #cancelColor for: #DialogWindow to: (Color r: 1 g: 0.6 b: 0.588);
set: #buttonColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78) twiceLighter;
set: #selectionModifier for: #DialogWindow to: [ [:c | Color orange muchLighter ] ].
"The List Chooser is a dialog, too."
theme
derive: #okColor for: #ListChooser from: #DialogWindow;
derive: #cancelColor for: #ListChooser from: #DialogWindow;
set: #addColor for: #ListChooser to: Color blue muchLighter;
set: #disabledColor for: #ListChooser to: Color gray.
"And the mulitple list chooser."
theme
derive: #okColor for: #ListMultipleChooser from: #DialogWindow;
derive: #cancelColor for: #ListMultipleChooser from: #DialogWindow.
"And the system progress bar."
theme
derive: #borderColor for: #SystemProgressMorph from: #MenuMorph;
derive: #borderWidth for: #SystemProgressMorph from: #MenuMorph;
derive: #borderStyle for: #SystemProgressMorph from: #MenuMorph;
derive: #color for: #SystemProgressMorph from: #MenuMorph;
derive: #font for: #SystemProgressMorph from: #MenuItemMorph;
derive: #textColor for: #SystemProgressMorph from: #MenuItemMorph;
set: #borderColor for: #SystemProgressBarMorph to: Color transparent;
set: #borderWidth for: #SystemProgressBarMorph to: 0;
set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;
set: #color for: #SystemProgressBarMorph to: (Color r: 0.977 g: 0.977 b: 0.977);
set: #barColor for: #SystemProgressBarMorph to: (Color r: 0.72 g: 0.72 b: 0.9).
"And the balloon morphs."
theme
set: #borderColor for: #NewBalloonMorph to: (Color r: 0.46 g: 0.46 b: 0.353);
set: #borderWidth for: #NewBalloonMorph to: 1;
set: #color for: #NewBalloonMorph to:(Color r: 0.92 g: 0.92 b: 0.706);
set: #font for: #NewBalloonMorph to: [Preferences standardBalloonHelpFont];
derive: #textColor for: #NewBalloonMorph from: #PluggableButtonMorph.
theme
derive: #borderColor for: #BalloonMorph from: #NewBalloonMorph;
set: #borderWidth for: #BalloonMorph to: 0;
derive: #color for: #BalloonMorph from: #NewBalloonMorph;
derive: #font for: #BalloonMorph from: #NewBalloonMorph;
+ derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.
+
+ "And the transfer morphs."
+ theme
+ derive: #borderColor for: #TransferMorph from: #NewBalloonMorph;
+ derive: #borderWidth for: #TransferMorph from: #NewBalloonMorph;
+ derive: #color for: #TransferMorph from: #NewBalloonMorph;
+ derive: #font for: #TransferMorph from: #NewBalloonMorph;
+ derive: #textColor for: #TransferMorph from: #NewBalloonMorph. !
- derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.!
More information about the Packages
mailing list