309
|
1 |
; View defaultStyle:#'show_buttons'
|
|
2 |
;
|
|
3 |
; like often seen in showcase applications
|
|
4 |
; not really useful
|
|
5 |
;
|
|
6 |
; notice, that the light- and shadow colors are computed from the bitmaps;
|
|
7 |
;
|
3257
|
8 |
; $Header: /cvs/stx/stx/libview/styles/show_buttons.style.ign,v 1.2 2000-08-16 14:24:30 ca Exp $
|
309
|
9 |
;
|
|
10 |
|
|
11 |
#include 'mswindows.style'
|
|
12 |
|
|
13 |
comment 'like MS Windows;\\with stony buttons'
|
|
14 |
|
|
15 |
#if (Language == #german) or:[Language == #de]
|
|
16 |
comment 'Wie MS Windows\\Mit harten Knöpfen'
|
|
17 |
#endif
|
|
18 |
|
3257
|
19 |
rock (Smalltalk imageFromFileNamed:'bitmaps/granite_small.tiff' inPackage:'stx:libwidg3')
|
309
|
20 |
rockShadow =rock darkened
|
|
21 |
rockLight =rock lightened
|
|
22 |
|
|
23 |
buttonBackgroundColor =rock
|
|
24 |
buttonShadowColor =rockShadow
|
|
25 |
buttonLightColor =rockLight
|
|
26 |
buttonForegroundColor Color grey:90
|
|
27 |
buttonForegroundColor Color grey:90
|
|
28 |
|
|
29 |
buttonActiveLevel -5
|
|
30 |
buttonPassiveLevel 5
|