Tools__ObjectModuleInformation.st
author Stefan Vogel <sv@exept.de>
Tue, 20 Feb 2018 21:52:40 +0100
changeset 3541 23028559b7b2
parent 3486 b831d1299848
child 3808 f7777887c17c
permissions -rw-r--r--
#OTHER by stefan changed: #commonPostBuild rename #useAlienInfoLabeloHolder methodto #useAlienInfoLabel to avoid recursion
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3388
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     1
"
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     2
 COPYRIGHT (c) 2007 by eXept Software AG
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     3
              All Rights Reserved
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     4
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     5
 This software is furnished under a license and may be used
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     6
 only in accordance with the terms of that license and with the
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
     9
 other person.  No title to or ownership of the software is
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    10
 hereby transferred.
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    11
"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool2' }"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
    16
ToolApplicationModel subclass:#ObjectModuleInformation
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
    17
	instanceVariableNames:'readOnly listOfModuleNames selectedModuleIndexHolder allModules
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    18
		objectHandles showOthers showCObjects showBuiltIn showMethods
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    19
		showClassLibs table1VisibleHolder table2VisibleHolder
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    20
		selectedInfoIndexHolder canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    21
		canUnloadSelectedModule classNamesShown classInfoShown
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
    22
		vmInfoShown canUnloadSelectedModulesPackage
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
    23
		canBrowseSelectedModulesExtensions canUnloadSelectedDLL'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	classVariableNames:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	poolDictionaries:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	category:'Monitors-ST/X'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
Object subclass:#InfoRow
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    30
	instanceVariableNames:'name version date value'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
	classVariableNames:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
	poolDictionaries:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
	privateIn:ObjectModuleInformation
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
!ObjectModuleInformation class methodsFor:'documentation'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
3388
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    38
copyright
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    39
"
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    40
 COPYRIGHT (c) 2007 by eXept Software AG
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    41
              All Rights Reserved
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    42
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    43
 This software is furnished under a license and may be used
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    44
 only in accordance with the terms of that license and with the
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    45
 inclusion of the above copyright notice.   This software may not
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    46
 be provided or otherwise made available to, or used by, any
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    47
 other person.  No title to or ownership of the software is
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    48
 hereby transferred.
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    49
"
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    50
!
b9b7b2fae2f9 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3345
diff changeset
    51
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
documentation
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    Shows the modules (dll's) of ST/X.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    Both builtIn modules, and dynamically loaded modules are listed.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    [author:]
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
    58
        Claus Gittinger
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
examples
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
  Starting the application:
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
                                                                [exBegin]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    ObjectModuleInformation open
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
                                                                [exEnd]
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
"
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
!ObjectModuleInformation class methodsFor:'info'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
defaultLabel
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    75
    ^ 'Object Module Info'
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
    "Created: / 05-10-2007 / 11:56:59 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
!ObjectModuleInformation class methodsFor:'interface specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
windowSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
     by the UIPainter of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
     the UIPainter may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
    "
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    90
     UIPainter new openOnClass:Tools::ObjectModuleInformation andSelector:#windowSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    91
     Tools::ObjectModuleInformation new openInterface:#windowSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
    92
     Tools::ObjectModuleInformation open
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
    <resource: #canvas>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
    ^ 
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
    98
    #(FullSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
    99
       name: windowSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   100
       window: 
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   101
      (WindowSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   102
         label: 'ST/X Module & Version Information'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   103
         name: 'ST/X Module & Version Information'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   104
         min: (Point 0 0)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   105
         bounds: (Rectangle 0 0 505 567)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   106
         menu: mainMenu
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   107
       )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   108
       component: 
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   109
      (SpecCollection
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   110
         collection: (
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   111
          (MenuPanelSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   112
             name: 'ToolBar1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   113
             layout: (LayoutFrame 0 0 0 0 0 1 40 0)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   114
             menu: toolbarMenu
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   115
             textDefault: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   116
           )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   117
          (VariableVerticalPanelSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   118
             name: 'VariableVerticalPanel1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   119
             layout: (LayoutFrame 0 0 40 0 0 1 0 1)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   120
             component: 
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   121
            (SpecCollection
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   122
               collection: (
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   123
                (SequenceViewSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   124
                   name: 'List1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   125
                   model: selectedModuleIndexHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   126
                   menu: moduleMenu
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   127
                   hasHorizontalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   128
                   hasVerticalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   129
                   useIndex: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   130
                   sequenceList: listOfModuleNames
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   131
                 )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   132
                (ViewSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   133
                   name: 'Box1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   134
                   component: 
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   135
                  (SpecCollection
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   136
                     collection: (
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   137
                      (LabelSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   138
                         name: 'Label2'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   139
                         layout: (LayoutFrame 0 0 0 0 0 1 30 0)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   140
                         translateLabel: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   141
                         labelChannel: descriptionLabelHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   142
                         adjust: left
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
                       )
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   144
                      (LabelSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   145
                         name: 'Label1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   146
                         layout: (LayoutFrame 0 0 30 0 0 1 60 0)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   147
                         translateLabel: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   148
                         labelChannel: middleLabelHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   149
                         adjust: left
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   150
                       )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   151
                      (DataSetSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   152
                         name: 'Table1'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   153
                         layout: (LayoutFrame 0 0 60 0 0 1 0 1)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   154
                         visibilityChannel: table1VisibleHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   155
                         model: selectedInfoIndexHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   156
                         menu: moduleItemMenu
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   157
                         hasHorizontalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   158
                         hasVerticalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   159
                         dataList: infoTable1ListHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   160
                         columnHolder: tableColumns
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   161
                         separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   162
                         keepSpaceForOSXResizeHandleV: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   163
                       )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   164
                      (DataSetSpec
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   165
                         name: 'Table2'
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   166
                         layout: (LayoutFrame 0 0 60 0 0 1 0 1)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   167
                         initiallyInvisible: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   168
                         visibilityChannel: table2VisibleHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   169
                         model: selectedInfoIndexHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   170
                         hasHorizontalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   171
                         hasVerticalScrollBar: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   172
                         dataList: infoTable2ListHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   173
                         columnHolder: tableColumnsForSingleInfo
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   174
                         separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147)
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   175
                         keepSpaceForOSXResizeHandleV: true
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   176
                       )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   177
                      )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   178
                    
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   179
                   )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
                 )
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   181
                )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   182
              
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   183
             )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   184
             handles: (Any 0.35195530726257 1.0)
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
           )
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   186
          )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   187
        
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   188
       )
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   189
     )
2181
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
!ObjectModuleInformation class methodsFor:'menu specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
mainMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
     by the MenuEditor of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
     the MenuEditor may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
    "
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   202
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#mainMenu
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   203
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation mainMenu)) startUp
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
    <resource: #menu>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
    ^ 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
     #(Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
        (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
            label: 'File'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
                  label: 'Exit'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
                  itemValue: closeRequest
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
         (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
            label: 'View'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
               (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   234
                  label: 'Dynamically Loaded ClassLibraries Only'
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   235
                  itemValue: showOnlyDynamicallyLoadedClassLibraries
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   236
                  translateLabel: true
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   237
                  hideMenuOnActivated: false
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   238
                )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   239
               (MenuItem
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   240
                  label: '-'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   241
                )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   242
               (MenuItem
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
                  label: 'Builtin'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   245
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
                  indication: showBuiltIn
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
                  label: 'Class Libraries'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   251
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
                  indication: showClassLibs
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
                  label: 'Methods'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   257
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
                  indication: showMethods
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
                  label: 'C-Objects'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   263
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
                  indication: showCObjects
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
                  label: 'Others'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
                  translateLabel: true
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   269
                  hideMenuOnActivated: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
                  indication: showOthers
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
                )
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   272
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   273
                  label: '-'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   274
                )
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   275
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   276
                  label: 'Update'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   277
                  itemValue: menuUpdateModuleList
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   278
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
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: 'Module'
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
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
              (
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   291
               (MenuItem
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   292
                  enabled: canBrowseSelectedModule
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   293
                  label: 'Browse'
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   294
                  itemValue: browseModule
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   295
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   296
                )
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   297
               (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   298
                  enabled: canBrowseSelectedModulesExtensions
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   299
                  label: 'Browse Extensions'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   300
                  itemValue: browseModuleExtensions
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   301
                  translateLabel: true
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   302
                )
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   303
               (MenuItem
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   304
                  enabled: canBrowseSelectedModulesProjectDefinition
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   305
                  label: 'Browse ProjectDefinition'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   306
                  itemValue: browseModulesProjectDefinition
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   307
                  translateLabel: true
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   308
                )
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   309
               (MenuItem
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   310
                  label: 'Find a Class...'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   311
                  itemValue: findClass
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   312
                  translateLabel: true
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   313
                )
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   314
               (MenuItem
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   315
                  label: '-'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   316
                )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   317
               (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   318
                  enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   319
                  label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   320
                  itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   321
                  translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   322
                )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
               (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   324
                  label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   325
                )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   326
               (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   327
                  label: 'Load Package...'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   328
                  itemValue: loadPackage
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   329
                  translateLabel: true
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   330
                )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   331
               (MenuItem
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   332
                  label: '-'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   333
                )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   334
               (MenuItem
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   335
                  enabled: canUnloadSelectedModulesPackage
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   336
                  label: 'Unload Package...'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   337
                  itemValue: unloadSelectedModulesPackage
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
                )
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   340
               (MenuItem
2977
2f7cc2452dd7 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   341
                  enabled: canUnloadSelectedModule
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   342
                  label: 'Remove Classes && Unload DLL...'
2403
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   343
                  itemValue: unloadSelectedModuleAndRemoveClasses
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   344
                  translateLabel: true
11c5c82a852c changed #menuUpdateModuleList
Claus Gittinger <cg@exept.de>
parents: 2402
diff changeset
   345
                )
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   346
               (MenuItem
2977
2f7cc2452dd7 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   347
                  enabled: canUnloadSelectedDLL
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   348
                  label: 'Unload DLL...'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   349
                  itemValue: unloadSelectedModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   350
                  translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   351
                )
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   352
               (MenuItem
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   353
                  label: 'Inspect'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   354
                  itemValue: inspectSelectedObject
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   355
                  translateLabel: true
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   356
                )
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   357
               (MenuItem
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   358
                  label: '-'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   359
                )
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   360
               (MenuItem
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   361
                  label: 'Update'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   362
                  itemValue: menuUpdateModuleList
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   363
                  translateLabel: true
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   364
                )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
         (MenuItem
3192
64aa6e5d90c0 help menu layout and title (Menu_Help instead of Help)
Claus Gittinger <cg@exept.de>
parents: 3166
diff changeset
   371
            label: 'MENU_Help'
64aa6e5d90c0 help menu layout and title (Menu_Help instead of Help)
Claus Gittinger <cg@exept.de>
parents: 3166
diff changeset
   372
            startGroup: conditionalRight
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
            translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
            submenu: 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
           (Menu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
              (
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
                  label: 'Documentation'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
                  itemValue: openDocumentation
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
                  label: '-'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
               (MenuItem
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
                  label: 'About this Application...'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
                  itemValue: openAboutThisApplication
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
                  translateLabel: true
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
                )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
               )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
              nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
            )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
          )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
         )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
        nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
        nil
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
      )
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   399
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   400
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   401
moduleItemMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   402
    "This resource specification was automatically generated
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   403
     by the MenuEditor of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   406
     the MenuEditor may not be able to read the specification."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   407
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   408
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   409
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleItemMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   410
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleItemMenu)) startUp
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   411
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   412
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   413
    <resource: #menu>
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   414
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   415
    ^ 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   416
     #(Menu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   417
        (
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   418
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   419
            enabled: canBrowseSelectedClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   420
            label: 'Browse'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   421
            itemValue: browseClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   422
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   423
          )
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   424
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   425
            label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   426
          )
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   427
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   428
            enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   429
            label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   430
            itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   431
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   432
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   433
         )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   434
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   435
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   436
      )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   437
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   438
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   439
moduleMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   440
    "This resource specification was automatically generated
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   441
     by the MenuEditor of ST/X."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   442
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   443
    "Do not manually edit this!! If it is corrupted,
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   444
     the MenuEditor may not be able to read the specification."
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   445
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   446
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   447
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleMenu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   448
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleMenu)) startUp
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   449
    "
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   450
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   451
    <resource: #menu>
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   452
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   453
    ^ 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   454
     #(Menu
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   455
        (
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   456
         (MenuItem
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   457
            enabled: canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   458
            label: 'Browse'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   459
            itemValue: browseModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   460
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   461
          )
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   462
         (MenuItem
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   463
            enabled: canBrowseSelectedModulesExtensions
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   464
            label: 'Browse Extensions'
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   465
            itemValue: browseModuleExtensions
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   466
            translateLabel: true
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   467
          )
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   468
         (MenuItem
2763
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   469
            enabled: canBrowseSelectedModulesProjectDefinition
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   470
            label: 'Browse ProjectDefinition'
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   471
            itemValue: browseModulesProjectDefinition
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   472
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   473
          )
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   474
         (MenuItem
2623
6e7e1b2b961f added: #findClass
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
   475
            label: 'Find a Class...'
6e7e1b2b961f added: #findClass
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
   476
            itemValue: findClass
6e7e1b2b961f added: #findClass
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
   477
            translateLabel: true
6e7e1b2b961f added: #findClass
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
   478
          )
6e7e1b2b961f added: #findClass
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
   479
         (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   480
            label: '-'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   481
          )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   482
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   483
            enabled: canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   484
            label: 'Copy Version Info to Clipboard'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   485
            itemValue: copyClassOrVMNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   486
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   487
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   488
         (MenuItem
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   489
            label: '-'
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   490
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   491
         (MenuItem
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   492
            enabled: canUnloadSelectedModulesPackage
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   493
            label: 'Unload Package...'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   494
            itemValue: unloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   495
            translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   496
          )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   497
         (MenuItem
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   498
            enabled: canUnloadSelectedModule
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   499
            label: 'Remove Classes && Unload DLL...'
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   500
            itemValue: unloadSelectedModuleAndRemoveClasses
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   501
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   502
          )
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   503
         (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   504
            enabled: canUnloadSelectedDLL
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   505
            label: 'Unload DLL...'
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   506
            itemValue: unloadSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   507
            translateLabel: true
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   508
          )
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   509
         (MenuItem
2842
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   510
            label: 'Inspect'
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   511
            itemValue: inspectSelectedObject
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   512
            translateLabel: true
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   513
          )
ed699545a9e7 added: #inspectSelectedObject
Stefan Vogel <sv@exept.de>
parents: 2788
diff changeset
   514
         (MenuItem
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   515
            label: '-'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   516
          )
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   517
         (MenuItem
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   518
            label: 'Update'
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   519
            itemValue: menuUpdateModuleList
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   520
            translateLabel: true
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   521
          )
2253
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
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   524
        nil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   525
      )
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   526
!
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   527
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   528
toolbarMenu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   529
    "This resource specification was automatically generated
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   530
     by the MenuEditor of ST/X."
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   531
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   532
    "Do not manually edit this!! If it is corrupted,
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   533
     the MenuEditor may not be able to read the specification."
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   534
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   535
    "
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   536
     MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#toolbarMenu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   537
     (Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation toolbarMenu)) startUp
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   538
    "
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   539
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   540
    <resource: #menu>
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   541
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   542
    ^ 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   543
     #(Menu
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   544
        (
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   545
         (MenuItem
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   546
            label: 'Update'
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   547
            itemValue: menuUpdateModuleList
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   548
            translateLabel: true
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   549
            isButton: true
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   550
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   551
          )
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   552
         (MenuItem
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   553
            label: '-'
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   554
          )
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   555
         (MenuItem
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   556
            enabled: canBrowseSelectedModule
2617
060a35c37056 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 2616
diff changeset
   557
            label: 'Browse the Selected Module''s Classes'
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   558
            itemValue: browseModule
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   559
            translateLabel: true
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   560
            isButton: true
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   561
            labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon)
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   562
          )
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   563
         (MenuItem
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   564
            enabled: canBrowseSelectedModulesExtensions
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   565
            label: 'Browse the Selected Module''s Extensions'
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   566
            itemValue: browseModuleExtensions
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   567
            translateLabel: true
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   568
            isButton: true
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   569
            labelImage: (ResourceRetriever ToolbarIconLibrary browseClassExtensionsIcon)
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   570
          )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   571
         )
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   572
        nil
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   573
        nil
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   574
      )
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
!ObjectModuleInformation class methodsFor:'tableColumns specs'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
tableColumns
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
    "This resource specification was automatically generated
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
     by the DataSetBuilder of ST/X."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    "Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
     the DataSetBuilder may not be able to read the specification."
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
    "
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   587
     DataSetBuilder new openOnClass:Tools::ObjectModuleInformation andSelector:#tableColumns
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
    "
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
    <resource: #tableColumns>
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
    ^#(
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
         label: 'Name'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
         activeHelpKey: ''
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   596
         activeHelpKeyForLabel: ''
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
         labelButtonType: Button
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   598
         isSortable: true
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   599
         sortSelector: name
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
         width: 0.5
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   601
         height: heightOfFirstRow
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
         model: name
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   603
         menuFromApplication: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
         label: 'Version'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
         activeHelpKey: ''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
         labelButtonType: Button
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   610
         height: heightOfFirstRow
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
         model: version
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
      (DataSetColumnSpec
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
         label: 'Date'
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
         activeHelpKey: ''
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   617
         activeHelpKeyForLabel: ''
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
         labelButtonType: Button
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   619
         isSortable: true
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   620
         sortSelector: dateOrEmpty
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   621
         height: heightOfFirstRow
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
         model: date
3345
681833029ed5 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3294
diff changeset
   623
         menuFromApplication: false
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
         canSelect: false
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
       )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
      )
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
    
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   628
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   629
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   630
tableColumnsForSingleInfo
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   631
    "This resource specification was automatically generated
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   632
     by the DataSetBuilder of ST/X."
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   633
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   634
    "Do not manually edit this!! If it is corrupted,
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   635
     the DataSetBuilder may not be able to read the specification."
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   636
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   637
    "
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   638
     DataSetBuilder new openOnClass:Tools::ObjectModuleInformation andSelector:#tableColumnsForSingleInfo
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   639
    "
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   640
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   641
    <resource: #tableColumns>
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   642
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   643
    ^#(
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   644
      (DataSetColumnSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   645
         label: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   646
         activeHelpKey: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   647
         labelButtonType: None
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   648
         width: 0.3
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   649
         model: name
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   650
         canSelect: false
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
      (DataSetColumnSpec
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   653
         label: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   654
         activeHelpKey: ''
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   655
         labelButtonType: None
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   656
         model: value
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   657
         canSelect: false
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   658
       )
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   659
      )
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   660
    
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
! !
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
!ObjectModuleInformation methodsFor:'aspects'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   665
canBrowseSelectedClass
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   666
    ^ [classNamesShown notEmptyOrNil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   667
       and:[ self selectedInfoIndex notNil
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   668
       and:[ self selectedInfoIndex ~~ 0 ]]]
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   669
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   670
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   671
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   672
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   673
canBrowseSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   674
    canBrowseSelectedModule isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   675
        canBrowseSelectedModule := false asValue
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   676
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   677
    ^ canBrowseSelectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   678
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   679
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   680
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   681
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   682
canBrowseSelectedModulesExtensions
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   683
    canBrowseSelectedModulesExtensions isNil ifTrue:[
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   684
        canBrowseSelectedModulesExtensions := false asValue
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   685
    ].
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   686
    ^ canBrowseSelectedModulesExtensions.
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   687
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   688
    "Modified: / 05-10-2007 / 10:51:39 / cg"
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   689
!
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   690
2763
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   691
canBrowseSelectedModulesProjectDefinition
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   692
    ^ [ self projectDefinitionClassOfSelectedModule notNil ]
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   693
!
Claus Gittinger <cg@exept.de>
parents: 2739
diff changeset
   694
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   695
canCopyClassNameList
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   696
    ^ [table1VisibleHolder value 
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   697
    and:[classInfoShown notEmptyOrNil or:[vmInfoShown notEmptyOrNil] ]]
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   698
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   699
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   700
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   701
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   702
canUnloadSelectedDLL
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   703
    canUnloadSelectedDLL isNil ifTrue:[
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   704
        canUnloadSelectedDLL := false asValue
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   705
    ].
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   706
    ^ canUnloadSelectedDLL.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   707
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   708
    "Modified: / 05-10-2007 / 10:51:39 / cg"
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   709
!
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   710
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   711
canUnloadSelectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   712
    canUnloadSelectedModule isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   713
        canUnloadSelectedModule := false asValue
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   714
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   715
    ^ canUnloadSelectedModule.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   716
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   717
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   718
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   719
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   720
canUnloadSelectedModulesPackage
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   721
    canUnloadSelectedModulesPackage isNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   722
        canUnloadSelectedModulesPackage := false asValue
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   723
    ].
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   724
    ^ canUnloadSelectedModulesPackage.
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   725
!
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   726
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   727
descriptionLabelHolder
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   728
    ^ builder valueAspectFor:#'descriptionLabelHolder' initialValue:''
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   729
!
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   730
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   731
infoTable1ListHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   732
    ^ builder valueAspectFor:#'infoTable1ListHolder' initialValue:#()
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   734
    "Created: / 05-10-2007 / 12:48:06 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   735
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   736
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   737
infoTable2ListHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   738
    ^ builder valueAspectFor:#'infoTable2ListHolder' initialValue:#()
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   739
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   740
    "Created: / 05-10-2007 / 12:48:10 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
listOfModuleNames
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
    listOfModuleNames isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
        listOfModuleNames := List new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
    ^ listOfModuleNames.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
    "Modified: / 05-10-2007 / 10:49:19 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
middleLabelHolder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
    ^ builder valueAspectFor:#'middleLabelHolder' initialValue:''
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
    "Created: / 05-10-2007 / 11:05:08 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
2184
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   758
notReadOnly
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   759
    ^ self readOnly not
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   760
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   761
    "Created: / 05-10-2007 / 13:06:00 / cg"
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   762
!
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   763
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   764
readOnly
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   765
    ^ readOnly ? false
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   766
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   767
    "Created: / 05-10-2007 / 13:05:51 / cg"
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   768
!
1ffb97ee0a55 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2183
diff changeset
   769
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   770
readOnly:aBoolean
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   771
    readOnly := aBoolean
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   772
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   773
    "Created: / 05-10-2007 / 13:05:51 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   774
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   775
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   776
selectedInfoIndex
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   777
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   778
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   779
    sel := self selectedInfoIndexHolder value.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   780
    ^ sel
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   781
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   782
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   783
selectedInfoIndexHolder
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   784
    selectedInfoIndexHolder isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   785
        selectedInfoIndexHolder := ValueHolder new.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   786
        selectedInfoIndexHolder onChangeSend:#selectedInfoIndexChanged to:self.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   787
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   788
    ^ selectedInfoIndexHolder.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   789
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   790
    "Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   791
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   792
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   793
selectedModuleIndex
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   794
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   795
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   796
    sel := self selectedModuleIndexHolder value.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   797
    ^ sel
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   798
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   799
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
selectedModuleIndexHolder
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
    selectedModuleIndexHolder isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
        selectedModuleIndexHolder := ValueHolder new.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
        selectedModuleIndexHolder onChangeSend:#selectedModuleIndexChanged to:self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    ^ selectedModuleIndexHolder.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
    "Modified: / 05-10-2007 / 10:51:39 / cg"
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
showBuiltIn
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   811
    showBuiltIn isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   812
        showBuiltIn := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   813
        showBuiltIn onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   814
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   815
    ^ showBuiltIn
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   817
    "Modified: / 05-10-2007 / 12:43:23 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
showCObjects
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   821
    showCObjects isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   822
        showCObjects := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   823
        showCObjects onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   824
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   825
    ^ showCObjects
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   827
    "Modified: / 05-10-2007 / 12:43:16 / cg"
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
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
showClassLibs
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   831
    showClassLibs isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   832
        showClassLibs := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   833
        showClassLibs onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   834
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   835
    ^ showClassLibs
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   837
    "Modified: / 05-10-2007 / 12:43:10 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
showMethods
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   841
    showMethods isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   842
        showMethods := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   843
        showMethods onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   844
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   845
    ^ showMethods
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   847
    "Modified: / 05-10-2007 / 12:43:02 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   850
showOnlyDynamicallyLoadedClassLibraries
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   851
    self showBuiltIn value:false withoutNotifying:self.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   852
    self showCObjects value:false withoutNotifying:self.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   853
    self showMethods value:false withoutNotifying:self.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   854
    self showOthers value:false withoutNotifying:self.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   855
    self showClassLibs value:true withoutNotifying:self.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   856
    self filterChanged.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   857
!
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   858
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
showOthers
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   860
    showOthers isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   861
        showOthers := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   862
        showOthers onChangeSend:#filterChanged to:self.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   863
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   864
    ^ showOthers
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   865
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   866
    "Modified: / 05-10-2007 / 12:42:54 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   867
!
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   869
table1VisibleHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   870
    table1VisibleHolder isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   871
        table1VisibleHolder := true asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   872
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   873
    ^ table1VisibleHolder.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   874
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   875
    "Modified: / 05-10-2007 / 12:53:05 / cg"
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   876
!
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   877
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   878
table2VisibleHolder
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   879
    table2VisibleHolder isNil ifTrue:[
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   880
        table2VisibleHolder := false asValue.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   881
    ].
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   882
    ^ table2VisibleHolder.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   883
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   884
    "Modified: / 05-10-2007 / 12:53:14 / cg"
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
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
!ObjectModuleInformation methodsFor:'change & update'!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   889
isExtensionName:nm
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   890
    ^ (nm endsWith:'_extensions')
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   891
!
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   892
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   893
selectedInfoIndexChanged
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   894
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   895
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   896
selectedModule
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   897
    |sel|
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   898
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   899
    sel := self selectedModuleIndex.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   900
    sel isNil ifTrue:[^ nil].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   901
    ^ objectHandles at:sel.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   902
!
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   904
selectedModuleIndexChanged
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   905
    | info |
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   906
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   907
    info := self selectedModuleInfo.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   908
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   909
    self canBrowseSelectedModule value:false.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   910
    self canBrowseSelectedModulesExtensions value:false.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   911
    self canUnloadSelectedDLL value:false.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   912
    self canUnloadSelectedModule value:false.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   913
    self canUnloadSelectedModulesPackage value:false.
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   914
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   915
    classNamesShown := nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   916
    classInfoShown := nil.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   917
    vmInfoShown := nil.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
    info isNil ifTrue:[
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   920
        "/ selected a cObject or unknown
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   921
        self showInfoForNonClassLib:(self selectedModuleIndex).
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
    info == #VM ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
        "/ selected the pseudo entry for the VM itself
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
        self showInfoForVM.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
    ].
2618
441ede629ea8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2617
diff changeset
   929
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
    "/ selected a class-library package
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
    self showInfoForClassLib:info.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
   933
    "Modified: / 05-10-2007 / 12:56:13 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   936
selectedModuleInfo
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   937
    |sel|
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   938
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   939
    sel := self selectedModuleIndex.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   940
    sel notNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   941
        (self showClassLibs value or:[self showBuiltIn value]) ifTrue:[
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   942
            ^ allModules at:sel ifAbsent:nil.
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   943
        ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   944
    ].
2620
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   945
    ^ nil
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   946
!
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   947
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   948
selectedObjectHandle
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   949
    |sel|
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   950
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   951
    sel := self selectedModuleIndex.
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   952
    sel isNil ifTrue:[^ nil].
fccbd77a9409 added: #selectedObjectHandle
Claus Gittinger <cg@exept.de>
parents: 2619
diff changeset
   953
    ^ objectHandles at:sel.
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   954
!
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
   955
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
showInfoForClassLib:info
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   957
    "selected a lib-package; fill bottom list with class-info"
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   958
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   959
    |rows projectDefinitionClass mgr canUnload canUnloadPackage|
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   960
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   961
    self middleLabelHolder value:'Components:'.
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   962
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   963
    projectDefinitionClass := self selectedModulesProjectDefinitionClass.
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   964
    projectDefinitionClass isNil ifTrue:[
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   965
        self descriptionLabelHolder value:''.
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   966
    ] ifFalse:[
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   967
        self descriptionLabelHolder value:("'Description: ',"projectDefinitionClass description).
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
   968
    ].
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   969
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   970
    self canBrowseSelectedModule value:true.
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   971
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   972
    self canBrowseSelectedModulesExtensions 
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   973
        value:(info classNames contains:[:nm | self isExtensionName:nm]).
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   974
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   975
    canUnload := info dynamic and:[self readOnly not].
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   976
    self canUnloadSelectedModule value:canUnload.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   977
    canUnloadPackage := canUnload 
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   978
                and:[projectDefinitionClass notNil
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   979
                and:[projectDefinitionClass projectIsLoaded]].
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
   980
    self canUnloadSelectedModulesPackage value:canUnloadPackage.
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
   981
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
2402
5db801ca0e35 item selection index fixed.
Claus Gittinger <cg@exept.de>
parents: 2343
diff changeset
   983
    classNamesShown := self shownClassNamesFor:info.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   984
    rows := classNamesShown collect:[:eachClassName |
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
   985
                    |cls entry rev binRev listEntry revisionInfo versionString dateString|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
                    listEntry := InfoRow new.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   988
                    listEntry name:eachClassName.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   990
                    cls := Smalltalk classNamed:eachClassName.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
                    cls isNil ifTrue:[
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   992
                        (self isExtensionName:eachClassName) ifTrue:[
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
   993
                            projectDefinitionClass notNil ifTrue:[
3166
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   994
                                mgr := projectDefinitionClass sourceCodeManager.
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   995
                                mgr notNil ifTrue:[
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   996
                                    versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   997
                                    versionString notNil ifTrue:[
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   998
                                        versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
   999
                                    ]
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
  1000
                                ] ifFalse:[
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
  1001
                                    versionString := '(SCM disabled)'.
71dab9730c88 class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3086
diff changeset
  1002
                                ].
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1003
                            ].
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1004
                        ] ifFalse:[
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1005
                            versionString := '(class removed)'.
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1006
                        ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
                    ] ifFalse:[
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1008
                        binRev := cls binaryRevision.
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1009
                        binRev notNil ifTrue:[
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1010
                            cls isLoaded ifTrue:[
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1011
                                entry :='(bin: ' , binRev.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1012
                            ] ifFalse:[
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1013
                                entry := '(stub for: ' , binRev.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
                            ].    
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1015
                            (rev := cls revision) ~= binRev ifTrue:[
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1016
                                entry := entry , ' / src: ' , (rev printString)
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
                            ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
                            entry := entry , ')'.
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1019
                            versionString := entry
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
                        ] ifFalse:[
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1021
                            cls revision notNil ifTrue:[
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1022
                                versionString := '(overloaded by: ' , cls revision , ')' 
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1023
                            ]
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
                        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
                        revisionInfo := cls revisionInfo.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
                        revisionInfo notNil ifTrue:[
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1027
                            dateString := revisionInfo at:#date.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
                        ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
                    ].
2616
01e597429c47 preps for package unloading
Claus Gittinger <cg@exept.de>
parents: 2403
diff changeset
  1030
                    listEntry version:versionString.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1031
                    listEntry date:dateString.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
                  ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1034
    classInfoShown := rows.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1035
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1036
    self infoTable1ListHolder value:rows.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1037
    self table1VisibleHolder value:true.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1038
    self table2VisibleHolder value:false.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
2860
5788b9c7c19b changed: #showInfoForClassLib:
Claus Gittinger <cg@exept.de>
parents: 2842
diff changeset
  1040
    "Modified: / 29-09-2011 / 15:40:42 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
showInfoForNonClassLib:sel
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1044
    "selected a method, cObject or unknown"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1046
    |module fileName list newEntry|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
  1048
    self descriptionLabelHolder value:''.
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
  1049
2253
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1050
    sel isNil ifTrue:[
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1051
        self table1VisibleHolder value:false.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1052
        self table2VisibleHolder value:false.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1053
        ^ self.
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1054
    ].
a282d11e1ec4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2184
diff changeset
  1055
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
    module := objectHandles at:sel.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
    fileName := module pathName.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
2739
8efd89a9863d changed:
Claus Gittinger <cg@exept.de>
parents: 2658
diff changeset
  1059
    self canUnloadSelectedDLL value:true.
8efd89a9863d changed:
Claus Gittinger <cg@exept.de>
parents: 2658
diff changeset
  1060
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
    module isMethodHandle ifTrue:[
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1062
        |method nm entries|
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1063
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1064
        self canUnloadSelectedModule value:self readOnly not.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1066
        self middleLabelHolder value:'Compiled Method:'.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
        (method := module method) isNil ifTrue:[
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
            nm := '** removed **'.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
        ] ifFalse:[
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
  1071
            self canBrowseSelectedModule value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
"/            menu := PopUpMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
"/                        labels:#('Inspect' 'Browse')
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
"/                        selectors:#(inspect browse).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
"/            menu actionAt:#inspect put:[ method inspect ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
"/            menu actionAt:#browse put:[ |who|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
"/                                        who := method who.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
"/                                        UserPreferences systemBrowserClass
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
"/                                            openInClass:(who methodClass) 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
"/                                            selector:(who methodSelector) 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
"/                                      ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
"/            listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
3294
29f61473d4a5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3258
diff changeset
  1084
            nm := (method whoString) withColor:Color blue.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
        ].
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1086
        entries := OrderedCollection new.
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1087
        newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1088
        newEntry name:'Compiled method'; value:nm.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1089
        entries add:newEntry.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1091
        newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1092
        newEntry name:'Path'; value:fileName.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1093
        entries add:newEntry.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1095
        (method notNil and:[method code notNil]) ifTrue:[
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1096
            newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1097
            newEntry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1098
            entries add:newEntry.
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1099
        ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
2773
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects:
Stefan Vogel <sv@exept.de>
parents: 2763
diff changeset
  1101
        self infoTable2ListHolder value:entries.
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1102
        self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1103
        self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
    (module isFunctionObjectHandle 
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
    and:[module functions notEmpty]) ifTrue:[
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1109
        self middleLabelHolder value:'Functions:'.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
"/        menu := PopUpMenu
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
"/                    labels:#('Inspect')
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
"/                    selectors:#(inspect).
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
"/        menu actionAt:#inspect put:[ module functions inspect  ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
"/        listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
"/
3254
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1117
        list := module functions 
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1118
                        select:[:f | f notNil]
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1119
                        thenCollect:[:f | |entry code|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
                                        entry := InfoRow new.
3294
29f61473d4a5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3258
diff changeset
  1121
                                        entry name:(f name withColor:Color blue).
3254
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1122
                                        code := f code.
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1123
                                        code isNil ifTrue:[
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1124
                                            entry value:('address: NULL').
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1125
                                        ] ifFalse:[
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1126
                                            entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)).
c3a22fdc3759 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 3192
diff changeset
  1127
                                        ].
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
                                        entry
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
                                ].
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1130
        self infoTable2ListHolder value:list.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1131
        self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1132
        self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
        ^ self.
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
    ].
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
2787
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1136
    newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1137
    newEntry name:'Unknown'.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name)
Stefan Vogel <sv@exept.de>
parents: 2778
diff changeset
  1138
    self infoTable2ListHolder value:(Array with:newEntry).
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1139
    self table1VisibleHolder value:false.
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1140
    self table2VisibleHolder value:true.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
2183
517b70cb2de7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2181
diff changeset
  1142
    "Modified: / 05-10-2007 / 13:01:33 / cg"
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
!
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
showInfoForVM
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1146
    "show file versions of vm info in lower view."
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
    |l|
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
2619
09ab6a49e5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2618
diff changeset
  1150
    self canBrowseSelectedModule value:false.
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1151
    self middleLabelHolder value:'VM Components:'.
3069
e8e52581e0cb class: Tools::ObjectModuleInformation
Claus Gittinger <cg@exept.de>
parents: 3012
diff changeset
  1152
    self descriptionLabelHolder value:("'Description: '," 'Runtime System (VM)').
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1154
    l := ObjectMemory getVMIdentificationStrings
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1155
            select:[:entry | (entry includesString:'$Header') 
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1156
                                    and:[entry includesString:',v']]
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1157
            thenCollect:[:entry |
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1158
                |i1 i2 file revision date listEntry|
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1160
                listEntry := InfoRow new.
2181
93db2a1edbe6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
2788
5ea743a4ac48 changed:
Stefan Vogel <sv@exept.de>
parents: 2787
diff changeset
  1162
                i1 := entry indexOfSubCollection:'librun'.
5ea743a4ac48 changed: