equal
deleted
inserted
replaced
326 ^ font |
326 ^ font |
327 ! |
327 ! |
328 |
328 |
329 font:aFont |
329 font:aFont |
330 "set a specific font for an item" |
330 "set a specific font for an item" |
331 |
331 |
332 font := aFont. |
332 font := aFont. |
333 ! |
333 ! |
334 |
334 |
335 hierarchicalUUID |
335 hierarchicalUUID |
336 |
336 |
827 " |
827 " |
828 ^ self findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:nil |
828 ^ self findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:nil |
829 ! |
829 ! |
830 |
830 |
831 findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil |
831 findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil |
832 "setup a resource container |
832 "setup a resource container" |
833 " |
833 |
834 |retriever m| |
834 |retriever m itemFont| |
835 |
835 |
836 (aResourceContainerOrApplication isNil or:[self isMenuSlice]) ifTrue:[ |
836 (aResourceContainerOrApplication isNil or:[self isMenuSlice]) ifTrue:[ |
837 ^ self. |
837 ^ self. |
|
838 ]. |
|
839 |
|
840 "while traversing all the menus, resolve symbolic fonts too" |
|
841 itemFont := self font. |
|
842 itemFont isSymbol ifTrue:[ |
|
843 itemFont := aResourceContainerOrApplication resolveFont:itemFont. |
|
844 self font:itemFont. |
838 ]. |
845 ]. |
839 |
846 |
840 (self translateLabel and:[label ~= '-']) ifTrue:[ |
847 (self translateLabel and:[label ~= '-']) ifTrue:[ |
841 label := ResourceRetriever |
848 label := ResourceRetriever |
842 findResourceLabel:label |
849 findResourceLabel:label |
844 rememberResourcesIn:aValueHolderOrNil. |
851 rememberResourcesIn:aValueHolderOrNil. |
845 ]. |
852 ]. |
846 |
853 |
847 (retriever := self resourceRetriever) notNil ifTrue:[ |
854 (retriever := self resourceRetriever) notNil ifTrue:[ |
848 retriever findGuiResourcesIn:aResourceContainerOrApplication. |
855 retriever findGuiResourcesIn:aResourceContainerOrApplication. |
849 retriever labelText notNil ifTrue: [retriever labelText: label]. |
856 retriever labelText notNil ifTrue: [retriever labelText:label]. |
850 ]. |
857 ]. |
851 (m := self submenu) notNil ifTrue:[ |
858 (m := self submenu) notNil ifTrue:[ |
852 m := m value. |
859 m := m value. |
853 m notNil ifTrue:[ |
860 m notNil ifTrue:[ |
854 m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil |
861 m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil |
881 |
888 |
882 resolveSliceMenuItemsIn:aReceiver rememberResourcesIn:aValueHolderOrNil |
889 resolveSliceMenuItemsIn:aReceiver rememberResourcesIn:aValueHolderOrNil |
883 |menu| |
890 |menu| |
884 |
891 |
885 self isMenuSlice ifFalse:[ |
892 self isMenuSlice ifFalse:[ |
886 self error:'not a slice menu'. |
893 self error:'not a slice menu' mayProceed:true. |
887 ^ Array with:self. |
894 ^ Array with:self. |
888 ]. |
895 ]. |
889 |
896 |
890 aReceiver isNil ifTrue:[ |
897 aReceiver isNil ifTrue:[ |
891 ^ nil |
898 ^ nil |
1137 ! ! |
1144 ! ! |
1138 |
1145 |
1139 !MenuItem class methodsFor:'documentation'! |
1146 !MenuItem class methodsFor:'documentation'! |
1140 |
1147 |
1141 version |
1148 version |
1142 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.105 2013-08-31 19:31:30 cg Exp $' |
1149 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.106 2014-03-12 17:22:11 stefan Exp $' |
1143 ! |
1150 ! |
1144 |
1151 |
1145 version_CVS |
1152 version_CVS |
1146 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.105 2013-08-31 19:31:30 cg Exp $' |
1153 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.106 2014-03-12 17:22:11 stefan Exp $' |
1147 ! ! |
1154 ! ! |
1148 |
1155 |