; 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.2 1995-03-31 02:59:18 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.
; else constructs are possible too:
; #if <st-expression>
; ...
; #else
; ...
; #endif
;
; finally, other files can be included:
;
; ...
; #include 'filename'
; ...
;
; ----------------------------------------------------------------------------
; 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')