equal
deleted
inserted
replaced
1303 #label: 'Test' |
1303 #label: 'Test' |
1304 #activeHelpKey: #test |
1304 #activeHelpKey: #test |
1305 #translateLabel: true |
1305 #translateLabel: true |
1306 #submenuChannel: #submenuTest |
1306 #submenuChannel: #submenuTest |
1307 ) |
1307 ) |
1308 #(#MenuItem |
1308 "/ #(#MenuItem |
1309 #label: 'Settings' |
1309 "/ #label: 'Settings' |
1310 #submenu: |
1310 "/ #submenu: |
1311 #(#Menu |
1311 "/ #(#Menu |
1312 |
1312 "/ |
1313 #( |
1313 "/ #( |
1314 #(#MenuItem |
1314 "/ #(#MenuItem |
1315 #label: 'Fonts' |
1315 "/ #label: 'Fonts' |
1316 #translateLabel: true |
1316 "/ #translateLabel: true |
1317 #submenuChannel: #menuFont |
1317 "/ #submenuChannel: #menuFont |
1318 ) |
1318 "/ ) |
1319 ) nil |
1319 "/ ) nil |
1320 nil |
1320 "/ nil |
1321 ) |
1321 "/ ) |
1322 ) |
1322 "/ ) |
1323 #(#MenuItem |
1323 #(#MenuItem |
1324 #label: 'History' |
1324 #label: 'History' |
1325 #activeHelpKey: #history |
1325 #activeHelpKey: #history |
1326 #translateLabel: true |
1326 #translateLabel: true |
1327 #submenuChannel: #menuHistory |
1327 #submenuChannel: #menuHistory |
2240 helpCanvas raise. |
2240 helpCanvas raise. |
2241 ] ifFalse:[ |
2241 ] ifFalse:[ |
2242 aspects do: [:holder| holder removeDependent:self]. |
2242 aspects do: [:holder| holder removeDependent:self]. |
2243 specCanvas client:self spec:(self class perform:(slices at:tabSelection) last) builder:builder. |
2243 specCanvas client:self spec:(self class perform:(slices at:tabSelection) last) builder:builder. |
2244 aspects do: [:holder| holder addDependent:self]. |
2244 aspects do: [:holder| holder addDependent:self]. |
2245 self updateFonts. |
2245 "/ self updateFonts. |
2246 specCanvas raise. |
2246 specCanvas raise. |
2247 ] |
2247 ] |
2248 |
2248 |
2249 "Modified: / 14.8.1998 / 15:07:06 / cg" |
2249 "Modified: / 14.8.1998 / 15:07:06 / cg" |
2250 ! ! |
2250 ! ! |