equal
deleted
inserted
replaced
1 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
2 |
2 |
3 "{ NameSpace: Tools }" |
3 "{ NameSpace: Tools }" |
4 |
4 |
5 ApplicationModel subclass:#ObjectModuleInformation |
5 ToolApplicationModel subclass:#ObjectModuleInformation |
6 instanceVariableNames:'listOfModuleNames selectedModuleIndexHolder allModules |
6 instanceVariableNames:'readOnly listOfModuleNames selectedModuleIndexHolder allModules |
7 objectHandles showOthers showCObjects showBuiltIn showMethods |
7 objectHandles showOthers showCObjects showBuiltIn showMethods |
8 showClassLibs table1VisibleHolder table2VisibleHolder' |
8 showClassLibs table1VisibleHolder table2VisibleHolder' |
9 classVariableNames:'' |
9 classVariableNames:'' |
10 poolDictionaries:'' |
10 poolDictionaries:'' |
11 category:'Monitors-ST/X' |
11 category:'Monitors-ST/X' |
39 [exEnd] |
39 [exEnd] |
40 " |
40 " |
41 ! ! |
41 ! ! |
42 |
42 |
43 !ObjectModuleInformation class methodsFor:'info'! |
43 !ObjectModuleInformation class methodsFor:'info'! |
44 |
|
45 aboutThisApplicationText |
|
46 ^ super aboutThisApplicationText , |
|
47 '\\Written by Claus Gittinger, eXept Software AG.' withCRs |
|
48 |
|
49 "Created: / 05-10-2007 / 12:39:42 / cg" |
|
50 ! |
|
51 |
44 |
52 defaultLabel |
45 defaultLabel |
53 ^ 'Object Module Info' |
46 ^ 'Object Module Info' |
54 |
47 |
55 "Created: / 05-10-2007 / 11:56:59 / cg" |
48 "Created: / 05-10-2007 / 11:56:59 / cg" |
237 translateLabel: true |
230 translateLabel: true |
238 submenu: |
231 submenu: |
239 (Menu |
232 (Menu |
240 ( |
233 ( |
241 (MenuItem |
234 (MenuItem |
|
235 enabled: notReadOnly |
242 label: 'Unload' |
236 label: 'Unload' |
243 translateLabel: true |
237 translateLabel: true |
244 ) |
238 ) |
245 ) |
239 ) |
246 nil |
240 nil |
378 |
372 |
379 middleLabelHolder |
373 middleLabelHolder |
380 ^ builder valueAspectFor:#'middleLabelHolder' initialValue:'' |
374 ^ builder valueAspectFor:#'middleLabelHolder' initialValue:'' |
381 |
375 |
382 "Created: / 05-10-2007 / 11:05:08 / cg" |
376 "Created: / 05-10-2007 / 11:05:08 / cg" |
|
377 ! |
|
378 |
|
379 notReadOnly |
|
380 ^ self readOnly not |
|
381 |
|
382 "Created: / 05-10-2007 / 13:06:00 / cg" |
|
383 ! |
|
384 |
|
385 readOnly |
|
386 ^ readOnly ? false |
|
387 |
|
388 "Created: / 05-10-2007 / 13:05:51 / cg" |
383 ! |
389 ! |
384 |
390 |
385 selectedModuleIndexHolder |
391 selectedModuleIndexHolder |
386 selectedModuleIndexHolder isNil ifTrue:[ |
392 selectedModuleIndexHolder isNil ifTrue:[ |
387 selectedModuleIndexHolder := ValueHolder new. |
393 selectedModuleIndexHolder := ValueHolder new. |
695 ! ! |
701 ! ! |
696 |
702 |
697 !ObjectModuleInformation methodsFor:'menu actions'! |
703 !ObjectModuleInformation methodsFor:'menu actions'! |
698 |
704 |
699 openDocumentation |
705 openDocumentation |
700 |
706 self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO' |
701 "Modified: / 05-10-2007 / 11:56:07 / cg" |
707 |
|
708 "Modified: / 05-10-2007 / 13:11:45 / cg" |
702 ! ! |
709 ! ! |
703 |
710 |
704 !ObjectModuleInformation methodsFor:'private'! |
711 !ObjectModuleInformation methodsFor:'private'! |
705 |
712 |
706 filterChanged |
713 filterChanged |