hg/stx-libview: styles/iris.style@a28b0fd89318 (annotated)

122 c84d8d1e8d48 Initial revision claus parents: diff changeset	1	; View defaultStyle:#iris
c84d8d1e8d48 Initial revision claus parents: diff changeset	2	;
c84d8d1e8d48 Initial revision claus parents: diff changeset	3	; silicon graphics style
c84d8d1e8d48 Initial revision claus parents: diff changeset	4	; (somwehat like motif, but with smooth edges and bells&whistles)
c84d8d1e8d48 Initial revision claus parents: diff changeset	5	;
1858 a28b0fd89318 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	6	; $Header: /cvs/stx/stx/libview/styles/iris.style,v 1.22 1997-08-13 15:30:50 cg Exp $
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 189 diff changeset	7
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 189 diff changeset	8	comment 'Silicon graphics'' Iris look alike'
144 cf645a1ebbb3 . claus parents: 129 diff changeset	9
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 189 diff changeset	10	#if (Language == #german) or:[Language == #de]
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 189 diff changeset	11	comment 'An Silicon Graphics Iris angelehnter Stil'
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 189 diff changeset	12	#endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	13
498 ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 482 diff changeset	14	#if (Language == #french) or:[Language == #fr]
1162 01c49bf5c296 * empty log message * Claus Gittinger <cg@exept.de> parents: 1119 diff changeset	15	comment 'Un style qui r�semble Silicon Graphics Irix'
498 ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 482 diff changeset	16	#endif
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 482 diff changeset	17
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	18	is3D true
c84d8d1e8d48 Initial revision claus parents: diff changeset	19	name #iris
c84d8d1e8d48 Initial revision claus parents: diff changeset	20
c84d8d1e8d48 Initial revision claus parents: diff changeset	21	#if Display hasGreyscales
1857 854b5ec3c7b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	22	viewGrey (Color grey:67) exactOrNearestOn:(Screen current)
854b5ec3c7b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	23	veryLightGray (Color veryLightGray) exactOrNearestOn:(Screen current)
854b5ec3c7b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	24	darkGray (Color darkGray) exactOrNearestOn:(Screen current)
854b5ec3c7b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	25	mediumGray (Color gray:50) exactOrNearestOn:(Screen current)
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	26	#else
c84d8d1e8d48 Initial revision claus parents: diff changeset	27	viewGrey Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	28	lightColor Color grey:50
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	29	veryLightGray Color veryLightGray
c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	30	darkGray Color darkGray
c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	31	mediumGray Color gray:50
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	32	#endif
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	33
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	34	borderWidth 0
c84d8d1e8d48 Initial revision claus parents: diff changeset	35	viewBackground =viewGrey
c84d8d1e8d48 Initial revision claus parents: diff changeset	36
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	37
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	38	popupShadow true
c84d8d1e8d48 Initial revision claus parents: diff changeset	39	popupLevel 2
c84d8d1e8d48 Initial revision claus parents: diff changeset	40	popupBorderWidth 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	41
468 8c5bd9fa6038 * empty log message * Claus Gittinger <cg@exept.de> parents: 309 diff changeset	42	textFont Font family:'courier' size:12
1445 be52c0c0ede4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1162 diff changeset	43	textLightColor =viewGrey
468 8c5bd9fa6038 * empty log message * Claus Gittinger <cg@exept.de> parents: 309 diff changeset	44
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	45	#if Display hasColors
c84d8d1e8d48 Initial revision claus parents: diff changeset	46	textSelectionForegroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	47	textSelectionBackgroundColor Color green
c84d8d1e8d48 Initial revision claus parents: diff changeset	48	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	49
c84d8d1e8d48 Initial revision claus parents: diff changeset	50	textCursorForegroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	51	#if Display hasColors
c84d8d1e8d48 Initial revision claus parents: diff changeset	52	textCursorBackgroundColor Color red
c84d8d1e8d48 Initial revision claus parents: diff changeset	53	#else
c84d8d1e8d48 Initial revision claus parents: diff changeset	54	textCursorBackgroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	55	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	56
c84d8d1e8d48 Initial revision claus parents: diff changeset	57	#if (Display hasColors and:[Display depth > 4])
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	58	transcriptForegroundColor =veryLightGray
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	59	transcriptBackgroundColor Color red:0 green:0 blue:25
c84d8d1e8d48 Initial revision claus parents: diff changeset	60	transcriptCursorForegroundColor =transcriptBackgroundColor
c84d8d1e8d48 Initial revision claus parents: diff changeset	61	transcriptCursorBackgroundColor Color green
c84d8d1e8d48 Initial revision claus parents: diff changeset	62	#else
c84d8d1e8d48 Initial revision claus parents: diff changeset	63	transcriptForegroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	64	transcriptBackgroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	65	transcriptCursorForegroundColor =transcriptBackgroundColor
c84d8d1e8d48 Initial revision claus parents: diff changeset	66	transcriptCursorBackgroundColor =transcriptForegroundColor
c84d8d1e8d48 Initial revision claus parents: diff changeset	67	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	68
c84d8d1e8d48 Initial revision claus parents: diff changeset	69	#if Display hasColors
833 5628715a15c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 521 diff changeset	70	; editFieldBackgroundColor Color red:100 green:75 blue:75
1857 854b5ec3c7b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1854 diff changeset	71	; editFieldBackgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)
1854 9cfd233d3454 * empty log message * Claus Gittinger <cg@exept.de> parents: 1853 diff changeset	72	editFieldBackgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E)
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	73	editFieldSelectionBackgroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	74	editFieldSelectionForegroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	75	#endif
157 891eff44c2e7 . claus parents: 144 diff changeset	76
891eff44c2e7 . claus parents: 144 diff changeset	77	#if (Font family:'screen' face:'bold' style:'roman' size:16) existsOn:Display
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	78	editFieldFont Font family:'screen' face:'bold' style:'roman' size:16
157 891eff44c2e7 . claus parents: 144 diff changeset	79	#else
891eff44c2e7 . claus parents: 144 diff changeset	80	editFieldFont Font family:'courier' face:'medium' style:'roman' size:12
891eff44c2e7 . claus parents: 144 diff changeset	81	#endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	82
129 752fbb07635a * empty log message * claus parents: 122 diff changeset	83	variableFont Font family:'helvetica' face:'medium' style:'roman' size:12
752fbb07635a * empty log message * claus parents: 122 diff changeset	84	selectionFont =variableFont
752fbb07635a * empty log message * claus parents: 122 diff changeset	85	labelFont =variableFont
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	86
c84d8d1e8d48 Initial revision claus parents: diff changeset	87	#if Display hasColors
c84d8d1e8d48 Initial revision claus parents: diff changeset	88	toggleShowLamp true
c84d8d1e8d48 Initial revision claus parents: diff changeset	89	toggleLampColor Color yellow
c84d8d1e8d48 Initial revision claus parents: diff changeset	90	checkToggleCheckColor Color red
1445 be52c0c0ede4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1162 diff changeset	91	checkToggleBitmapFile 'CheckOnColor.xpm'
be52c0c0ede4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1162 diff changeset	92	checkToggleLabelOverMargin true
172 8488665ce798 . claus parents: 157 diff changeset	93	radioButtonShowLamp false
8488665ce798 . claus parents: 157 diff changeset	94	radioButtonStyle #iris
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	95	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	96
c84d8d1e8d48 Initial revision claus parents: diff changeset	97	scrollerLevel -1
c84d8d1e8d48 Initial revision claus parents: diff changeset	98	scrollerThumbLevel 3
c84d8d1e8d48 Initial revision claus parents: diff changeset	99	scrollerThumbColor =viewGrey
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	100	#if Display hasGreyscales
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	101	scrollerThumbEnteredColor =veryLightGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	102	#endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	103	scrollerThumbEdgeStyle #soft
c84d8d1e8d48 Initial revision claus parents: diff changeset	104	scrollerNTallyMarks 3
c84d8d1e8d48 Initial revision claus parents: diff changeset	105	scrollerTallyLevel 1
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	106	scrollerGhostColor =mediumGray
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	107	scrollerGhostLevel -1
c84d8d1e8d48 Initial revision claus parents: diff changeset	108	#if Display hasGreyscales not
c84d8d1e8d48 Initial revision claus parents: diff changeset	109	scrollerViewBackground Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	110	#endif
1858 a28b0fd89318 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	111	scrollerMiddleButtonJump true
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	112
c84d8d1e8d48 Initial revision claus parents: diff changeset	113	sliderNTallyMarks 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	114	sliderTallyLevel 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	115
c84d8d1e8d48 Initial revision claus parents: diff changeset	116	buttonEdgeStyle #soft
c84d8d1e8d48 Initial revision claus parents: diff changeset	117	buttonActiveLevel -1
c84d8d1e8d48 Initial revision claus parents: diff changeset	118	buttonPassiveLevel 3
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	119	buttonDisabledForegroundColor =darkGray
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	120	#if Display hasGreyscales
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	121	buttonEnteredBackgroundColor =veryLightGray
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	122	buttonActiveBackgroundColor nil
c84d8d1e8d48 Initial revision claus parents: diff changeset	123	buttonActiveForegroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	124	#else
c84d8d1e8d48 Initial revision claus parents: diff changeset	125	buttonEnteredBackgroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	126	buttonActiveForegroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	127	buttonActiveBackgroundColor Color black
c84d8d1e8d48 Initial revision claus parents: diff changeset	128	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	129
1118 b492741697b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 833 diff changeset	130	#if OperatingSystem getOSType = 'irix'
1119 bf8720f0d730 * empty log message * Claus Gittinger <cg@exept.de> parents: 1118 diff changeset	131	menuFont Font family:'helvetica' face:'bold' style:'oblique' size:10
1118 b492741697b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 833 diff changeset	132	#else
1119 bf8720f0d730 * empty log message * Claus Gittinger <cg@exept.de> parents: 1118 diff changeset	133	menuFont Font family:'helvetica' face:'bold' style:'roman' size:12
1118 b492741697b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 833 diff changeset	134	#endif
b492741697b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 833 diff changeset	135
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	136	menuHilightBackgroundColor Color white
c84d8d1e8d48 Initial revision claus parents: diff changeset	137	menuHilightLevel 1
482 a618e1b62b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 468 diff changeset	138	; menuShowAccelerators false
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	139	#if Display hasColors
c84d8d1e8d48 Initial revision claus parents: diff changeset	140	menuCheckColor Color red
c84d8d1e8d48 Initial revision claus parents: diff changeset	141	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	142
1118 b492741697b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 833 diff changeset	143	pullDownMenuFont =menuFont
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	144	pullDownMenuKeepMenu true
c84d8d1e8d48 Initial revision claus parents: diff changeset	145	pullDownMenuLevel 0
c84d8d1e8d48 Initial revision claus parents: diff changeset	146	pullDownMenuHilightLevel 2
c84d8d1e8d48 Initial revision claus parents: diff changeset	147	pullDownMenuEdgeStyle #soft
c84d8d1e8d48 Initial revision claus parents: diff changeset	148
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	149	variablePanelHandleColor =darkGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	150	#if Display hasGreyscales
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	151	variablePanelHandleEnteredColor =veryLightGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	152	#endif
174 5cc74d7be916 . claus parents: 172 diff changeset	153
5cc74d7be916 . claus parents: 172 diff changeset	154	activeHelpBackgroundColor Color yellow lightened
5cc74d7be916 . claus parents: 172 diff changeset	155	activeHelpBorderWidth 2
1620 49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	156
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	157	#if Display hasGrayscales not
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	158	htmlAnchorUnderline true
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	159	htmlAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	160	htmlBackgroundColor Color white
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	161	htmlActiveAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	162	htmlActiveAnchorBackgroundColor =htmlBackgroundColor
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	163	htmlVisitedAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	164	htmlExampleAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	165	#endif

author	Claus Gittinger <cg@exept.de>
	Wed, 13 Aug 1997 17:30:50 +0200
changeset 1858	a28b0fd89318
parent 1857	854b5ec3c7b9
child 1932	6afe07d9c88c
permissions	-rw-r--r--