styles/show_buttons.style.ign
author matilk
Wed, 13 Sep 2017 09:40:34 +0200
changeset 8174 2704c965b97b
parent 3257 614ad81c445b
permissions -rw-r--r--
#BUGFIX by Maren class: DeviceGraphicsContext changed: #displayDeviceOpaqueForm:x:y: nil check

; View defaultStyle:#'show_buttons' 
;
; like often seen in showcase applications
; not really useful
;
; notice, that the light- and shadow colors are computed from the bitmaps;
;
; $Header: /cvs/stx/stx/libview/styles/show_buttons.style.ign,v 1.2 2000-08-16 14:24:30 ca Exp $
;

#include 'mswindows.style'

comment  'like MS Windows;\\with stony buttons'

#if (Language == #german) or:[Language == #de]
comment  'Wie MS Windows\\Mit harten Knöpfen'
#endif

rock                        (Smalltalk imageFromFileNamed:'bitmaps/granite_small.tiff' inPackage:'stx:libwidg3')
rockShadow                  =rock darkened
rockLight                   =rock lightened

buttonBackgroundColor        =rock 
buttonShadowColor            =rockShadow 
buttonLightColor             =rockLight 
buttonForegroundColor        Color grey:90
buttonForegroundColor        Color grey:90

buttonActiveLevel            -5 
buttonPassiveLevel           5