; this style sheet lists all possible style-values

; you can not use it directly as a style, but

; as a template - to copy individual setting

; into your private style file (if you want to create your own ones)

;

; Of course, you can also pick one of the supplied styles,

; or include an existing style in your new style - changing values

; as required. (see AEG_sailer.style as an example).

;

; After you created the style-file (and have it accessable in the

; resources directory), you can use this style by adding

; a line as follows to your 'display.rc' or 'private.rc' file:

;    View defaultStyle:#foo

; where 'foo' is the name of the style-file name without the '.style'

; ending.

; Since it must be a symbol, use quotes around, if non alphanumeric 

; characters are in the name.

.

; I.e:

;    View defaultStyle:#motif

;    View defaultStyle:#normal

;    View defaultStyle:#'motif_light'

;

; Many of the values here are defaulted to useful values,

; if not mentioned here - so there is no real need to define

; all of them for new styles. 

;

;

; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.1 1995-03-23 16:54:36 claus Exp $

;

; agenda:

;   the following list contains all possible style-values and their

;   default values (i.e. in your style-file you have to include only

;   those differing from the default).

;

;   The first word is the style-sheet variable name, the rest (separated

;   by one or more spaces) is evaluated as a smalltalk expression and becomes

;   the value of the variable.

;

;   Lines beginning with ';' are comments.

;

;   The construct '=foo' means: use the value of the foo-variable described

;   above.

;   If a value is symbolic, the possible values are shown in a comment.

;

;   Conditional settings are possible, by including these between

;       #if <st-expression>

;       ...

;       #endif

;   For example, colors can be set different for mono vs. color displays.

; ----------------------------------------------------------------------------

; if it some type of 3D style

; (affects default levels, borderWidth and spacing between views etc.)

; all styles which have 3D effects should set this to true

is3D                    false

;

; the name of the style (will vanish)

;

name                    #unknown

;

; borders - if is3D is true, these are ignored

;

borderWidth             0

borderColor             Color black

;

; these are macros used below

;

viewGrey                Color grey:67

lightGrey               (Color grey:67) lightened

darkGrey                (Color grey:67) darkened

fixedFont               Font family:'courier' face:'medium' style:'roman' size:12

variableFont            Font family:'helvetica' face:'medium' style:'roman' size:12

;

; the default font (notice that there are extra variables for

; labelFont, textFont, menuFont etc.)

;

font                    =fixedFont

;

; the default view background

;

viewBackground          =viewGrey

;

; space between widgets

;

viewSpacing             nil "defaults to 1mm"

;

; when drawing shadow and light (3D-effect)

; ignored if is3D is false

;

shadowColor             nil     "means: use viewBackground darkened"

lightColor              nil     "means: use viewBackground lightened"

halfShadowColor         nil     "means: some default"

halfLightColor          nil     "means: some default"

;

; how are views highlighted when the focus is stepped

; via the keyboard (Ctrl-CursorRight / Ctrl-CursorLeft) ?

;

focusColor              Color red       "red is the default anyway"

focusBorderWidth        2               "2 is the default anyway"

;

; show a shadow under popup views ?

; if popupShadowColor is non-nil, shadow is drawn in this

; solid color; otherwise shadow is drawn by halftoning the pixels below.

; This may be slow on some X-servers.

;

popupShadow             false   

popupShadowColor        Color black

popupLevel              nil     

popupBorderWidth        1            "2D styles only"

popupBorderColor        Color black  "2D styles only"   

;

; this controls if popups have to be clicked again to go away (if false)

; or vanish automatically, when the button is released (if true)

; the default is true

;

popupHideOnRelease      true    

; UNIMPLEMENTED. popupEdgeStyle          nil          "or #soft"   

;

; menus

;

menuFont                    =variableFont

menuForegroundColor         nil "means: use default from superclass"

menuBackgroundColor         nil "means: use default from superclass"

menuHilightForegroundColor  =menuBackgroundColor  "if level is ~~ 0, default is menuForegroundColor"

menuHilightBackgroundColor  =menuForegroundColor  "if level is ~~ 0, default is menuBackgroundColor"

menuHilightLevel            0

menuSeparatingLineLevel     0

menuCheckColor              nil "means: use fgColor"

;

; pullDownMenu takes menu style if not specified otherwise

;

pullDownMenuViewBackground          =menuViewBackground

pullDownMenuHilightForegroundColor  =menuHilightForegroundColor

pullDownMenuHilightBackgroundColor  =menuHilightBackgroundColor

pullDownMenuShadowColor             =menuShadowColor

pullDownMenuLightColor              =menuLightColor

pullDownMenuForegroundColor         =menuForegroundColor

pullDownMenuBackgroundColor         =menuBackgroundColor

pullDownMenuFont                    =menuFont

pullDownMenuEdgeStyle               nil    "or #soft"

;

;if true, menu stays pulled if button is released (as in motif, mswindows)

;otherwise, it hides itself on button release.

;

pullDownMenuKeepMenu                false

;

; label defaults 

; (these are inherited by Button, Toggles etc. if not redefined)

labelForegroundColor        Color black

labelBackgroundColor        =viewBackground

labelFont                   =fixedFont

;

; buttons, toggles etc.

;

buttonFont                      nil   "means: use font"

buttonEdgeStyle                 nil   "or #soft"

buttonBorderWidth               nil   "means: use value of borderWidth"

buttonActiveLevel               -1

buttonPassiveLevel              1

buttonForegroundColor           nil   "means: use label-value"

buttonBackgroundColor           nil   "means: use label-value"

buttonFont                      nil   "means: use label-value"

buttonDisabledForegroundColor   Color grey

buttonDisabledBackgroundColor   nil   "means: use bgColor"

buttonEnteredForegroundColor    nil   "means: use fgColor"

buttonEnteredBackgroundColor    nil   "means: use bgColor"

buttonActiveForegroundColor     nil   "means: use fgColor"

buttonActiveBackgroundColor     nil   "means: use bgColor"

buttonReturnButtonHasImage      true

buttonReturnButtonHasBorder     false

; arrow buttons in scrollBars

;

arrowButtonStyle                nil   "choose one of (#st80 #motif #mswindows nil)"

arrowButtonForegroundColor      nil   

arrowButtonActiveForegroundColor nil   

arrowButtonUpFormFile           'ScrollUp.xbm'

arrowButtonDownFormFile         'ScrollDn.xbm'

arrowButtonLeftFormFile         'ScrollLt.xbm'

arrowButtonRightFormFile        'ScrollRt.xbm'

;

; show a little lamp (a la IRIS) in toggles ?

;

toggleShowLamp          false         "false means: no lamp"

toggleLampColor         Color yellow  "ignored if above is false"

;

; the color of checkmarks (normally black; IRIS shows them red)

;

checkToggleCheckColor   Color black

;

; text view backgrounds - this is not the same as

; textBackgroundColor (although it looks better if it is ...)

;

textViewBackground              Color white

;

; texts in ListView, TextView, EditTextView etc.

;

textForegroundColor             Color black

textBackgroundColor             Color white

textFont                        =fixedFont

textCursorForegroundColor       Color white

#if Display hasColors

textCursorBackgroundColor       Color red

#else

textCursorBackgroundColor       Color black

#endif

textCursorType                  #block "choose one of (#block #ibeam #caret #solidCaret)"

;

; text view selections

;

textSelectionForegroundColor    =textBackgroundColor

#if Display hasColors

textSelectionBackgroundColor    Color green

#else

#  if Display hasGreyscales

textSelectionBackgroundColor    Color grey

#  else

textSelectionBackgroundColor    =textForegroundColor

#  endif

#endif

;

; text in editfields

;

editFieldForegroundColor           Color black

editFieldBackgroundColor           Color white

editFieldSelectionForegroundColor  Color white

editFieldSelectionBackgroundColor  Color black

editFieldFont                      =fixedFont

;

; special values for the transcript

;

transcriptForegroundColor       Color black

transcriptBackgroundColor       Color white

transcriptCursorForegroundColor =transcriptBackgroundColor

transcriptCursorBackgroundColor =transcriptForegroundColor

;

; highlighting errors in codeviews

;

codeErrorSelectionForegroundColor       =textSelectionForegroundColor

#if Display hasColors

codeErrorSelectionBackgroundColor       Color red

#else

codeErrorSelectionBackgroundColor       =textSelectionBackgroundColor

#endif

;

; selection-in-list

;

selectionForegroundColor                nil "means: use text-backgroundColor"

selectionBackgroundColor                nil "means: use viewBackground"

selectionHilightForegroundColor         nil "means: use backgroundColor"

selectionHilightBackgroundColor         nil "means: use foregroundColor"

selectionHilightFrameColor              nil "means: no frame around selection"

selectionHilightLevel                   0

selectionFont                           nil "means: use textFont"

selectionDisabledForegroundColor        nil "means: use grey"

;NOTIMPL selectionRightArrowStyle

selectionRightArrowLevel                1

;

; variable panels

;

variablePanelShowHandle         true

variablePanelHandlePosition     #right "#center #left"

variablePanelHandleStyle        nil    "nil means a rectangle; #next"

variablePanelHandleColor        Black  "only for #iris, #normal and #mswindows"

variablePanelTrackingLine       false  

variablePanelSeparatingLine     false

;

; scrollbar position in scrolled views

;

scrollBarPosition               #left   "#right"

;

; scrollbars

;

scrollBarButtonPositions        #around "#top #bottom"         

scrollBarLevel                  0

scrollBarElementSpacing         0

;

; scrollers (also used in scrollBars)

;

scrollerViewBackground          Color grey

scrollerThumbColor              Color white

scrollerThumbFrameColor         Color black "nil means no frame"

scrollerThumbLevel              0

scrollerThumbInset              0

scrollerThumbFixHeight          false

scrollerThumbEdgeStyle          nil "or #soft"

scrollerLevel                   0

scrollerBorderWidth             =borderWidth

scrollerNTallyMarks             0

scrollerTallyLevel              0

scrollerGhostColor              nil  "nil means - no ghosting"

scrollerGhostLevel              0    "only used if above color is nonNil"

;

; sliders may have different tally definition than scrollers

;

sliderNTallyMarks       1

sliderTallyLevel        -1

sliderLevel             nil     "means inherit from scroller"

;

; framed boxes

;

framedBoxForegroundColor        Color black

framedBoxLabelPosition          #topCenter "#topLeft #topRight #bottomLeft #bottomCenter #bottomRight"

rulerForegroundColor            nil "use foregroundColor or Black or White"

rulerBackgroundColor            nil "use viewBackground"

rulerMetric                     nil "use #mm for german, #inch for all others"

;

; dialog boxes

;

;

; information-box

;

informationBoxIcon      (Image fromFile:'bitmaps/Information.xbm')

;

; warnbox

;

warnBoxIcon             (Image fromFile:'bitmaps/Information.xbm')

;

; yes/no requests

;

requestBoxIcon          (Image fromFile:'bitmaps/Request.xbm')