hg/stx-libview: styles/iris.style@c48e025f7931 (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	;
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	6	; $Header: /cvs/stx/stx/libview/styles/iris.style,v 1.24 1997-10-28 19:14:52 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
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	46	textSelection.foregroundColor Color black
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	47	textSelection.backgroundColor Color green
122 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
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	70	; editField.backgroundColor Color red:100 green:75 blue:75
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	71	; editField.backgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	72	editField.backgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E)
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	73	editField.selectionBackgroundColor Color white
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	74	editField.selectionForegroundColor Color black
122 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
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	88	toggle.showLamp true
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	89	toggle.lampColor Color yellow
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	90	checkToggle.checkColor Color red
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	91	checkToggle.bitmapFile 'CheckOnColor.xpm'
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	92	checkToggle.labelOverMargin true
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	93	radioButton.showLamp false
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	94	radioButton.style #iris
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	95	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	96
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	97	scroller.level -1
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	98	scroller.thumbLevel 3
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	99	scroller.thumbColor =viewGrey
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	100	#if Display hasGreyscales
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	101	scroller.thumbEnteredColor =veryLightGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	102	#endif
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	103	scroller.thumbEdgeStyle #soft
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	104	scroller.NTallyMarks 3
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	105	scroller.tallyLevel 1
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	106	scroller.ghostColor =mediumGray
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	107	scroller.ghostLevel -1
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	108	#if Display hasGreyscales not
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	109	scroller.viewBackground Color white
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	110	#endif
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	111	scroller.middleButtonJump true
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	112
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	113	slider.NTallyMarks 1
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	114	slider.tallyLevel 1
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	115
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	116	button.edgeStyle #soft
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	117	button.activeLevel -1
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	118	button.passiveLevel 3
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	119	button.disabledForegroundColor =darkGray
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	120	#if Display hasGreyscales
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	121	button.enteredBackgroundColor =veryLightGray
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	122	button.activeBackgroundColor nil
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	123	button.activeForegroundColor Color black
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	124	#else
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	125	button.enteredBackgroundColor Color white
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	126	button.activeForegroundColor Color white
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	127	button.activeBackgroundColor Color black
122 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'
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	131	menu.font 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
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	133	menu.font 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
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	136	menu.hilightBackgroundColor Color white
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	137	menu.hilightForegroundColor Color black
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	138	menu.hilightLevel 1
482 a618e1b62b40 * empty log message * Claus Gittinger <cg@exept.de> parents: 468 diff changeset	139	; menuShowAccelerators false
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	140	#if Display hasColors
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	141	menu.checkColor Color red
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	142	#endif
c84d8d1e8d48 Initial revision claus parents: diff changeset	143
1932 6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	144	pullDownMenu.font =menuFont
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	145	pullDownMenu.keepMenu true
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	146	pullDownMenu.level 0
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	147	pullDownMenu.hilightLevel 2
6afe07d9c88c * empty log message * Claus Gittinger <cg@exept.de> parents: 1858 diff changeset	148	pullDownMenu.edgeStyle #soft
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	149
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	150	variablePanel.handleColor =darkGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	151	#if Display hasGreyscales
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	152	variablePanel.handleEnteredColor =veryLightGray
521 3f8720f42b7f * empty log message * Claus Gittinger <cg@exept.de> parents: 498 diff changeset	153	#endif
174 5cc74d7be916 . claus parents: 172 diff changeset	154
1937 c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	155	activeHelp.backgroundColor Color yellow lightened
c48e025f7931 * empty log message * Claus Gittinger <cg@exept.de> parents: 1932 diff changeset	156	activeHelp.borderWidth 2
1620 49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	157
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	158	#if Display hasGrayscales not
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	159	htmlAnchorUnderline true
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	160	htmlAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	161	htmlBackgroundColor Color white
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	162	htmlActiveAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	163	htmlActiveAnchorBackgroundColor =htmlBackgroundColor
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	164	htmlVisitedAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	165	htmlExampleAnchorForegroundColor Color black
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 1445 diff changeset	166	#endif

author	Claus Gittinger <cg@exept.de>
	Tue, 28 Oct 1997 20:14:52 +0100
changeset 1937	c48e025f7931
parent 1932	6afe07d9c88c
child 1948	6a9b754ca6d3
permissions	-rw-r--r--