equal
deleted
inserted
replaced
555 "returns true if tabs are enabled" |
555 "returns true if tabs are enabled" |
556 |
556 |
557 ^ enabled |
557 ^ enabled |
558 ! |
558 ! |
559 |
559 |
560 enabled:aState |
560 enabled:aBooleanOrNil |
561 "set the enabled state of tabs" |
561 "set the enabled state of tabs" |
562 |
562 |
563 |state| |
563 |state| |
564 |
564 |
565 state := aState ? true. |
565 state := aBooleanOrNil ? true. |
566 |
566 |
567 enabled ~~ state ifTrue:[ |
567 enabled ~~ state ifTrue:[ |
568 enabled := state. |
568 enabled := state. |
569 self invalidate. |
569 self invalidate. |
570 ] |
570 ] |
|
571 |
|
572 "Modified (format): / 04-02-2017 / 21:34:10 / cg" |
571 ! |
573 ! |
572 |
574 |
573 isEnabled |
575 isEnabled |
574 "returns the enabled state" |
576 "returns the enabled state" |
575 |
577 |