equal
deleted
inserted
replaced
619 "string holder, which keeps the current editing helpKey as string |
619 "string holder, which keeps the current editing helpKey as string |
620 " |
620 " |
621 ^ editModel. |
621 ^ editModel. |
622 ! |
622 ! |
623 |
623 |
|
624 enablingCommitButtonsHolder |
|
625 "returns the enabling of the commit of this tool as value holder" |
|
626 |
|
627 masterApplication notNil ifTrue:[ |
|
628 ^ masterApplication enablingCommitButtonsHolder |
|
629 ]. |
|
630 ^ contentsModifiedChannel |
|
631 ! |
|
632 |
624 helpTextView |
633 helpTextView |
625 "the editView which keeps the current help contents assigned to the key |
634 "the editView which keeps the current help contents assigned to the key |
626 " |
635 " |
627 ^ helpTextView |
636 ^ helpTextView |
|
637 ! |
|
638 |
|
639 infoLabelHolder |
|
640 "returns the info label as value holder" |
|
641 |
|
642 masterApplication notNil ifTrue:[ |
|
643 ^ masterApplication infoLabelHolder |
|
644 ]. |
|
645 ^ super infoLabelHolder |
628 ! |
646 ! |
629 |
647 |
630 keyItemListHolder |
648 keyItemListHolder |
631 "holder, which keeps the current hierarchical list |
649 "holder, which keeps the current hierarchical list |
632 assigned to the selected class item |
650 assigned to the selected class item |
645 |
663 |
646 keyItemModel |
664 keyItemModel |
647 "model which keeps the current selected helpKey or nil |
665 "model which keeps the current selected helpKey or nil |
648 " |
666 " |
649 ^ keyItemModel. |
667 ^ keyItemModel. |
650 ! |
|
651 |
|
652 valueOfEnablingCommitButtons |
|
653 "returns the enabling of the commit of this tool as value holder |
|
654 " |
|
655 masterApplication notNil ifTrue:[ |
|
656 ^ masterApplication valueOfEnablingCommitButtons |
|
657 ]. |
|
658 ^ contentsModifiedChannel |
|
659 ! |
|
660 |
|
661 valueOfInfoLabel |
|
662 "returns the info label as value holder |
|
663 " |
|
664 masterApplication notNil ifTrue:[ |
|
665 ^ masterApplication infoLabelHolder |
|
666 ]. |
|
667 ^ super valueOfInfoLabel |
|
668 ! ! |
668 ! ! |
669 |
669 |
670 !UIHelpTool methodsFor:'building'! |
670 !UIHelpTool methodsFor:'building'! |
671 |
671 |
672 buildAndMergeFromClass:aClass |
672 buildAndMergeFromClass:aClass |
779 |key| |
779 |key| |
780 |
780 |
781 key := self helpKey. |
781 key := self helpKey. |
782 |
782 |
783 modifiedHolder notNil ifTrue:[ |
783 modifiedHolder notNil ifTrue:[ |
784 modifiedHolder value:true |
784 modifiedHolder value:true |
785 ]. |
785 ]. |
786 |
786 |
787 contentsModifiedChannel value:false. |
787 contentsModifiedChannel value:false. |
788 |
788 |
789 key notNil ifTrue:[ |
789 key notNil ifTrue:[ |
790 keyItemModel value = key ifTrue:[^ self]. |
790 keyItemModel value = key ifTrue:[^ self]. |
791 |
791 |
792 classItemList reverseDo:[:root| |item| |
792 classItemList reverseDo:[:root| |item| |
793 item := root detectItemWithKey:key. |
793 item := root detectItemWithKey:key. |
794 |
794 |
795 item notNil ifTrue:[ |
795 item notNil ifTrue:[ |
796 classItemModel value:root. |
796 classItemModel value:root. |
797 keyItemModel value:item. |
797 keyItemModel value:item. |
798 ^ self. |
798 ^ self. |
799 ]. |
799 ]. |
800 ]. |
800 ]. |
801 |
801 |
802 masterApplication isNil ifTrue:[ |
802 masterApplication isNil ifTrue:[ |
803 "entered a new helpKey |
803 "entered a new helpKey |
804 " |
804 " |
805 self valueOfEnablingCommitButtons value:true. |
805 self enablingCommitButtonsHolder value:true. |
806 ]. |
806 ]. |
807 ]. |
807 ]. |
808 keyItemModel value:nil. |
808 keyItemModel value:nil. |
809 ! |
809 ! |
810 |
810 |
811 update:something with:aParameter from:changedObject |
811 update:something with:aParameter from:changedObject |