hg/stx-libview: styles/st80.style@5128713473db (annotated)

122 c84d8d1e8d48 Initial revision claus parents: diff changeset	1	; View defaultStyle:#st80
c84d8d1e8d48 Initial revision claus parents: diff changeset	2	;
c84d8d1e8d48 Initial revision claus parents: diff changeset	3	; simulation of the old st80 style - looks somewhat like os2
c84d8d1e8d48 Initial revision claus parents: diff changeset	4	;
1896 5128713473db * empty log message * Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	5	; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.17 1997-09-11 01:57:38 cg Exp $
144 cf645a1ebbb3 . claus parents: 122 diff changeset	6
498 ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	7	comment 'old `ST80'' 3D look alike'
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	8
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 274 diff changeset	9	#if (Language == #german) or:[Language == #de]
498 ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	10	comment 'An fr�heres `ST-80'' angelehnt'
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	11	#endif
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	12	#if (Language == #french) or:[Language == #fr]
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	13	comment 'Comme `ST-80'''
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 274 diff changeset	14	#endif
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 274 diff changeset	15
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	16	name #st80
c84d8d1e8d48 Initial revision claus parents: diff changeset	17
c84d8d1e8d48 Initial revision claus parents: diff changeset	18	;
c84d8d1e8d48 Initial revision claus parents: diff changeset	19	; take a smaller font on VGA displays
c84d8d1e8d48 Initial revision claus parents: diff changeset	20	;
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	21
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	22	#if Display width == 640
c84d8d1e8d48 Initial revision claus parents: diff changeset	23	; take smaller fonts on VGA screens
c84d8d1e8d48 Initial revision claus parents: diff changeset	24	font Font family:'courier' face:'medium' style:'roman' size:10
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	25	variableBoldFont Font family:'helvetica' face:'medium' style:'roman' size:10
961 0e24492a7eef * empty log message * Claus Gittinger <cg@exept.de> parents: 688 diff changeset	26	boldFont Font family:'helvetica' face:'bold' style:'roman' size:10
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	27	#else
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	28	variableFont Font family:'helvetica' face:'medium' style:'roman' size:12
7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	29	variableBoldFont Font family:'helvetica' face:'bold' style:'roman' size:12
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	30	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	31
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	32	selectionFont =variableFont
7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	33	labelFont =selectionFont
7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	34
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	35	#if Display hasGreyscales
688 128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	36	is3D true
128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	37	borderWidth 0
128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	38	viewGrey Color grey:80
128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	39	selectionHilightForegroundColor Color black
128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	40	selectionHilightBackgroundColor Color grey:50
1896 5128713473db * empty log message * Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	41	selectionHilightFrameColor Color black
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	42	#else
688 128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	43	viewGrey Color white
128cddddf1a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	44	lightColor Color grey:50
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	45	borderWidth 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	46	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	47
1440 114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	48	viewBackground =viewGrey
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	49
1440 114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	50	scrolledViewLevel 1
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	51	scrolledViewMargin 1
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	52
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	53	scrollBarPosition #right
1833 d361315c60e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	54	; scrollBarHiding true "/ automatic hiding of useless scrollBars
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	55
1440 114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	56	scrollBarButtonPositions #around
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	57	scrollBarLevel 0
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	58	scrollBarElementSpacing 0
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	59	scrollBarSpacing 0
1442 583053300e80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1440 diff changeset	60	; scrollBarNeverMini true
1440 114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	61	scrollBarButtonImageMargin 0
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	62
1440 114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	63	scrollerLevel 1
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	64	scrollerViewBackground =viewGrey
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	65	scrollerThumbColor Color black
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	66	scrollerThumbFrameColor nil
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	67	scrollerThumbLevel 0
114c32a3d0ea * empty log message * Claus Gittinger <cg@exept.de> parents: 1438 diff changeset	68	scrollerThumbInset 3
1896 5128713473db * empty log message * Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	69	scrollerMiddleButtonJump true "middle button jumps to click position"
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	70
c84d8d1e8d48 Initial revision claus parents: diff changeset	71	textCursorType #solidCaret
c84d8d1e8d48 Initial revision claus parents: diff changeset	72	textCursorBackgroundColor Color black
1360 574d47019176 better noFocus cursors Claus Gittinger <cg@exept.de> parents: 961 diff changeset	73	textCursorNoFocusForegroundColor Color grey
274 30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	74
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	75	#if Display hasColors
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	76	textSelectionBackgroundColor Color green
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	77	textSelectionForegroundColor Color black
274 30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	78	#else
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	79	# if Display hasGreyscales
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	80	textSelectionBackgroundColor =viewGrey "Color grey"
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	81	textSelectionForegroundColor Color black
30d54aac94a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 153 diff changeset	82	# endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	83	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	84
c84d8d1e8d48 Initial revision claus parents: diff changeset	85	popupBorderWidth 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	86
c84d8d1e8d48 Initial revision claus parents: diff changeset	87	arrowButtonStyle #st80
c84d8d1e8d48 Initial revision claus parents: diff changeset	88	arrowButtonActiveForegroundColor Color white
153 c56277fa4865 . claus parents: 152 diff changeset	89	; buttonActiveForegroundColor Color white
c56277fa4865 . claus parents: 152 diff changeset	90	buttonActiveBackgroundColor Color grey
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	91
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	92	menuFont =variableBoldFont
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	93	menuViewBackground Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	94	menuForegroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	95	menuBackgroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	96	menuHilightForegroundColor =menuBackgroundColor
c84d8d1e8d48 Initial revision claus parents: diff changeset	97	menuHilightBackgroundColor =menuForegroundColor
c84d8d1e8d48 Initial revision claus parents: diff changeset	98	menuHighlightLevel 0
c84d8d1e8d48 Initial revision claus parents: diff changeset	99	menuSeparatingLineLevel 0
152 17cc0709e898 . claus parents: 144 diff changeset	100	menuSeparatingLineInset 0
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	101
1450 7466c2d60558 * empty log message * Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	102	pullDownMenuFont =variableBoldFont
153 c56277fa4865 . claus parents: 152 diff changeset	103	pullDownMenuViewBackground =viewGrey
961 0e24492a7eef * empty log message * Claus Gittinger <cg@exept.de> parents: 688 diff changeset	104	pullDownMenuLevel 0
153 c56277fa4865 . claus parents: 152 diff changeset	105	pullDownMenuHilightLevel -1
c56277fa4865 . claus parents: 152 diff changeset	106	pullDownMenuHilightBackgroundColor Color grey
961 0e24492a7eef * empty log message * Claus Gittinger <cg@exept.de> parents: 688 diff changeset	107	pullDownMenuSeparatingLines false
0e24492a7eef * empty log message * Claus Gittinger <cg@exept.de> parents: 688 diff changeset	108	; pullDownMenuKeepMenu true
0e24492a7eef * empty log message * Claus Gittinger <cg@exept.de> parents: 688 diff changeset	109
1620 49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	110	#if Display hasGrayscales not
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	111	htmlAnchorUnderline true
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	112	htmlAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	113	htmlBackgroundColor Color white
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	114	htmlActiveAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	115	htmlActiveAnchorBackgroundColor =htmlBackgroundColor
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	116	htmlVisitedAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	117	htmlExampleAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	118	#endif
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1450 diff changeset	119
1896 5128713473db * empty log message * Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	120	TextView.st80Selections true
5128713473db * empty log message * Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	121

author	Claus Gittinger <cg@exept.de>
	Thu, 11 Sep 1997 03:57:38 +0200
changeset 1896	5128713473db
parent 1833	d361315c60e4
child 1948	6a9b754ca6d3
permissions	-rw-r--r--