Tools__ObjectModuleInformation.st
author Claus Gittinger <cg@exept.de>
Mon, 12 Oct 2009 19:27:33 +0200
changeset 2616 01e597429c47
parent 2403 11c5c82a852c
child 2617 060a35c37056
permissions -rw-r--r--
preps for package unloading
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libtool2' }"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: Tools }"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
     5
ToolApplicationModel subclass:#ObjectModuleInformation
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
     6
	instanceVariableNames:'readOnly listOfModuleNames selectedModuleIndexHolder allModules
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
     7
		objectHandles showOthers showCObjects showBuiltIn showMethods
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
     8
		showClassLibs table1VisibleHolder table2VisibleHolder
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
     9
		selectedInfoIndexHolder canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    10
		canUnloadSelectedModule classNamesShown classInfoShown
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
    11
		vmInfoShown canUnloadSelectedModulesPackage'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
	classVariableNames:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
	poolDictionaries:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	category:'Monitors-ST/X'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
Object subclass:#InfoRow
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    18
	instanceVariableNames:'name version date value'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	classVariableNames:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	poolDictionaries:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	privateIn:ObjectModuleInformation
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!ObjectModuleInformation class methodsFor:'documentation'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
documentation
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    Shows the modules (dll's) of ST/X.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    Both builtIn modules, and dynamically loaded modules are listed.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
    [author:]
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    32
        Claus Gittinger
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
examples
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
  Starting the application:
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
                                                                [exBegin]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    ObjectModuleInformation open
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
                                                                [exEnd]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!ObjectModuleInformation class methodsFor:'info'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
defaultLabel
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    49
    ^ 'Object Module Info'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    "Created: / 05-10-2007 / 11:56:59 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
!ObjectModuleInformation class methodsFor:'interface specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
windowSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
     by the UIPainter of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
     the UIPainter may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    "
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    64
     UIPainter new openOnClass:Tools::ObjectModuleInformation andSelector:#windowSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    65
     Tools::ObjectModuleInformation new openInterface:#windowSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    66
     Tools::ObjectModuleInformation open
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    <resource: #canvas>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    ^ 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
     #(FullSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
        name: windowSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
        window: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
       (WindowSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
          label: 'ST/X Module & Version Information'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
          name: 'ST/X Module & Version Information'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
          min: (Point 0 0)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
          bounds: (Rectangle 0 0 505 567)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
          menu: mainMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
        )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
        component: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
       (SpecCollection
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
          collection: (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
           (MenuPanelSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
              name: 'ToolBar1'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
    87
              layout: (LayoutFrame 0 0 0 0 0 1 40 0)
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
              menu: toolbarMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
              textDefault: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
           (VariableVerticalPanelSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
              name: 'VariableVerticalPanel1'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
    93
              layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
              component: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
             (SpecCollection
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
                collection: (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
                 (SequenceViewSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
                    name: 'List1'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
                    model: selectedModuleIndexHolder
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   100
                    menu: moduleMenu
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
                    hasHorizontalScrollBar: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
                    hasVerticalScrollBar: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
                    useIndex: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
                    sequenceList: listOfModuleNames
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
                  )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
                 (ViewSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
                    name: 'Box1'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
                    component: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
                   (SpecCollection
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
                      collection: (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
                       (LabelSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
                          name: 'Label1'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
                          layout: (LayoutFrame 0 0 0 0 0 1 30 0)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
                          translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
                          labelChannel: middleLabelHolder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
                          adjust: left
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
                        )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
                       (DataSetSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
                          name: 'Table1'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
                          layout: (LayoutFrame 0 0 30 0 0 1 0 1)
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   121
                          visibilityChannel: table1VisibleHolder
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
                          model: selectedInfoIndexHolder
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   123
                          menu: moduleItemMenu
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
                          hasHorizontalScrollBar: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
                          hasVerticalScrollBar: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   126
                          dataList: infoTable1ListHolder
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
                          columnHolder: tableColumns
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
                          separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
                        )
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   130
                       (DataSetSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   131
                          name: 'Table2'
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   132
                          layout: (LayoutFrame 0 0 30 0 0 1 0 1)
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   133
                          initiallyInvisible: true
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   134
                          visibilityChannel: table2VisibleHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   135
                          model: selectedInfoIndexHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   136
                          hasHorizontalScrollBar: true
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   137
                          hasVerticalScrollBar: true
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   138
                          dataList: infoTable2ListHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   139
                          columnHolder: tableColumnsForSingleInfo
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   140
                          separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   141
                        )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
                       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
                     
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
                    )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
                  )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
                 )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
               
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
              )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
              handles: (Any 0.35195530726257 1.0)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
           )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
         
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
        )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
      )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
!ObjectModuleInformation class methodsFor:'menu specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
mainMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
     by the MenuEditor of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
     the MenuEditor may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
    "
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   167
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#mainMenu
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   168
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation mainMenu)) startUp
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
    <resource: #menu>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
    ^ 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
     #(Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
        (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
            label: 'File'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
                  label: 'Exit'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
                  itemValue: closeRequest
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
            label: 'View'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
                  label: 'Builtin'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   201
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
                  indication: showBuiltIn
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
                  label: 'Class Libraries'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   207
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
                  indication: showClassLibs
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
                  label: 'Methods'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   213
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
                  indication: showMethods
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
                  label: 'C-Objects'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   219
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
                  indication: showCObjects
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
                  label: 'Others'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   225
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
                  indication: showOthers
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
                )
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   228
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   229
                  label: '-'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   230
                )
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   231
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   232
                  label: 'Update'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   233
                  itemValue: menuUpdateModuleList
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   234
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   235
                )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
            label: 'Module'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
              (
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   247
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   248
                  enabled: canBrowseSelectedModule
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   249
                  label: 'Browse'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   250
                  itemValue: browseModule
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   251
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   252
                )
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   253
               (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   254
                  enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   255
                  label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   256
                  itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   257
                  translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   258
                )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
               (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   260
                  label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   261
                )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   262
               (MenuItem
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   263
                  enabled: canUnloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   264
                  label: 'Unload Package'
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   265
                  itemValue: unloadSelectedModulesPackage
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
                )
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   268
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   269
                  enabled: canUnloadSelectedModule
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   270
                  label: 'Remove Classes && Unload DLL'
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   271
                  itemValue: unloadSelectedModuleAndRemoveClasses
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   272
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   273
                )
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   274
               (MenuItem
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   275
                  enabled: canUnloadSelectedModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   276
                  label: 'Unload DLL'
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   277
                  itemValue: unloadSelectedModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   278
                  translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   279
                )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
            label: 'Help'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
            startGroup: conditionalRight
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
                  label: 'Documentation'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
                  itemValue: openDocumentation
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
                  label: '-'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
                  label: 'About this Application...'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
                  itemValue: openAboutThisApplication
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
         )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
        nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
        nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
      )
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   314
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   315
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   316
moduleItemMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   317
    "This resource specification was automatically generated
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   318
     by the MenuEditor of ST/X."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   319
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   320
    "Do not manually edit this!! If it is corrupted,
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   321
     the MenuEditor may not be able to read the specification."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   322
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   323
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   324
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleItemMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   325
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleItemMenu)) startUp
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   326
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   327
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   328
    <resource: #menu>
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   329
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   330
    ^ 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   331
     #(Menu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   332
        (
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   333
         (MenuItem   
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   334
            enabled: canBrowseSelectedClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   335
            label: 'Browse'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   336
            itemValue: browseClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   337
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   338
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   339
         (MenuItem   
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   340
            label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   341
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   342
         (MenuItem   
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   343
            enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   344
            label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   345
            itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   346
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   347
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   348
         )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   349
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   350
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   351
      )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   352
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   353
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   354
moduleMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   355
    "This resource specification was automatically generated
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   356
     by the MenuEditor of ST/X."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   357
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   358
    "Do not manually edit this!! If it is corrupted,
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   359
     the MenuEditor may not be able to read the specification."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   360
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   361
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   362
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   363
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleMenu)) startUp
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   364
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   365
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   366
    <resource: #menu>
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   367
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   368
    ^ 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   369
     #(Menu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   370
        (
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   371
         (MenuItem
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   372
            enabled: canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   373
            label: 'Browse'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   374
            itemValue: browseModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   375
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   376
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   377
         (MenuItem   
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   378
            enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   379
            label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   380
            itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   381
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   382
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   383
         (MenuItem
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   384
            label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   385
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   386
         (MenuItem
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   387
            enabled: canUnloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   388
            label: 'Unload Package'
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   389
            itemValue: unloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   390
            translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   391
          )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   392
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   393
            enabled: canUnloadSelectedModule
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   394
            label: 'Remove Classes && Unload DLL'
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   395
            itemValue: unloadSelectedModuleAndRemoveClasses
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   396
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   397
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   398
         (MenuItem
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   399
            enabled: canUnloadSelectedModule
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   400
            label: 'Unload DLL'
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   401
            itemValue: unloadSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   402
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   403
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   404
         )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   405
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   406
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   407
      )
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   408
!
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   409
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   410
toolbarMenu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   411
    "This resource specification was automatically generated
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   412
     by the MenuEditor of ST/X."
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   413
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   414
    "Do not manually edit this!! If it is corrupted,
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   415
     the MenuEditor may not be able to read the specification."
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   416
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   417
    "
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   418
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#toolbarMenu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   419
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation toolbarMenu)) startUp
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   420
    "
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   421
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   422
    <resource: #menu>
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   423
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   424
    ^ 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   425
     #(Menu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   426
        (
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   427
         (MenuItem
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   428
            enabled: canBrowseSelectedModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   429
            label: 'Action'
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   430
            itemValue: browseModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   431
            translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   432
            isButton: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   433
            labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   434
          )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   435
         )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   436
        nil
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   437
        nil
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   438
      )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
!ObjectModuleInformation class methodsFor:'tableColumns specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
tableColumns
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
     by the DataSetBuilder of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
     the DataSetBuilder may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
     DataSetBuilder new openOnClass:ObjectModuleInformation andSelector:#tableColumns
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
    <resource: #tableColumns>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
    ^#(
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
         label: 'Name'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
         activeHelpKey: ''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
         labelButtonType: Button
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
         width: 0.5
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
         model: name
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
         label: 'Version'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
         activeHelpKey: ''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
         labelButtonType: Button
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
         model: version
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
         label: 'Date'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
         activeHelpKey: ''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
         labelButtonType: Button
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
         model: date
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
      )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
    
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   481
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   482
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   483
tableColumnsForSingleInfo
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   484
    "This resource specification was automatically generated
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   485
     by the DataSetBuilder of ST/X."
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   486
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   487
    "Do not manually edit this!! If it is corrupted,
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   488
     the DataSetBuilder may not be able to read the specification."
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   489
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   490
    "
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   491
     DataSetBuilder new openOnClass:Tools::ObjectModuleInformation andSelector:#tableColumnsForSingleInfo
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   492
    "
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   493
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   494
    <resource: #tableColumns>
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   495
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   496
    ^#(
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   497
      (DataSetColumnSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   498
         label: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   499
         activeHelpKey: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   500
         labelButtonType: None
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   501
         width: 0.3
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   502
         model: name
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   503
         canSelect: false
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   504
       )
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   505
      (DataSetColumnSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   506
         label: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   507
         activeHelpKey: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   508
         labelButtonType: None
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   509
         model: value
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   510
         canSelect: false
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   511
       )
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   512
      )
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   513
    
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
!ObjectModuleInformation methodsFor:'aspects'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   518
canBrowseSelectedClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   519
    ^ [classNamesShown notEmptyOrNil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   520
       and:[ self selectedInfoIndex notNil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   521
       and:[ self selectedInfoIndex ~~ 0 ]]]
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   522
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   523
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   524
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   525
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   526
canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   527
    canBrowseSelectedModule isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   528
        canBrowseSelectedModule := false asValue
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   529
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   530
    ^ canBrowseSelectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   531
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   532
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   533
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   534
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   535
canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   536
    ^ [table1VisibleHolder value 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   537
    and:[classInfoShown notEmptyOrNil or:[vmInfoShown notEmptyOrNil] ]]
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   538
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   539
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   540
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   541
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   542
canUnloadSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   543
    canUnloadSelectedModule isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   544
        canUnloadSelectedModule := false asValue
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   545
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   546
    ^ canUnloadSelectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   547
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   548
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   549
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   550
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   551
canUnloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   552
    canUnloadSelectedModulesPackage isNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   553
        canUnloadSelectedModulesPackage := false asValue
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   554
    ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   555
    ^ canUnloadSelectedModulesPackage.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   556
!
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   557
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   558
infoTable1ListHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   559
    ^ builder valueAspectFor:#'infoTable1ListHolder' initialValue:#()
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   561
    "Created: / 05-10-2007 / 12:48:06 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   562
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   563
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   564
infoTable2ListHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   565
    ^ builder valueAspectFor:#'infoTable2ListHolder' initialValue:#()
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   566
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   567
    "Created: / 05-10-2007 / 12:48:10 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
listOfModuleNames
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
    listOfModuleNames isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
        listOfModuleNames := List new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
    ^ listOfModuleNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
    "Modified: / 05-10-2007 / 10:49:19 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
middleLabelHolder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
    ^ builder valueAspectFor:#'middleLabelHolder' initialValue:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
    "Created: / 05-10-2007 / 11:05:08 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   585
notReadOnly
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   586
    ^ self readOnly not
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   587
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   588
    "Created: / 05-10-2007 / 13:06:00 / cg"
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   589
!
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   590
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   591
readOnly
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   592
    ^ readOnly ? false
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   593
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   594
    "Created: / 05-10-2007 / 13:05:51 / cg"
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   595
!
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   596
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   597
readOnly:aBoolean
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   598
    readOnly := aBoolean
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   599
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   600
    "Created: / 05-10-2007 / 13:05:51 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   601
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   602
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   603
selectedInfoIndex
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   604
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   605
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   606
    sel := self selectedInfoIndexHolder value.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   607
    ^ sel
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   608
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   609
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   610
selectedInfoIndexHolder
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   611
    selectedInfoIndexHolder isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   612
        selectedInfoIndexHolder := ValueHolder new.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   613
        selectedInfoIndexHolder onChangeSend:#selectedInfoIndexChanged to:self.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   614
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   615
    ^ selectedInfoIndexHolder.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   616
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   617
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   618
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   619
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   620
selectedModuleIndex
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   621
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   622
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   623
    sel := self selectedModuleIndexHolder value.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   624
    ^ sel
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   625
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   626
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
selectedModuleIndexHolder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    selectedModuleIndexHolder isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
        selectedModuleIndexHolder := ValueHolder new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
        selectedModuleIndexHolder onChangeSend:#selectedModuleIndexChanged to:self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
    ^ selectedModuleIndexHolder.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
    "Modified: / 05-10-2007 / 10:51:39 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
showBuiltIn
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   638
    showBuiltIn isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   639
        showBuiltIn := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   640
        showBuiltIn onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   641
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   642
    ^ showBuiltIn
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   644
    "Modified: / 05-10-2007 / 12:43:23 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
showCObjects
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   648
    showCObjects isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   649
        showCObjects := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   650
        showCObjects onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   651
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   652
    ^ showCObjects
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   654
    "Modified: / 05-10-2007 / 12:43:16 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
showClassLibs
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   658
    showClassLibs isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   659
        showClassLibs := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   660
        showClassLibs onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   661
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   662
    ^ showClassLibs
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   664
    "Modified: / 05-10-2007 / 12:43:10 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
showMethods
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   668
    showMethods isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   669
        showMethods := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   670
        showMethods onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   671
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   672
    ^ showMethods
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   674
    "Modified: / 05-10-2007 / 12:43:02 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
showOthers
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   678
    showOthers isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   679
        showOthers := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   680
        showOthers onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   681
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   682
    ^ showOthers
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   683
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   684
    "Modified: / 05-10-2007 / 12:42:54 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   685
!
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   687
table1VisibleHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   688
    table1VisibleHolder isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   689
        table1VisibleHolder := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   690
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   691
    ^ table1VisibleHolder.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   692
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   693
    "Modified: / 05-10-2007 / 12:53:05 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   694
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   695
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   696
table2VisibleHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   697
    table2VisibleHolder isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   698
        table2VisibleHolder := false asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   699
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   700
    ^ table2VisibleHolder.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   701
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   702
    "Modified: / 05-10-2007 / 12:53:14 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
!ObjectModuleInformation methodsFor:'change & update'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   707
selectedInfoIndexChanged
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   708
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   709
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   710
selectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   711
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   712
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   713
    sel := self selectedModuleIndex.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   714
    sel isNil ifTrue:[^ nil].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   715
    ^ objectHandles at:sel.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   716
!
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   718
selectedModuleIndexChanged
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   719
    |module info|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   720
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   721
    info := self selectedModuleInfo.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   722
    module := self selectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   723
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   724
    self canBrowseSelectedModule value:(info notNil and:[info ~~ #VM and:[module notNil]]).
2343
20eee34c4c8b changed #selectedModuleIndexChanged
Claus Gittinger <cg@exept.de>
parents: 2254
diff changeset
   725
    self canUnloadSelectedModule value:(self readOnly not and:[info ~~ #VM and:[info notNil and:[info dynamic]]]).
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   726
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   727
    classNamesShown := nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   728
    classInfoShown := nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   729
    vmInfoShown := nil.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
    info isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
        "/ selected a method, cObject or unknown
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   733
        self showInfoForNonClassLib:(self selectedModuleIndex).
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
    info == #VM ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
        "/ selected the pseudo entry for the VM itself
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
        self showInfoForVM.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
    "/ selected a class-library package
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
    self showInfoForClassLib:info.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   744
    "Modified: / 05-10-2007 / 12:56:13 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   747
selectedModuleInfo
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   748
    |sel info|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   749
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   750
    sel := self selectedModuleIndex.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   751
    sel notNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   752
        (self showClassLibs value or:[self showBuiltIn value]) ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   753
            info := allModules at:sel ifAbsent:nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   754
        ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   755
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   756
    ^ info
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   757
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   758
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
showInfoForClassLib:info
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   760
    " selected a lib-package; fill bottom list with class-info "
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   761
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   762
    |rows libraryName defClassName libraryDefinition mgr defClassNames|
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   763
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   764
    self middleLabelHolder value:'Contains Components:'.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   765
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   766
    "/ try to figure out, what the definitionClass is inside that module.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   767
    "/ in the future, we should always find one there, however, old libs or
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   768
    "/ special libraries (hand built) might be without a projectDefinition.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   769
    defClassNames := (info classNames ? #()) 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   770
                        select:[:nm |                
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   771
                            |cls| 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   772
                            cls := Smalltalk classNamed:nm.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   773
                            cls isBehavior and:[ cls isProjectDefinition ]].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   775
    defClassNames size == 1 ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   776
        libraryName := defClassNames first
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   777
    ] ifFalse:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   778
        "/ fallback - some heuristics...
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   779
        libraryName := info libraryName.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   780
        (libraryName notNil and:[ libraryName startsWith:'lib' ]) ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   781
            defClassName := libraryName copyFrom:4
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   782
        ] ifFalse:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   783
            self halt.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   784
        ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   785
    ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   786
    defClassName notNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   787
        libraryDefinition := Smalltalk classNamed:defClassName.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   788
    ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   790
    classNamesShown := self shownClassNamesFor:info.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   792
    rows := classNamesShown collect:[:cName |
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   793
                    |cls entry rev listEntry revisionInfo versionString dateString|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
                    listEntry := InfoRow new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
                    listEntry name:cName.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
                    cls := Smalltalk classNamed:cName.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
                    cls isNil ifTrue:[
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   800
                        (cName endsWith:'_extensions') ifFalse:[
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   801
                            versionString := '(class removed)'.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   802
                        ] ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   803
                            libraryDefinition notNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   804
                                mgr := libraryDefinition sourceCodeManager.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   805
                                versionString := libraryDefinition perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   806
                                versionString notNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   807
                                    versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   808
                                ]
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   809
                            ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   810
                        ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
                    ] ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
                        rev := cls binaryRevision.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
                        rev notNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
                            cls isLoaded ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
                                entry := '(stub for: ' , rev.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
                            ] ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
                                entry :='(bin: ' , rev.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
                            ].    
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
                            cls revision ~= rev ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
                                entry := entry , ' / src: ' , (cls revision printString)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
                            ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
                            entry := entry , ')'.
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   823
                            versionString := entry
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
                        ] ifFalse:[
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   825
                            cls revision notNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   826
                                versionString := '(overloaded by: ' , cls revision , ')' 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   827
                            ]
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
                        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
                        revisionInfo := cls revisionInfo.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
                        revisionInfo notNil ifTrue:[
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   831
                            dateString := (revisionInfo at:#date)
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
                        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
                    ].
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   834
                    listEntry version:versionString.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   835
                    listEntry date:dateString
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
                  ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   838
    classInfoShown := rows.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   839
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   840
    self infoTable1ListHolder value:rows.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   841
    self table1VisibleHolder value:true.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   842
    self table2VisibleHolder value:false.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   844
    "Modified: / 05-10-2007 / 13:03:56 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
showInfoForNonClassLib:sel
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   848
    " selected a method, cObject or unknown "
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   850
    |module fileName list entry|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   852
    sel isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   853
        self table1VisibleHolder value:false.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   854
        self table2VisibleHolder value:false.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   855
        ^ self.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   856
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   857
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
    module := objectHandles at:sel.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    fileName := module pathName.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
    module isMethodHandle ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
        |method nm entry1 entry2 entry3|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   864
        self middleLabelHolder value:'Compiled Method:'.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
        (method := module method) isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
            nm := '** removed **'.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
        ] ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
"/            menu := PopUpMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
"/                        labels:#('Inspect' 'Browse')
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
"/                        selectors:#(inspect browse).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
"/            menu actionAt:#inspect put:[ method inspect ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
"/            menu actionAt:#browse put:[ |who|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
"/                                        who := method who.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
"/                                        UserPreferences systemBrowserClass
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
"/                                            openInClass:(who methodClass) 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
"/                                            selector:(who methodSelector) 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
"/                                      ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
"/            listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
            nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
        entry1 := InfoRow new.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   884
        entry1 name:'Compiled method'; value:nm.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
        entry2 := InfoRow new.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   887
        entry2 name:'Path'; value:fileName.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
        entry3 := InfoRow new.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   890
        entry3 name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   892
        self infoTable2ListHolder value:(Array with:entry1 with:entry2 with:entry3).
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   893
        self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   894
        self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
    (module isFunctionObjectHandle 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
    and:[module functions notEmpty]) ifTrue:[
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   900
        self middleLabelHolder value:'Functions:'.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
"/        menu := PopUpMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
"/                    labels:#('Inspect')
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
"/                    selectors:#(inspect).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
"/        menu actionAt:#inspect put:[ module functions inspect  ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
"/        listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
"/
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
        list := (module functions select:[:f | f notNil])
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
                        collect:[:f | |entry|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
                                        entry := InfoRow new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
                                        entry name:(f name asText emphasizeAllWith:(#color->Color blue)).
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   912
                                        entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
                                        entry
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
                                ].
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   915
        self infoTable2ListHolder value:list.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   916
        self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   917
        self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
    entry := InfoRow new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
    entry name:'Unknown'.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   923
    self infoTable2ListHolder value:(Array with:entry).
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   924
    self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   925
    self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   927
    "Modified: / 05-10-2007 / 13:01:33 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
showInfoForVM
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   931
    " show file versions of vm info in lower view. "
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
    |l|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   935
    self middleLabelHolder value:'Contains Components:'.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
    l := (ObjectMemory getVMIdentificationStrings).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
    l := l select:[:entry | entry includesString:'$Header'].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
    l := l select:[:entry | entry includesString:',v'].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
    l := l collect:[:entry |
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
        |i1 i2 file revision date listEntry|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
        listEntry := InfoRow new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
        i1 := entry indexOfSubCollection:'librun'.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
        i1 ~~ 0 ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
            i2 := entry indexOfSubCollection:',v' startingAt:i1.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
            i2 ~~ 0 ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
                file := entry copyFrom:i1+7 to:(i2-1).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
                listEntry name:file.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
                i1 := i2+3.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
                i2 := entry indexOfSeparatorStartingAt:i1.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
                revision := entry copyFrom:i1 to:(i2-1).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
                listEntry version:revision.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
                i1 := i2+1.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
                i2 := entry indexOfSeparatorStartingAt:i1.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
                date := entry copyFrom:i1 to:(i2-1).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
                listEntry date:date.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
            ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
        listEntry.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
    ].
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   965
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   966
    vmInfoShown := l.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   967
    self infoTable1ListHolder value:l.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   968
    self table1VisibleHolder value:true.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   969
    self table2VisibleHolder value:false.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
"/    readOnly ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
"/        unloadButton disable.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
"/        unloadAndRemoveButton disable.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
"/    ]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   976
    "Modified: / 05-10-2007 / 12:53:44 / cg"
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   977
!
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   978
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   979
shownClassNamesFor:info
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   980
    "/ selected a package; fill bottom list with class-info
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   981
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   982
    |classNames|
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   983
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   984
    classNames := info classNames asSortedCollection.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   985
    ^ classNames 
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   986
        select:[:cName |
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   987
            |cls|
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   988
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   989
            cls := Smalltalk classNamed:cName.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   990
            cls isNil ifTrue:[
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   991
                true "a removed class"
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   992
            ] ifFalse:[
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   993
                cls isPrivate not
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   994
            ].
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   995
        ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
!ObjectModuleInformation methodsFor:'initialization'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
postBuildWith:aBuilder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
    |canDoIt|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
    super postBuildWith:aBuilder.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
    canDoIt := ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
    self showBuiltIn value:canDoIt.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
    self showCObjects value:canDoIt.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
    self showClassLibs value:canDoIt.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1009
    self showMethods value:canDoIt.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
    self showOthers value:canDoIt.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
    self updateModuleList
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
    "Created: / 05-10-2007 / 10:50:27 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
!ObjectModuleInformation methodsFor:'menu actions'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1019
browseClass
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1020
    |module info classNames selectedClassName selectedClass packageID methods|
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1021
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1022
    module := self selectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1023
    info := self selectedModuleInfo.
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1024
    classNames := (self shownClassNamesFor:info) asSortedCollection.
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1025
    selectedClassName := classNames at:(self selectedInfoIndex).
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1026
    selectedClass := Smalltalk classNamed:selectedClassName.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1027
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1028
    selectedClass notNil ifTrue:[
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1029
        Smalltalk browseInClass:selectedClass.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1030
        ^ self.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1031
    ].
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1032
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1033
    "/ clicked on an extensions-module ?
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1034
    (selectedClassName endsWith:'_extensions') ifTrue:[
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1035
        packageID := (selectedClassName copyWithoutLast:('_extensions' size)) asSymbol.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1036
        methods := Smalltalk allExtensionsForPackage:packageID.
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1037
        (UserPreferences browserClass) browseMethods:methods title:('Extensions for ',packageID).
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1038
        ^ self.
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1039
    ].
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
  1040
self halt.
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1041
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1042
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1043
browseModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1044
    |module classes|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1045
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1046
    module := self selectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1047
    classes := module classNames collect:[:nm | Smalltalk classNamed:nm].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1048
    UserPreferences systemBrowserClass 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1049
        browseClasses:classes
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1050
        label:(resources string:'Classes in %1' with:module libraryName)
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1051
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1052
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1053
copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1054
    |text|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1055
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1056
    text := ((classInfoShown ? vmInfoShown)collect:[:eachRow | eachRow infoString]) asStringCollection asString.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1057
    self window setClipboardText:text.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1058
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1059
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1060
menuUpdateModuleList
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1061
    self updateModuleList
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1062
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1063
    "Modified: / 05-10-2007 / 13:11:45 / cg"
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1064
!
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
  1065
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
openDocumentation
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
  1067
    self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
  1069
    "Modified: / 05-10-2007 / 13:11:45 / cg"
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1070
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1071
2254
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1072
unloadSelectedModule
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1073
    self unloadSelectedModuleRemoveClasses:false
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1074
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1075
2254
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1076
unloadSelectedModuleAndRemoveClasses
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1077
    self unloadSelectedModuleRemoveClasses:true
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1078
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1079
2254
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1080
unloadSelectedModuleRemoveClasses:doRemoveClasses
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1081
    (Dialog 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1082
        confirm:'This is a possibly dangerous operation, as the DLL is unloaded without caring for 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1083
proper package-deinstallation procedures. Please only use this in repair situations and when the 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1084
regular unloadPackage operation fails.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1085
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1086
Continue ?')
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1087
    ifFalse:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1088
        ^ self  
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1089
    ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1090
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1091
    self withWaitCursorDo:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1092
        |info idx handle pathName|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1093
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1094
        info := self selectedModuleInfo.
2254
06ada9ab1a8a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2253
diff changeset
  1095
        handle := objectHandles at:(self selectedModuleIndex).
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1096
        self selectedModuleIndexHolder value:nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1097
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1098
        info isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1099
            "/ selected a method
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1100
            "/ idx := idx - allModules size.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1101
            pathName := handle pathName.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1102
        ] ifFalse:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1103
            "/ selected a package
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1104
            pathName := info pathName.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1105
        ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1106
        pathName notNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1107
            doRemoveClasses ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1108
                ObjectFileLoader unloadObjectFileAndRemoveClasses:pathName.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1109
            ] ifFalse:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1110
                ObjectFileLoader unloadObjectFile:pathName.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1111
            ]
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1112
        ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1113
        self updateModuleList.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1114
    ]
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
!ObjectModuleInformation methodsFor:'private'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1119
filterChanged
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1120
    self updateModuleList
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1121
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1122
    "Created: / 05-10-2007 / 12:43:36 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1123
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1124
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
updateModuleList
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
    |showClassLibs showBuiltIn showMethods showCObjects showOthers
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
     listOfModuleNames allObjects handles|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
    showClassLibs := self showClassLibs value.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
    showBuiltIn := self showBuiltIn value.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
    showMethods := self showMethods value.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
    showCObjects := self showCObjects value.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
    showOthers := self showOthers value.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
    listOfModuleNames := OrderedCollection new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
    handles := OrderedCollection new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
    allObjects := ObjectFileLoader loadedObjectHandles.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
    (showClassLibs or:[showBuiltIn]) ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
        |moduleNames|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
        allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
        (showBuiltIn and:[showClassLibs]) ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
            allModules := allModules select:
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
                                        [:i |
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
                                            |wantToSee|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
                                            wantToSee := i dynamic.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
                                            showBuiltIn ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
                                                wantToSee := wantToSee not
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
                                            ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
                                            wantToSee
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
                                        ]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
        "/ sorting by reverse id brings newest ones to the top (a side effect)
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
        allModules sort:[:a :b | (a id) > (b id)].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
        moduleNames := allModules collect:[:entry | entry name].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
        listOfModuleNames addAll:moduleNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
        handles addAll:allModules.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
    showMethods ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
        |methodObjects methodNames|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
        methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
        methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
                                                        'compiled method - removed' " , ' (in ' , mH pathName , ')' "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
                                                    ] ifFalse:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
                                                        'compiled method ' , mH method whoString  " , ' (in ' , mH pathName , ')' "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
                                                    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
                                             ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
        listOfModuleNames addAll:methodNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
        handles addAll:methodObjects.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
    showCObjects ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
        |cObjects cObjectNames|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
        cObjects := (allObjects select:[:h | h isFunctionObjectHandle]) asArray.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
        cObjectNames := cObjects collect:[:entry | entry pathName].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
        listOfModuleNames addAll:cObjectNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
        handles addAll:cObjects.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
    showOthers ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
        |otherObjects otherObjectNames|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
        otherObjects := (allObjects select:[:h | (h isFunctionObjectHandle
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
                                                 or:[h isMethodHandle
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
                                                 or:[h isClassLibHandle]]) not]) asArray.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
        otherObjectNames := otherObjects collect:[:entry | entry pathName].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
        listOfModuleNames addAll:otherObjectNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
        handles addAll:otherObjects.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.