229 to share the same check-image." |
229 to share the same check-image." |
230 |
230 |
231 ^ DefaultCheckForm on:aDevice. |
231 ^ DefaultCheckForm on:aDevice. |
232 ! |
232 ! |
233 |
233 |
234 updateStyleCache |
234 checkImageForStyle:aStyleSymbol |
235 "extract values from the styleSheet and cache them in class variables" |
235 "helper & public access to useful checkToggle images" |
236 |
236 |
237 <resource: #style (#checkToggleCheckColor |
237 |bits| |
238 #checkToggleBackgroundColor #checkToggleForegroundColor |
238 |
239 #checkToggleActiveBackgroundColor #checkToggleActiveForegroundColor |
239 aStyleSymbol == #cross ifTrue:[ |
240 #checkToggleActiveLevel #checkTogglePassiveLevel |
240 bits := #[2r10000000 2r00000001 |
241 #checkToggleBorderWidth |
241 2r01000000 2r00000010 |
242 #checkToggleBitmapFile |
242 2r00100000 2r00000100 |
243 #checkToggleLabelOverMargin |
243 2r00010000 2r00001000 |
244 #checkToggleStyle)> |
244 2r00001000 2r00010000 |
245 |
245 2r00000100 2r00100000 |
246 |checkFileName bits checkStyle| |
246 2r00000010 2r01000000 |
247 |
247 2r00000001 2r10000000 |
248 DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'. |
248 2r00000001 2r10000000 |
249 DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'. |
249 2r00000010 2r01000000 |
250 DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'. |
250 2r00000100 2r00100000 |
251 DefaultActiveFGColor := StyleSheet colorAt:'checkToggleActiveForegroundColor'. |
251 2r00001000 2r00010000 |
252 DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'. |
252 2r00010000 2r00001000 |
253 DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'. |
253 2r00100000 2r00000100 |
254 DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'. |
254 2r01000000 2r00000010 |
255 DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'. |
255 2r10000000 2r00000001] |
256 LabelOverMargin := StyleSheet at:'checkToggleLabelOverMargin' default:false. |
256 ] ifFalse:[ |
257 |
257 aStyleSymbol == #borderedCross ifTrue:[ |
258 DefaultCheckForm := nil. |
258 bits := #[2r11111111 2r11111111 |
259 checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'. |
259 2r11000000 2r00000011 |
260 checkFileName notNil ifTrue:[ |
260 2r10100000 2r00000101 |
261 DefaultCheckForm := Image fromFile:checkFileName |
261 2r10010000 2r00001001 |
262 resolution:100 |
262 2r10001000 2r00010001 |
263 on:Display. |
263 2r10000100 2r00100001 |
264 DefaultCheckForm isNil ifTrue:[ |
264 2r10000010 2r01000001 |
265 DefaultCheckForm := Image fromFile:'bitmaps/' , checkFileName |
265 2r10000001 2r10000001 |
266 resolution:100 |
266 2r10000001 2r10000001 |
267 on:Display. |
267 2r10000010 2r01000001 |
268 ] |
268 2r10000100 2r00100001 |
269 ]. |
269 2r10001000 2r00010001 |
270 DefaultCheckForm isNil ifTrue:[ |
270 2r10010000 2r00001001 |
271 checkStyle := StyleSheet at:'checkToggleStyle' default:#check. |
271 2r10100000 2r00000101 |
272 checkStyle == #cross ifTrue:[ |
272 2r11000000 2r00000011 |
273 bits := #[2r10000000 2r00000001 |
273 2r11111111 2r11111111] |
274 2r01000000 2r00000010 |
|
275 2r00100000 2r00000100 |
|
276 2r00010000 2r00001000 |
|
277 2r00001000 2r00010000 |
|
278 2r00000100 2r00100000 |
|
279 2r00000010 2r01000000 |
|
280 2r00000001 2r10000000 |
|
281 2r00000001 2r10000000 |
|
282 2r00000010 2r01000000 |
|
283 2r00000100 2r00100000 |
|
284 2r00001000 2r00010000 |
|
285 2r00010000 2r00001000 |
|
286 2r00100000 2r00000100 |
|
287 2r01000000 2r00000010 |
|
288 2r10000000 2r00000001] |
|
289 |
|
290 ] ifFalse:[ |
274 ] ifFalse:[ |
291 checkStyle == #fatcross ifTrue:[ |
275 aStyleSymbol == #fatcross ifTrue:[ |
292 bits := #[2r11000000 2r00000011 |
276 bits := #[2r11000000 2r00000011 |
293 2r11100000 2r00000111 |
277 2r11100000 2r00000111 |
294 2r01110000 2r00001110 |
278 2r01110000 2r00001110 |
295 2r00111000 2r00011100 |
279 2r00111000 2r00011100 |
296 2r00011100 2r00111000 |
280 2r00011100 2r00111000 |
304 2r00111000 2r00011100 |
288 2r00111000 2r00011100 |
305 2r01110000 2r00001110 |
289 2r01110000 2r00001110 |
306 2r11100000 2r00000111 |
290 2r11100000 2r00000111 |
307 2r11000000 2r00000011] |
291 2r11000000 2r00000011] |
308 ] ifFalse:[ |
292 ] ifFalse:[ |
309 bits := #[2r00000000 2r00000000 |
293 aStyleSymbol == #borderedFatcross ifTrue:[ |
310 2r00000000 2r00000010 |
294 bits := #[2r11111111 2r11111111 |
311 2r00000000 2r00000010 |
295 2r11100000 2r00000111 |
312 2r00000000 2r00000100 |
296 2r11110000 2r00001111 |
313 2r00000000 2r00000100 |
297 2r10111000 2r00011101 |
314 2r00000000 2r00001000 |
298 2r10011100 2r00111001 |
315 2r00000000 2r00001000 |
299 2r10001110 2r01110001 |
316 2r00000000 2r00010000 |
300 2r10000111 2r11100001 |
317 2r01000000 2r00110000 |
301 2r10000011 2r11000001 |
318 2r00100000 2r01100000 |
302 2r10000011 2r11000001 |
319 2r00011000 2r01100000 |
303 2r10000111 2r11100001 |
320 2r00001110 2r11000000 |
304 2r10001110 2r01110001 |
321 2r00000111 2r11000000 |
305 2r10011100 2r00111001 |
322 2r00000011 2r10000000 |
306 2r10111000 2r00011101 |
323 2r00000001 2r10000000 |
307 2r11110000 2r00001111 |
324 2r00000000 2r00000000] |
308 2r11100000 2r00000111 |
|
309 2r11111111 2r11111111] |
|
310 ] ifFalse:[ |
|
311 aStyleSymbol == #border ifTrue:[ |
|
312 bits := #[2r11111111 2r11111111 |
|
313 2r10000000 2r00000001 |
|
314 2r10000000 2r00000001 |
|
315 2r10000000 2r00000001 |
|
316 2r10000000 2r00000001 |
|
317 2r10000000 2r00000001 |
|
318 2r10000000 2r00000001 |
|
319 2r10000000 2r00000001 |
|
320 2r10000000 2r00000001 |
|
321 2r10000000 2r00000001 |
|
322 2r10000000 2r00000001 |
|
323 2r10000000 2r00000001 |
|
324 2r10000000 2r00000001 |
|
325 2r10000000 2r00000001 |
|
326 2r10000000 2r00000001 |
|
327 2r11111111 2r11111111] |
|
328 ] ifFalse:[ |
|
329 bits := #[2r00000000 2r00000000 |
|
330 2r00000000 2r00000010 |
|
331 2r00000000 2r00000010 |
|
332 2r00000000 2r00000100 |
|
333 2r00000000 2r00000100 |
|
334 2r00000000 2r00001000 |
|
335 2r00000000 2r00001000 |
|
336 2r00000000 2r00010000 |
|
337 2r01000000 2r00110000 |
|
338 2r00100000 2r01100000 |
|
339 2r00011000 2r01100000 |
|
340 2r00001110 2r11000000 |
|
341 2r00000111 2r11000000 |
|
342 2r00000011 2r10000000 |
|
343 2r00000001 2r10000000 |
|
344 2r00000000 2r00000000] |
|
345 ] |
|
346 ] |
325 ] |
347 ] |
326 ]. |
348 ] |
327 DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display |
349 ]. |
|
350 ^ Form width:16 height:16 fromArray:bits on:Display |
|
351 |
|
352 " |
|
353 self checkImageForStyle:#cross |
|
354 self checkImageForStyle:#fatcross |
|
355 self checkImageForStyle:#borderedCross |
|
356 self checkImageForStyle:#borderedFatcross |
|
357 " |
|
358 |
|
359 "Modified: 7.3.1997 / 21:15:13 / cg" |
|
360 ! |
|
361 |
|
362 updateStyleCache |
|
363 "extract values from the styleSheet and cache them in class variables" |
|
364 |
|
365 <resource: #style (#checkToggleCheckColor |
|
366 #checkToggleBackgroundColor #checkToggleForegroundColor |
|
367 #checkToggleActiveBackgroundColor #checkToggleActiveForegroundColor |
|
368 #checkToggleActiveLevel #checkTogglePassiveLevel |
|
369 #checkToggleBorderWidth |
|
370 #checkToggleBitmapFile |
|
371 #checkToggleLabelOverMargin |
|
372 #checkToggleStyle)> |
|
373 |
|
374 |checkFileName bits checkStyle| |
|
375 |
|
376 DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'. |
|
377 DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'. |
|
378 DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'. |
|
379 DefaultActiveFGColor := StyleSheet colorAt:'checkToggleActiveForegroundColor'. |
|
380 DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'. |
|
381 DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'. |
|
382 DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'. |
|
383 DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'. |
|
384 LabelOverMargin := StyleSheet at:'checkToggleLabelOverMargin' default:false. |
|
385 |
|
386 DefaultCheckForm := nil. |
|
387 checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'. |
|
388 checkFileName notNil ifTrue:[ |
|
389 DefaultCheckForm := Image fromFile:checkFileName |
|
390 resolution:100 |
|
391 on:Display. |
|
392 DefaultCheckForm isNil ifTrue:[ |
|
393 DefaultCheckForm := Image fromFile:'bitmaps/' , checkFileName |
|
394 resolution:100 |
|
395 on:Display. |
|
396 ] |
|
397 ]. |
|
398 DefaultCheckForm isNil ifTrue:[ |
|
399 checkStyle := StyleSheet at:'checkToggleStyle' default:#check. |
|
400 DefaultCheckForm := self checkImageForStyle:checkStyle |
328 ] |
401 ] |
329 |
402 |
330 " |
403 " |
331 self updateStyleCache |
404 self updateStyleCache |
332 " |
405 " |