Tools__Inspector2.st
author Claus Gittinger <cg@exept.de>
Mon, 20 Jan 2020 21:02:47 +0100
changeset 19422 c6ca1c3e0fd7
parent 19410 077e5ea668e5
child 19474 d131a34fc490
permissions -rw-r--r--
#REFACTORING by exept class: MultiViewToolApplication added: #askForFile:default:forSave:thenDo: changed: #askForFile:default:thenDo: #askForFile:thenDo: #menuSaveAllAs #menuSaveAs
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     1
"
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
19410
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
     3
              All Rights Reserved
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     4
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     5
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     6
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     8
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     9
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    10
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    11
"
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    12
"{ Package: 'stx:libtool' }"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    13
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    14
"{ NameSpace: Tools }"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    15
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    16
ApplicationModel subclass:#Inspector2
19410
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    17
        instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    18
                browser currentObjectHolder colorProfileHolder
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    19
                toolbarBackgroundHolder evaluationLanguageHolder
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    20
                evaluationLanguageList operationsMenuEnabledHolder'
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    21
        classVariableNames:'ColorProfiles EvaluationLanguageMap LastExtent LastAlphabetical'
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    22
        poolDictionaries:''
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    23
        category:'Interface-Inspector2'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    24
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    25
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    26
Model subclass:#NavigationState
19410
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    27
        instanceVariableNames:'inspector theObject index tabs selectionIndex displayString'
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    28
        classVariableNames:''
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    29
        poolDictionaries:''
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    30
        privateIn:Inspector2
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    31
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    32
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    33
!Inspector2 class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    34
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    35
copyright
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    36
"
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    37
 COPYRIGHT (c) 2006 by eXept Software AG
19410
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
    38
              All Rights Reserved
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    39
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    40
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    41
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    42
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    43
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    44
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    45
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    46
"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    47
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    48
11928
df7cfea75d78 added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11582
diff changeset
    49
documentation
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    50
"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    51
    an application for a multitab inspector
18229
a5b943fbd44e #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 18164
diff changeset
    52
    extendible by the inspected object itself, by providing additional
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    53
    tabs via the inspector2XXX methods
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    54
16819
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    55
    Interface for objects:
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    56
        redefine 
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    57
            inspectorExtraAttributes (to get additional pseudo-attributes into the left field list)
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    58
            inspectorExtraTabs (to get additional tabs into the tab list)
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    59
            inspectorExtraMenuOperations(to get additional operations menu items into the operations menu)
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    60
        
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    61
    the operations menu is invisible, if there are no operations.
997264b26e8f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16818
diff changeset
    62
    
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    63
    [author:]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    64
        Jan Vrani
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    65
"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    66
! !
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    67
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    68
!Inspector2 class methodsFor:'initialization'!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    69
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    70
initialize
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    71
    "Invoked at system start or when the class is dynamically loaded."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    72
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    73
    "/ please change as required (and remove this comment)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    74
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    75
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    76
    ColorProfiles := Dictionary new.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    77
    ColorProfiles 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    78
        at: #default put: nil; "default color"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    79
        at: #red put: Color red lighter lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    80
        at: #green put: Color green lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    81
        at: #blue put: Color blue lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    82
        at: #yellow put: Color yellow lighter;
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    83
        at: #gray put: Color gray.       
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    84
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    85
    EvaluationLanguageMap :=  Dictionary new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    86
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    87
    "Modified: / 26-10-2013 / 00:42:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    88
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    89
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    90
!Inspector2 class methodsFor:'help specs'!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    91
18622
00e53ab225bf #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
    92
helpSpec
17877
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    93
    "This resource specification was automatically generated
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    94
     by the UIHelpTool of ST/X."
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    95
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    96
    "Do not manually edit this!! If it is corrupted,
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    97
     the UIHelpTool may not be able to read the specification."
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    98
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
    99
    "
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   100
     UIHelpTool openOnClass:Tools::Inspector2    
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   101
    "
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   102
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   103
    <resource: #help>
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   104
18622
00e53ab225bf #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
   105
    ^ super helpSpec addPairsFrom: #(
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   106
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   107
#backwardInVisitingHistory
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   108
'Move backward in the history of previously visited objects'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   109
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   110
#browseClassOfShownObject
17200
a22082c4f728 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17170
diff changeset
   111
'Open a SystemBrowser on the inspected object''s class'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   112
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   113
#browseFile
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   114
'Open a FileBrowser on the file represented by the shown object'
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   115
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   116
#editImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   117
'Open an ImageEditor on the bitmap/image represented by the shown object'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   118
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   119
#forwardInVisitingHistory
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   120
'Move forward in the history of previously visited objects'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   121
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   122
#colorProfile
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   123
'Change the color profile'
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   124
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   125
#refresh
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   126
'Refresh for changed object'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   127
17877
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   128
#evaluationLanguage
b1761a097d6e #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17815
diff changeset
   129
'Language used for evaluating expressions in code panes'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   130
)
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   131
18622
00e53ab225bf #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
   132
    "Modified: / 28-02-2019 / 11:56:51 / Claus Gittinger"
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
   133
! !
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   134
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   135
!Inspector2 class methodsFor:'image specs'!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   136
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   137
settingsIcon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   138
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   139
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   140
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   141
    ^self settingsIcon6
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   142
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   143
    "Modified: / 19-01-2012 / 14:00:35 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   144
    "Modified: / 28-02-2012 / 21:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   145
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   146
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   147
settingsIcon1
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   148
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   149
     by the ImageEditor of ST/X."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   150
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   151
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   152
     the ImageEditor may not be able to read the specification."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   153
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   154
    "
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   155
     self settingsIcon1 inspect
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   156
     ImageEditor openOnClass:self andSelector:#settingsIcon1
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   157
     Icon flushCachedIcons
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   158
    "
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   159
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   160
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   161
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   162
    ^Icon
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   163
        constantNamed:'Tools::Inspector2 settingsIcon1'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   164
        ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   165
P$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IU@@@@@@@@@@@/B#FV''9>_%#DJUTIBP$HJ(ZF!!V1V@_*UO*RQ-FGIA
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   166
R2%N^DIBP$HJ_Z1:E32BEU$3(1PTEAPTEAQ''''4IBP$HJ)A%@+*9@PD@Y$&$T''I2\''I0IJ4IBP$I8Q%04 8NC 8L?]B)$L  HB@ PT4IBP$I8&6(SN#(:N#A7
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   167
WR\2B@ HB@ RT4IBP$JVT#\7M3\7M209"7&J"(*J"(*''W$IBP$JVUE]WU5]WU6D]^X*J"()+"((>_DIBP$JV"DUEQTUEQPE&K(*J"+A K(*ET4IBP$H+] 0L
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   168
C@2MH NMR"ZTI(]1ZGFXC$IBP$H+G8<5!!CU5*7T!!MT13SCV (CV Q4IBP$H+JJ-VAUZ+%IQV!!AX=E$$V\FU0J4IBP$H+[J.+F*.T%IRT$1,[F1,[F1-CJ4IB
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   169
P$HN+7-Q^5EQTUEPW9^W%9^W%9].C$IBP$HN(''-QTUEQTRVUX&I"X&I"X&HKC$IBP$I<#HZ*****''U"Y&Y&Y&Y&Y&Y@M_DIBP$I<V(Z****** HF#(:N#(:N
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   170
HBB^_DIBP$I<_8Z*******(Q#(:N#(8OC0R-_DIBP$JZ$ZZA*J ;X8$-RF=/G#X8A11D&$IBP$H#&)*Z&)*Z&)*Z&)*Z&)*Z&)*ZSTIBP$IBP$IBP$IBP$IB
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   171
P$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IB') ; colorMapFromArray:#[102 126 156 94 131 167 114 143 168 89 127 166 127 156 177 89 130 167 125 154 175 112 141 173 184 184 184 111 137 168 101 125 155 94 142 177 92 130 167 93 143 177 97 121 151 127 157 177 104 131 163 122 151 174 100 127 161 113 142 172 164 173 181 142 161 180 91 133 170 140 160 179 122 145 171 134 154 177 85 122 161 99 140 174 109 140 173 95 128 164 120 145 174 90 121 160 128 156 177 88 128 167 88 126 165 98 112 130 134 153 175 105 139 168 83 119 159 98 126 160 91 120 159 125 148 173 108 134 165 98 122 152 105 137 169 119 145 172 86 121 159 102 125 156 113 142 171 100 123 154 163 172 180 140 159 179 124 148 173 89 129 167 117 144 174 105 138 169 114 142 173 101 133 166 114 143 172 111 137 167 142 160 179 91 132 169 92 124 160 122 147 173 135 155 177 119 143 170 0 0 0 99 139 173 108 139 173 95 132 168 126 149 174 98 121 152 122 147 174 90 133 170 87 123 163 121 145 171 87 127 165 96 110 128 131 153 176 146 163 180 97 134 167 181 181 181 107 136 168 97 120 151 102 131 166 108 122 140 85 124 163 99 134 168 118 149 173 143 161 180 108 135 167 139 159 180 125 149 173 106 135 167 96 119 150 106 143 173 86 120 159 98 132 168 117 151 177 112 138 167 96 123 157 92 134 170 92 128 164 121 145 172 88 126 164 119 141 168 115 142 171 82 112 152 93 122 160 127 148 172 94 139 174 121 146 174 91 134 170 88 125 164 120 143 170 86 125 164 118 143 170 83 121 161 94 124 162 111 140 170 100 124 154 162 171 179 138 158 179 160 169 177 96 120 150 132 155 178 146 163 181 110 138 170 144 162 180 109 136 167 142 161 179 123 148 174 90 131 168 90 126 163 159 168 176 86 123 162 97 127 164 114 140 169 183 183 183 95 126 161 106 133 166 90 128 166 128 157 177 87 127 166 123 154 177 112 140 172 129 150 174 95 135 171 182 182 182 114 149 175 99 123 153 108 145 175 89 127 165 124 154 177 95 119 149 116 142 171 185 185 185 102 134 164 96 143 177 99 122 153 90 130 168 137 158 180 102 130 165 135 154 176 131 153 177 147 164 181 110 137 169 96 125 160 110 137 167 141 159 178 180 180 180 161 170 178 135 156 179 102 142 176 135 156 177 97 125 162 84 117 156]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   172
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   173
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   174
settingsIcon2
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   175
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   176
     by the ImageEditor of ST/X."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   177
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   178
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   179
     the ImageEditor may not be able to read the specification."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   180
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   181
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   182
     self settingsIcon2 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   183
     ImageEditor openOnClass:self andSelector:#settingsIcon2
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   184
     Icon flushCachedIcons
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   185
    "
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   186
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   187
    <resource: #image>
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   188
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   189
    ^Icon
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   190
        constantNamed:'Tools::Inspector2 settingsIcon2'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   191
        ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   192
^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!_UEQTUEQTUERLCGQVU%YVU''PLW7!!8^G L\''I2NQ@0VHEX"!!)USP4W
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   193
M253CG!!8^G L"4(AT!!$YDABJZ$MCP4MCP4M^U''!!8^G L\6)*T5M*Z&)*J5]CA XFA XHU''!!8^G LB24-O#8>O#9>E7(,OV=/[6=BO7!!8^G LC5%9 HB@ AFB
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   194
V L=[6=/[6<[O7!!8^G!!VBS,;N3,;N6I[]%5/[6=/[6<#AW!!8^G!!VJVM#X6M#X7-LWV=/[6=0[6<%O7!!8^G!!VB&1,[F1,[H5EA6=/[2\GA6=?O7!!8^G!!V!!FU%
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   195
YVVFC!!VFK)EH$R85C#TNO7!!8^G!!VGD9.]V8 E"A.[$^OQ695]V95OG!!8^G!!VAAY@Y4@VRD!!@]RP^IBP$[TQ-U''!!8^G!!VWAXVXAYHRD!!H_ALSD1LSD1L3U''!!8
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   196
^G ?J#YHM$!!HRD!!$ 4%IRT%IRT%KO7!!8^G ?D#YHRD!!HRC,1JB (JB (JB"EO7!!8^G ?TQ=1\WE1@&!!7]7]7]7]7]2>NO7!!8^G ?@A=1\WE1\REOGQ4]GQ4]
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   197
GQ5+O7!!8^G ?"Q=1\WE1\WD&GQ4]GQ5FQ$X2O7!!8^G"H$@!!)PTEAXQ!!&EG5=MH^@$E@8"G!!8^G :"H"H"H"H"H"H"H"H"H"H"H"HH''!!8^G!!8^G!!8^G!!8^G!!8
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   198
^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8^G!!8') ; colorMapFromArray:#[139 152 168 154 164 174 136 152 167 134 148 165 130 145 164 133 144 160 220 220 220 128 145 164 140 153 169 138 153 169 133 148 167 148 159 172 135 147 162 145 156 170 129 148 167 143 156 170 156 165 175 141 156 170 136 150 167 134 155 172 146 158 172 129 148 168 165 170 174 144 156 170 142 155 169 156 165 174 152 161 172 135 148 165 130 145 165 149 163 173 130 151 169 164 169 173 126 145 165 142 156 169 133 140 149 133 147 165 130 151 170 131 147 165 146 160 172 127 143 163 143 160 173 136 150 168 133 147 166 149 160 172 133 146 163 147 159 171 128 146 166 146 162 173 157 166 175 142 159 172 136 156 173 134 154 171 145 157 172 129 147 167 165 169 173 145 157 170 139 154 171 154 164 175 134 141 150 137 154 169 134 145 161 166 171 175 146 159 172 133 145 160 127 147 166 140 153 168 137 150 166 209 214 218 131 152 170 131 149 167 148 163 173 128 148 167 218 218 218 139 157 172 152 163 174 132 154 172 132 149 167 146 157 170 128 148 168 147 162 172 139 155 171 138 151 168 155 165 174 152 163 173 136 148 163 148 159 171 134 146 161 144 155 169 158 166 175 142 156 170 138 152 168 135 151 168 131 146 165 166 170 174 145 157 171 139 146 155 127 146 165 141 154 168 137 153 169 134 152 169 133 152 168 131 150 168 144 157 171 129 150 168 144 159 171 139 153 168 152 162 173 133 156 173 132 151 169 130 152 170 129 149 168 219 219 219 126 141 161 217 217 217 153 164 175 150 161 173 135 146 162 130 150 169 132 148 165 147 162 173 85 85 85 141 156 171 139 152 167 134 151 169 132 152 170 145 158 172 146 158 171 130 148 166 142 156 171 158 167 175 140 155 170 138 156 171 132 147 166 132 156 173 130 149 168 143 157 172 132 144 159 140 154 170 155 164 174 151 162 174 136 147 163 132 150 168 131 156 173 128 147 167 141 155 171 126 144 164]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   199
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   200
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   201
settingsIcon3
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   202
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   203
     by the ImageEditor of ST/X."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   204
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   205
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   206
     the ImageEditor may not be able to read the specification."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   207
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   208
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   209
     self settingsIcon3 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   210
     ImageEditor openOnClass:self andSelector:#settingsIcon3
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   211
     Icon flushCachedIcons
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   212
    "
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   213
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   214
    <resource: #image>
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   215
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   216
    ^Icon
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   217
        constantNamed:'Tools::Inspector2 settingsIcon3'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   218
        ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   219
V%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%(YS$9NS$9NS$:_Z4ZT&)*Z%DY+FU)ZV%)+[F1,M$TUTJL9Q1)$_%&L
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   220
[QXPQ%)ZV%)+Y),)Q8JBQW]GH51\WE1\WE2F&%)ZV%)+PQI@$IA@PD@RORI\@ HB@ I_[5)ZV%)FZAXOB@ HB@ ,\WL8"2X&I"X[''%)ZV%)F[)5"!!HRD!!C<]
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   221
D7JKI"X&I"XK''%)ZV%*T"T=OS4=OS3I IWAJR$)JR$)]@5)ZV%*TZ"@ HB@ HEES\D)JR$(>R$)U@5)ZV%*T"*B (JB (A=MN4)JR%!!BN4)^''%)ZV%)/]FM#
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   222
X6NQY8"Q @5TCR!!LK40N%5)ZV%)/QCE? W>\#Y0I_3E<LW<GA7<G!!5)ZV%)/)H58GG"MUEQ8 PD+@S(A^$%:[5)ZV%)/!!X6MKX5TUEQTEADQDQDQDQE!![5)Z
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   223
V%*WMU\7U3\7M3^CJ)VU%YVU%YT^%5)ZV%*WI5\7M3\7M4<JP4MCP4MCP4L0%5)ZV%(C&@ZS$9NSU)%[V5-[V5-[V6T<@5)ZV%(CM@ZS$9NS$4,E(*J"(*J"
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   224
%)Z!!@5)ZV%(CE0ZS$9NS$9L@(*J"(*H!!HRE9@5)ZV%*OZU==FA!!_ABPLK''U5T''ZD#$"R#5)ZV%(3#8>O#8>O#8>O#8>O#8>O#8>O^5)ZV%)ZV%)ZV%)ZV%)Z
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   225
V%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)ZV%)Z') ; colorMapFromArray:#[139 210 255 54 187 255 255 255 255 72 156 255 113 188 255 149 215 255 207 233 255 52 182 255 142 201 255 47 179 255 118 210 255 85 168 255 134 197 255 23 159 255 49 176 255 145 201 255 161 208 255 78 198 255 169 209 255 99 181 255 66 190 255 191 224 255 147 202 255 109 186 255 108 187 255 81 160 255 170 209 255 95 176 255 50 184 255 112 195 255 63 199 255 65 181 255 78 185 255 151 218 255 133 191 255 172 210 255 118 189 255 69 171 255 255 253 253 89 173 255 37 163 255 180 215 255 96 204 255 56 186 255 141 200 255 32 164 255 139 200 255 43 177 255 62 207 255 42 178 255 96 192 255 55 142 255 104 182 255 73 162 255 181 221 255 255 244 244 69 162 255 193 226 255 52 189 255 33 161 255 61 211 255 156 204 255 16 137 255 116 197 255 171 212 255 161 213 255 33 158 255 127 212 255 51 158 255 188 224 255 85 163 255 183 221 255 108 190 255 57 190 255 255 250 250 116 200 255 43 169 255 60 177 255 90 167 255 96 195 255 195 223 255 77 178 255 135 196 255 70 173 255 254 248 248 60 165 255 91 187 255 209 234 255 25 154 255 135 193 255 0 0 0 145 216 255 220 240 255 73 166 255 55 170 255 110 185 255 83 180 255 78 197 255 114 193 255 59 180 255 152 202 255 143 215 255 165 217 255 45 170 255 149 203 255 113 189 255 88 175 255 88 166 255 177 215 255 137 197 255 123 194 255 79 161 255 215 237 255 131 195 255 81 167 255 103 180 255 66 165 255 138 197 255 126 196 255 190 220 255 33 167 255 87 201 255 54 190 255 46 142 255 38 176 255 107 185 255 139 197 255 50 181 255 42 164 255 52 185 255 188 219 255 73 188 255 119 194 255 63 160 255 139 196 255 79 158 255 50 171 255 101 182 255 75 167 255 218 239 255 132 195 255 213 236 255 114 190 255 69 156 255 171 218 255 57 177 255 105 187 255 255 242 242 80 162 255 102 206 255 154 218 255 76 162 255 100 177 255 131 210 255 80 159 255 173 212 255 20 163 255 120 192 255 76 159 255 90 164 255 69 185 255 67 205 255 154 221 255 197 224 255 55 155 255]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself]
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   226
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   227
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   228
settingsIcon4
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   229
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   230
     by the ImageEditor of ST/X."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   231
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   232
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   233
     the ImageEditor may not be able to read the specification."
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   234
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   235
    "
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   236
     self settingsIcon4 inspect
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   237
     ImageEditor openOnClass:self andSelector:#settingsIcon4
15761
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   238
     Icon flushCachedIcons
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   239
    "
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   240
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   241
    <resource: #image>
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   242
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   243
    ^Icon
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   244
        constantNamed:'Tools::Inspector2 settingsIcon4'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   245
        ifAbsentPut:[(Depth8Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   246
GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4ZHB@ HB@ HB@VE3T^C0<OG#TWF!!4]GQ4WB0,KB"<S@B$$F3PPKATX
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   247
L!!PGMQ4]GQ4WHPX1F2</K2 [MCP,KB0,KB0,C14]GQ4WA08+J2,+J2,NI"\''I2\''G1<_D!!4]GQ45IQP-LC@0LC@0LB(*J"(#H2L#AA4]GQ45BP4LFQ$0LC@0
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   248
H"8.K"8HB@ HAA4]GQ4^L3L3L3L3L3L3L3L3L3L3L3L3@Q4]GQ4^L3L3L3L3L3L3L3L3L3L3L3L3@Q4]GQ4^L3L3L3L3L3L3L3L3L3L3L3L3AA4]GQ4RL3L3
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   249
L3L3L3L3L3L3L3L3L3L3@!!4]GQ4RL3L3L3L3L3L3L3L3L3L3L3L3@14]GQ4RL3L3L3L3L3L3L3L3L3L3L3L3D!!4]GQ4RL3L3L3L3L3L3L3L3L3L3L3L3D!!4]
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   250
GQ4BL3L3L3L3L3L3L3L3L3L3L3L3@!!4]GQ4BL3L3L3L3L3L3L3L3L3L3L3L3@!!4]GQ4AL3L3L3L3L3L3L3L3L3L3L3L3@Q4]GQ4AL3L3L3L3L3L3L3L3L3L3
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   251
L3L3@Q4]GQ4AL3L3L3L3L3L3L3L3L3L3L3L3@Q4]GQ4EL3L3L3L3L3L3L3L3L3L3L3L3AQ4]GQ4QAPTEAPTEAPTEAPTEAPTEAPTEGA4]GQ4]GQ4]GQ4]GQ4]
6e813b5ae4f0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15716
diff changeset
   252
GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ4]') ; colorMapFromArray:#[255 255 195 72 156 255 76 162 255 79 158 255 76 159 255 69 156 255 255 255 173 255 255 160 255 255 85 255 255 123 255 255 181 255 255 177 255 255 113 255 255 120 255 255 169 80 159 255 255 255 152 55 142 255 79 161 255 255 255 191 255 255 147 255 255 134 90 164 255 88 166 255 255 255 131 255 255 118 81 160 255 255 255 183 46 142 255 0 0 0 80 162 255 255 255 109 90 167 255 255 255 165 255 255 99 255 255 95 255 255 193 255 255 149 255 255 156 255 255 132 255 255 190 255 255 197 255 255 102 255 255 171 255 255 138 255 255 145 254 255 80 255 255 188 254 254 142 255 255 180 255 255 136 101 182 255 255 255 170 85 163 255]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@') ; yourself); yourself]
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   253
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   254
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   255
settingsIcon5
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   256
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   257
    <resource: #image>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   258
18296
afeed2a68bd5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 18229
diff changeset
   259
    ^ ToolbarIconLibrary palette16x16Icon
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   260
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   261
    "Created: / 19-01-2012 / 14:00:24 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   262
    "Modified: / 18-02-2012 / 16:28:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18296
afeed2a68bd5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 18229
diff changeset
   263
    "Modified: / 28-07-2018 / 09:50:05 / Claus Gittinger"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   264
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   265
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   266
settingsIcon6
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   267
    "This resource specification was automatically generated
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   268
     by the ImageEditor of ST/X."
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   269
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   270
    "Do not manually edit this!! If it is corrupted,
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   271
     the ImageEditor may not be able to read the specification."
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   272
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   273
    "
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   274
     self settingsIcon6 inspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   275
     ImageEditor openOnClass:self andSelector:#settingsIcon6
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   276
     Icon flushCachedIcons
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   277
    "
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   278
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   279
    <resource: #image>
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   280
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   281
    ^Icon
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   282
        constantNamed:'Tools::Inspector2 settingsIcon6'
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   283
        ifAbsentPut:[(Depth8Image new) width:25; height:25; bits:(ByteArray fromPackedString:'
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   284
(:N#(:N#(:N#(:N#(:N#(:N#(:N#(:N#(:IWY&Y&Y&Y1(!!8*J"4*J#""JCX6M3X6PJJ"YG]7]7]7]:H$O#8>O#8>(#MBP$IBP$J"(FA5]WU5]WV G3(:N#(:
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   285
N*@+PTEAPTEA(I=X[7A/\F=/''1X1LSD1LSF_H34=OC0<OI>^T6-+Z6-+Z98QI2\''I2\''''!!,5MST5MSV^''T=''Y6]''Y6^]B2D!!HRD!!HY4TLC@0LB<0''Y1VX&I"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   286
X&I"''@<XFA XFA"\FRX&I"X&I)2[&9.[&9.[&9.[&9.[&9.[&9.[&9.[&9.[&V9;^7-;^8NY_(2L#H2L&I$]KB0.KB09&Y!!8#8>O#8>O&H&!!(ZF!!(ZFXIS<?
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   287
O3<?O9"V](.K"8.K"9ZF''Y6]''Y6]%"@;N3,;N3.V%WRD!!XRD!!HRU_9&Y&Y&Y&YTWL#P2L#H2%YQ- HB@ HB@%G6U%YVU%YVTD"$)JR$)JYRSZW1<_G1<_IM9
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   288
$YFQ$YFQ$00"H"H"H"JS$WI:^''):^''*Q X:N#(:N#)DPF!!(ZF!!(Z$YBP$IBP$IBP$IBP$IBP$IBP$IBP$IBP$IBNTU=_W5=_Z(9FTEAPTEA]# \JB 4JB!!VN
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   289
#U-3\7M3\7NMSFU%YVU%YX4IGA0\GA0\#X)U[F1,[F1,"$%!!XVE!!XVFJA!!LSD1LSD8*IT&!!(ZF!!(ZH%GVU1YWE%Y"PPNC 8NC :I"D-#X6M#X6NHQEQTUEQT
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   290
UH BB@ HB@ H"H]HW%9^W%9^!!4MNS$9NS$:G@@TEAPTEAX^BSU)ZV%)ZV(IER$)JR$)J  DC@0LC@0NB (JB (JB (JB (JB (JB (JB (JB (JB  @a') ; colorMapFromArray:#[88 88 211 89 89 220 91 91 215 94 94 231 96 96 219 97 97 234 99 99 224 100 100 217 101 101 239 103 103 227 105 105 229 211 88 88 170 88 211 105 106 229 106 106 243 220 89 89 176 89 220 215 91 91 174 91 215 110 110 248 211 88 170 111 111 242 219 96 96 178 96 219 231 94 94 220 89 176 185 94 231 215 91 174 114 114 252 177 100 217 217 100 100 224 99 99 182 99 224 234 97 97 189 97 234 219 96 178 227 103 103 186 103 227 231 94 185 239 101 101 217 100 177 193 101 239 229 105 105 224 99 182 188 105 229 229 106 105 188 106 229 234 97 188 234 97 189 243 106 106 197 106 243 227 103 186 198 106 243 239 101 193 229 105 188 229 106 188 242 111 111 198 111 242 248 110 110 202 110 248 243 106 197 243 106 198 252 114 114 206 114 252 242 111 198 248 110 202 252 114 206 88 170 211 91 174 215 89 176 220 100 177 217 96 178 219 88 197 88 99 182 224 94 185 231 91 201 91 103 186 227 89 205 89 97 189 234 211 170 88 105 188 229 100 204 100 96 206 96 215 174 91 101 193 239 99 209 99 220 176 89 217 177 100 219 178 96 106 197 243 94 216 94 103 213 103 106 198 243 111 198 242 97 219 97 105 216 105 224 182 99 110 202 248 231 185 94 101 223 101 227 186 103 114 206 252 229 188 105 234 189 97 106 228 106 170 211 88 111 228 111 239 193 101 110 232 110 174 215 91 177 217 100 243 197 106 243 198 106 242 198 111 176 220 89 114 236 114 178 219 96 248 202 110 182 224 99 252 206 114 186 227 103 211 211 211 185 231 94 188 229 105 189 234 97 215 215 215 217 217 217 219 219 219 193 239 101 220 220 220 223 223 223 198 242 111 197 243 106 198 243 106 224 224 224 225 225 225 226 226 226 227 227 227 228 228 228 202 248 110 229 229 229 230 230 230 231 231 231 206 252 114 233 233 233 234 234 234 235 235 235 236 236 236 237 237 237 239 239 239 240 240 240 241 241 241 242 242 242 243 243 243 244 244 244 245 245 245 246 246 246 248 248 248 249 249 249 250 250 250 251 251 251 252 252 252 253 253 253 254 254 254]; yourself]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   291
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   292
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   293
!Inspector2 class methodsFor:'interface specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   294
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   295
windowSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   296
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   297
     by the UIPainter of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   298
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   299
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   300
     the UIPainter may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   301
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   302
    "
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   303
     UIPainter new openOnClass:Tools::Inspector2 andSelector:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   304
     Tools::Inspector2 new openInterface:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   305
     Tools::Inspector2 open
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   306
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   307
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   308
    <resource: #canvas>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   309
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   310
    ^ 
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   311
    #(FullSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   312
       name: windowSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   313
       window: 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   314
      (WindowSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   315
         label: 'Inspector2'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   316
         name: 'Inspector2'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   317
         labelChannel: windowTitleAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   318
         min: (Point 0 0)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   319
         bounds: (Rectangle 0 0 490 654)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   320
         menu: mainMenu
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   321
       )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   322
       component: 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   323
      (SpecCollection
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   324
         collection: (
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   325
          (MenuPanelSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   326
             name: 'ToolBar'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   327
             layout: (LayoutFrame 0 0 0 0 0 1 40 0)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   328
             backgroundChannel: toolbarBackgroundHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   329
             menu: toolbarMenu
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   330
             textDefault: true
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   331
           )
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   332
          (NoteBookViewSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   333
             name: 'NoteBook'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   334
             layout: (LayoutFrame 0 0 40 0 0 1 0 1)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   335
             model: tabSelectionIndexAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   336
             menu: tabLabelsAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   337
             useIndex: true
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   338
             fitLastRow: false
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   339
             canvas: tabViewAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   340
             keepCanvasAlive: true
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   341
           )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   342
          (ComboListSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   343
             name: 'EvaluationLanguageCombo'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   344
             layout: (LayoutFrame -200 1 7 0.0 -40 1 32 0)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   345
             activeHelpKey: evaluationLanguage
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   346
             visibilityChannel: evaluationLanguageComboVisibleHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   347
             model: evaluationLanguageHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   348
             comboList: evaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   349
             useIndex: false
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   350
             postBuildCallback: postBuildEvaluationLanguageCombo:
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   351
           )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   352
          )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   353
        
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   354
       )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   355
     )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   356
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   357
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   358
!Inspector2 class methodsFor:'menu specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   359
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   360
fileMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   361
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   362
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   363
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   364
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   365
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   366
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   367
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   368
    "
18464
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   369
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#fileMenu
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   370
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 fileMenu)) startUp
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   371
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   372
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   373
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   374
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   375
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   376
     #(Menu
18464
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   377
        (
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   378
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   379
            label: 'Deiconify all Inspectors'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   380
            itemValue: deiconifyAllInspectors
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   381
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   382
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   383
            label: '-'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   384
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   385
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   386
            label: 'Iconify all Other Inspectors'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   387
            itemValue: iconifyAllOtherInspectors
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   388
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   389
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   390
            label: 'Iconify all Inspectors'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   391
            itemValue: iconifyAllInspectors
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   392
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   393
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   394
            label: '-'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   395
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   396
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   397
            label: 'Close all Other Inspectors'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   398
            itemValue: closeAllOtherInspectors
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   399
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   400
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   401
            label: 'Close all Inspectors'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   402
            itemValue: closeAllInspectors
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   403
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   404
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   405
            label: '-'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   406
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   407
         (MenuItem
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   408
            label: 'Exit'
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   409
            itemValue: closeRequest
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   410
          )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   411
         )
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   412
        nil
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   413
        nil
74893c113f66 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18380
diff changeset
   414
      )
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   415
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   416
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   417
helpMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   418
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   419
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   420
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   421
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   422
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   423
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   424
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   425
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   426
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   427
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   428
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   429
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   430
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   431
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   432
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   433
     #(Menu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   434
              (
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   435
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   436
                  label: 'Inspector Documentation'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   437
                  itemValue: openDocumentation
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   438
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   439
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   440
                  label: '-'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   441
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   442
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   443
                  label: 'About this Application...'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   444
                  itemValue: openAboutThisApplication
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   445
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   446
               )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   447
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   448
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   449
            )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   450
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   451
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   452
mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   453
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   454
     by the MenuEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   455
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   456
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   457
     the MenuEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   458
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   459
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   460
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   461
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   462
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   463
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   464
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   465
    <resource: #menu>
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   466
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   467
    ^ 
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   468
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   469
        (
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   470
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   471
            label: 'File'
17170
843b84578f41 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17153
diff changeset
   472
            submenuChannel: fileMenu
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   473
          )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   474
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   475
            label: 'View'
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   476
            submenuChannel: viewMenu
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   477
          )
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   478
         (MenuItem
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   479
            label: 'Operations'
16818
7c848d283910 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16815
diff changeset
   480
            isVisible: operationsMenuEnabledHolder
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   481
            submenuChannel: operationsMenu
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   482
          )
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   483
         (MenuItem
15402
72b0446acda3 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15295
diff changeset
   484
            label: 'MENU_Help'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   485
            startGroup: conditionalRight
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   486
            submenuChannel: helpMenu
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   487
          )
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   488
         )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   489
        nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   490
        nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   491
      )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   492
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   493
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   494
settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   495
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   496
     by the MenuEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   497
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   498
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   499
     the MenuEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   500
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   501
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   502
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   503
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   504
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   505
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   506
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   507
    <resource: #menu>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   508
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   509
    ^ 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   510
     #(Menu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   511
        (
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   512
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   513
            label: 'Default'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   514
            nameKey: Default
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   515
            hideMenuOnActivated: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   516
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   517
            choiceValue: default
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   518
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   519
         (MenuItem
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   520
            label: '-'
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   521
          )
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   522
         (MenuItem
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   523
            label: 'Red'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   524
            nameKey: Red
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   525
            hideMenuOnActivated: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   526
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   527
            choiceValue: red
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   528
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   529
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   530
            label: 'Green'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   531
            nameKey: Green
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   532
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   533
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   534
            choiceValue: green
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   535
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   536
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   537
            label: 'Blue'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   538
            nameKey: Blue
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   539
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   540
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   541
            choiceValue: blue
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   542
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   543
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   544
            label: 'Yellow'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   545
            nameKey: Yellow
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   546
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   547
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   548
            choiceValue: yellow
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   549
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   550
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   551
            label: 'Gray'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   552
            nameKey: Gray
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   553
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   554
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   555
            choiceValue: gray
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   556
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   557
         )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   558
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   559
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   560
      )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   561
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   562
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   563
toolbarMenu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   564
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   565
     by the MenuEditor of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   566
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   567
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   568
     the MenuEditor may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   569
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   570
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   571
    "
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   572
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   573
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   574
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   575
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   576
    <resource: #menu>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   577
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   578
    ^ 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   579
     #(Menu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   580
        (
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   581
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   582
            activeHelpKey: backwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   583
            enabled: backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   584
            label: 'Back'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   585
            itemValue: backButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   586
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   587
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   588
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   589
            submenuChannel: backButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   590
            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   591
          )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   592
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   593
            activeHelpKey: forwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   594
            enabled: forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   595
            label: 'Forward'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   596
            itemValue: forwardButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   597
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   598
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   599
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   600
            submenuChannel: forwardButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   601
            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   602
          )
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   603
         (MenuItem
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   604
            label: '-'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   605
          )
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   606
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   607
            activeHelpKey: browseClassOfShownObject
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   608
            enabled: browseButtonEnabledHolder
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   609
            label: 'Browse'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   610
            itemValue: browseClassAction
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   611
            translateLabel: true
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   612
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   613
            hideMenuOnActivated: false
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   614
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   615
          )
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   616
         (MenuItem
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   617
            activeHelpKey: browseFile
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   618
            label: 'Browse File'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   619
            itemValue: browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   620
            translateLabel: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   621
            isButton: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   622
            isVisible: currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   623
            hideMenuOnActivated: false
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   624
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon)
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   625
          )
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   626
         (MenuItem
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   627
            activeHelpKey: editImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   628
            label: 'Edit the Image'
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   629
            itemValue: editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   630
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   631
            isButton: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   632
            isVisible: currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   633
            hideMenuOnActivated: false
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   634
            labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon)
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   635
          )
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   636
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   637
            activeHelpKey: refresh
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   638
            label: 'Refresh for Changed Object'
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   639
            itemValue: refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   640
            translateLabel: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   641
            isButton: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   642
            startGroup: right
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   643
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   644
          )
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   645
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   646
            activeHelpKey: colorProfile
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   647
            label: 'Settings'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   648
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   649
            isButton: true
11265
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   650
            isVisible: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   651
            submenuChannel: settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   652
            labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   653
          )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   654
         )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   655
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   656
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   657
      )
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   658
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   659
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   660
viewMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   661
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   662
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   663
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   664
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   665
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   666
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   667
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   668
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   669
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#viewMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   670
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 viewMenu)) startUp
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   671
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   672
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   673
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   674
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   675
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   676
     #(Menu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   677
        (
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   678
         (MenuItem
18494
4cc60a44f50d #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18464
diff changeset
   679
            label: 'Suppress Pseudo Slots (Extra Attributes)'
17590
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   680
            itemValue: suppressPseudoSlotsHolderChanged
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   681
            indication: suppressPseudoSlotsHolder
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   682
          )
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   683
         (MenuItem
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   684
            label: '-'
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   685
          )
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   686
         (MenuItem
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   687
            label: 'Expand Arrays in "all xxx"-Lists'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   688
            itemValue: expandArraysInAllList:
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   689
            indication: expandArraysInAllList
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   690
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   691
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   692
            label: 'Alphabetical'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   693
            itemValue: showAlphabeticalHolderChanged
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   694
            indication: showAlphabeticalHolder
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   695
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   696
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   697
            label: '-'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   698
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   699
         (MenuItem
18021
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   700
            label: 'Set the Length Limit on Value Display Strings...'
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   701
            itemValue: menuSetMaxValueDisplayStringLength
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   702
          )
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   703
         (MenuItem
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   704
            label: '-'
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   705
          )
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
   706
         (MenuItem
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   707
            label: 'Color Setting'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   708
            submenuChannel: settingsMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   709
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   710
         )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   711
        nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   712
        nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   713
      )
17590
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   714
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   715
    "Modified: / 18-07-2017 / 15:21:11 / cg"
18494
4cc60a44f50d #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18464
diff changeset
   716
    "Modified: / 27-10-2018 / 19:13:38 / Claus Gittinger"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   717
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   718
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   719
!Inspector2 class methodsFor:'startup'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   720
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   721
openOn: anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   722
12515
a0fbafe08367 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12357
diff changeset
   723
    ^ self new openOn: anObject.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   724
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   725
    "Modified: / 17-02-2008 / 10:29:45 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   726
    "Modified (format): / 11-07-2011 / 22:28:03 / cg"
13132
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   727
!
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   728
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   729
openOn: anObject title:aString
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   730
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   731
    ^ self new 
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   732
        openOn: anObject;
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   733
        windowTitle:aString
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   734
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   735
    "
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   736
     self openOn:(Array new:3)
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   737
     self openOn:(Array new:3) title:'my array'
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   738
    "
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   739
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   740
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   741
!Inspector2 class methodsFor:'testing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   742
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   743
testSimpleShow
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   744
    |ins|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   745
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   746
    ins := Inspector2 openOn:4.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   747
    ins inspect:10.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   748
    ins inspect:42.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   749
    ins inspect:'dead one'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   750
    ins inspect:'rolled back'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   751
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   752
    "/ins inspectItem: (ins history at: 3).  "/ Rollback history, zustanou jen prvni 3
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   753
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   754
    ins inspect:'xFuj'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   755
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   756
    "Modified: / 11-01-2008 / 20:36:37 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   757
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   758
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   759
!Inspector2 methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   760
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   761
backButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   762
    ^ self backButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   763
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   764
    "Created: / 12-01-2008 / 19:14:35 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   765
    "Modified (format): / 19-08-2011 / 08:59:41 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   766
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   767
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   768
currentObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   769
    ^ self navigationState theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   770
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   771
    "Created: / 13-01-2008 / 10:14:47 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   772
    "Modified: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   773
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   774
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   775
currentState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   776
    ^ self navigationHistoryHolder currentItem
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   777
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   778
    "Created: / 21-02-2008 / 19:39:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   779
    "Modified: / 27-02-2008 / 11:56:55 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   780
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   781
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   782
forwardButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   783
    ^ self forwardButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   784
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   785
    "Created: / 12-01-2008 / 19:14:48 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   786
    "Modified (format): / 19-08-2011 / 08:59:45 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   787
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   788
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   789
navigationState
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   790
    ^ self navigationHistoryHolder value currentItem
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   791
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   792
    "Created: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   793
    "Modified: / 21-02-2008 / 19:34:14 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   794
    "Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   795
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   796
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   797
navigationState:historyItem 
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   798
    self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   799
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   800
    "/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   801
    "/self updateTabs.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   802
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   803
    "Created: / 17-02-2008 / 09:49:11 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   804
    "Modified: / 21-02-2008 / 19:47:26 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   805
    "Modified: / 22-07-2011 / 19:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   806
    "Modified: / 19-08-2011 / 09:16:38 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   807
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   808
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   809
!Inspector2 methodsFor:'aspects'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   810
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   811
backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   812
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   813
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   814
    ^(AspectAdaptor forAspect:#canGoBack)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   815
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   816
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   817
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   818
    "Modified: / 27-02-2008 / 12:11:30 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   819
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   820
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   821
browseButtonEnabledHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   822
    ^ BlockValue
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   823
        with:[:m | m notNil]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   824
        argument:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   825
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   826
    "Created: / 19-08-2011 / 09:22:47 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   827
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   828
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   829
colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   830
    "return/create the 'colorProfileHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   831
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   832
    colorProfileHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   833
        colorProfileHolder := ValueHolder with: #default.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   834
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   835
    ^ colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   836
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   837
    "Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   838
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   839
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   840
currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   841
    currentObjectHolder isNil ifTrue:[
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   842
        currentObjectHolder := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   843
        currentObjectHolder addDependent: self.
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   844
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   845
    ^ currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   846
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   847
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   848
    "Created: / 19-08-2011 / 08:58:48 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   849
    "Modified: / 26-10-2013 / 00:34:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   850
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   851
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   852
currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   853
    ^ BlockValue
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
   854
        with:[:o | o isProtoObject not and:[o isFilename] ]
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   855
        argument:self currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   856
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   857
    "Created: / 19-08-2011 / 08:56:27 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   858
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   859
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   860
currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   861
    ^ BlockValue
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
   862
        with:[:o | o isProtoObject not and:[o isImage] ]
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   863
        argument:self currentObjectHolder
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   864
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   865
    "Created: / 15-01-2012 / 10:06:28 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   866
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   867
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   868
evaluationLanguageComboVisibleHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   869
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   870
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   871
    "/ Do not show language combo when language is Smalltalk.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   872
    "/ For those not working with multiple languages is too disturbing.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   873
    ^ BlockValue
16899
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
   874
        with:[:o | o class programmingLanguage notNil and:[o class programmingLanguage isSmalltalk not] ]
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   875
        argument:self currentObjectHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   876
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   877
    "Modified (comment): / 25-10-2013 / 19:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   878
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   879
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   880
evaluationLanguageHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   881
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   882
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   883
    evaluationLanguageHolder isNil ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   884
        evaluationLanguageHolder := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   885
       evaluationLanguageHolder addDependent:self.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   886
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   887
    ^ evaluationLanguageHolder.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   888
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   889
    "Modified: / 26-10-2013 / 00:43:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   890
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   891
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   892
evaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   893
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   894
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   895
    evaluationLanguageList isNil ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   896
        evaluationLanguageList := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   897
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   898
    ^ evaluationLanguageList.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   899
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   900
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   901
expandArraysInAllList
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   902
    ^ InspectorView expandArraysInAllLists
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   903
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   904
    "Created: / 30-01-2012 / 16:52:46 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   905
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   906
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   907
expandArraysInAllList:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   908
    InspectorView expandArraysInAllLists:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   909
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   910
    "Created: / 30-01-2012 / 16:53:15 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   911
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   912
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   913
forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   914
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   915
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   916
    ^(AspectAdaptor forAspect:#canGoForward)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   917
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   918
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   919
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   920
    "Modified: / 27-02-2008 / 12:11:26 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   921
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   922
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   923
navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   924
    "return/create the 'currentItemHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   925
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   926
    navigationHistoryHolder isNil ifTrue:[
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   927
        navigationHistoryHolder := Tools::NavigationHistory new.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   928
    ].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   929
    ^ navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   930
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   931
    "Created: / 21-02-2008 / 19:34:14 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   932
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   933
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   934
navigationStateAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   935
    navigationStateAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   936
        navigationStateAspect := (AspectAdaptor forAspect:#currentItem) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   937
                    subjectChannel:self navigationHistoryHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   938
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   939
    ^ navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   940
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   941
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   942
    "Modified (format): / 19-08-2011 / 08:59:10 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   943
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   944
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   945
operationsMenuEnabledHolder
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   946
    operationsMenuEnabledHolder isNil ifTrue:[
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   947
        operationsMenuEnabledHolder := false asValue.
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   948
    ].
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   949
    ^ operationsMenuEnabledHolder
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   950
!
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
   951
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   952
showAlphabeticalHolder
18947
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
   953
      ^ builder valueAspectFor:#showAlphabeticalHolder initialValue:(LastAlphabetical ? false)
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   954
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   955
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   956
sortOrderHolder
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   957
      ^ builder 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   958
            valueAspectFor:#sortOrderHolder 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   959
            initialValue:(InspectorView defaultSortOrder) 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   960
!
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
   961
17590
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   962
suppressPseudoSlotsHolder
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   963
      ^ builder booleanValueAspectFor:#suppressPseudoSlotsHolder
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   964
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   965
    "Created: / 18-07-2017 / 15:21:36 / cg"
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   966
!
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
   967
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   968
tabLabelsAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   969
    ^ (AspectAdaptor forAspect:#tabLabels) 
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   970
        subjectChannel:self navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   971
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   972
    "Created: / 16-01-2008 / 17:29:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   973
    "Modified: / 27-02-2008 / 12:05:32 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   974
    "Modified (format): / 19-08-2011 / 08:59:21 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   975
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   976
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   977
tabSelectionIndexAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   978
    ^ ((AspectAdaptor forAspect:#selectionIndex) 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   979
        subjectChannel:self navigationStateAspect)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   980
        onChangeEvaluate:[ self tabViewAspect changed ];
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   981
        yourself
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   982
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   983
    "Created: / 16-01-2008 / 17:29:29 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   984
    "Modified: / 27-02-2008 / 12:06:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   985
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   986
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   987
tabViewAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   988
    tabViewAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   989
        tabViewAspect := (AspectAdaptor forAspect:#selectionView) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   990
                    subjectChannel:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   991
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   992
    ^ tabViewAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   993
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   994
    "Created: / 16-01-2008 / 17:30:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   995
    "Modified: / 27-02-2008 / 12:05:46 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   996
    "Modified (format): / 19-08-2011 / 08:59:35 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   997
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   998
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   999
toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1000
    "return/create the 'toolbarBackgroundHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1001
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1002
    toolbarBackgroundHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1003
        toolbarBackgroundHolder := BlockValue
18767
0478d93cdb75 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 18622
diff changeset
  1004
            with:[:profile| 
0478d93cdb75 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 18622
diff changeset
  1005
                    (ColorProfiles at:profile) ? MenuPanel defaultBackgroundColor
0478d93cdb75 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 18622
diff changeset
  1006
                ] 
0478d93cdb75 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 18622
diff changeset
  1007
            argument:self colorProfileHolder.            
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1008
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1009
    ^ toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1010
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1011
    "Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18767
0478d93cdb75 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 18622
diff changeset
  1012
    "Modified: / 17-05-2019 / 17:11:29 / Stefan Vogel"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1013
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1014
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1015
windowTitleAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1016
    ^ (AspectAdaptor forAspect:#displayString) 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1017
        subjectChannel:self navigationStateAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1018
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1019
    "Created: / 17-02-2008 / 08:42:21 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1020
    "Modified: / 27-02-2008 / 12:05:56 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1021
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1022
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1023
!Inspector2 methodsFor:'change & update'!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1024
18947
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1025
setShowAlphabeticalInSubInspectors
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1026
    |nowAlphabetical|
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1027
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1028
    nowAlphabetical := self showAlphabeticalHolder value.
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1029
    self navigationHistoryHolder currentItem tabViews do:[:each |
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1030
        (each isKindOf:InspectorView) ifTrue:[
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1031
            each showAlphabetical:nowAlphabetical
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1032
        ]
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1033
    ].
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1034
!
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1035
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1036
showAlphabeticalHolderChanged
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1037
    LastAlphabetical := self showAlphabeticalHolder value.
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1038
    self setShowAlphabeticalInSubInspectors.
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1039
!
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1040
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1041
suppressPseudoSlotsHolderChanged
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1042
    self navigationHistoryHolder currentItem tabViews do:[:each |
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1043
        (each isKindOf:InspectorView) ifTrue:[
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1044
            each suppressPseudoSlots:(self suppressPseudoSlotsHolder value)
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1045
        ]
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1046
    ].
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1047
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1048
    "Created: / 18-07-2017 / 15:22:02 / cg"
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1049
!
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1050
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1051
update:something with:aParameter from:changedObject
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1052
    "Invoked when an object that I depend upon sends a change notification."
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1053
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1054
    "stub code automatically generated - please change as required"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1055
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1056
    changedObject == currentObjectHolder ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1057
         self updateEvaluationLanguageList.
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1058
         self updateOperationsMenu.
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1059
         ^ self.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1060
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1061
    changedObject == evaluationLanguageHolder  ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1062
         self updateEvaluationLanguage.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1063
         ^ self.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1064
    ].  
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1065
    super update:something with:aParameter from:changedObject
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1066
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1067
    "Modified: / 26-10-2013 / 00:44:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1068
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1069
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1070
updateEvaluationLanguage
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1071
    | evaluationLanguage objectsLanguage lastLanguage |
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1072
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1073
    evaluationLanguage :=  self evaluationLanguageHolder value.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1074
    "/ Remember user's selection for future...
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1075
    objectsLanguage := self currentObject class programmingLanguage.
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1076
    lastLanguage := EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ].
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1077
    lastLanguage ~~ evaluationLanguage ifTrue:[ 
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1078
        EvaluationLanguageMap at: objectsLanguage put: evaluationLanguage 
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1079
    ].
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1080
    "/ Update compiler class in all inspectors...
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1081
    self setDoItActionForLanguage: evaluationLanguage.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1082
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1083
    "Created: / 26-10-2013 / 00:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1084
    "Modified: / 18-02-2014 / 23:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1085
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1086
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1087
updateEvaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1088
    | currentObject currentObjectLanguage |
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1089
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1090
    currentObject := self currentObject.
16899
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1091
    currentObjectLanguage := currentObject class programmingLanguage ? SmalltalkLanguage instance.
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1092
    currentObjectLanguage isSmalltalk ifTrue:[
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1093
        self evaluationLanguageList value: (Array with: currentObjectLanguage).
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1094
    ] ifFalse:[
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1095
        self evaluationLanguageList value: (Array with: currentObjectLanguage with: SmalltalkLanguage instance)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1096
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1097
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1098
    self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage])
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1099
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1100
    "Created: / 26-10-2013 / 00:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1101
!
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1102
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1103
updateOperationsMenu
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1104
    |items|
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1105
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1106
    currentObjectHolder value isProtoObject ifFalse:[
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1107
        items := currentObjectHolder value inspectorExtraMenuOperations.
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1108
    ].
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1109
    self operationsMenuEnabledHolder value:(items notEmptyOrNil).
18947
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1110
!
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1111
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1112
updateWindowLabel
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1113
    "not only the label is updated; 
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1114
     also the current inspected object is fetched from the navigation state"
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1115
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1116
    |currentItem object|
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1117
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1118
    (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1119
        object := currentItem theObject.
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1120
    ].
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1121
    self currentObjectHolder value:object.
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1122
    self window label:(InspectorView commonLabelFor:object).
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1123
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1124
    "Created: / 15-07-2011 / 16:25:42 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1125
! !
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1126
12734
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1127
!Inspector2 methodsFor:'configuration'!
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1128
18164
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1129
headLineLabelView
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1130
    "for compatibility with InspectorView - dummy"
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1131
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1132
    ^ nil
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1133
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1134
    "Created: / 28-05-2018 / 13:32:57 / Claus Gittinger"
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1135
!
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1136
12734
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1137
hideHashes:aBoolean
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1138
    "compatibiliy with InspectorView - must be implemented"
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1139
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1140
    #todo
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1141
!
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1142
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1143
hideMessages:aBoolean
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1144
    "compatibiliy with InspectorView - must be implemented"
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1145
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1146
    #todo
12736
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1147
!
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1148
18164
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1149
hideReceiver:aBoolean
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1150
    "for compatibility with InspectorView - dummy"
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1151
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1152
    ^ self
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1153
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1154
    "Created: / 28-05-2018 / 13:33:28 / Claus Gittinger"
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1155
!
e694e7e1778c #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 18021
diff changeset
  1156
12891
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1157
maxItemsInHistory:aNumber
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1158
    self navigationHistoryHolder value maxItemsInHistory:aNumber
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1159
!
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1160
12736
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1161
suppressPseudoSlots:aBoolean
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1162
    "compatibiliy with InspectorView - must be implemented"
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1163
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1164
    #todo
12734
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1165
! !
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1166
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1167
!Inspector2 methodsFor:'menu'!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1168
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1169
backButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1170
    ^ [ self navigationHistoryHolder goBackMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1171
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1172
    "Created: / 12-01-2008 / 18:57:08 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1173
    "Modified: / 22-02-2008 / 16:57:46 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1174
!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1175
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1176
forwardButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1177
    ^ [ self navigationHistoryHolder goForwardMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1178
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1179
    "Created: / 12-01-2008 / 18:57:30 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1180
    "Modified: / 22-02-2008 / 16:58:11 / janfrog"
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1181
!
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1182
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1183
operationsMenu
17099
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1184
    "return an inspected-object-specific operations menu"
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1185
    
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1186
    |items menu|
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1187
    
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1188
    items := currentObjectHolder value inspectorExtraMenuOperations.
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1189
    items isEmptyOrNil ifTrue:[^ nil].
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1190
    
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1191
    menu := Menu new.
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1192
    items do:[:eachPair |
17099
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1193
        |xLatedLabel|
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1194
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1195
        "/ mhm - should the translation come from the inspected object's resources?
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1196
        xLatedLabel := resources string:eachPair first. 
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1197
        menu addItem:(MenuItem 
17099
ffa1ce5b5f51 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 16899
diff changeset
  1198
                        label:xLatedLabel
16815
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1199
                        itemValue:eachPair second).
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1200
    ].
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1201
    ^ menu
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1202
!
02b27cab599a #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 16725
diff changeset
  1203
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1204
settingsMenu
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1205
    |m|
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1206
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1207
    m := self class settingsMenu decodeAsLiteralArray.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1208
    m itemsDo:[:eachItem |
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1209
        |lbl labelWithColor clr|
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1210
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1211
        lbl := resources string:eachItem label.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1212
        (eachItem choiceValue ? #default) ~~ #default ifTrue:[
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1213
            clr := Color perform:eachItem choiceValue.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1214
            labelWithColor := lbl asText backgroundColorizeAllWith:clr.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1215
            clr brightness < 0.5 ifTrue:[
16505
79d84bdff1d8 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 16008
diff changeset
  1216
                labelWithColor := labelWithColor withColor:Color white.
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1217
            ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1218
            eachItem label:labelWithColor.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1219
        ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1220
    ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1221
    ^ m
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1222
! !
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1223
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1224
!Inspector2 methodsFor:'menu actions'!
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1225
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1226
backButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1227
    self navigationHistoryHolder goBack.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1228
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1229
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1230
    "Modified: / 21-02-2008 / 19:40:23 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1231
    "Modified: / 15-07-2011 / 16:26:28 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1232
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1233
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1234
browseClassAction
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1235
    "open a class browser, or try to add a tab to the previously opened class browser"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1236
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
  1237
    | class |
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1238
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1239
    class := self currentObject class.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1240
13225
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1241
"/    browser notNil ifTrue:[
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1242
"/        "/ try to add a tab to the already opened browser
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1243
"/        (browser isKindOf:Tools::NewSystemBrowser) ifTrue:[
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1244
"/            browser spawnClassBrowserFor:(Array with:class) in:#newBuffer.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1245
"/            "/ browser spawnSingleClassBrowserFor:class in:#newBuffer.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1246
"/            browser window raise.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1247
"/            ^ self.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1248
"/        ].
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1249
"/    ].
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1250
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1251
    "/ if that fails, open a new one
17658
ad48583000a7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17646
diff changeset
  1252
    SystemBrowser default openInClass:class selector:nil "/ browseSingleClass: class
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1253
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1254
    "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17658
ad48583000a7 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17646
diff changeset
  1255
    "Modified: / 01-09-2017 / 14:22:33 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1256
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1257
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1258
browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1259
    "open a filebrowser on the file represented by the current object"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1260
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1261
    | fn |
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1262
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1263
    fn := self currentObject asFilename.
17646
5ca9ef5e7f2f #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17590
diff changeset
  1264
    FileBrowser default openOn:fn
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1265
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1266
    "Created: / 19-08-2011 / 09:29:44 / cg"
17646
5ca9ef5e7f2f #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 17590
diff changeset
  1267
    "Modified: / 01-09-2017 / 14:05:57 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1268
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1269
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1270
changeColorAction: color
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1271
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1272
    self toolbarBackgroundHolder value: (Color perform: color asSymbol)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1273
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1274
    "Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1275
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1276
17966
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1277
closeAllInspectors
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1278
    self class allInstancesDo:[:eachInspector |
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1279
        eachInspector closeRequest
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1280
    ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1281
!
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1282
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1283
closeAllOtherInspectors
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1284
    self class allInstancesDo:[:eachInspector |
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1285
        eachInspector ~~ self ifTrue:[
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1286
            eachInspector closeRequest
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1287
        ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1288
    ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1289
!
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1290
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1291
deiconifyAllInspectors
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1292
    self class allInstancesDo:[:eachInspector |
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1293
        eachInspector window expand
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1294
    ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1295
!
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1296
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1297
editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1298
    "open an imageEditor on the current object"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1299
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1300
    | img |
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1301
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1302
    img := self currentObject.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1303
    ImageEditor openOnImage:img.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1304
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1305
    "Created: / 15-01-2012 / 10:08:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1306
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1307
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1308
forwardButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1309
    self navigationHistoryHolder goForward.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1310
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1311
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1312
    "Created: / 21-02-2008 / 19:52:03 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1313
    "Modified: / 15-07-2011 / 16:26:33 / cg"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1314
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1315
17966
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1316
iconifyAllInspectors
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1317
    self class allInstancesDo:[:eachInspector |
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1318
        eachInspector window collapse
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1319
    ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1320
!
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1321
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1322
iconifyAllOtherInspectors
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1323
    self class allInstancesDo:[:eachInspector |
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1324
        eachInspector ~~ self ifTrue:[
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1325
            eachInspector window collapse
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1326
        ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1327
    ].
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1328
!
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1329
18021
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1330
menuSetMaxValueDisplayStringLength
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1331
    |s n|
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1332
18496
74702babe6bb #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18494
diff changeset
  1333
    s := Dialog 
74702babe6bb #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18494
diff changeset
  1334
            request:(resources string:'Set the max. length of displayed value strings (0 for unlimited):')
18021
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1335
            initialAnswer:(InspectorView defaultMaxValueDisplayStringLength) printString.
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1336
    s notEmptyOrNil ifTrue:[
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1337
        n := Integer readFrom:s onError:[
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1338
                Dialog information:'Bad value'.
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1339
                ^ self
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1340
             ].
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1341
        InspectorView defaultMaxValueDisplayStringLength:n.
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1342
        InspectorView allInstancesDo:[:i | i maxValueDisplayStringLength:nil].
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1343
    ].
18496
74702babe6bb #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18494
diff changeset
  1344
74702babe6bb #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 18494
diff changeset
  1345
    "Modified: / 27-10-2018 / 19:16:00 / Claus Gittinger"
18021
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1346
!
1abd5c3a44de #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 17966
diff changeset
  1347
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1348
openDocumentation
19245
623904bfb205 #OTHER by exept
Claus Gittinger <cg@exept.de>
parents: 18947
diff changeset
  1349
    "Called when <F1> is pressed"
623904bfb205 #OTHER by exept
Claus Gittinger <cg@exept.de>
parents: 18947
diff changeset
  1350
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1351
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1352
!
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1353
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1354
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1355
    self navigationHistoryHolder currentItem refreshTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1356
    self tabViewAspect changed.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1357
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1358
"/    sel := selectionIndex.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1359
"/    self selectionIndex:nil.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1360
"/    self selectionIndex:sel.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1361
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1362
    "Created: / 21-08-2011 / 08:23:00 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1363
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1364
18947
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1365
!Inspector2 methodsFor:'open & close'!
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1366
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1367
closeDownViews
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1368
    LastExtent := self window extent.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1369
    super closeDownViews.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1370
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1371
    "Created: / 11-07-2011 / 22:33:47 / cg"
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1372
!
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1373
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1374
inspect:anObject 
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1375
    | objectsLanguage |
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1376
15184
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1377
    self navigationHistoryHolder currentItem:(self navigationStateFor: anObject).
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1378
    self window notNil ifTrue:[
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1379
        self updateWindowLabel
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1380
    ].
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1381
    objectsLanguage := anObject class programmingLanguage.
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1382
    self evaluationLanguageHolder value:(EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ]).
14711
e98d36d360de Update evaluation language in #inspect: to reflect current setting.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14449
diff changeset
  1383
    "/ Must force update - it can happen that language doesn't change (value is the same)
15071
86436f59d484 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14794
diff changeset
  1384
    "/ but inspectors are new and thus would use default language for evaluation.
14711
e98d36d360de Update evaluation language in #inspect: to reflect current setting.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14449
diff changeset
  1385
    self updateEvaluationLanguage.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1386
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1387
    "Modified: / 27-02-2008 / 12:06:52 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1388
    "Modified: / 15-07-2011 / 16:26:03 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1389
    "Modified (format): / 19-08-2011 / 09:01:20 / cg"
15184
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1390
    "Modified: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1391
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1392
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1393
openOn: anObject
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1394
    self createBuilder.
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1395
    self inspect: anObject.    
15295
1a183ea62e10 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15282
diff changeset
  1396
    self openWithExtent:LastExtent.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1397
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1398
    "Modified: / 13-01-2008 / 13:55:27 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1399
    "Modified: / 11-07-2011 / 22:31:42 / cg"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1400
!
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1401
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1402
postBuildEvaluationLanguageCombo: aComboBoxView
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1403
"/    aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded)
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1404
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1405
    "Modified: / 26-10-2013 / 01:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1406
!
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1407
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1408
postBuildWith:aBuilder
11373
60147f931571 changed: #postBuildWith:
Claus Gittinger <cg@exept.de>
parents: 11361
diff changeset
  1409
    super postBuildWith:aBuilder.
14711
e98d36d360de Update evaluation language in #inspect: to reflect current setting.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14449
diff changeset
  1410
    self updateWindowLabel.
18947
5072a56ad7db #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 18767
diff changeset
  1411
    self setShowAlphabeticalInSubInspectors.
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1412
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1413
    "Created: / 15-07-2011 / 16:25:36 / cg"
14711
e98d36d360de Update evaluation language in #inspect: to reflect current setting.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14449
diff changeset
  1414
    "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1415
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1416
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1417
!Inspector2 methodsFor:'private'!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1418
15184
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1419
navigationStateFor: anObject
15282
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1420
    | current new |
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1421
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1422
    new := NavigationState for: anObject.
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1423
    new inspector:self.
15282
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1424
    current := self currentState.
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1425
    (current notNil "and:[anObject isKindOf: current theObject class]") ifTrue:[ 
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1426
        | currentTabLabel newSelectionIndex |
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1427
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1428
        currentTabLabel := current tabLabels at: current selectionIndex.
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1429
        newSelectionIndex := new tabLabels indexOf: currentTabLabel.
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1430
        newSelectionIndex ~~ 0 ifTrue:[ 
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1431
            new selectionIndex: newSelectionIndex.
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1432
        ].
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1433
        new tabViews do:[:each |
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1434
            (each isKindOf:InspectorView) ifTrue:[
17590
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
  1435
                each showAlphabetical:(self showAlphabeticalHolder value).
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
  1436
                each suppressPseudoSlots:(self suppressPseudoSlotsHolder value)
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1437
            ]
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1438
        ].
15282
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1439
    ].
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1440
    ^ new
15184
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1441
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1442
    "Created: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15282
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1443
    "Modified: / 13-02-2015 / 20:44:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17590
7a8cba1af2fe #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 17428
diff changeset
  1444
    "Modified: / 18-07-2017 / 15:25:51 / cg"
15184
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1445
!
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1446
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1447
setDoItActionForLanguage: language
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1448
    self currentState tabViews do:[:view | 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1449
        (view respondsTo: #workspace) ifTrue:[
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1450
            view workspace 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1451
                editedLanguage: language;
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1452
                doItAction: 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1453
                    [:theCode |
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1454
                        |evaluator|
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1455
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1456
                        (evaluator := language evaluatorClass) notNil ifTrue:[
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1457
                            evaluator
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1458
                                evaluate:theCode in:nil 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1459
                                receiver:self currentObject 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1460
                                notifying:view workspace 
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1461
                                logged:true ifFail:nil
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1462
                        ] ifFalse:[
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1463
                            'object''s class provides no evaluator'
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1464
                        ]
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1465
                    ].
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1466
        ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1467
    ]
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1468
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1469
    "Created: / 26-10-2013 / 01:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15522
92e5dd55bfd6 Set #editedLanguage for all workspaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15402
diff changeset
  1470
    "Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1471
! !
13168
8de8aa65df94 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13132
diff changeset
  1472
17966
63d4c488600e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 17906
diff changeset
  1473
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1474
!Inspector2::NavigationState class methodsFor:'creating classes'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1475
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1476
for:anObject 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1477
    |item|
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1478
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1479
    item := self new.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1480
    item theObject:anObject.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1481
    ^ item.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1482
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1483
    "Modified (format): / 19-08-2011 / 09:24:40 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1484
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1485
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1486
!Inspector2::NavigationState class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1487
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1488
version
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1489
    ^'$Header$'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1490
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1491
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1492
version_SVN
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1493
    ^'$Id$'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1494
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1495
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1496
!Inspector2::NavigationState methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1497
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1498
application:anInspectorApp
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1499
    <resource: #obsolete>
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1500
    inspector := anInspectorApp.
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1501
!
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1502
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1503
index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1504
    ^ index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1505
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1506
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1507
index:something
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1508
    index := something.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1509
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1510
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1511
inspector
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1512
    ^ inspector
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1513
!
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1514
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1515
inspector:anInspectorApp
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1516
    inspector := anInspectorApp.
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1517
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1518
    "Modified (format): / 11-02-2017 / 10:14:31 / cg"
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1519
!
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1520
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1521
selectionIndex
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1522
    selectionIndex isNil ifTrue:[^1].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1523
    selectionIndex < 1 ifTrue:[^1].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1524
    selectionIndex > tabs size ifTrue:[^tabs size].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1525
    ^selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1526
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1527
    "Created: / 16-01-2008 / 17:24:27 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1528
    "Modified: / 17-02-2008 / 10:20:35 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1529
    "Modified: / 18-11-2011 / 15:00:01 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1530
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1531
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1532
selectionIndex: anInteger
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1533
    selectionIndex := anInteger.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1534
    self changed:#selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1535
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1536
    "Created: / 16-01-2008 / 17:27:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1537
    "Modified: / 17-02-2008 / 09:46:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1538
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1539
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1540
selectionView
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1541
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1542
    |tab|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1543
16899
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1544
    tab := self tabs at:self selectionIndex ifAbsent:nil.
aa136f213ebb #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 16819
diff changeset
  1545
    ^ tab isNil ifTrue:[nil] ifFalse:[tab view].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1546
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1547
    "Created: / 16-01-2008 / 17:31:19 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1548
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1549
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1550
tabLabels
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1551
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1552
    ^self tabs collect:[:tab | tab label]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1553
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1554
    "Created: / 16-01-2008 / 17:14:07 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1555
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1556
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1557
tabViews
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1558
14158
9367f43bf074 Performance fixes in Inspector2:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13966
diff changeset
  1559
    ^self tabs collect:[:tab | tab viewOrNil]
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1560
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1561
    "Created: / 16-01-2008 / 17:14:13 / janfrog"
14158
9367f43bf074 Performance fixes in Inspector2:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13966
diff changeset
  1562
    "Modified: / 24-03-2014 / 18:23:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1563
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1564
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1565
tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1566
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1567
    tabs isNil ifTrue:[self initializeTabs].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1568
    ^tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1569
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1570
    "Created: / 16-01-2008 / 16:51:53 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1571
    "Modified: / 18-11-2011 / 15:00:05 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1572
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1573
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1574
theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1575
    ^ theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1576
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1577
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1578
theObject:anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1579
    theObject := anObject.
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1580
    self changed
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1581
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1582
    "Modified: / 17-02-2008 / 08:38:44 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1583
    "Modified: / 19-08-2011 / 09:16:25 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1584
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1585
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1586
!Inspector2::NavigationState methodsFor:'comparing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1587
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1588
= anotherState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1589
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1590
    ^self class == anotherState class 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1591
        and:[self theObject == anotherState theObject]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1592
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1593
    "Created: / 21-02-2008 / 19:39:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1594
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1595
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1596
hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1597
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1598
    ^theObject hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1599
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1600
    "Created: / 21-02-2008 / 19:38:08 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1601
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1602
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1603
!Inspector2::NavigationState methodsFor:'displaying'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1604
13084
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1605
displayOn:aGCOrStream
19404
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1606
    |s|
13084
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1607
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1608
    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
17428
a5db09ff54a8 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17385
diff changeset
  1609
    "/ old ST80 means: draw-yourself on a GC.
13084
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1610
    aGCOrStream isStream ifFalse:[
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1611
        ^ super displayOn:aGCOrStream.
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1612
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1613
10392
e4e94b17c0c2 displayString
Claus Gittinger <cg@exept.de>
parents: 10379
diff changeset
  1614
    displayString isNil ifTrue:[
19410
077e5ea668e5 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19409
diff changeset
  1615
        (theObject isCollection and:[theObject size > 1000]) ifTrue:[
19404
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1616
            s := CharacterWriteStream new.
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1617
            s writeLimit:1000.
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1618
            WriteError handle:[:ex | ] do:[ theObject displayOn:s ].
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1619
            displayString := s contents contractAtEndTo:15
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1620
        ] ifFalse:[
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1621
            Error handle:[:ex |
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1622
                displayString := '*ERROR*'
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1623
            ] do:[
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1624
                displayString := theObject displayString contractAtEndTo:15.
39c1f4873ee1 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19245
diff changeset
  1625
            ].
11280
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1626
        ].
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1627
        displayString := displayString , ' [', (theObject class name ? '???')  , ']'
10392
e4e94b17c0c2 displayString
Claus Gittinger <cg@exept.de>
parents: 10379
diff changeset
  1628
    ].
13084
57d9962d5742 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 13015
diff changeset
  1629
    aGCOrStream nextPutAll:displayString.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1630
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1631
    "Created: / 21-02-2008 / 19:53:07 / janfrog"
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1632
    "Modified: / 13-06-2012 / 14:40:34 / cg"
17428
a5db09ff54a8 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17385
diff changeset
  1633
    "Modified (comment): / 22-02-2017 / 16:48:59 / cg"
17815
cacf624e47f3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17658
diff changeset
  1634
    "Modified: / 28-11-2017 / 19:12:56 / stefan"
19409
2c42ce5f058d #BUGFIX by Stefan Reise
sr
parents: 19404
diff changeset
  1635
    "Modified: / 13-01-2020 / 16:04:59 / Stefan Reise"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1636
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1637
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1638
!Inspector2::NavigationState methodsFor:'initialization'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1639
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1640
initializeTab: selector
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1641
    "Initializes an extra tab specified by given selector"
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1642
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1643
    | tab |
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1644
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1645
    [
17127
ddc52a770246 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17125
diff changeset
  1646
        (selector == #inspector2TabForBasicInspect and:[theObject isProtoObject]) ifTrue:[
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1647
            "kludge for ProtoObject, which does neither implement this selector nor #perform:"
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1648
            tab := Tools::Inspector2Tab new
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1649
                        priority: 90;
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1650
                        label:'Basic';
17127
ddc52a770246 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17125
diff changeset
  1651
                        view: (InspectorView new inspect:theObject);
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1652
                        yourself
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1653
        ] ifFalse:[
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1654
            tab := theObject perform:selector.
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1655
        ].
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1656
    ] on: Error do:[:ex|
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1657
        "/ for debugging:  
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1658
        "/ ex reject.
16725
1c11c89be586 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16662
diff changeset
  1659
        Logger error:'inspector setup: %1' with:ex description.    
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1660
        tab := Tools::Inspector2Tab new
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1661
            inspector:inspector;
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1662
            label:selector;
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1663
            text:(ex description, Character cr, Character cr,
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1664
                  ex suspendedContext fullPrintAllString)
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1665
    ].
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1666
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1667
    (tab isKindOf:Tools::Inspector2Tab) ifTrue:[
16549
10a4b1ae8153 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 16505
diff changeset
  1668
        tabs add: tab.
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1669
        tab inspector:inspector.
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1670
    ]
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1671
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1672
    "Created: / 03-02-2015 / 11:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17385
99ca0807b6c5 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 17200
diff changeset
  1673
    "Modified: / 11-02-2017 / 10:16:42 / cg"
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1674
    "Modified (format): / 14-09-2018 / 18:29:39 / Claus Gittinger"
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1675
!
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1676
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1677
initializeTabs
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1678
    | selectors |
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1679
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1680
    tabs := OrderedCollection new.        
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1681
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1682
    "/ Old style - tabs are specified by the #inspector2Tabs method
17153
52b99321786d #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17127
diff changeset
  1683
    (theObject isProtoObject or:[theObject isNil or:[theObject isStructure]]) ifTrue:[
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1684
        "kludge for ProtoObject and Structure, which do not implement this selector
17125
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1685
         nor #perform: -- see #initializeTab:"
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1686
        selectors := #(inspector2TabForBasicInspect).
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1687
    ] ifFalse:[
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1688
        selectors := theObject inspector2Tabs.
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1689
    ].
279b7a2a1241 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 17099
diff changeset
  1690
    selectors := selectors asSet.
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1691
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1692
    "/ New style - tabs are defined by methods with <inspector2Tab> annotation
16662
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1693
    theObject class withAllSuperclassesDo:[:eachClass| 
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1694
        eachClass selectorsAndMethodsDo:[:eachSelector :method |
ebdce386cf81 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16549
diff changeset
  1695
            (selectors includes: eachSelector) ifFalse:[
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1696
                (method hasAnnotation: #inspector2Tab) ifTrue:[
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1697
                    (selectors includes:eachSelector) ifFalse:[
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1698
                        selectors add: eachSelector.
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1699
                    ].
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1700
                ].
13168
8de8aa65df94 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13132
diff changeset
  1701
            ].
14232
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1702
        ].
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1703
    ].
16725
1c11c89be586 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16662
diff changeset
  1704
1c11c89be586 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16662
diff changeset
  1705
    selectors do:[:eachSelector| self initializeTab: eachSelector ].
1c11c89be586 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16662
diff changeset
  1706
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1707
    "/ the above has filled the tabs instVar as side effect
16725
1c11c89be586 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 16662
diff changeset
  1708
    tabs := tabs sort:[:a :b| a priority > b priority].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1709
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1710
    "Created: / 16-01-2008 / 16:54:28 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1711
    "Modified: / 17-02-2008 / 10:08:04 / janfrog"
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1712
    "Modified: / 03-02-2015 / 11:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18380
609fd4a3ebe8 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 18296
diff changeset
  1713
    "Modified: / 14-09-2018 / 18:31:20 / Claus Gittinger"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1714
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1715
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1716
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1717
    self initializeTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1718
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1719
    "Created: / 21-08-2011 / 08:23:11 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1720
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1721
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1722
!Inspector2 class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1723
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1724
version
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1725
    ^ '$Header$'
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1726
!
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1727
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1728
version_CVS
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1729
    ^ '$Header$'
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1730
!
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1731
8816
fm
parents: 8807
diff changeset
  1732
version_CVS_jvrany
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1733
    ^ '$Header$'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1734
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1735
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1736
version_SVN
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1737
    ^ '$Id$'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1738
! !
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1739
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1740
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1741
Inspector2 initialize!