1: ================================================================================
2:
3: Smalltalk.KSU defineClass: #ColorAbstract
4: superclass: #{UI.ApplicationModel}
5: indexedType: #none
6: private: false
7: instanceVariableNames: 'firstGauge secondGauge thirdGauge '
8: classInstanceVariableNames: ''
9: imports: ''
10: category: ''
11:
12: ================================================================================
13:
14: KSU.ColorAbstract method for 'accessing'
15:
16: color
17:
18: ^self subclassResponsibility
19:
20: ------------------------------------------------------------
21:
22: KSU.ColorAbstract method for 'aspects'
23:
24: firstGauge
25:
26: firstGauge
27: ifNil:
28: [firstGauge := 0.5 asValue.
29: firstGauge compute: [:aValue | self updateColorFirst: aValue]].
30: ^firstGauge
31:
32: ------------------------------------------------------------
33:
34: KSU.ColorAbstract method for 'initialize-release'
35:
36: initialize
37:
38: super initialize.
39: firstGauge := nil.
40: secondGauge := nil.
41: thirdGauge := nil.
42: ^self
43:
44: ------------------------------------------------------------
45:
46: KSU.ColorAbstract method for 'interface opening'
47:
48: postOpenWith: aBuilder
49:
50: super postOpenWith: aBuilder.
51: self updateColor
52:
53: ------------------------------------------------------------
54:
55: KSU.ColorAbstract method for 'aspects'
56:
57: secondGauge
58:
59: secondGauge
60: ifNil:
61: [secondGauge := 0.5 asValue.
62: secondGauge compute: [:aValue | self updateColorSecond: aValue]].
63: ^secondGauge
64:
65: ------------------------------------------------------------
66:
67: KSU.ColorAbstract method for 'aspects'
68:
69: thirdGauge
70:
71: thirdGauge
72: ifNil:
73: [thirdGauge := 0.5 asValue.
74: thirdGauge compute: [:aValue | self updateColorThird: aValue]].
75: ^thirdGauge
76:
77: ------------------------------------------------------------
78:
79: KSU.ColorAbstract method for 'private'
80:
81: updateColor
82:
83: self builder
84: ifNotNil:
85: [:aBuilder |
86: aBuilder window
87: ifNotNil:
88: [:aWindow |
89: aWindow
90: background: self color;
91: display]]
92:
93: ------------------------------------------------------------
94:
95: KSU.ColorAbstract method for 'private'
96:
97: updateColorFirst: aValue
98:
99: InputState default altDown
100: ifTrue:
101: [self secondGauge value = aValue ifFalse: [self secondGauge value: aValue].
102: self thirdGauge value = aValue ifFalse: [self thirdGauge value: aValue]].
103: self updateColor
104:
105: ------------------------------------------------------------
106:
107: KSU.ColorAbstract method for 'private'
108:
109: updateColorSecond: aValue
110:
111: InputState default altDown
112: ifTrue:
113: [self firstGauge value = aValue ifFalse: [self firstGauge value: aValue].
114: self thirdGauge value = aValue ifFalse: [self thirdGauge value: aValue]].
115: self updateColor
116:
117: ------------------------------------------------------------
118:
119: KSU.ColorAbstract method for 'private'
120:
121: updateColorThird: aValue
122:
123: InputState default altDown
124: ifTrue:
125: [self firstGauge value = aValue ifFalse: [self firstGauge value: aValue].
126: self secondGauge value = aValue ifFalse: [self secondGauge value: aValue]].
127: self updateColor
128:
129: ================================================================================
130:
131: KSU.ColorAbstract class
132: instanceVariableNames: ''
133:
134: ================================================================================
135:
136: KSU.ColorAbstract class method for 'resources'
137:
138: menuBar
139: "Tools.MenuEditor new openOnClass: self andSelector: #menuBar"
140:
141: <resource: #menu>
142: ^#(#{UI.Menu} #(
143: #(#{UI.MenuItem}
144: #rawLabel: 'ファイル'
145: #submenu: #(#{UI.Menu} #(
146: #(#{UI.MenuItem}
147: #rawLabel: '終了'
148: #value: #closeRequest ) ) #(1 ) nil ) ) ) #(1 ) nil ) decodeAsLiteralArray
149:
150: ------------------------------------------------------------
151:
152: KSU.ColorAbstract class method for 'interface specs'
153:
154: windowSpec
155:
156: ^self subclassResponsibility
157:
158: ================================================================================
This document was generated by KSU.TextDoclet on 2012/11/10 at 10:56:49.