hg/stx-libview: styles/mswindows95.style@a95722bdec35 (annotated)

2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1	; View defaultStyle:#mswindows95
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2	;
2542 a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3	; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.19 1999-03-26 15:42:12 cg Exp $
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	comment 'win95 lookalike'
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	#if (Language == #german) or:[Language == #de]
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	comment 'an MS Windows95 angelehnter Stil'
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	#if (Language == #french) or:[Language == #fr]
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12	comment 'Un style qui r�semble MS Windows95'
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	is3D true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	name #win95
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
2542 a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	19	;
a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	20	; notice: the values below
a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	21	; are not used when running under native Windows
a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	22	; (uses system-settings values then)
a95722bdec35 * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	23	;
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	24	#if Display hasGreyscales
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	25
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	selectionBlue (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	; viewGrey (Color grey:67) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	viewGrey (Color grey:77) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	; viewLightGrey (Color grey:80) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	viewLightGrey (Color grey:90) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	lightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	halfShadowColor (Color grey:33) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	; halfLightColor (Color grey:67) exactOrNearestOn:(Screen current)
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	; halfLightColor Color white "/ grey:67
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	halfLightColor =viewGrey
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	37
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	#else
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	39
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	selectionBlue Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	viewGrey Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	viewLightGrey Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	lightColor Color grey:50
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	44
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	shadowColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	49	#if Display platformName = 'WIN32'
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	50
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	51	selectionBlue [Display getSystemColor:#'COLOR_HIGHLIGHT']
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	52	menu.backgroundColor [Display getSystemColor:#'COLOR_MENU' ]
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	53	menu.foregroundColor [Display getSystemColor:#'COLOR_MENUTEXT' ]
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	54	pullDownMenu.backgroundColor =menu.backgroundColor
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	55	viewGrey [Display getSystemColor:#'COLOR_BTNFACE' ]
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	56
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	57	#endif
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	58
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	59
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	borderWidth 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	viewBackground =viewGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	popup.borderWidth 1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	popup.shadow false
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64
2377 5c438f197b69 * empty log message * Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	65	#if Display width <= 640
2258 ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	66	font Font family:'helvetica' face:'medium' style:'roman' size:10
ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	67	textFont Font family:'courier' face:'medium' style:'roman' size:10
ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	68	#else
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	69	font Font family:'helvetica' face:'medium' style:'roman' size:12
d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	70	textFont Font family:'courier' face:'medium' style:'roman' size:12
2258 ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	71	#endif
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	72
2377 5c438f197b69 * empty log message * Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	73	#if (Display platformName = 'WIN32' and:[Display width <= 640])
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	74	font Font family:'MS SANS SERIF' size:8
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	75	textFont Font family:'courier' face:'medium' style:'roman' size:8
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	76	#endif
d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	77
2377 5c438f197b69 * empty log message * Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	78	#if (Display platformName = 'WIN32' and:[Display width > 640])
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	79	font Font family:'MS SANS SERIF' size:10
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	80	textFont Font family:'courier' face:'medium' style:'roman' size:10
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	81	#endif
2258 ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	82	menuFont =font
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	83
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	84
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	85	selection.font =font
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	86
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	87	focus.showBorder false
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	88	focus.takeOnClick true
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	89
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	90	textCursor.type #ibeam
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	91	textCursor.noFocusForegroundColor Color grey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	92
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	93	#if Display hasGrayscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	94	; editField.backgroundColor Color grey:90
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	95	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	96	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	97	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	98	editField.shadowColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	99	editField.lightColor Color grey:80
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	100	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102	checkToggle.activeLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	checkToggle.passiveLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	checkToggle.foregroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	105	checkToggle.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	106	checkToggle.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	checkToggle.activeBackgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	108	checkToggle.bitmapFile 'CheckOn10.xbm'
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110	#if Display hasGreyscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	112	menu.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	113	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115	menu.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	116	#endif
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	117	menu.buttonEnteredLevel 1
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	118	menu.buttonPassiveLevel 0
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	119	menu.buttonActiveLevel -1
2257 3707d66694fb * empty log message * Claus Gittinger <cg@exept.de> parents: 2256 diff changeset	120	menu.buttonItemSpace 2
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	121
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122	pullDownMenu.separatingLines false
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	pullDownMenu.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	selection.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	#if Display hasGrayscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	selection.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	selection.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131	selection.hilightFrameColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	selection.rightArrowLevel 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133	selection.rightArrowStyle #solid
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135	variablePanel.handlePosition #right
2373 0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	136	; variablePanel.handleStyle #full
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	137	variablePanel.handleStyle #none
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	138
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	139	#if Display serverVendor ~= 'Silicon Graphics'
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	140	; SGI Xserver has a bug, keeping the dashed lineStyle in its GC
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141	variablePanel.trackingStyle #dashedLine
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	142	#else
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	143	variablePanel.trackingStyle #solidLine
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	144	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	145
2373 0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	146	; variablePanel.barHeight 6
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	147	; variablePanel.handleLevel 1
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	148	variablePanel.barHeight 4
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	149	variablePanel.handleLevel 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	150
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	151	scrollableView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	152	; scrollableView.backgroundColor =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	153	scrolledView.borderWidth 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	154	scrolledView.level 0
2224 e2eeae864173 * empty log message * Claus Gittinger <cg@exept.de> parents: 2223 diff changeset	155	scrolledView.margin 1
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	156	scrollBar.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157	scrollBar.spacing 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	158	scrollBar.hiding true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	159	scrollBar.neverMini true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160	scrollBar.position #right
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161	scrollBar.buttonPositions #around
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	scrollBar.viewBackground =viewLightGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	163	scrollBar.elementSpacing 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	164
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165	#if Display hasGreyscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	166	scroller.viewBackground =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	167	scroller.thumbColor =viewGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	168	; scroller.thumbEdgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	169	scroller.thumbEdgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	170	scroller.thumbLightColor =viewGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	171	scroller.thumbHalfLightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	172	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	173	scroller.viewBackground Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	174	scroller.thumbColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	175	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	177	scroller.thumbLevel 2
2358 6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	178	# scroller.borderWidth 1
6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	179	scroller.borderWidth 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	180	scroller.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	181	scroller.ghostFrameColor Color darkGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	182	scroller.snapBack true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	183
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	184	;button.activeLevel 1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	185	button.activeLevel -1 "/ 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	186	button.passiveLevel 2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	187	#if Display hasGreyscales
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	188	; button.edgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	189	button.edgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	190	; button.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	191	; button.activeBackgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	192	; button.enteredBackgroundColor Color lightGrey
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	193	; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	194	button.halfShadowColor =halfShadowColor
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	195	button.halfLightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	196	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	197	button.activeBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	198	button.activeForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	199	; button.enteredBackgroundColor Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	200	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	201
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	202	radioButton.style #round3D
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	203
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	204	; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	205	; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	206	; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	207	; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	208	arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	209	arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	210	arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	211	arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	212
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	213	selection.rightArrowForm Image extent:16@12 depth:1 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	214	bits:#[ \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	215	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	216	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	217	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	218	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	219	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	220	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	221	2r00000011 2r11000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	222	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	223	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	224	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	225	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	226	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	227	] \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	228	pad:8
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	229
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	230	comboView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	231	comboView.downFormFile 'ScrollDn.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	232
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	233
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	234	html.backgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	235	; html.anchorForegroundColor Color green darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	236	; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	237	html.visitedAnchorForegroundColor Color red:50 green:0 blue:50
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	238	; html.anchorUnderlines true
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	239
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	240	activeHelp.backgroundColor Color yellow lightened
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	241	activeHelp.borderWidth 2
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	242
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	243	;
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	244	; if running under windows, use the systemColor settings
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	245	;
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	246	#if Display platformName = 'WIN32'
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	247
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	248	menu.backgroundColor [Display getSystemColor:#'COLOR_MENU' ]
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	249	menu.foregroundColor [Display getSystemColor:#'COLOR_MENUTEXT' ]
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	250	pullDownMenu.backgroundColor =menu.backgroundColor
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	251	button.backgroundColor [Display getSystemColor:#'COLOR_BTNFACE' ]
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	252	text.selectionForegroundColor [Display getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	253	text.selectionBackgroundColor [Display getSystemColor:#'COLOR_HIGHLIGHT' ]
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	254	scroller.thumbColor [Display getSystemColor:#'COLOR_BTNFACE' ]
2320 7f9a8969bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 2316 diff changeset	255	#endif
2315 3afbf1cf274d * empty log message * Claus Gittinger <cg@exept.de> parents: 2307 diff changeset	256
2316 ac23793e24ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2315 diff changeset	257	#if (Display platformName = 'WIN32') and:[(Display getSystemColor:#'COLOR_SCROLLBAR') brightness > 0.95]
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	258	scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Display) colorMap:(Array with:Color black with:(Display getSystemColor:#'COLOR_SCROLLBAR') )]
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	259	#endif
2316 ac23793e24ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2315 diff changeset	260	#if (Display platformName = 'WIN32') and:[(Display getSystemColor:#'COLOR_SCROLLBAR') brightness <= 0.95]
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	261	scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Display) colorMap:(Array with:Color white with:(Display getSystemColor:#'COLOR_SCROLLBAR') )]
2320 7f9a8969bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 2316 diff changeset	262	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	263
2458 92792582f878 * empty log message * Claus Gittinger <cg@exept.de> parents: 2377 diff changeset	264	warningBox.iconFile 'bitmaps/Warning_w95.xpm'

author	Claus Gittinger <cg@exept.de>
	Fri, 26 Mar 1999 16:42:12 +0100
changeset 2542	a95722bdec35
parent 2458	92792582f878
child 2551	e36d03ecaa14
permissions	-rw-r--r--