/
initializeWidgets.st
29 lines (27 loc) · 1011 Bytes
/
initializeWidgets.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
initialize
initializeWidgets
self instantiateModels:
#( resetColorsButton ButtonModel
selectTheme2Button ButtonModel
backgroundColorButton ButtonModel
borderColorButton ButtonModel
buttonColorButton ButtonModel
textColorButton ButtonModel
scrollbarColorButton ButtonModel
windowColorButton ButtonModel ).
backgroundColorButton := self newButton.
borderColorButton := self newButton .
buttonColorButton := self newButton .
resetColorsButton := self newButton .
selectTheme2Button := self newButton.
textColorButton := self newButton .
scrollbarColorButton := self newButton .
windowColorButton := self newButton .
self instantiateBackgroundColorButton.
self instantiateBorderColorButton.
self instantiateButtonColorButton .
self instantiateResetColorsButton .
self instantiateSelectTheme2Button .
self instantiateTextColorButton .
self instantiateScrollbarColorButton.
self instantiateWindowColorButton.