27 buttonHalfLightColor buttonHalfShadowColor checkToggleExtent |
27 buttonHalfLightColor buttonHalfShadowColor checkToggleExtent |
28 checkToggleForm checkToggleActiveImage checkTogglePassiveImage |
28 checkToggleForm checkToggleActiveImage checkTogglePassiveImage |
29 checkToggleLevel comboButtonExtent comboButtonForm |
29 checkToggleLevel comboButtonExtent comboButtonForm |
30 comboButtonLevel clickPosition dragAccessPoint dragIsActive |
30 comboButtonLevel clickPosition dragAccessPoint dragIsActive |
31 dropTarget dropSource columnAdaptor tabAtEndAction |
31 dropTarget dropSource columnAdaptor tabAtEndAction |
32 tabAtStartAction modifiedChannel autoScroll autoScrollBlock' |
32 tabAtStartAction modifiedChannel autoScroll autoScrollBlock |
|
33 scrollWhenUpdating' |
33 classVariableNames:'DefaultForegroundColor DefaultBackgroundColor |
34 classVariableNames:'DefaultForegroundColor DefaultBackgroundColor |
34 DefaultHilightForegroundColor DefaultHilightBackgroundColor |
35 DefaultHilightForegroundColor DefaultHilightBackgroundColor |
35 ButtonLightColor ButtonShadowColor CheckToggleActiveImage |
36 ButtonLightColor ButtonShadowColor CheckToggleActiveImage |
36 CheckTogglePassiveImage ButtonHalfLightColor |
37 CheckTogglePassiveImage ButtonHalfLightColor |
37 ButtonHalfShadowColor ButtonEdgeStyle CheckToggleForm |
38 ButtonHalfShadowColor ButtonEdgeStyle CheckToggleForm |
477 ^ labelView opaqueColumnResize |
478 ^ labelView opaqueColumnResize |
478 ! |
479 ! |
479 |
480 |
480 opaqueColumnResize:aBoolean |
481 opaqueColumnResize:aBoolean |
481 labelView opaqueColumnResize:aBoolean |
482 labelView opaqueColumnResize:aBoolean |
|
483 ! |
|
484 |
|
485 scrollWhenUpdating |
|
486 "return the scroll behavior, when I get a new text |
|
487 (via the model or the #contents/#list) |
|
488 Possible returnValues are: |
|
489 #keep / nil -> no change |
|
490 #endOfText -> scroll to the end |
|
491 #beginOfText -> scroll to the top |
|
492 The default is #beginOfText. |
|
493 This may be useful for fields which get new values assigned from |
|
494 the program (i.e. not from the user)" |
|
495 |
|
496 ^ scrollWhenUpdating |
|
497 ! |
|
498 |
|
499 scrollWhenUpdating:aSymbolOrNil |
|
500 "define how to scroll, when I get a new text |
|
501 (via the model or the #contents/#list) |
|
502 Allowed arguments are: |
|
503 #keep / nil -> no change |
|
504 #endOfText -> scroll to the end |
|
505 #beginOfText -> scroll to the top |
|
506 The default is #beginOfText. |
|
507 This may be useful for fields which get new values assigned from |
|
508 the program (i.e. not from the user)" |
|
509 |
|
510 scrollWhenUpdating := aSymbolOrNil |
482 ! |
511 ! |
483 |
512 |
484 selectRowOnDefault |
513 selectRowOnDefault |
485 "in case of selecting a none selectable cell, the row is selected |
514 "in case of selecting a none selectable cell, the row is selected |
486 " |
515 " |