equal
deleted
inserted
replaced
714 index isNil ifTrue:[ ^ self]. |
714 index isNil ifTrue:[ ^ self]. |
715 |
715 |
716 text := Text string:aString. |
716 text := Text string:aString. |
717 |
717 |
718 tabItem := self privateTabList at:index. |
718 tabItem := self privateTabList at:index. |
719 tabItem class == LabelAndIcon ifTrue:[ |
719 tabItem isLabelAndIcon ifTrue:[ |
720 text := LabelAndIcon icon:(tabItem icon) string:text. |
720 text := LabelAndIcon icon:(tabItem icon) string:text. |
721 ]. |
721 ]. |
722 |
722 |
723 self privateTabList at:index put:text. |
723 self privateTabList at:index put:text. |
724 self selectedEditorPage value == index ifTrue:[ |
724 self selectedEditorPage value == index ifTrue:[ |
725 self changeFileBrowserTitleTo:aString. |
725 self changeFileBrowserTitleTo:aString. |
726 ]. |
726 ]. |
|
727 |
|
728 "Modified: / 04-02-2017 / 22:11:05 / cg" |
727 ! |
729 ! |
728 |
730 |
729 tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock |
731 tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock |
730 | sameAppls changeAppl selAppl| |
732 | sameAppls changeAppl selAppl| |
731 |
733 |