equal
deleted
inserted
replaced
196 submenu: |
196 submenu: |
197 (Menu |
197 (Menu |
198 ( |
198 ( |
199 (MenuItem |
199 (MenuItem |
200 label: 'Dynamically Loaded ClassLibraries Only' |
200 label: 'Dynamically Loaded ClassLibraries Only' |
|
201 itemValue: showOnlyDynamicallyLoadedClassLibraries |
201 translateLabel: true |
202 translateLabel: true |
202 hideMenuOnActivated: false |
203 hideMenuOnActivated: false |
203 itemValue: showOnlyDynamicallyLoadedClassLibraries |
|
204 ) |
204 ) |
205 (MenuItem |
205 (MenuItem |
206 label: '-' |
206 label: '-' |
207 ) |
207 ) |
208 (MenuItem |
208 (MenuItem |
264 enabled: canBrowseSelectedModulesExtensions |
264 enabled: canBrowseSelectedModulesExtensions |
265 label: 'Browse Extensions' |
265 label: 'Browse Extensions' |
266 itemValue: browseModuleExtensions |
266 itemValue: browseModuleExtensions |
267 translateLabel: true |
267 translateLabel: true |
268 ) |
268 ) |
269 (MenuItem |
269 (MenuItem |
270 enabled: canBrowseSelectedModulesProjectDefinition |
270 enabled: canBrowseSelectedModulesProjectDefinition |
271 label: 'Browse ProjectDefinition' |
271 label: 'Browse ProjectDefinition' |
272 itemValue: browseModulesProjectDefinition |
272 itemValue: browseModulesProjectDefinition |
273 translateLabel: true |
273 translateLabel: true |
274 ) |
274 ) |
275 (MenuItem |
275 (MenuItem |
276 label: 'Find a Class...' |
276 label: 'Find a Class...' |
277 itemValue: findClass |
277 itemValue: findClass |
278 translateLabel: true |
278 translateLabel: true |
279 ) |
279 ) |
280 (MenuItem |
280 (MenuItem |
281 label: '-' |
281 label: '-' |
282 ) |
282 ) |
283 (MenuItem |
283 (MenuItem |
284 enabled: canCopyClassNameList |
284 enabled: canCopyClassNameList |
311 ) |
311 ) |
312 (MenuItem |
312 (MenuItem |
313 enabled: canUnloadSelectedModule |
313 enabled: canUnloadSelectedModule |
314 label: 'Unload DLL...' |
314 label: 'Unload DLL...' |
315 itemValue: unloadSelectedModule |
315 itemValue: unloadSelectedModule |
|
316 translateLabel: true |
|
317 ) |
|
318 (MenuItem |
|
319 label: 'Inspect' |
|
320 itemValue: inspectSelectedObject |
|
321 translateLabel: true |
|
322 ) |
|
323 (MenuItem |
|
324 label: '-' |
|
325 ) |
|
326 (MenuItem |
|
327 label: 'Update' |
|
328 itemValue: menuUpdateModuleList |
316 translateLabel: true |
329 translateLabel: true |
317 ) |
330 ) |
318 ) |
331 ) |
319 nil |
332 nil |
320 nil |
333 nil |
366 <resource: #menu> |
379 <resource: #menu> |
367 |
380 |
368 ^ |
381 ^ |
369 #(Menu |
382 #(Menu |
370 ( |
383 ( |
371 (MenuItem |
384 (MenuItem |
372 enabled: canBrowseSelectedClass |
385 enabled: canBrowseSelectedClass |
373 label: 'Browse' |
386 label: 'Browse' |
374 itemValue: browseClass |
387 itemValue: browseClass |
375 translateLabel: true |
388 translateLabel: true |
376 ) |
389 ) |
377 (MenuItem |
390 (MenuItem |
378 label: '-' |
391 label: '-' |
379 ) |
392 ) |
380 (MenuItem |
393 (MenuItem |
381 enabled: canCopyClassNameList |
394 enabled: canCopyClassNameList |
382 label: 'Copy Version Info to Clipboard' |
395 label: 'Copy Version Info to Clipboard' |
383 itemValue: copyClassOrVMNameList |
396 itemValue: copyClassOrVMNameList |
384 translateLabel: true |
397 translateLabel: true |
385 ) |
398 ) |
455 ) |
468 ) |
456 (MenuItem |
469 (MenuItem |
457 enabled: canUnloadSelectedDLL |
470 enabled: canUnloadSelectedDLL |
458 label: 'Unload DLL...' |
471 label: 'Unload DLL...' |
459 itemValue: unloadSelectedModule |
472 itemValue: unloadSelectedModule |
|
473 translateLabel: true |
|
474 ) |
|
475 (MenuItem |
|
476 label: 'Inspect' |
|
477 itemValue: inspectSelectedObject |
460 translateLabel: true |
478 translateLabel: true |
461 ) |
479 ) |
462 (MenuItem |
480 (MenuItem |
463 label: '-' |
481 label: '-' |
464 ) |
482 ) |
1255 "/ ]. |
1273 "/ ]. |
1256 "/ |
1274 "/ |
1257 "/ self breakPoint:#cg. |
1275 "/ self breakPoint:#cg. |
1258 ! |
1276 ! |
1259 |
1277 |
|
1278 inspectSelectedObject |
|
1279 self selectedObjectHandle inspect. |
|
1280 ! |
|
1281 |
1260 loadPackage |
1282 loadPackage |
1261 |package ok| |
1283 |package ok| |
1262 |
1284 |
1263 package := Dialog request:'Name of Package (module:directory)'. |
1285 package := Dialog request:'Name of Package (module:directory)'. |
1264 package isEmptyOrNil ifTrue:[^ self]. |
1286 package isEmptyOrNil ifTrue:[^ self]. |