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

;

; After you created the style-file (and have it accessible 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$

;

; 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 '? ...' meands: only assign new value if no value has been

;   specified already; this allows included files (for example: motif.common)

;   to change value only if not already defined by the includer.

;

;   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 size of topViews;

; if unspecified, 2/3 of the screen dimension are taken

;

standardSystemView.defaultExtent            (Screen current extent * (2/3))

;

; same for modal boxes

;

modalBox.defaultExtent                      200@150

;

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

;

popup.shadow             false

popup.shadowColor        Color black

popup.level              nil

popup.borderWidth        1            "2D styles only"

popup.borderColor        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

;

popup.hideOnRelease      true

; UNIMPLEMENTED. popup.edgeStyle          nil          "or #soft"

;

; menus

;

menu.font                    =variableFont

menu.foregroundColor         nil "means: use default from superclass"

menu.backgroundColor         nil "means: use default from superclass"

menu.hilightForegroundColor  =menu.backgroundColor  "if level is ~~ 0, default is menuForegroundColor"

menu.hilightBackgroundColor  =menu.foregroundColor  "if level is ~~ 0, default is menuBackgroundColor"

menu.hilightLevel            0

menu.separatingLineLevel     0

menu.checkColor              nil "means: use fgColor"

menu.showAccelerators        true

menu.subMenuPopInRightHalfOnly  false "if true, only pop submenus if pointer is in rightHalf"

;

; pullDownMenu takes menu style if not specified otherwise

;

pullDownMenu.viewBackground          =menuViewBackground

pullDownMenu.foregroundColor         =menuForegroundColor

pullDownMenu.backgroundColor         =menuBackgroundColor

pullDownMenu.hilightForegroundColor  =menuHilightForegroundColor

pullDownMenu.hilightBackgroundColor  =menuHilightBackgroundColor

pullDownMenu.shadowColor             =menuShadowColor

pullDownMenu.lightColor              =menuLightColor

pullDownMenu.font                    =menuFont

pullDownMenu.edgeStyle               nil    "or #soft"

pullDownMenu.separatingLines         true

pullDownMenu.level                   1

pullDownMenu.hilightLevel            =menuHilightLevel "ifnil: 0"

pullDownMenu.autoselectFirst         false

;

;if #toggle pressing an item 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.

;

pullDownMenu.toggleMode              #toggle

;

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

;

pullDownMenu.raiseTop                true

;

; popupList

;

popUpList.popPosition                nil   "or #shifted, or #below"

;

; label defaults

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

label.foregroundColor        Color black

label.backgroundColor        =viewBackground

label.font                   =fixedFont

;

; buttons, toggles etc.

;

button.font                      nil     "nil means: use font"

button.edgeStyle                 nil     "or #soft"

button.borderWidth               nil     "nil means: use value of borderWidth"

button.activeLevel               -1

button.passiveLevel              1

button.foregroundColor           nil     "nil means: use label-value"

button.backgroundColor           nil     "nil means: use label-value"

button.font                      nil     "nil means: use label-value"

button.disabledForegroundColor   Color grey

button.disabledBackgroundColor   nil     "nil means: use bgColor"

button.enteredForegroundColor    nil     "nil means: use fgColor"

button.enteredBackgroundColor    nil     "nil means: use bgColor"

button.activeForegroundColor     nil     "nil means: use fgColor"

button.activeBackgroundColor     nil     "nil means: use bgColor"

button.returnButtonHasImage      true    "place a return-icon into defaultButtons"

button.returnButtonHasBorder     false   "place a border around defaultButtons"

; arrow buttons in scrollBars

;

arrowButton.style                 nil    "choose one of (#st80 #motif #mswindows nil)"

arrowButton.foregroundColor       nil    "nil means: use buttons default"

arrowButton.activeForegroundColor nil    "nil means: use buttons default"

arrowButton.activeBackgroundColor nil    "nil means: use buttons default"

arrowButton.upFormFile            'ScrollUp.xbm'

arrowButton.downFormFile          'ScrollDn.xbm'

arrowButton.leftFormFile          'ScrollLt.xbm'

arrowButton.rightFormFile         'ScrollRt.xbm'

arrowButton.activeLevel           nil    "nil means: use buttons default"

arrowButton.passiveLevel          nil    "nil means: use buttons default"

;

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

;

toggle.showLamp          false         "false means: no lamp"

toggle.lampColor         Color yellow  "ignored if above is false"

toggle.lampWidthMM       1.8           "mm"

toggle.lampHeightMM      3.5           "mm"

;

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

;

checkToggle.checkColor   Color black

checkToggle.bitmapFile   'CheckOn.xbm'

checkToggle.style        #cross       "or #check only taken if file is nil"

checkToggle.activeBackgroundColor  nil   "means: use buttons default"

checkToggle.activeLevel            nil   "means: use buttons default"

checkToggle.passiveLevel           nil   "means: use buttons default"

noteBook.halfLightColor          =button.halfLightColor

noteBook.halfShadowColor         =button.halfShadowColor

noteBook.shadowColor             =button.shadowColor

noteBook.lightColor              =button.lightColor

"/ noteBook.foregroundColor           =button.foregroundColor

"/ noteBook.disabledForegroundColor   =dbutton.isabledForegroundColor

noteBook.canvasFrameLevel          1

noteBook.edgeStyle                 #soft

;

; text view backgrounds - this is not the same as

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

;

textView.background              Color white

TextView.st80Selections         false   "/ enables ST80 style doubleClick

;

; texts in ListView, TextView, EditTextView etc.

;

text.foregroundColor             Color black

text.backgroundColor             Color white

text.font                        =fixedFont

text.tabPositions                #(1 9 17 25 33 41 49 57 65 73 81 89 97 105 113 121 129 137 145)

textCursor.foregroundColor       Color white

#if Screen current hasColors

textCursor.backgroundColor       Color red

#else

textCursor.backgroundColor       Color black

#endif

textCursor.type                  #block "choose one of (#block #ibeam #Ibeam #caret #solidCaret #bigCaret #bigSolidCaret)"

textCursor.typeNoFocus          nil   "/ means same as textCursor; #none is also allowed

;

; text view selections

;

text.wordSelectCatchesBlanks     false

text.st80Selections              false

text.selectionForegroundColor    =text.backgroundColor

#if Screen current hasColors

text.selectionBackgroundColor    Color green

#else

#  if Screen current hasGreyscales

text.selectionBackgroundColor    Color grey

#  else

text.selectionBackgroundColor    =text.foregroundColor

#  endif

#endif

editText.requestFocusOnPointerEnter     true   "/ anded with UserPrefs

;

; text in editfields

;

editField.foregroundColor           Color black

editField.backgroundColor           Color white

editField.selectionForegroundColor  Color white

editField.selectionBackgroundColor  Color black

editField.font                      =fixedFont

editField.requestFocusOnPointerEnter true       "/ anded with UserPrefs

editField.cursorType                nil "/ means same as textCursor

editField.cursorForegroundColor     nil "/ means same as textCursor

editField.cursorBackgroundColor     nil "/ means same as textCursor

;

; special values for the transcript

;

transcript.foregroundColor       Color black

transcript.backgroundColor       Color white

transcript.cursorForegroundColor =transcript.backgroundColor

transcript.cursorBackgroundColor =transcript.foregroundColor

;

; highlighting errors in codeviews

;

codeError.selectionForegroundColor       =text.selectionForegroundColor

#if Screen current hasColors

codeError.selectionBackgroundColor       Color red

#else

codeError.selectionBackgroundColor       =text.selectionBackgroundColor

#endif

;

; selection-in-list

;

selection.multiSelectionModifier         nil "means: #Shift; alternative: #Control"

selection.foregroundColor                nil "means: use text-backgroundColor"

selection.backgroundColor                nil "means: use viewBackground"

selection.hilightForegroundColor         nil "means: use backgroundColor"

selection.hilightBackgroundColor         nil "means: use foregroundColor"

selection.hilightFrameColor              nil "means: no frame around selection"

selection.hilightLevel                   0

selection.hilightStyle                   nil "means: depend on styles name"

selection.font                           nil "means: use textFont"

selection.disabledForegroundColor        nil "means: use grey"

;NOTIMPL selection.rightArrowStyle

selection.rightArrowLevel                1

selection.requestFocusOnPointerEnter     true  "/ anded with UserPrefs

selection.highlightEnterItem             false "/ underline-highlight item under cursor

;

; variable panels

;

variablePanel.barHeight          nil "height in pixels. nil means: use barHeightMM or default"

variablePanel.barWidth           nil "width in pixels. nil means: use barWidthMM or default"

variablePanel.barHeightMM        2

variablePanel.barWidthMM         3

variablePanel.showHandle         true

variablePanel.handlePosition     scrollbar.position "/ OLD: #right "#center #left"

variablePanel.handleStyle        nil    "nil means: as appropriate per style-name; i.e. #next., #motif ..."

;                                      in addition to the known ones,

;                                      #none, #iris, #line, #motif or #full are also allowed

variablePanel.handleColor        Black  "only for #iris, #normal and #mswindows"

variablePanel.handleLevel        2      "only if not #line"

; OBSOLETE: variablePanel.trackingLine       false  "false means: track bar; true means: only track line"

variablePanel.trackingStyle      #solidRectangle  "/ means: rectangle track.

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

variablePanel.separatingLine     false  "true means: draw an edged line in addition to handle"

variablePanel.barHeight          2

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

scrollableView.level             nil                "nil: as specified elsewhere; only 0 for openWin"

scrolledView.borderWidth         nil                "nil: slave views own preferrence; 1 in openWin"

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

scrollBar.spacing                =viewSpacing // 2  "space between scrolledview and scrollBar"

scrollBar.hiding                 false              "/ automatic hiding of useless scrollBars

;

; scrollbar position in scrolled views

;

scrollBar.position               #left   "or: #right"

;

; scrollbars

;

scrollBar.buttonPositions        #around         "or: #top #bottom"

scrollBar.level                  0               "level of scrollBar"

scrollBar.elementSpacing         0               "spacing betwen buttons & thumb"

scrollBar.disableButtons         false           "shall we disable buttons if appropriate"

scrollBar.neverMini              false           "force big scrollBars"

scrollBar.hiding                 false           "hide scrollBars if nothing to scroll"

;

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

;

scroller.viewBackground          Color grey

scroller.thumbColor              Color white

scroller.thumbEnteredColor       =scrollerThumbColor

scroller.thumbFrameColor         Color black "nil means no frame"

scroller.thumbLevel              0

scroller.thumbActiveLevel        =scrollerThumbLevel

scroller.thumbInset              0

scroller.thumbFixHeight          false

scroller.thumbEdgeStyle          nil "or #soft"

scroller.level                   0

scroller.borderWidth             =borderWidth

scroller.NTallyMarks             0

scroller.tallyLevel              0

scroller.ghostColor              nil     " nil means: no ghosting"

scroller.ghostLevel              0       "only used if above color is nonNil"

scroller.snapBack                false   "w95 behavior: snap back if moved out of the scroller"

scroller.middleButtonJump        false   "xterm behavior: middle button jumps to click position"

scroller.autoRepeat              true

scroller.initialRepeatDelay      0.2     "seconds"

scroller.repeatDelay             0.1     "seconds"

scroller.vScrollerWidth          nil     " nil means: compute from screens resolution"

scroller.hScrollerHeight         nil     " nil means: compute from screens resolution"

scroller.snapBackDistance        30

scroller.minThumbSize            8

;

; sliders may have different tally definition than scrollers

;

slider.NTallyMarks       1

slider.tallyLevel        -1

slider.level             nil     "nil means: inherit from scroller"

miniScroller.size        2.5     "/ millimeters

;

; framed boxes

;

framedBox.foregroundColor        Color black

framedBox.labelPosition          #topCenter "#topLeft #topRight #bottomLeft #bottomCenter #bottomRight"

framedBox.font                   nil  "nil means: as inherited from view"

; framedBox.frameLineOnly        false "true means: only draw top line; false means: draw a rectangle"

ruler.foregroundColor            nil "nil means: use foregroundColor or Black or White"

ruler.backgroundColor            nil "nil means: use viewBackground"

ruler.metric                     nil "nil means: use #mm for german, #inch for all others"

;

; dialog boxes

;

dialogBox.okAtLeft               false  "if true: ok at left/cancel at right; if false, vice-versa"

dialogBox.returnShiftsFocusToOK  false  "if true, return shifts focus to OK button"

					"(i.e. we need another Return for confirmation)"

					"if false, Return immediately closes the box with OK"

;

; information-box

;

informationBox.icon      (Image fromFile:'bitmaps/Information.xbm')

;

; warnbox

;

warnBox.icon             (Image fromFile:'bitmaps/Information.xbm')

;

; yes/no requests

;

requestBox.icon          (Image fromFile:'bitmaps/Request.xbm')

html.backgroundColor                Color grey:80

html.anchorForegroundColor          Color blue darkened

html.activeAnchorForegroundColor    Color red

html.activeAnchorBackgroundColor    =htmlBackgroundColor

html.visitedAnchorForegroundColor   Color red:30 green:0 blue:80

html.exampleAnchorForegroundColor   Color red:40 green:0 blue:0

html.anchorUnderline                false