equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG |
4 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
613 |
615 |
614 columnIndexOfDescription:aColumnDescription |
616 columnIndexOfDescription:aColumnDescription |
615 ^ columns findFirst:[:col | col description == aColumnDescription] |
617 ^ columns findFirst:[:col | col description == aColumnDescription] |
616 ! |
618 ! |
617 |
619 |
|
620 computePreferredExtent |
|
621 ^ 100 @ self preferredHeight |
|
622 |
|
623 "Created: / 09-11-2018 / 19:50:18 / Claus Gittinger" |
|
624 ! |
|
625 |
618 enabled |
626 enabled |
619 "true, if widget is enabled |
627 "true, if widget is enabled |
620 " |
628 " |
621 ^ enabled |
629 ^ enabled |
622 ! |
630 ! |
629 "Modified (comment): / 04-02-2017 / 21:31:52 / cg" |
637 "Modified (comment): / 04-02-2017 / 21:31:52 / cg" |
630 ! |
638 ! |
631 |
639 |
632 indexOfLabel:aLabel |
640 indexOfLabel:aLabel |
633 ^ columns findFirst:[:col | col label == aLabel]. |
641 ^ columns findFirst:[:col | col label == aLabel]. |
634 ! |
|
635 |
|
636 preferredExtent |
|
637 |
|
638 "/ If I have an explicit preferredExtent.. |
|
639 explicitExtent notNil ifTrue:[ |
|
640 ^ explicitExtent |
|
641 ]. |
|
642 |
|
643 "/ If I have a cached preferredExtent value.. |
|
644 preferredExtent notNil ifTrue:[ |
|
645 ^ preferredExtent |
|
646 ]. |
|
647 |
|
648 ^ 100 @ self preferredHeight |
|
649 ! |
642 ! |
650 |
643 |
651 preferredHeight |
644 preferredHeight |
652 |maxLabelHeight| |
645 |maxLabelHeight| |
653 |
646 |