378 #'checkToggle.labelOverMargin' |
378 #'checkToggle.labelOverMargin' |
379 #'checkToggle.style')> |
379 #'checkToggle.style')> |
380 |
380 |
381 |checkFileName checkStyle| |
381 |checkFileName checkStyle| |
382 |
382 |
383 DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'. |
383 DefaultCheckColor := StyleSheet colorAt:#'checkToggle.checkColor'. |
384 DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'. |
384 DefaultFGColor := StyleSheet colorAt:#'checkToggle.foregroundColor'. |
385 DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'. |
385 DefaultBGColor := StyleSheet colorAt:#'checkToggle.backgroundColor'. |
386 DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'. |
386 DefaultActiveFGColor := StyleSheet colorAt:#'checkToggle.activeForegroundColor'. |
387 DefaultActiveBGColor := StyleSheet colorAt:'checkToggle.activeBackgroundColor'. |
387 DefaultActiveBGColor := StyleSheet colorAt:#'checkToggle.activeBackgroundColor'. |
388 DefaultActiveLevel := StyleSheet at:'checkToggle.activeLevel'. |
388 DefaultActiveLevel := StyleSheet at:#'checkToggle.activeLevel'. |
389 DefaultPassiveLevel := StyleSheet at:'checkToggle.passiveLevel'. |
389 DefaultPassiveLevel := StyleSheet at:#'checkToggle.passiveLevel'. |
390 DefaultBorderWidth := StyleSheet at:'checkToggle.borderWidth'. |
390 DefaultBorderWidth := StyleSheet at:#'checkToggle.borderWidth'. |
391 LabelOverMargin := StyleSheet at:'checkToggle.labelOverMargin' default:false. |
391 LabelOverMargin := StyleSheet at:#'checkToggle.labelOverMargin' default:false. |
392 |
392 |
393 DefaultCheckForm := nil. |
393 DefaultCheckForm := nil. |
394 checkFileName := StyleSheet at:'checkToggle.bitmapFile' default:'CheckOn.xbm'. |
394 checkFileName := StyleSheet at:#'checkToggle.bitmapFile' default:'CheckOn.xbm'. |
395 checkFileName notNil ifTrue:[ |
395 checkFileName notNil ifTrue:[ |
396 DefaultCheckForm := Image fromFile:checkFileName |
396 DefaultCheckForm := Image fromFile:checkFileName |
397 resolution:100 |
397 resolution:100 |
398 on:Display. |
398 on:Display. |
399 DefaultCheckForm isNil ifTrue:[ |
399 DefaultCheckForm isNil ifTrue:[ |
401 resolution:100 |
401 resolution:100 |
402 on:Display. |
402 on:Display. |
403 ] |
403 ] |
404 ]. |
404 ]. |
405 DefaultCheckForm isNil ifTrue:[ |
405 DefaultCheckForm isNil ifTrue:[ |
406 checkStyle := StyleSheet at:'checkToggle.style' default:#check. |
406 checkStyle := StyleSheet at:#'checkToggle.style' default:#check. |
407 DefaultCheckForm := self checkImageForStyle:checkStyle |
407 DefaultCheckForm := self checkImageForStyle:checkStyle |
408 ]. |
408 ]. |
409 StyleSheet name == #os2 ifTrue: [ |
409 StyleSheet name == #os2 ifTrue: [ |
410 DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15) |
410 DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15) |
411 ]. |
411 ]. |
412 |
412 |
413 DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'. |
413 DefaultActiveImage := StyleSheet at:#'checkToggle.activeImage'. |
414 DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'. |
414 DefaultPassiveImage := StyleSheet at:#'checkToggle.passiveImage'. |
415 |
415 |
416 " |
416 " |
417 self updateStyleCache |
417 self updateStyleCache |
418 " |
418 " |
419 |
419 |