/
GSA-Themes.pck.st
125 lines (102 loc) · 3.73 KB
/
GSA-Themes.pck.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
'From Cuis 4.2 of 25 July 2013 [latest update: #2280] on 1 May 2015 at 11:33:00.573845 am'!
'Description Please enter a description for this package'!
!provides: 'GSA-Themes' 1 1!
!requires: 'Theme-Themes' 1 1 nil!
!classDefinition: #SkypeTheme category: #'GSA-Themes'!
Theme subclass: #SkypeTheme
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'GSA-Themes'!
!classDefinition: 'SkypeTheme class' category: #'GSA-Themes'!
SkypeTheme class
instanceVariableNames: ''!
!SkypeTheme commentStamp: '<historical>' prior: 0!
A nice deep blue theme.!
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 09:46'!
buttonLabel
^ Color hue: 0 chroma: 0 luminance: 0.13! !
!SkypeTheme methodsFor: 'tool colors' stamp: 'gsa 5/1/2015 11:30'!
debugger
^ Color lightYellow
! !
!SkypeTheme methodsFor: 'tool colors' stamp: 'gsa 6/18/2014 13:44'!
defaultWindowColor
"^ Color hue: 0 chroma: 0 luminance: 1."
^ Color r: 0.686 g: 0.796 b: 0.910! !
!SkypeTheme methodsFor: 'other options' stamp: 'gsa 6/18/2014 09:27'!
embossedTitles
^true! !
!SkypeTheme methodsFor: 'widget colors' stamp: 'gsa 6/18/2014 14:09'!
listSelectedRowText
^ Color white! !
!SkypeTheme methodsFor: 'menu colors' stamp: 'gsa 6/18/2014 13:47'!
menu
"^ Color hue: 212 chroma: 0.6 luminance: 0.3"
^ Color r: 0.686 g: 0.796 b: 0.910! !
!SkypeTheme methodsFor: 'menu colors' stamp: 'gsa 6/18/2014 13:47'!
menuText
"^ Color hue: 212 chroma: 0.3 luminance: 0.8"
^ Color hue: 0 chroma: 0 luminance: 0.13! !
!SkypeTheme methodsFor: 'menu colors' stamp: 'gsa 6/18/2014 09:27'!
menuTitleBar
^ self menu twiceDarker! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 12:17'!
paneBackgroundFrom: aColor
^ Color hue: 0 chroma: 0 luminance: 1.
"^ (Color hue: 212 chroma: 0.8 luminance: 0.4) muchDarker"! !
!SkypeTheme methodsFor: 'other options' stamp: 'gsa 6/18/2014 09:27'!
roundWindowCorners
^true! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 12:28'!
shout
"Color symbols as an association list."
^ {
#defaults -> #black.
#undefined -> #red.
#methodTags -> #(green muchDarker).
#pseudoVariables -> #(red muchDarker).
#messages -> #(blue darker).
#arguments -> #(cyan muchDarker).
#instVar -> #(magenta muchDarker).
#incompleteMessages -> #(gray veryMuchDarker).
#blockLevelFour -> #(green darker).
#blockLevelFive -> #(orange darker).
#blockLevelSix -> #(magenta darker).
#blockLevelSeven -> #blue.
#tempBar -> #gray.
#tempVars -> #(gray muchDarker).
}! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 09:47'!
text
^ Color hue: 0 chroma: 0 luminance: 0.13! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 13:11'!
textHighlight
"^ Color hue: 0 chroma: 0.56 luminance: 0.45"
^ Color r: 0 g: 0.584 b: 0.8.! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 14:05'!
textHighlightFocused: focused
"A nice light blue."
| textHighlight |
Display depth = 1 ifTrue: [^ Color veryLightGray].
Display depth = 2 ifTrue: [^ Color gray: 0.87].
textHighlight _ self textHighlight.
^focused
ifTrue: [ textHighlight ]
ifFalse: [ self unfocusedTextHighlightFrom: textHighlight ]! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 09:27'!
unfocusedTextHighlightFrom: aColor
^aColor adjustSaturation: 0.0 brightness: 0.08! !
!SkypeTheme methodsFor: 'other options' stamp: 'gsa 6/18/2014 09:27'!
useButtonGradient
^true! !
!SkypeTheme methodsFor: 'other options' stamp: 'gsa 6/18/2014 14:21'!
useUniformColors
^true! !
!SkypeTheme methodsFor: 'other options' stamp: 'gsa 6/18/2014 09:27'!
useWindowTitleGradient
^true! !
!SkypeTheme methodsFor: 'colors' stamp: 'gsa 6/18/2014 13:42'!
windowLabel
"^ Color hue: 0 chroma: 0.56 luminance: 0.45 "
^ Color r: 0.2 g: 0.2 b: 0.2! !