hg/stx-libview: styles/mswindows95.style@746e0a7b1475 (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	;
3720 746e0a7b1475 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	3	; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.41 2002-09-05 16:16:34 cg Exp $
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
3716 d7739a80eac8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3714 diff changeset	5	comment 'win95/nt/xp lookalike'
2100 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	;
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	24	#if Screen current hasGreyscales
2307 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
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	49	#if Screen current platformName = 'WIN32'
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	50
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	51	selectionBlue [Screen current getSystemColor:#'COLOR_HIGHLIGHT']
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	52	menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	53	menu.foregroundColor [Screen current 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
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	55	viewGrey [Screen current 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
3176 f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	62	focusStyle #win95
3491 856c016bf8a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	63	focusHighlightStyle #win95
3176 f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	64
3168 65e94175ec81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2991 diff changeset	65	popup.borderWidth 1
65e94175ec81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2991 diff changeset	66	popup.shadow false
65e94175ec81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2991 diff changeset	67	popup.level 1
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68
3714 84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	69	;
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	70	; this reverses the ok-cancel order in dialogs;
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	71	; some may be used to ok being on the left ...
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	72	;
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	73	dialogBox.okAtLeft true
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	74
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	75	#if Screen current width <= 640
2258 ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	76	font Font family:'helvetica' face:'medium' style:'roman' size:10
ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	77	textFont Font family:'courier' face:'medium' style:'roman' size:10
ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	78	#else
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	79	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	80	textFont Font family:'courier' face:'medium' style:'roman' size:12
2258 ca38e3e5e3e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2257 diff changeset	81	#endif
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	82
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	83	#if (Screen current platformName = 'WIN32' and:[Screen current width <= 640])
3269 248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	84	font Font family:'ARIAL' size:8
248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	85	; font Font family:'MS SANS SERIF' size:8
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	86	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	87	#endif
d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	88
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	89	#if (Screen current platformName = 'WIN32' and:[Screen current width > 640])
3269 248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	90	font Font family:'ARIAL' size:9
248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	91	; font Font family:'MS SANS SERIF' size:9
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	92	textFont Font family:'courier' face:'medium' style:'roman' size:9
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	93	#endif
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	94
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	95	#if (Screen current platformName = 'WIN32' and:[Screen current width > 800])
3269 248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	96	font Font family:'ARIAL' size:10
248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	97	; font Font family:'MS SANS SERIF' size:10
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	98	textFont Font family:'courier' face:'medium' style:'roman' size:10
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	99	#endif
13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	100
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	101	; No - leads to ugly look if boldified ...
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	102	;
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	103	; #if (Screen current platformName = 'WIN32')
2629 d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	104	; font Font name:'ANSI_VAR_FONT'
d5fcb2aa3181 * empty log message * Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	105	; #endif
2223 13f60105fce6 oops Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	106
2625 97f916fd12ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	107	menuFont =font
2222 d3552234eb8e use MS fonts, if running native Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	108	selection.font =font
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	110	focus.showBorder false
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	111	focus.takeOnClick true
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	112
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	113	textCursor.type #ibeam
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114	textCursor.noFocusForegroundColor Color grey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	116	#if Screen current hasGrayscales
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117	; editField.backgroundColor Color grey:90
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	120	editField.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	121	editField.shadowColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122	editField.lightColor Color grey:80
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	#endif
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	checkToggle.activeLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	checkToggle.passiveLevel -2
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	checkToggle.foregroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	checkToggle.backgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	checkToggle.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	checkToggle.activeBackgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	131	checkToggle.bitmapFile 'CheckOn10.xbm'
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	133	#if Screen current hasGreyscales
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135	menu.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	136	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137	menu.hilightForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	menu.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	#endif
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	140	menu.buttonEnteredLevel 1
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	141	menu.buttonPassiveLevel 0
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	142	menu.buttonActiveLevel -1
2257 3707d66694fb * empty log message * Claus Gittinger <cg@exept.de> parents: 2256 diff changeset	143	menu.buttonItemSpace 2
2100 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	pullDownMenu.separatingLines false
3702 39cb49a47bc1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3580 diff changeset	146	;; pullDownMenu.level 0
39cb49a47bc1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3580 diff changeset	147	pullDownMenu.level 1
3176 f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	148	pullDownMenu.menuLevel 1
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	149
3176 f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	150	selection.hilightStyle #win95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	151	selection.hilightForegroundColor Color white
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	152	#if Screen current hasGrayscales
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	153	selection.hilightBackgroundColor =selectionBlue
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	154	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	155	selection.hilightBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	156	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157	selection.hilightFrameColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	158	selection.rightArrowLevel 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	159	selection.rightArrowStyle #solid
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160
3272 6ac25be0724a * empty log message * Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	161	variablePanel.handlePosition #left
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	162
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	163	#if Screen current serverVendor ~= 'Silicon Graphics'
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	164	; 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	165	; variablePanel.trackingStyle #dashedLine
97f916fd12ad * empty log message * Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	166	variablePanel.trackingStyle #dottedLine
2209 bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	167	#else
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	168	variablePanel.trackingStyle #solidLine
bffedf5daffb oops - SGI server has a bug showing dashed lines. Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	169	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	170
3268 8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	171	variablePanel.showHandle false "/ the default; can be overwritten by UI-spec
8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	172
8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	173	; variablePanel.barHeight 4
8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	174	; variablePanel.handleLevel 0
8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	175
3269 248995eb2c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3268 diff changeset	176	variablePanel.barHeight 8
3268 8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	177	variablePanel.handleLevel 1
8a644dae0f61 * empty log message * Claus Gittinger <cg@exept.de> parents: 3176 diff changeset	178	variablePanel.handleStyle #full
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	179
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	180	scrollableView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	181	; scrollableView.backgroundColor =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	182	scrolledView.borderWidth 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	183	scrolledView.level 0
2224 e2eeae864173 * empty log message * Claus Gittinger <cg@exept.de> parents: 2223 diff changeset	184	scrolledView.margin 1
3176 f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	185	scrolledView.zeroOffsets true
f14d2900bb5e * empty log message * Claus Gittinger <cg@exept.de> parents: 3168 diff changeset	186
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	187	scrollBar.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	188	scrollBar.spacing 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	189	scrollBar.hiding true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	190	scrollBar.neverMini true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	191	scrollBar.position #right
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	192	scrollBar.buttonPositions #around
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	193	scrollBar.viewBackground =viewLightGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	194	scrollBar.elementSpacing 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	195
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	196	#if Screen current hasGreyscales
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	197	scroller.viewBackground =viewLightGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	198	scroller.thumbColor =viewGrey
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	199	; scroller.thumbEdgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	200	scroller.thumbEdgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	201	scroller.thumbLightColor =viewGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	202	scroller.thumbHalfLightColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	203	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	204	scroller.viewBackground Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	205	scroller.thumbColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	206	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	207
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	208	scroller.thumbLevel 2
2358 6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	209	# scroller.borderWidth 1
6f0f348ccd81 * empty log message * Claus Gittinger <cg@exept.de> parents: 2349 diff changeset	210	scroller.borderWidth 0
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	211	scroller.level 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	212	scroller.ghostFrameColor Color darkGrey
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	213	scroller.snapBack true
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	214
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	215	;button.activeLevel 1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	216	button.activeLevel -1 "/ 0
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	217	button.passiveLevel 2
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	218	#if Screen current hasGreyscales
2256 4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	219	; button.edgeStyle #soft
4b28e93d8d8c changed for buttonPanel Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	220	button.edgeStyle #softWin95
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	221	; button.activeForegroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	222	; button.activeBackgroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	223	; button.enteredBackgroundColor Color lightGrey
2349 f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	224	; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
f72580f54ff1 use blocks for systemColor settings Claus Gittinger <cg@exept.de> parents: 2320 diff changeset	225	button.halfShadowColor =halfShadowColor
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	226	button.halfLightColor Color white
3580 134a054d0383 '' Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	227	button.disabledEtchedForegroundColor Color white
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	228	#else
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	229	button.activeBackgroundColor Color black
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	230	button.activeForegroundColor Color white
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	231	; button.enteredBackgroundColor Color grey:87.5
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	232	#endif
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	233
2596 8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	234	radioButton.style #image
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	235	radioButton.passiveImageFile 'RadioOff_w95.xpm'
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	236	radioButton.activeImageFile 'RadioOnBits_w95.xbm'
8d68fb9aed0b nicer radioButtons Claus Gittinger <cg@exept.de> parents: 2595 diff changeset	237
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	238
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	239	; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	240	; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	241	; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	242	; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	243	arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	244	arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	245	arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	246	arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
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	selection.rightArrowForm Image extent:16@12 depth:1 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	249	bits:#[ \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	250	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	251	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	252	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	253	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	254	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	255	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	256	2r00000011 2r11000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	257	2r00000011 2r10000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	258	2r00000011 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	259	2r00000010 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	260	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	261	2r00000000 2r00000000 \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	262	] \
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	263	pad:8
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	264
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	265	comboView.level -1
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	266	comboView.downFormFile 'ScrollDn.w95.11.xbm'.
2595 3a29d1fc72ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	267	comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'.
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	268
3720 746e0a7b1475 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	269	comboView.downFormFile 'ScrollDn.xp.xpm'.
746e0a7b1475 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	270	comboView.disabledDownFormFile 'ScrollDn_disabled.xp.xpm'.
746e0a7b1475 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	271
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	272
776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	273	html.backgroundColor Color white
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	274	; html.anchorForegroundColor Color green darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	275	; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	276	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	277	; html.anchorUnderlines true
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	278
3705 94bb084e5fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3702 diff changeset	279	dataSet.labelView.level 0
94bb084e5fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3702 diff changeset	280
3580 134a054d0383 '' Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	281	activeHelp.backgroundColor Color yellow lightened lightened lightened
2100 776dd0170dc1 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	282	activeHelp.borderWidth 2
3580 134a054d0383 '' Claus Gittinger <cg@exept.de> parents: 3578 diff changeset	283	activeHelp.font Font family:'helvetica' face:'medium' style:'roman' size:8
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	284
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	285	;
c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	286	; 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	287	;
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	288	#if Screen current platformName = 'WIN32'
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	289
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	290	menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	291	menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ]
3714 84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	292	pullDownMenu.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
84947d7fb23d * empty log message * Claus Gittinger <cg@exept.de> parents: 3705 diff changeset	293	;; pullDownMenu.backgroundColor =menu.backgroundColor
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	294	button.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	295	text.selectionForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	296	text.selectionBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ]
3716 d7739a80eac8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3714 diff changeset	297	text.alternativeSelectionForegroundColor Color black
d7739a80eac8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3714 diff changeset	298	;; text.alternativeSelectionBackgroundColor Color redByte:255 greenByte:255 blueByte:204
d7739a80eac8 * empty log message * Claus Gittinger <cg@exept.de> parents: 3714 diff changeset	299	text.alternativeSelectionBackgroundColor =text.selectionBackgroundColor lightened
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	300	scroller.thumbColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	301	scroller.vScrollerWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	302	scroller.hScrollerHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	303	scrollBar.vScrollBarWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	304	scrollBar.hScrollBarHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	305	selection.hilightForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	306	selection.hilightBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ]
2551 e36d03ecaa14 * empty log message * Claus Gittinger <cg@exept.de> parents: 2542 diff changeset	307
2320 7f9a8969bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 2316 diff changeset	308	#endif
2315 3afbf1cf274d * empty log message * Claus Gittinger <cg@exept.de> parents: 2307 diff changeset	309
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	310	#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness > 0.95]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	311	scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Screen current) colorMap:(Array with:Color black with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	312	#endif
2991 918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	313	#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness <= 0.95]
918e2f570098 removed all direct references to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2629 diff changeset	314	scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Screen current) colorMap:(Array with:Color white with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
2320 7f9a8969bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 2316 diff changeset	315	#endif
2307 c61ba06af749 if running under native windows, use the systemColors Claus Gittinger <cg@exept.de> parents: 2258 diff changeset	316
2458 92792582f878 * empty log message * Claus Gittinger <cg@exept.de> parents: 2377 diff changeset	317	warningBox.iconFile 'bitmaps/Warning_w95.xpm'
3547 b844fd8e81c2 * empty log message * Claus Gittinger <cg@exept.de> parents: 3491 diff changeset	318	requestBox.iconFile 'bitmaps/Request_w95.xpm'
3550 675028a65fb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 3547 diff changeset	319	errorBox.iconFile 'bitmaps/Error_w95.xpm'

author	Claus Gittinger <cg@exept.de>
	Thu, 05 Sep 2002 18:16:34 +0200
changeset 3720	746e0a7b1475
parent 3716	d7739a80eac8
child 3725	ecbc42849fea
permissions	-rw-r--r--