7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:09:21 pm' ! |
12 |
14 |
13 Toggle subclass:#CheckToggle |
15 Toggle subclass:#CheckToggle |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
17 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
16 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
18 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
360 ! |
362 ! |
361 |
363 |
362 updateStyleCache |
364 updateStyleCache |
363 "extract values from the styleSheet and cache them in class variables" |
365 "extract values from the styleSheet and cache them in class variables" |
364 |
366 |
365 <resource: #style (#checkToggleCheckColor |
367 <resource: #style (#'checkToggle.checkColor' |
366 #checkToggleBackgroundColor #checkToggleForegroundColor |
368 #'checkToggle.backgroundColor' #'checkToggleForegroundColor' |
367 #checkToggleActiveBackgroundColor #checkToggleActiveForegroundColor |
369 #'checkToggle.activeBackgroundColor' #'checkToggleActiveForegroundColor' |
368 #checkToggleActiveLevel #checkTogglePassiveLevel |
370 #'checkToggle.activeLevel' #'checkTogglePassiveLevel' |
369 #checkToggleBorderWidth |
371 #'checkToggle.borderWidth' |
370 #checkToggleBitmapFile |
372 #'checkToggle.bitmapFile' |
371 #checkToggleLabelOverMargin |
373 #'checkToggle.labelOverMargin' |
372 #checkToggleStyle)> |
374 #'checkToggle.style')> |
373 |
375 |
374 |checkFileName checkStyle| |
376 |checkFileName checkStyle| |
375 |
377 |
376 DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'. |
378 DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'. |
377 DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'. |
379 DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'. |
378 DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'. |
380 DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'. |
379 DefaultActiveFGColor := StyleSheet colorAt:'checkToggleActiveForegroundColor'. |
381 DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'. |
380 DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'. |
382 DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'. |
381 DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'. |
383 DefaultActiveLevel := StyleSheet at:'checkToggle.activeLevel'. |
382 DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'. |
384 DefaultPassiveLevel := StyleSheet at:'checkToggle.passiveLevel'. |
383 DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'. |
385 DefaultBorderWidth := StyleSheet at:'checkToggle.borderWidth'. |
384 LabelOverMargin := StyleSheet at:'checkToggleLabelOverMargin' default:false. |
386 LabelOverMargin := StyleSheet at:'checkToggle.labelOverMargin' default:false. |
385 |
387 |
386 DefaultCheckForm := nil. |
388 DefaultCheckForm := nil. |
387 checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'. |
389 checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'. |
388 checkFileName notNil ifTrue:[ |
390 checkFileName notNil ifTrue:[ |
389 DefaultCheckForm := Image fromFile:checkFileName |
391 DefaultCheckForm := Image fromFile:checkFileName |
390 resolution:100 |
392 resolution:100 |
391 on:Display. |
393 on:Display. |
392 DefaultCheckForm isNil ifTrue:[ |
394 DefaultCheckForm isNil ifTrue:[ |
394 resolution:100 |
396 resolution:100 |
395 on:Display. |
397 on:Display. |
396 ] |
398 ] |
397 ]. |
399 ]. |
398 DefaultCheckForm isNil ifTrue:[ |
400 DefaultCheckForm isNil ifTrue:[ |
399 checkStyle := StyleSheet at:'checkToggleStyle' default:#check. |
401 checkStyle := StyleSheet at:'checkToggle.style' default:#check. |
400 DefaultCheckForm := self checkImageForStyle:checkStyle |
402 DefaultCheckForm := self checkImageForStyle:checkStyle |
401 ] |
403 ] |
402 |
404 |
403 " |
405 " |
404 self updateStyleCache |
406 self updateStyleCache |
405 " |
407 " |
406 |
408 |
407 "Modified: 7.3.1997 / 21:15:13 / cg" |
409 "Modified: 20.10.1997 / 13:53:33 / cg" |
408 ! ! |
410 ! ! |
409 |
411 |
410 !CheckToggle methodsFor:'initialization'! |
412 !CheckToggle methodsFor:'initialization'! |
411 |
413 |
412 initStyle |
414 initStyle |