hg/stx-libview: styles/next.style@9935ecfd0f06 (annotated)

122 c84d8d1e8d48 Initial revision claus parents: diff changeset	1	; View defaultStyle:#next
c84d8d1e8d48 Initial revision claus parents: diff changeset	2	;
c84d8d1e8d48 Initial revision claus parents: diff changeset	3	; NeXT look-alike - almost like motif or iris,
c84d8d1e8d48 Initial revision claus parents: diff changeset	4	; but with smoother edges and frames around scrollbars and selections
c84d8d1e8d48 Initial revision claus parents: diff changeset	5	;
2120 9935ecfd0f06 * empty log message * Claus Gittinger <cg@exept.de> parents: 2119 diff changeset	6	; $Header: /cvs/stx/stx/libview/styles/next.style,v 1.14 1998-05-19 14:32:29 cg Exp $
144 cf645a1ebbb3 . claus parents: 122 diff changeset	7
cf645a1ebbb3 . claus parents: 122 diff changeset	8	comment 'NeXT look alike'
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	9
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 193 diff changeset	10	#if (Language == #german) or:[Language == #de]
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 193 diff changeset	11	comment 'Angelehnt an NeXT'
8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 193 diff changeset	12	#endif
498 ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	13	#if (Language == #french) or:[Language == #fr]
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	14	comment 'Comme NeXT'
ca1d11e446ce some french strings Claus Gittinger <cg@exept.de> parents: 309 diff changeset	15	#endif
309 8cc4d0e7b41b germanism Claus Gittinger <cg@exept.de> parents: 193 diff changeset	16
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	17	is3D true
c84d8d1e8d48 Initial revision claus parents: diff changeset	18	name #next
c84d8d1e8d48 Initial revision claus parents: diff changeset	19
2117 58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	20	lightGrey Color redByte:170 greenByte:170 blueByte:170
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	21	darkGrey Color redByte:85 greenByte:85 blueByte:85
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	22
152 17cc0709e898 . claus parents: 144 diff changeset	23	#if Display hasGreyscales
2117 58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	24	viewGrey =lightGrey exactOrNearestOn:(Screen current)
152 17cc0709e898 . claus parents: 144 diff changeset	25	lightColor Color white
2117 58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	26	halfShadowColor =darkGrey exactOrNearestOn:(Screen current)
152 17cc0709e898 . claus parents: 144 diff changeset	27	halfLightColor Color white "/ grey:67
17cc0709e898 . claus parents: 144 diff changeset	28	#else
17cc0709e898 . claus parents: 144 diff changeset	29	viewGrey Color white
17cc0709e898 . claus parents: 144 diff changeset	30	lightColor Color grey:50
17cc0709e898 . claus parents: 144 diff changeset	31	#endif
1853 c3d87b4f6051 use nearest colors to avoid dithered view backgrounds Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	32
152 17cc0709e898 . claus parents: 144 diff changeset	33	shadowColor Color black
17cc0709e898 . claus parents: 144 diff changeset	34
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	35	borderWidth 0
c84d8d1e8d48 Initial revision claus parents: diff changeset	36	viewBackground =viewGrey
c84d8d1e8d48 Initial revision claus parents: diff changeset	37	popupBorderWidth 1
c84d8d1e8d48 Initial revision claus parents: diff changeset	38
152 17cc0709e898 . claus parents: 144 diff changeset	39	#if Display hasGreyscales
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	40	menu.hilightForegroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	41	menu.hilightBackgroundColor Color white
152 17cc0709e898 . claus parents: 144 diff changeset	42	#else
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	43	menu.hilightForegroundColor Color white
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	44	menu.hilightBackgroundColor Color black
152 17cc0709e898 . claus parents: 144 diff changeset	45	#endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	46
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	47	variablePanel.handlePosition #center
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	48	variablePanel.handleStyle #next
2118 b104d5e356ab * empty log message * Claus Gittinger <cg@exept.de> parents: 2117 diff changeset	49	variablePanel.handleImage Image fromFile:'bitmaps/HandleNext.xpm'
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	50
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	51	scrollBar.scrollerBordered true
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	52
152 17cc0709e898 . claus parents: 144 diff changeset	53	#if Display hasGreyscales
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	54	scroller.viewBackground (Color grey:50) exactOrNearestOn:(Screen current)
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	55	scroller.thumbColor (Color lightGrey) exactOrNearestOn:(Screen current)
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	56	scroller.thumbEdgeStyle #soft
152 17cc0709e898 . claus parents: 144 diff changeset	57	#else
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	58	scroller.thumbColor Color white
152 17cc0709e898 . claus parents: 144 diff changeset	59	#endif
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	60	scroller.thumbLevel 2
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	61	scroller.thumbInset 1
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	62	scroller.borderWidth 1
2119 581ba258dd7d * empty log message * Claus Gittinger <cg@exept.de> parents: 2118 diff changeset	63	scroller.handleImage Image fromFile:'bitmaps/HandleNext.xpm'
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	64
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	65	button.edgeStyle #soft
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	66	button.activeLevel 1
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	67	button.passiveLevel 2
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	68	#if Display hasGreyscales
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	69	button.activeForegroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	70	button.activeBackgroundColor Color white
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	71	button.enteredBackgroundColor (Color lightGrey) exactOrNearestOn:(Screen current)
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	72	button.halfShadowColor =viewGrey darkened
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	73	button.halfLightColor Color white
152 17cc0709e898 . claus parents: 144 diff changeset	74	#else
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	75	button.activeBackgroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	76	button.activeForegroundColor Color white
152 17cc0709e898 . claus parents: 144 diff changeset	77	#endif
122 c84d8d1e8d48 Initial revision claus parents: diff changeset	78
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	79	popUpList.popPosition #shifted
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 152 diff changeset	80
2120 9935ecfd0f06 * empty log message * Claus Gittinger <cg@exept.de> parents: 2119 diff changeset	81	variableFont Font family:'helvetica' face:'medium' style:'roman' size:12
9935ecfd0f06 * empty log message * Claus Gittinger <cg@exept.de> parents: 2119 diff changeset	82	selection.font =variableFont
9935ecfd0f06 * empty log message * Claus Gittinger <cg@exept.de> parents: 2119 diff changeset	83	label.font =variableFont
1620 49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 498 diff changeset	84
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 498 diff changeset	85	#if Display hasGrayscales not
1948 6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	86	html.anchorUnderline true
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	87	html.anchorForegroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	88	html.backgroundColor Color white
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	89	html.activeAnchorForegroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	90	html.activeAnchorBackgroundColor =htmlBackgroundColor
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	91	html.visitedAnchorForegroundColor Color black
6a9b754ca6d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1857 diff changeset	92	html.exampleAnchorForegroundColor Color black
1620 49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 498 diff changeset	93	#endif
49812898bfe2 html defs for monochrome displays Claus Gittinger <cg@exept.de> parents: 498 diff changeset	94
2117 58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	95	checkToggle.activeImage Image fromFile:'bitmaps/CheckOnNext.xpm'
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	96	checkToggle.passiveImage Image fromFile:'bitmaps/CheckOffNext.xpm'
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	97	checkToggle.activeLevel 0
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	98	checkToggle.passiveLevel 0
58ca18b9ff4f * empty log message * Claus Gittinger <cg@exept.de> parents: 1948 diff changeset	99

author	Claus Gittinger <cg@exept.de>
	Tue, 19 May 1998 16:32:29 +0200
changeset 2120	9935ecfd0f06
parent 2119	581ba258dd7d
child 2122	a0e79be44383
permissions	-rw-r--r--