hg/stx-libview: styles/mswindows95.style@d5fcb2aa3181 (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	;
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	3	; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.25 1999-05-04 00:46:11 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])
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	79	font Font family:'MS SANS SERIF' size:9
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	80	textFont Font family:'courier' face:'medium' style:'roman' size:9
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	81	#endif
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	82
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	83	#if (Display platformName = 'WIN32' and:[Display width > 800])
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	84	font Font family:'MS SANS SERIF' size:10
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	85	textFont Font family:'courier' face:'medium' style:'roman' size:10
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	86	#endif
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	87
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	88	; No - leads to ugly look if boldified ...
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	89	;
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	90	; #if (Display platformName = 'WIN32')
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	91	; font Font name:'ANSI_VAR_FONT'
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	92	; #endif
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	93
2625 97f916fd12ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	94	menuFont =font
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	95	selection.font =font
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	96
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	97	focus.showBorder false
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	98	focus.takeOnClick true
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	99
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	100	textCursor.type #ibeam
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101	textCursor.noFocusForegroundColor Color grey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	#if Display hasGrayscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	; editField.backgroundColor Color grey:90
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	105	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	106	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108	editField.shadowColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109	editField.lightColor Color grey:80
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	112	checkToggle.activeLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	113	checkToggle.passiveLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114	checkToggle.foregroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115	checkToggle.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	116	checkToggle.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117	checkToggle.activeBackgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	118	checkToggle.bitmapFile 'CheckOn10.xbm'
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	120	#if Display hasGreyscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	121	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122	menu.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	menu.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	#endif
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	127	menu.buttonEnteredLevel 1
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	128	menu.buttonPassiveLevel 0
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	129	menu.buttonActiveLevel -1
2257 3707d66694fb * empty log message * Claus Gittinger <cg@exept.de> parents: 2256 diff changeset	130	menu.buttonItemSpace 2
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	pullDownMenu.separatingLines false
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133	pullDownMenu.level 0
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	selection.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	136	#if Display hasGrayscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137	selection.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	selection.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141	selection.hilightFrameColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	selection.rightArrowLevel 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143	selection.rightArrowStyle #solid
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	145	variablePanel.handlePosition #right
2373 0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	146	; variablePanel.handleStyle #full
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	147	variablePanel.handleStyle #none
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	148
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	149	#if Display serverVendor ~= 'Silicon Graphics'
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	150	; SGI Xserver has a bug, keeping the dashed lineStyle in its GC
2625 97f916fd12ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	151	; variablePanel.trackingStyle #dashedLine
97f916fd12ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	152	variablePanel.trackingStyle #dottedLine
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	153	#else
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	154	variablePanel.trackingStyle #solidLine
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	155	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	156
2373 0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	157	; variablePanel.barHeight 6
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	158	; variablePanel.handleLevel 1
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	159	variablePanel.barHeight 4
0ac9abce2387 variablePanels bar beautified Claus Gittinger <cg@exept.de> parents: 2358 diff changeset	160	variablePanel.handleLevel 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	scrollableView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163	; scrollableView.backgroundColor =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	164	scrolledView.borderWidth 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165	scrolledView.level 0
2224 e2eeae864173 * empty log message * Claus Gittinger <cg@exept.de> parents: 2223 diff changeset	166	scrolledView.margin 1
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	167	scrollBar.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	168	scrollBar.spacing 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	169	scrollBar.hiding true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	170	scrollBar.neverMini true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	171	scrollBar.position #right
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	172	scrollBar.buttonPositions #around
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	173	scrollBar.viewBackground =viewLightGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	174	scrollBar.elementSpacing 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	175
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176	#if Display hasGreyscales
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	177	scroller.viewBackground =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	178	scroller.thumbColor =viewGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	179	; scroller.thumbEdgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	180	scroller.thumbEdgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	181	scroller.thumbLightColor =viewGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	182	scroller.thumbHalfLightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	183	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	184	scroller.viewBackground Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	185	scroller.thumbColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	186	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	187
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	188	scroller.thumbLevel 2
2358 6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	189	# scroller.borderWidth 1
6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	190	scroller.borderWidth 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	191	scroller.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	192	scroller.ghostFrameColor Color darkGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	193	scroller.snapBack true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	194
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	195	;button.activeLevel 1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	196	button.activeLevel -1 "/ 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	197	button.passiveLevel 2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	198	#if Display hasGreyscales
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	199	; button.edgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	200	button.edgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	201	; button.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	202	; button.activeBackgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	203	; button.enteredBackgroundColor Color lightGrey
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	204	; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	205	button.halfShadowColor =halfShadowColor
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	206	button.halfLightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	207	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	208	button.activeBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	209	button.activeForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	210	; button.enteredBackgroundColor Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	211	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	212
2596 8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	213	radioButton.style #image
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	214	radioButton.passiveImageFile 'RadioOff_w95.xpm'
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	215	radioButton.activeImageFile 'RadioOnBits_w95.xbm'
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	216
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	217
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	218	; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	219	; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	220	; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	221	; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	222	arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	223	arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	224	arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	225	arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	226
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	227	selection.rightArrowForm Image extent:16@12 depth:1 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	228	bits:#[ \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	229	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	230	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	231	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	232	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	233	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	234	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	235	2r00000011 2r11000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	236	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	237	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	238	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	239	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	240	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	241	] \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	242	pad:8
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	243
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	244	comboView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	245	comboView.downFormFile 'ScrollDn.w95.11.xbm'.
2595 3a29d1fc72ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	246	comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'.
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	247
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	248
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	249	html.backgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	250	; html.anchorForegroundColor Color green darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	251	; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	252	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	253	; html.anchorUnderlines true
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	254
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	255	activeHelp.backgroundColor Color yellow lightened
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	256	activeHelp.borderWidth 2
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	257
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	258	;
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	259	; 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	260	;
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	261	#if Display platformName = 'WIN32'
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	262
2602 2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	263	menu.backgroundColor [Display getSystemColor:#'COLOR_MENU' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	264	menu.foregroundColor [Display getSystemColor:#'COLOR_MENUTEXT' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	265	pullDownMenu.backgroundColor =menu.backgroundColor
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	266	button.backgroundColor [Display getSystemColor:#'COLOR_BTNFACE' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	267	text.selectionForegroundColor [Display getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	268	text.selectionBackgroundColor [Display getSystemColor:#'COLOR_HIGHLIGHT' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	269	scroller.thumbColor [Display getSystemColor:#'COLOR_BTNFACE' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	270	scroller.vScrollerWidth 16 "/ [Display getSystemMetrics:#'SM_CXVSCROLL' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	271	scroller.hScrollerHeight 16 "/ [Display getSystemMetrics:#'SM_CYHSCROLL' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	272	scrollBar.vScrollBarWidth 16 "/ [Display getSystemMetrics:#'SM_CXVSCROLL' ]
2d8af0930e87 * empty log message * Claus Gittinger <cg@exept.de> parents: 2596 diff changeset	273	scrollBar.hScrollBarHeight 16 "/ [Display getSystemMetrics:#'SM_CYHSCROLL' ]
2551 e36d03ecaa14 * empty log message * Claus Gittinger <cg@exept.de> parents: 2542 diff changeset	274	selection.hilightForegroundColor [Display getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
e36d03ecaa14 * empty log message * Claus Gittinger <cg@exept.de> parents: 2542 diff changeset	275	selection.hilightBackgroundColor [Display getSystemColor:#'COLOR_HIGHLIGHT' ]
e36d03ecaa14 * empty log message * Claus Gittinger <cg@exept.de> parents: 2542 diff changeset	276
2320 7f9a8969bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 2316 diff changeset	277	#endif
2315 3afbf1cf274d * empty log message * Claus Gittinger <cg@exept.de> parents: 2307 diff changeset	278
2316 ac23793e24ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2315 diff changeset	279	#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	280	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	281	#endif
2316 ac23793e24ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2315 diff changeset	282	#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	283	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	284	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	285
2458 92792582f878 * empty log message * Claus Gittinger <cg@exept.de> parents: 2377 diff changeset	286	warningBox.iconFile 'bitmaps/Warning_w95.xpm'

author	Claus Gittinger <cg@exept.de>
	Tue, 04 May 1999 02:46:11 +0200
changeset 2629	d5fcb2aa3181
parent 2625	97f916fd12ad
child 2991	918e2f570098
permissions	-rw-r--r--