; 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. 

;

;

;

; 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

comment  'not a usable style\\This file is used as reference and documentation.'

#if (Language == #german) or:[Language == #de]

comment  'Dies ist kein nutzbarer Stil\\Diese Datei dient als Referenz und Dokumentation.'

#endif

;

; if its a 3D style, spacing between components is often different;

; also, no borders are generated.

;

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     "nil means: use viewBackground darkened"

lightColor              nil     "nil means: use viewBackground lightened"

halfShadowColor         nil     "nil means: some default"

halfLightColor          nil     "nil means: some default"

;

; how are views highlighted when the focus is stepped

; via the keyboard (#FocusNext i.e. Ctrl-CursorRight / #FocusPrevious i.e. 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"

menuShowAccelerators        true

;

; pullDownMenu takes menu style if not specified otherwise

;

pullDownMenuViewBackground          =menuViewBackground

pullDownMenuForegroundColor         =menuForegroundColor

pullDownMenuBackgroundColor         =menuBackgroundColor

pullDownMenuHilightForegroundColor  =menuHilightForegroundColor

pullDownMenuHilightBackgroundColor  =menuHilightBackgroundColor

pullDownMenuShadowColor             =menuShadowColor

pullDownMenuLightColor              =menuLightColor

pullDownMenuFont                    =menuFont

pullDownMenuEdgeStyle               nil    "or #soft"

pullDownMenuSeparatingLines         true

pullDownMenuLevel                   1

pullDownMenuHilightLevel            =menuHilightLevel "ifnil: 0"

pullDownMenuAutoselectFirst         false

;

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

;otherwise, it hides itself on button release.

;

pullDownMenuKeepMenu                false

;

;if true, pressing button again (in the pull-menus item) hides a shown (kept)

;menu. Otherwise a press outside of the item-area is required to hide the menu.

;

pullDownMenuToggleKeep              false

;

;if true, menus topview is raised when an entry is activated

;

pullDownMenuRaiseTop                true

;

; popupList

;

popUpListPopPosition                nil   "or #shifted, or #below"

;

; label defaults 

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

labelForegroundColor        Color black

labelBackgroundColor        =viewBackground

labelFont                   =fixedFont

;

; buttons, toggles etc.

;

buttonFont                      nil     "nil means: use font"

buttonEdgeStyle                 nil     "or #soft"

buttonBorderWidth               nil     "nil means: use value of borderWidth"

buttonActiveLevel               -1

buttonPassiveLevel              1

buttonForegroundColor           nil     "nil means: use label-value"

buttonBackgroundColor           nil     "nil means: use label-value"

buttonFont                      nil     "nil means: use label-value"

buttonDisabledForegroundColor   Color grey

buttonDisabledBackgroundColor   nil     "nil means: use bgColor"

buttonEnteredForegroundColor    nil     "nil means: use fgColor"

buttonEnteredBackgroundColor    nil     "nil means: use bgColor"

buttonActiveForegroundColor     nil     "nil means: use fgColor"

buttonActiveBackgroundColor     nil     "nil means: use bgColor"

buttonReturnButtonHasImage      true    "place a return-icon into defaultButtons"

buttonReturnButtonHasBorder     false   "place a border around defaultButtons"

; arrow buttons in scrollBars

;

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

arrowButtonForegroundColor       nil    "nil means: use buttons default"

arrowButtonActiveForegroundColor nil    "nil means: use buttons default"

arrowButtonActiveBackgroundColor nil    "nil means: use buttons default"

arrowButtonUpFormFile            'ScrollUp.xbm'

arrowButtonDownFormFile          'ScrollDn.xbm'

arrowButtonLeftFormFile          'ScrollLt.xbm'

arrowButtonRightFormFile         'ScrollRt.xbm'

arrowButtonActiveLevel           nil    "nil means: use buttons default"

arrowButtonPassiveLevel          nil    "nil means: use buttons default"

;

; 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

checkToggleBitmapFile   'CheckOn.xbm'

checkToggleStyle        #cross       "or #check only taken if file is nil"

checkToggleActiveBackgroundColor  nil   "means: use buttons default"

checkToggleActiveLevel            nil   "means: use buttons default"

checkTogglePassiveLevel           nil   "means: use buttons default"

;

; 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)"

textWordSelectCatchesBlanks     false

;

; 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

;

selectionMultiSelectionModifier         nil "means: #Shift; alternaitve: #Control"

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

selectionHilightStyle                   nil "means: depend on styles name"

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: as appropriate per style-name; i.e. #next., #motif ..."

;                                      in addition to the known ones, 

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

variablePanelHandleLevel        2      "only if not #line"

; OBSOLETE: variablePanelTrackingLine       false  "false means: track bar; true means: only track line"

variablePanelTrackingStyle      #solidRectangle  "/ means: rectangle track. 

						 "/ Also possible:or: #solidLine or: #dashedLine

variablePanelSeparatingLine     false  "true means: draw an edged line in addition to handle"

scrolledViewLevel               -1                 "level of scrolled view. -1 for 3D styles; 0 for 2D styles"

scrollableViewLevel             nil                "nil: as specified elsewhere; only 0 for openWin"

scrolledViewBorderWidth         nil                "nil: slave views own preferrence; 1 in openWin"

scrolledViewMargin              =viewSpacing // 2  "outer margin around scrolledView"

scrollBarSpacing                =viewSpacing // 2  "space between scrolledview and scrollBar"

scrollBarHiding                 false              "/ automatic hiding of useless scrollBars

;

; scrollbar position in scrolled views

;

scrollBarPosition               #left   "or: #right"

;

; scrollbars

;

scrollBarButtonPositions        #around         "or: #top #bottom"         

scrollBarLevel                  0               "level of scrollBar"

scrollBarElementSpacing         0               "spacing betwen buttons & thumb"

scrollBarDisableButtons         false           "shall we disable buttons if appropriate"

scrollBarNeverMini              false

;

; scrollers (also used in scrollBars & also affects sliders)

;

scrollerViewBackground          Color grey

scrollerThumbColor              Color white

scrollerThumbEnteredColor       =scrollerThumbColor

scrollerThumbFrameColor         Color black "nil means no frame"

scrollerThumbLevel              0

scrollerThumbActiveLevel        =scrollerThumbLevel

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     "nil means: means inherit from scroller"

;

; framed boxes

;

framedBoxForegroundColor        Color black

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

rulerForegroundColor            nil "nil means: use foregroundColor or Black or White"

rulerBackgroundColor            nil "nil means: use viewBackground"

rulerMetric                     nil "nil means: 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')

htmlBackgroundColor                Color grey:80

htmlAnchorForegroundColor          Color blue darkened

htmlActiveAnchorForegroundColor    Color red

htmlActiveAnchorBackgroundColor    =htmlBackgroundColor

htmlVisitedAnchorForegroundColor   Color red:30 green:0 blue:80

htmlExampleAnchorForegroundColor   Color red:40 green:0 blue:0

htmlAnchorUnderlines               false