Tools__Inspector2.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 28 Jul 2015 06:49:17 +0100
branchjv
changeset 15765 4ad929103298
parent 15720 cbf8e19959fc
child 15769 b62e96d5d327
permissions -rw-r--r--
Fixed window label updating in Inspector2. Contract window label to 200 chars if too long. Removed aspect-based window updating as it is later overwritten from #updateWindowLabel
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
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
     3
	      All Rights Reserved
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
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
    17
	instanceVariableNames:'tabViewAspect navigationHistoryHolder navigationStateAspect
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    18
		browser currentObjectHolder colorProfileHolder
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    19
		toolbarBackgroundHolder evaluationLanguageHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    20
		evaluationLanguageList'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    21
	classVariableNames:'LastExtent ColorProfiles EvaluationLanguageMap'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    22
	poolDictionaries:''
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
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
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
    27
	instanceVariableNames:'theObject index tabs selectionIndex'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    28
	classVariableNames:''
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    29
	poolDictionaries:''
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    30
	privateIn:Inspector2
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
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    38
	      All Rights Reserved
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
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    52
    extendable by the inspected object itself, by providing additional
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
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    55
    [author:]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    56
        Jan Vrani
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    57
"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    58
! !
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    59
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    60
!Inspector2 class methodsFor:'initialization'!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    61
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    62
initialize
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    63
    "Invoked at system start or when the class is dynamically loaded."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    64
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    65
    "/ please change as required (and remove this comment)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    66
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    67
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    68
    ColorProfiles := Dictionary new.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    69
    ColorProfiles 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    70
        at: #default put: nil; "default color"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    71
        at: #red put: Color red lighter lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    72
        at: #green put: Color green lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    73
        at: #blue put: Color blue lighter;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    74
        at: #yellow put: Color yellow lighter;
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    75
        at: #gray put: Color gray.       
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    76
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    77
    EvaluationLanguageMap :=  Dictionary new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    78
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
    79
    "Modified: / 26-10-2013 / 00:42:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    80
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    81
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    82
!Inspector2 class methodsFor:'help specs'!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    83
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    84
flyByHelpSpec
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    85
    "This resource specification was automatically generated
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    86
     by the UIHelpTool of ST/X."
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    87
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    88
    "Do not manually edit this!! If it is corrupted,
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    89
     the UIHelpTool may not be able to read the specification."
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    90
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    91
    "
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    92
     UIHelpTool openOnClass:Tools::Inspector2    
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    93
    "
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    94
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    95
    <resource: #help>
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    96
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    97
    ^ super flyByHelpSpec addPairsFrom:#(
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    98
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    99
#backwardInVisitingHistory
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   100
'Move backward in the history of previously visited objects'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   101
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   102
#browseClassOfShownObject
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   103
'Open a SystemBrowser on the shown object''s class'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   104
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   105
#browseFile
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   106
'Open a FileBrowser on the file represented by the shown object'
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   107
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   108
#editImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   109
'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
   110
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   111
#forwardInVisitingHistory
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   112
'Move forward in the history of previously visited objects'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   113
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   114
#colorProfile
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   115
'Change the color profile'
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   116
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   117
#refresh
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   118
'Refresh for changed object'
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   119
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   120
)
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   121
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   122
    "Created: / 19-08-2011 / 08:52:33 / cg"
11265
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   123
!
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   124
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   125
helpSpec
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   126
    "This resource specification was automatically generated
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   127
     by the UIHelpTool of ST/X."
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   128
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   129
    "Do not manually edit this!! If it is corrupted,
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   130
     the UIHelpTool may not be able to read the specification."
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   131
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   132
    "
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   133
     UIHelpTool openOnClass:Tools::Inspector2    
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   134
    "
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   135
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   136
    <resource: #help>
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   137
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   138
    ^ super helpSpec addPairsFrom:#(
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   139
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   140
#colorProfile
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   141
''
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   142
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   143
#evaluationLanguage
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   144
'Language used for evaluating expressions in code panes'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   145
11265
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   146
)
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
   147
! !
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   148
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   149
!Inspector2 class methodsFor:'image specs'!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   150
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   151
settingsIcon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   152
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   153
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   154
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   155
    ^self settingsIcon6
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   156
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   157
    "Modified: / 19-01-2012 / 14:00:35 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   158
    "Modified: / 28-02-2012 / 21:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   159
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   160
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   161
settingsIcon1
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   162
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   163
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   164
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   165
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   166
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   167
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   168
     self settingsIcon inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   169
     ImageEditor openOnClass:self andSelector:#settingsIcon
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   170
     Icon flushCachedIcons"
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   171
    
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   172
    ^ Icon constantNamed:'Tools::Inspector2 class settingsIcon'
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   173
        ifAbsentPut:[
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   174
            (Depth24Image new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   175
                width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   176
                height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   177
                photometric:(#rgb);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   178
                bitsPerSample:(#[ 8 8 8 ]);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   179
                samplesPerPixel:(3);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   180
                bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   181
                            fromPackedString:'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   182
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   183
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[G*LY'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y''6\
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   184
YW6[YG.ZX7.YX7*YX7*YX7*YX7.YYG.ZYW6[[G*L@@@@@@@@@@@@@@@@YW6["Y:4"Y:4"Y:4"9>4#*F4$JJ4$*N5$:R5$*N4#Y>2!!)&/_9R,^)F+^H>*]8>*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   185
^YF+_YR- 9&0YG2Z@@@@@@@@@@@@@@@@YW6[!!I.2!!923"):3#JB3#*B3#*F3#*F4#:F4#I>3!!9*0)J65)J65)J65)J65)J65)J65)J65^YF,X7*Y@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   186
@@@@@@@@YW6[ 9&1!!)*1!!9.1!!921!!921!!9.1!!9.1!!9.1!!)*1 YZ.]86()J65.[&9.[&9.[&9.[&9.[&9[8&(X''*X@@@@@@@@@@@@@@@@YG2Z_)V._YV-_IR-
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   187
^9R.^9R.^9R.^9R.^9R.^)N-](>*[HZ%XG.](:24.K"8.K"8.K"8.K"8ZHN#XW"W@@@@@@@@@@@@@@@@YG2Z]H:+\8:+\X:,\(>,\(>,\(>,\(>,\X:+[82*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   188
Z(^''X'': (:24.K"8.K"8.K"8.K"8.K"8YG>!!XW"W@@@@@@@@@@@@@@@@X7.YZ8"(ZX*)ZX*)ZX*)ZX*)ZX*)ZX*)ZX&)YXV&W7:!!(*.3-;^7-;^7-;^7-;^7
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   189
-;^7-;^7XG6 XG^V@@@@@@@@@@@@@@@@X7.YY(N&X8Z(X8Z(X8Z(X8Z(X8Z(X8Z(X(R(W8B$(*.3-;^7-;^7-;^7-;^7T''BX-;^7-;^7WG2 XG"V@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   190
@@@@@@@@X7.YXW>$W8R(W8R(W8R(W8R(W8R(W8R(W(N''WHB$U''&_-;^7-;^7-;^7UGV\U''"_U''&_-;^7V'':#XW"W@@@@@@@@@@@@@@@@X''*XW''2"WHJ''WHJ''
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   191
WHJ''WHJ''V(B&VG:%VW>&V(B&U7.#T7^_-+Z6T7^_U''."VG6$VG:$VG6$VW>%XW&W@@@@@@@@@@@@@@@@X''*XV''& U7>&VXF''V(N(VXF''T7&!!(Z*2T7&!!VHB''
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   192
VXF''U7>%U''6$U7>%VXF''V(J(V(J(VXF''V(J(X''&X@@@@@@@@@@@@@@@@X''*XV7"_(Z*2UW2#VXJ''UW2#(Z*2-+Z6-+Z6UW2#V(N(V8V*V8R)V8V*V(V*V8V*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   193
V8Z*WHZ*V8Z*X''*X@@@@@@@@@@@@@@@@X''*XWW* (Z*2(Z*2UW*!!(Z*2-+Z6-+Z6-+Z6-+Z6W8^+X82.X82.X82.X82.X82.X82.X82.X8.-X''*X@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   194
@@@@@@@@XW&WXW6"(J&1-[V5(J&1-[V5-[V5-[V5-[V5XXZ''Z(>-[IF/[IF/[IF/[IF/[IF/[IF/[IF/W(..XW&W@@@@@@@@@@@@@@@@XW&WY(J%(J&1-[V5
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   195
-[V5-[V5-[V5-[V5ZX.(\)V/]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1]Y^1W(:1XW&W@@@@@@@@@@@@@@@@XG"VZ(V&'':"0-KR4-KR4-KR4-KR4Y(Z$])V-_I*1
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   196
_I*1_I*1_I*1_I*1_I*1_I*1_I*1^9*1WX>1XG"V@@@@@@@@@@@@@@@@XG"V[H^'''':"0-KR4-KR4-KR4-KR4-KR4\(>(_Y*/ I61 I61 I61 I61 I61 I61
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   197
 I21 I21XH>1XG"V@@@@@@@@@@@@@@@@XG"V[(**'':"0-KR4-KR4-KR4-KR4-KR4-KR4^)^. I61 I61 I61 I61 I61_961_961_921Y(:0XG"V@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   198
@@@@@@@@W7^U\H2,[(&)[X"''[(&''[(&''[8&''\H*''\(2)]9F,^)N.^YJ.^YJ.^IF.]YB.\(:-\H6-[X2-[H.-W7^U@@@@@@@@@@@@@@@@X''BBW7^UW7^UW7^U
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   199
W7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UXF:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   200
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   201
@@@@@@@@@@@@@@@@@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   202
                mask:((ImageMask new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   203
                            width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   204
                            height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   205
                            bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   206
                                        fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   207
                            yourself);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   208
                yourself
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   209
        ]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   210
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   211
    "Created: / 17-01-2012 / 12:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   212
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   213
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   214
settingsIcon2
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   215
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   216
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   217
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   218
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   219
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   220
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   221
     self settingsIcon2 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   222
     ImageEditor openOnClass:self andSelector:#settingsIcon2
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   223
     Icon flushCachedIcons"
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   224
    
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   225
    ^ Icon constantNamed:'Tools::Inspector2 class settingsIcon2'
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   226
        ifAbsentPut:[
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   227
            (Depth24Image new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   228
                width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   229
                height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   230
                photometric:(#rgb);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   231
                bitsPerSample:(#[ 8 8 8 ]);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   232
                samplesPerPixel:(3);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   233
                bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   234
                            fromPackedString:'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   235
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   236
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"9J["IR#"IR#"IR#"IR#"IR#"IR#"IR#"IR#"IN#
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   237
!!9N"!!9J"!!)J!!!!)J!!!!)J!!!!)J!!!!)J!!!!9J"!!9N""9J[UUUUUUUUUUUUUUUU!!9N"&ZR/&ZR/&ZR/&*R/''JV/''ZZ/''*Z/''*^/''*Z/&:R.&JF,%I>+$)6*$Y2*$I2*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   238
$Y6*$9>+%*F-!!9N"UUUUUUUUUUUUUUUU!!9N"%:J.&JN.&*R.&:V.''JV.''JV.''JV/''JV/&:R.&JJ-4][Z4][Z4][Z4][Z4][Z4][Z4][Z$Y6+!!)J!!UUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   239
UUUUUUUU!!9N"%*F-&JJ-&JJ-&JN-&JN-&JJ-&JJ-&JJ-&JJ-%ZB,$I.)4][Z7M3\7M3\7M3\7M3\7M3\#I&)!!)J!!UUUUUUUUUUUUUUUU!!9N"%I>,$9>+$9>+
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   240
$)>,$)>,$)>,$)>,$)>,$):+$I2*"9"''!!YJ#)*./6=/[6=/[6=/[6=/["YZ&!!YF UUUUUUUUUUUUUUUU!!9N"#92*#)2*#Y2+#)2+#)2+#)2+#)2+#Y2*#I.*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   241
")"(!!)R%)*./6=/[6=/[6=/[6=/[6=/[!!9R%!!YF UUUUUUUUUUUUUUUU!!)J!!")&)"Y*)"Y*)"Y*)"Y*)"Y*)"Y*)"Y&)!!9^(!!IR%)**.6=/[6=/[6=/[6=/[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   242
6=/[6=/[!!YN%!!YB UUUUUUUUUUUUUUUU!!)J!!"IZ(!!)")!!)")!!)")!!)")!!)")!!)")!!)^)!!IV'')**.6=/[6=/[6=/[6=/[_(6!!6=/[6=/[ 9N%!!YF UUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   243
UUUUUUUU!!)J!!!!YR''!!I^)!!I^)!!I^)!!I^)!!I^)!!I^)!!IZ( 9V'' IF$6=/[6=/[6=/[_8># IF$ IF$6=/[ )R&!!YF UUUUUUUUUUUUUUUU!!)J!!!!IN& 9Z( 9Z(
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   244
 9Z( 9Z( )V( YR'' YR( )V( IJ&_)B$6-+Z_)B$ IJ& YN'' YR'' YN'' YR''!!YF UUUUUUUUUUUUUUUU!!)J!! )F% IR( YV( )Z) YV(_)F%)Z*._)F% YV(
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   245
 YV( IR'' IN'' IR'' YV( )Z) )Z) YV( )Z)!!)F!!UUUUUUUUUUUUUUUU!!)J!! )F$)Z*._9N& YZ(_9N&)Z*.6-+Z6-+Z_9N& )Z) )^* )^) )^* )^* )^*
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   246
 )"* 9"* )"*!!)J!!UUUUUUUUUUUUUUUU!!)J!! 9J%)Z*.)Z*._9J%)Z*.6-+Z6-+Z6-+Z6-+Z!!I"*!!).,!!).,!!).,!!).,!!).,!!).,!!).,!!)*+!!)J!!UUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   247
UUUUUUUU!!YF !!YN&)Z&-6-+Z)Z&-6-+Z6-+Z6-+Z6-+Z!!Y"(")2+"96,"96,"96,"96,"96,"96,"96,!!I*,!!YF UUUUUUUUUUUUUUUU!!YF "IZ'')Z&-6-+Z
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   248
6-+Z6-+Z6-+Z6-+Z"Y*)#)>,#:B-#:B-#:B-#:B-#:B-#:B-#:B-#:B-!!I2-!!YF UUUUUUUUUUUUUUUU!!YF ")^()J&-6]''Y6]''Y6]''Y6]''Y"I"''$I>+$:J-
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   249
$:J-$:J-$:J-$:J-$:J-$:J-$:J-$*J- 92-!!YF UUUUUUUUUUUUUUUU!!YF "9"()J&-6]''Y6]''Y6]''Y6]''Y6]''Y#)2)$:J,%ZN-%ZN-%ZN-%ZN-%ZN-%ZN-
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   250
%ZN-%ZN-!!Y2-!!YF UUUUUUUUUUUUUUUU!!YF #I**)J&-6]''Y6]''Y6]''Y6]''Y6]''Y6]''Y$*B,%ZN-%ZN-%ZN-%ZN-%ZN-%JN-%JN-%JN-"I2-!!YF UUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   251
UUUUUUUU!!IB_#Y.+#I&)"9&(#I&(#I&(#I&(#Y*(#).)$I6+$):,$Y:,$Y:,$Y6,#96,#)2+#Y.+"9.+"9*+!!IB_UUUUUUUUUUUUUUUU!!(6V!!IB_!!IB_!!IB_
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   252
!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!X2UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   253
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   254
UUUUUUUUUUUUUUUUUUUUUUUU');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   255
                mask:((ImageMask new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   256
                            width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   257
                            height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   258
                            bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   259
                                        fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   260
                            yourself);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   261
                yourself
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   262
        ]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   263
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   264
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   265
settingsIcon3
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   266
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   267
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   268
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   269
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   270
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   271
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   272
     self settingsIcon3 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   273
     ImageEditor openOnClass:self andSelector:#settingsIcon3
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   274
     Icon flushCachedIcons"
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   275
    
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   276
    ^ Icon constantNamed:'Tools::Inspector2 class settingsIcon3'
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   277
        ifAbsentPut:[
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   278
            (Depth24Image new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   279
                width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   280
                height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   281
                photometric:(#rgb);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   282
                bitsPerSample:(#[ 8 8 8 ]);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   283
                samplesPerPixel:(3);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   284
                bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   285
                            fromPackedString:'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   286
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   287
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   288
VJ[?UZO?TJK?TI??TI??TI??TJK?UZO?VJ[?TZC?@@@@@@@@@@@@@@@@VJ[?,]_?,]_?,]_?-]7?/NC?/>C?0=??1^C?0^K?-=7?*-G?&L+?"<W?!!<G?!!LO?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   289
"\W?$<+?(]C?UZO?@@@@@@@@@@@@@@@@VJ[?)]''?+]S?-M_?-=7?/M/?/M/?/NC?/-3?-=7?+MK?7OC?7OC?7OC?7OC?7OC?7OC?7OC?"<S?TI??@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   290
@@@@@@@@VJ[?(]W?*]G?*=S?*=+?*=+?*=S?*=S?*=S?*]G?''L3?!![??7OC?????????????????????[+''?S:G?@@@@@@@@@@@@@@@@UZO?%\/?$<+?$\''?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   291
#,''?#,''?#,''?#,''?#,''?#\#? <O?Y;S?QZK?6.????7=??7=??7=??7=W;C?SI??@@@@@@@@@@@@@@@@UZO?^<K?^LC?\,G?]<K?]<K?]<K?]<K?]LW?\LO?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   292
X;W?TZ_?6.????7=??7=??7=??7=??7=UZ#?SI??@@@@@@@@@@@@@@@@TJK?Y[[?XLO?XLO?XLO?XLO?XLO?XLO?XLC?T;S?QZ/?5>7???+:??+:??+:??+:
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   293
??+:??+:RZ[?RI3?@@@@@@@@@@@@@@@@TJK?VJ??S+''?S+''?S+''?S+''?S+''?S+''?S[K?Q*7?5>7???+:??+:??+:??+:DH''???+:??+:OJW?RI3?@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   294
@@@@@@@@TJK?R:_?Q[''?Q[''?Q[''?Q[''?Q[''?Q[''?P[W?OKG?HZG???+:??+:??+:FY+?HY;?HZG???+:M:+?SI??@@@@@@@@@@@@@@@@S:G?P*W?N;S?N;S?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   295
N;S?N;S?N[G?KZ+?L*/?N[G?J*S?E9???/#8E9??IZO?J:''?J;G?J:''?L[C?SJK?@@@@@@@@@@@@@@@@S:G?L9;?J+K?L+W?MK''?L+W?EJO?5^3?EJO?K;O?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   296
L+W?J+K?I+C?J+K?L+W?MK[?MK[?L+W?MK[?S9;?@@@@@@@@@@@@@@@@S:G?M9/?5^3?HZ_?L+#?HZ_?5^3??/#8?/#8HZ_?MK''?M+/?NK+?M+/?MK7?M+/?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   297
M+;?N[;?M+;?S:G?@@@@@@@@@@@@@@@@S:G?O:C?5^3?5^3?HJS?5^3??/#8?/#8?/#8?/#8P+;?S,[?S,[?S,[?S,[?S,[?S,[?S,[?S,W?S:G?@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   298
@@@@@@@@SJK?RZK?4^+???S44^+???S4??S4??S4??S4R[3?XL3?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?Y,;?O<_?SJK?@@@@@@@@@@@@@@@@SJK?VZ7?4^+???S4
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   299
??S4??S4??S4??S4XLO?]-K?_=S?_=S?_=S?_=S?_=S?_=S?_=S?_=S?O,??SJK?@@@@@@@@@@@@@@@@RI3?YKG?3>''???K2??K2??K2??K2V;/? =K?$]#?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   300
$]#?$]#?$]#?$]#?$]#?$]#?$]#?#=_?O]O?RI3?@@@@@@@@@@@@@@@@RI3?ZK[?3>''???K2??K2??K2??K2??K2]L#?%]_?&-7?&-7?&-7?&-7?&-7?&-7?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   301
&-+?&-+?P<7?RI3?@@@@@@@@@@@@@@@@RI3?[[+?3>''???K2??K2??K2??K2??K2??K2"=K?&-7?&-7?&-7?&-7?&-7?%=+?%=+?%=+?U<''?RI3?@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   302
@@@@@@@@QY3?\[7?[+''?Z;''?[K/?[K/?[+''?\[3?]+7?!!,W?"<#?",W?",W?!!<S?_,S?]<K?\+;?[K;?Z[/?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   303
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   304
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   305
@@@@@@@@@@@@@@@@@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   306
                mask:((ImageMask new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   307
                            width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   308
                            height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   309
                            bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   310
                                        fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   311
                            yourself);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   312
                yourself
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   313
        ]
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   314
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   315
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   316
settingsIcon4
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   317
    <resource: #image>
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   318
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   319
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   320
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   321
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   322
    "
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   323
     self settingsIcon4 inspect
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   324
     ImageEditor openOnClass:self andSelector:#settingsIcon4
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   325
     Icon flushCachedIcons"
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   326
    
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   327
    ^ Icon constantNamed:'Tools::Inspector2 class settingsIcon4'
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   328
        ifAbsentPut:[
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   329
            (Depth24Image new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   330
                width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   331
                height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   332
                photometric:(#rgb);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   333
                bitsPerSample:(#[ 8 8 8 ]);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   334
                samplesPerPixel:(3);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   335
                bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   336
                            fromPackedString:'
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   337
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   338
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   339
VJ[?UZO?TJK?TI??TI??TI??TJK?UZO?VJ[?TZC?@@@@@@@@@@@@@@@@VJ[???>1??>1??>1??>5??><??>????C???E???A??>7??>*??>X??>J??>F??>C
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   340
??>H??>S??> UZO?@@@@@@@@@@@@@@@@VJ[???>%??>-??>4??>7??><??><??><??>>??>7??>*??>*??>J??>J??>J??>J??>J??>J??>JTI??@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   341
@@@@@@@@VJ[???> ??>)??>+??>+??>+??>+??>+??>+??>)??>\??>D??>D??>D??>D??>D??=-??=-??=-S:G?@@@@@@@@@@@@@@@@UZO???>U??>S??>Q
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   342
?/:N?/:N?/:N?/:N?/:N?/:N?/:N??=&??=&??=&??=&??=_??=_??=_??=_SI??@@@@@@@@@@@@@@@@UZO???=;??=8??=1??=6??=6?/:N?/:N?/:N?/:N
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   343
??=#?/=P?/=P?/=P?/=P??=U??=U??=U??=USI??@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   344
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   345
@@@@@@@@TJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SI??@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   346
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   347
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?S9;?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   348
Y[[?Y[[?Y[[?S:G?@@@@@@@@@@@@@@@@S:G?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?S:G?@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   349
@@@@@@@@SJK?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@SJK?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   350
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?SJK?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   351
Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   352
Y[[?Y[[?Y[[?RI3?@@@@@@@@@@@@@@@@RI3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?RI3?@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   353
@@@@@@@@QY3?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?Y[[?QY3?@@@@@@@@@@@@@@@@M8;?QY3?QY3?QY3?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   354
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   355
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14400
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   356
@@@@@@@@@@@@@@@@@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   357
                mask:((ImageMask new)
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   358
                            width:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   359
                            height:24;
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   360
                            bits:(ByteArray 
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   361
                                        fromPackedString:'@@@@@@@@O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<@@@@@@@@');
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   362
                            yourself);
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   363
                yourself
0d0993eb40f5 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14354
diff changeset
   364
        ]
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   365
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   366
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   367
settingsIcon5
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   368
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   369
    <resource: #image>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   370
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   371
    ^ GenericToolbarIconLibrary palette16x16Icon
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   372
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   373
    "Created: / 19-01-2012 / 14:00:24 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   374
    "Modified: / 18-02-2012 / 16:28:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   375
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   376
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   377
settingsIcon6
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   378
    "This resource specification was automatically generated
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   379
     by the ImageEditor of ST/X."
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   380
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   381
    "Do not manually edit this!! If it is corrupted,
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   382
     the ImageEditor may not be able to read the specification."
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   383
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   384
    "
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   385
     self settingsIcon6 inspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   386
     ImageEditor openOnClass:self andSelector:#settingsIcon6
14790
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   387
     Icon flushCachedIcons
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   388
    "
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   389
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   390
    <resource: #image>
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   391
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   392
    ^Icon
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   393
        constantNamed:'Tools::Inspector2 settingsIcon6'
0c63ca4359b0 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14711
diff changeset
   394
        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
   395
(: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
   396
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
   397
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
   398
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
   399
$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
   400
#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
   401
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
   402
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   403
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   404
!Inspector2 class methodsFor:'interface specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   405
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   406
windowSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   407
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   408
     by the UIPainter of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   409
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   410
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   411
     the UIPainter may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   412
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   413
    "
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   414
     UIPainter new openOnClass:Tools::Inspector2 andSelector:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   415
     Tools::Inspector2 new openInterface:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   416
     Tools::Inspector2 open
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   417
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   418
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   419
    <resource: #canvas>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   420
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   421
    ^ 
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   422
    #(FullSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   423
       name: windowSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   424
       window: 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   425
      (WindowSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   426
         label: 'Inspector2'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   427
         name: 'Inspector2'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   428
         labelChannel: windowTitleAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   429
         min: (Point 0 0)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   430
         bounds: (Rectangle 0 0 490 654)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   431
         menu: mainMenu
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   432
       )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   433
       component: 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   434
      (SpecCollection
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   435
         collection: (
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   436
          (MenuPanelSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   437
             name: 'ToolBar'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   438
             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
   439
             backgroundChannel: toolbarBackgroundHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   440
             menu: toolbarMenu
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   441
             textDefault: true
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   442
           )
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   443
          (NoteBookViewSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   444
             name: 'NoteBook'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   445
             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
   446
             model: tabSelectionIndexAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   447
             menu: tabLabelsAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   448
             useIndex: true
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   449
             fitLastRow: false
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   450
             canvas: tabViewAspect
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   451
             keepCanvasAlive: true
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   452
           )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   453
          (ComboListSpec
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   454
             name: 'EvaluationLanguageCombo'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   455
             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
   456
             activeHelpKey: evaluationLanguage
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   457
             visibilityChannel: evaluationLanguageComboVisibleHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   458
             model: evaluationLanguageHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   459
             comboList: evaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   460
             useIndex: false
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   461
             postBuildCallback: postBuildEvaluationLanguageCombo:
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   462
           )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   463
          )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   464
        
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   465
       )
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   466
     )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   467
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   468
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   469
!Inspector2 class methodsFor:'menu specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   470
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   471
fileMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   472
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   473
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   474
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   475
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   476
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   477
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   478
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   479
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   480
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   481
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   482
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   483
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   484
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   485
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   486
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   487
     #(Menu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   488
              (
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   489
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   490
                  label: 'Exit'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   491
                  itemValue: closeRequest
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   492
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   493
               )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   494
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   495
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   496
            )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   497
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   498
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   499
helpMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   500
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   501
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   502
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   503
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   504
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   505
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   506
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   507
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   508
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   509
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   510
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   511
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   512
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   513
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   514
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   515
     #(Menu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   516
              (
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   517
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   518
                  label: 'Inspector Documentation'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   519
                  itemValue: openDocumentation
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   520
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   521
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   522
                  label: '-'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   523
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   524
               (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   525
                  label: 'About this Application...'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   526
                  itemValue: openAboutThisApplication
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   527
                )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   528
               )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   529
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   530
              nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   531
            )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   532
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   533
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   534
mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   535
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   536
     by the MenuEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   537
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   538
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   539
     the MenuEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   540
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   541
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   542
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   543
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   544
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   545
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   546
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   547
    <resource: #menu>
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   548
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   549
    ^ 
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   550
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   551
        (
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   552
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   553
            label: 'File'
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   554
            submenuChannel: viewMenu
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   555
          )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   556
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   557
            label: 'View'
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   558
            submenuChannel: viewMenu
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   559
          )
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   560
         (MenuItem
15402
72b0446acda3 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15295
diff changeset
   561
            label: 'MENU_Help'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   562
            startGroup: conditionalRight
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   563
            submenuChannel: helpMenu
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   564
          )
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   565
         )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   566
        nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   567
        nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   568
      )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   569
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   570
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   571
settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   572
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   573
     by the MenuEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   574
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   575
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   576
     the MenuEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   577
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   578
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   579
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   580
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   581
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   582
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   583
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   584
    <resource: #menu>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   585
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   586
    ^ 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   587
     #(Menu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   588
        (
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   589
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   590
            label: 'Default'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   591
            nameKey: Default
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   592
            hideMenuOnActivated: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   593
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   594
            choiceValue: default
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   595
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   596
         (MenuItem
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   597
            label: '-'
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   598
          )
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   599
         (MenuItem
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   600
            label: 'Red'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   601
            nameKey: Red
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   602
            hideMenuOnActivated: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   603
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   604
            choiceValue: red
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   605
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   606
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   607
            label: 'Green'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   608
            nameKey: Green
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   609
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   610
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   611
            choiceValue: green
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   612
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   613
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   614
            label: 'Blue'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   615
            nameKey: Blue
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   616
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   617
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   618
            choiceValue: blue
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   619
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   620
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   621
            label: 'Yellow'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   622
            nameKey: Yellow
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   623
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   624
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   625
            choiceValue: yellow
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   626
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   627
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   628
            label: 'Gray'
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   629
            nameKey: Gray
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   630
            hideMenuOnActivated: false
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
   631
            choice: colorProfileHolder
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   632
            choiceValue: gray
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   633
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   634
         )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   635
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   636
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   637
      )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   638
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   639
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   640
toolbarMenu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   641
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   642
     by the MenuEditor of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   643
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   644
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   645
     the MenuEditor may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   646
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   647
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   648
    "
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   649
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   650
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   651
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   652
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   653
    <resource: #menu>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   654
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   655
    ^ 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   656
     #(Menu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   657
        (
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   658
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   659
            activeHelpKey: backwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   660
            enabled: backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   661
            label: 'Back'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   662
            itemValue: backButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   663
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   664
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   665
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   666
            submenuChannel: backButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   667
            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   668
          )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   669
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   670
            activeHelpKey: forwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   671
            enabled: forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   672
            label: 'Forward'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   673
            itemValue: forwardButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   674
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   675
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   676
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   677
            submenuChannel: forwardButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   678
            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   679
          )
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   680
         (MenuItem
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   681
            label: '-'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   682
          )
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   683
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   684
            activeHelpKey: browseClassOfShownObject
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   685
            enabled: browseButtonEnabledHolder
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   686
            label: 'Browse'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   687
            itemValue: browseClassAction
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   688
            translateLabel: true
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   689
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   690
            hideMenuOnActivated: false
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   691
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   692
          )
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   693
         (MenuItem
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   694
            activeHelpKey: browseFile
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   695
            label: 'Browse File'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   696
            itemValue: browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   697
            translateLabel: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   698
            isButton: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   699
            isVisible: currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   700
            hideMenuOnActivated: false
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   701
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon)
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   702
          )
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   703
         (MenuItem
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   704
            activeHelpKey: editImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   705
            label: 'Edit the Image'
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   706
            itemValue: editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   707
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   708
            isButton: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   709
            isVisible: currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   710
            hideMenuOnActivated: false
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   711
            labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon)
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   712
          )
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   713
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   714
            activeHelpKey: refresh
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   715
            label: 'Refresh for Changed Object'
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   716
            itemValue: refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   717
            translateLabel: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   718
            isButton: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   719
            startGroup: right
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   720
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   721
          )
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   722
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   723
            activeHelpKey: colorProfile
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   724
            label: 'Settings'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   725
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   726
            isButton: true
11265
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   727
            isVisible: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   728
            submenuChannel: settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   729
            labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   730
          )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   731
         )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   732
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   733
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   734
      )
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   735
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   736
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   737
viewMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   738
    "This resource specification was automatically generated
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   739
     by the MenuEditor of ST/X."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   740
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   741
    "Do not manually edit this!! If it is corrupted,
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   742
     the MenuEditor may not be able to read the specification."
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   743
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   744
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   745
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   746
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#viewMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   747
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 viewMenu)) startUp
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   748
    "
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   749
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   750
    <resource: #menu>
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   751
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   752
    ^ 
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   753
     #(Menu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   754
        (
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   755
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   756
            label: 'Expand Arrays in "all xxx"-Lists'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   757
            itemValue: expandArraysInAllList:
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   758
            indication: expandArraysInAllList
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   759
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   760
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   761
            label: 'Alphabetical'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   762
            itemValue: showAlphabeticalHolderChanged
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   763
            indication: showAlphabeticalHolder
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   764
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   765
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   766
            label: '-'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   767
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   768
         (MenuItem
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   769
            label: 'Color Setting'
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   770
            submenuChannel: settingsMenu
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   771
          )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   772
         )
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   773
        nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   774
        nil
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
   775
      )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   776
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   777
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   778
!Inspector2 class methodsFor:'startup'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   780
openOn: anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   781
12515
a0fbafe08367 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12357
diff changeset
   782
    ^ self new openOn: anObject.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   783
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   784
    "Modified: / 17-02-2008 / 10:29:45 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   785
    "Modified (format): / 11-07-2011 / 22:28:03 / cg"
13132
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   786
!
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   787
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   788
openOn: anObject title:aString
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   789
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   790
    ^ self new 
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   791
        openOn: anObject;
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   792
        windowTitle:aString
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   793
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   794
    "
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   795
     self openOn:(Array new:3)
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   796
     self openOn:(Array new:3) title:'my array'
84c411de6047 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13084
diff changeset
   797
    "
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   798
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   799
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   800
!Inspector2 class methodsFor:'testing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   801
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   802
testSimpleShow
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   803
    |ins|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   804
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   805
    ins := Inspector2 openOn:4.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   806
    ins inspect:10.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   807
    ins inspect:42.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   808
    ins inspect:'dead one'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   809
    ins inspect:'rolled back'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   810
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   811
    "/ins inspectItem: (ins history at: 3).  "/ Rollback history, zustanou jen prvni 3
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   812
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   813
    ins inspect:'xFuj'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   814
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   815
    "Modified: / 11-01-2008 / 20:36:37 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   816
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   817
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   818
!Inspector2 methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   819
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   820
backButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   821
    ^ self backButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   822
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   823
    "Created: / 12-01-2008 / 19:14:35 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   824
    "Modified (format): / 19-08-2011 / 08:59:41 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   825
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   826
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   827
currentObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   828
    ^ self navigationState theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   829
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   830
    "Created: / 13-01-2008 / 10:14:47 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   831
    "Modified: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   832
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   833
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   834
currentState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   835
    ^ self navigationHistoryHolder currentItem
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   836
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   837
    "Created: / 21-02-2008 / 19:39:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   838
    "Modified: / 27-02-2008 / 11:56:55 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   839
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   840
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   841
forwardButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   842
    ^ self forwardButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   843
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   844
    "Created: / 12-01-2008 / 19:14:48 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   845
    "Modified (format): / 19-08-2011 / 08:59:45 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   846
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   847
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   848
navigationState
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   849
    ^ self navigationHistoryHolder value currentItem
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   850
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   851
    "Created: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   852
    "Modified: / 21-02-2008 / 19:34:14 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   853
    "Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   854
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   855
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   856
navigationState:historyItem 
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   857
    self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   858
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   859
    "/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   860
    "/self updateTabs.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   861
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   862
    "Created: / 17-02-2008 / 09:49:11 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   863
    "Modified: / 21-02-2008 / 19:47:26 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   864
    "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
   865
    "Modified: / 19-08-2011 / 09:16:38 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   866
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   867
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   868
!Inspector2 methodsFor:'aspects'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   869
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   870
backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   871
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   872
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   873
    ^(AspectAdaptor forAspect:#canGoBack)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   874
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   875
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   876
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   877
    "Modified: / 27-02-2008 / 12:11:30 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   878
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   879
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   880
browseButtonEnabledHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   881
    ^ BlockValue
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   882
        with:[:m | m notNil]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   883
        argument:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   884
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   885
    "Created: / 19-08-2011 / 09:22:47 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   886
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   887
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   888
colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   889
    "return/create the 'colorProfileHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   890
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   891
    colorProfileHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   892
        colorProfileHolder := ValueHolder with: #default.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   893
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   894
    ^ colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   895
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   896
    "Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   897
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   898
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   899
currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   900
    currentObjectHolder isNil ifTrue:[
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   901
        currentObjectHolder := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   902
        currentObjectHolder addDependent: self.
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   903
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   904
    ^ currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   905
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   906
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   907
    "Created: / 19-08-2011 / 08:58:48 / cg"
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   908
    "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
   909
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   910
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   911
currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   912
    ^ BlockValue
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   913
        with:[:o | o isFilename ]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   914
        argument:self currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   915
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   916
    "Created: / 19-08-2011 / 08:56:27 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   917
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   918
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   919
currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   920
    ^ BlockValue
14421
aa61cfa5275c class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 14400
diff changeset
   921
        with:[:o | o isImage ]
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   922
        argument:self currentObjectHolder
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   923
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   924
    "Created: / 15-01-2012 / 10:06:28 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   925
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   926
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   927
evaluationLanguageComboVisibleHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   928
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   929
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   930
    "/ Do not show language combo when language is Smalltalk.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   931
    "/ 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
   932
    ^ BlockValue
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   933
        with:[:o | o class programmingLanguage isSmalltalk not ]
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   934
        argument:self currentObjectHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   935
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   936
    "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
   937
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   938
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   939
evaluationLanguageHolder
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   940
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   941
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   942
    evaluationLanguageHolder isNil ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   943
        evaluationLanguageHolder := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   944
       evaluationLanguageHolder addDependent:self.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   945
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   946
    ^ evaluationLanguageHolder.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   947
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   948
    "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
   949
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   950
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   951
evaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   952
    <resource: #uiAspect>
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   953
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   954
    evaluationLanguageList isNil ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   955
        evaluationLanguageList := ValueHolder new.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   956
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   957
    ^ evaluationLanguageList.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   958
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
   959
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   960
expandArraysInAllList
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   961
    ^ InspectorView expandArraysInAllLists
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   962
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   963
    "Created: / 30-01-2012 / 16:52:46 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   964
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   965
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   966
expandArraysInAllList:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   967
    InspectorView expandArraysInAllLists:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   968
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   969
    "Created: / 30-01-2012 / 16:53:15 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   970
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   971
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   972
forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   973
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   974
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   975
    ^(AspectAdaptor forAspect:#canGoForward)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   976
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   977
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   978
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   979
    "Modified: / 27-02-2008 / 12:11:26 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   980
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   981
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   982
navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   983
    "return/create the 'currentItemHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   984
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   985
    navigationHistoryHolder isNil ifTrue:[
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   986
        navigationHistoryHolder := Tools::NavigationHistory new.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   987
    ].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   988
    ^ navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   989
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   990
    "Created: / 21-02-2008 / 19:34:14 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   991
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   992
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   993
navigationStateAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   994
    navigationStateAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   995
        navigationStateAspect := (AspectAdaptor forAspect:#currentItem) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   996
                    subjectChannel:self navigationHistoryHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   997
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   998
    ^ navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   999
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1000
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1001
    "Modified (format): / 19-08-2011 / 08:59:10 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1002
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1003
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1004
showAlphabeticalHolder
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1005
      ^ builder booleanValueAspectFor:#showAlphabeticalHolder
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1006
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1007
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1008
tabLabelsAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1009
    ^ (AspectAdaptor forAspect:#tabLabels) 
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1010
        subjectChannel:self navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1011
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1012
    "Created: / 16-01-2008 / 17:29:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1013
    "Modified: / 27-02-2008 / 12:05:32 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1014
    "Modified (format): / 19-08-2011 / 08:59:21 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1015
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1016
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1017
tabSelectionIndexAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1018
    ^ ((AspectAdaptor forAspect:#selectionIndex) 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1019
        subjectChannel:self navigationStateAspect)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1020
        onChangeEvaluate:[ self tabViewAspect changed ];
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1021
        yourself
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1022
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1023
    "Created: / 16-01-2008 / 17:29:29 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1024
    "Modified: / 27-02-2008 / 12:06:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1025
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1026
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1027
tabViewAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1028
    tabViewAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1029
        tabViewAspect := (AspectAdaptor forAspect:#selectionView) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1030
                    subjectChannel:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1031
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1032
    ^ tabViewAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1033
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1034
    "Created: / 16-01-2008 / 17:30:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1035
    "Modified: / 27-02-2008 / 12:05:46 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1036
    "Modified (format): / 19-08-2011 / 08:59:35 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1037
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1038
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1039
toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1040
    "return/create the 'toolbarBackgroundHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1041
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1042
    toolbarBackgroundHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1043
        toolbarBackgroundHolder := BlockValue
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1044
            with: [:profile| 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1045
                | clr |    
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1046
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1047
                clr := ColorProfiles at: profile value.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1048
                clr isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1049
                    clr := MenuPanel defaultBackgroundColor
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1050
                ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1051
                clr.            
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1052
            ] argument: self colorProfileHolder            
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1053
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1054
    ^ toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1055
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1056
    "Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1057
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1058
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1059
!Inspector2 methodsFor:'change & update'!
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
update:something with:aParameter from:changedObject
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1062
    "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
  1063
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1064
    "stub code automatically generated - please change as required"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1065
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1066
    changedObject == currentObjectHolder ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1067
         self updateEvaluationLanguageList.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1068
         ^ self.
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
    changedObject == evaluationLanguageHolder  ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1071
         self updateEvaluationLanguage.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1072
         ^ self.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1073
    ].  
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1074
    super update:something with:aParameter from:changedObject
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1075
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1076
    "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
  1077
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1078
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1079
updateEvaluationLanguage
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1080
    | evaluationLanguage objectsLanguage lastLanguage |
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1081
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1082
    evaluationLanguage :=  self evaluationLanguageHolder value.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1083
    "/ Remember user's selection for future...
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1084
    objectsLanguage := self currentObject class programmingLanguage.
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1085
    lastLanguage := EvaluationLanguageMap at: objectsLanguage ifAbsent: [ objectsLanguage ].
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1086
    lastLanguage ~~ evaluationLanguage ifTrue:[ 
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1087
        EvaluationLanguageMap at: objectsLanguage put: evaluationLanguage 
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1088
    ].
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1089
    "/ Update compiler class in all inspectors...
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1090
    self setDoItActionForLanguage: evaluationLanguage.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1091
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1092
    "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
  1093
    "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
  1094
!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1095
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1096
updateEvaluationLanguageList
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1097
    | currentObject currentObjectLanguage |
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1098
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1099
    currentObject := self currentObject.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1100
    currentObjectLanguage := currentObject class programmingLanguage.
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1101
    currentObjectLanguage isSmalltalk ifFalse:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1102
        self evaluationLanguageList value: (Array with: currentObjectLanguage with: SmalltalkLanguage instance)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1103
    ] ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1104
        self evaluationLanguageList value: (Array with: currentObjectLanguage).
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1105
    ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1106
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1107
    self evaluationLanguageHolder value:(EvaluationLanguageMap at: currentObjectLanguage ifAbsent:[currentObjectLanguage])
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1108
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1109
    "Created: / 26-10-2013 / 00:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1110
! !
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1111
12734
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1112
!Inspector2 methodsFor:'configuration'!
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1113
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1114
hideHashes:aBoolean
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1115
    "compatibiliy with InspectorView - must be implemented"
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1116
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1117
    #todo
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1118
!
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1119
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1120
hideMessages:aBoolean
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1121
    "compatibiliy with InspectorView - must be implemented"
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1122
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1123
    #todo
12736
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1124
!
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1125
12891
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1126
maxItemsInHistory:aNumber
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1127
    self navigationHistoryHolder value maxItemsInHistory:aNumber
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1128
!
007cb027484a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12836
diff changeset
  1129
12736
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1130
suppressPseudoSlots:aBoolean
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1131
    "compatibiliy with InspectorView - must be implemented"
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1132
aa99e44c86c3 class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12734
diff changeset
  1133
    #todo
12734
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1134
! !
71c4c94f7b0b class: Tools::Inspector2
Stefan Vogel <sv@exept.de>
parents: 12515
diff changeset
  1135
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1136
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1137
!Inspector2 methodsFor:'hooks'!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1138
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1139
postBuildEvaluationLanguageCombo: aComboBoxView
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1140
"/    aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1141
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1142
    "Modified: / 26-10-2013 / 01:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1143
! !
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1144
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1145
!Inspector2 methodsFor:'menu'!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1146
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1147
backButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1148
    ^ [ self navigationHistoryHolder goBackMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1149
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1150
    "Created: / 12-01-2008 / 18:57:08 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1151
    "Modified: / 22-02-2008 / 16:57:46 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1152
!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1153
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1154
forwardButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1155
    ^ [ self navigationHistoryHolder goForwardMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1156
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1157
    "Created: / 12-01-2008 / 18:57:30 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1158
    "Modified: / 22-02-2008 / 16:58:11 / janfrog"
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1159
!
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1160
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1161
settingsMenu
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1162
    |m|
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1163
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1164
    m := self class settingsMenu decodeAsLiteralArray.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1165
    m itemsDo:[:eachItem |
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1166
        |lbl labelWithColor clr|
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1167
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1168
        lbl := resources string:eachItem label.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1169
        (eachItem choiceValue ? #default) ~~ #default ifTrue:[
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1170
            clr := Color perform:eachItem choiceValue.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1171
            labelWithColor := lbl asText backgroundColorizeAllWith:clr.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1172
            clr brightness < 0.5 ifTrue:[
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1173
                labelWithColor := labelWithColor colorizeAllWith:Color white.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1174
            ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1175
            eachItem label:labelWithColor.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1176
        ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1177
    ].
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1178
    ^ m
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1179
! !
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1180
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1181
!Inspector2 methodsFor:'menu actions'!
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1182
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1183
backButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1184
    self navigationHistoryHolder goBack.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1185
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1186
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1187
    "Modified: / 21-02-2008 / 19:40:23 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1188
    "Modified: / 15-07-2011 / 16:26:28 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1189
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1190
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1191
browseClassAction
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1192
    "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
  1193
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
  1194
    | class |
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1195
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1196
    class := self currentObject class.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1197
13225
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1198
"/    browser notNil ifTrue:[
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1199
"/        "/ try to add a tab to the already opened browser
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1200
"/        (browser isKindOf:Tools::NewSystemBrowser) ifTrue:[
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1201
"/            browser spawnClassBrowserFor:(Array with:class) in:#newBuffer.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1202
"/            "/ browser spawnSingleClassBrowserFor:class in:#newBuffer.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1203
"/            browser window raise.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1204
"/            ^ self.
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1205
"/        ].
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1206
"/    ].
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1207
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1208
    "/ if that fails, open a new one
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1209
    UserPreferences systemBrowserClass 
11361
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1210
                    openInClass:class selector:nil "/ browseSingleClass: class
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1211
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1212
    "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13225
efbc399a9a53 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13168
diff changeset
  1213
    "Modified: / 26-07-2013 / 15:36:51 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1214
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1215
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1216
browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1217
    "open a filebrowser on the file represented by the current object"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1218
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1219
    | fn |
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1220
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1221
    fn := self currentObject asFilename.
14794
b9b08eaf1f3a class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14790
diff changeset
  1222
    UserPreferences fileBrowserClass openOn:fn
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1223
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1224
    "Created: / 19-08-2011 / 09:29:44 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1225
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1226
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1227
changeColorAction: color
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1228
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1229
    self toolbarBackgroundHolder value: (Color perform: color asSymbol)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1230
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1231
    "Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1232
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1233
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1234
editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1235
    "open an imageEditor on the current object"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1236
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1237
    | img |
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1238
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1239
    img := self currentObject.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1240
    ImageEditor openOnImage:img.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1241
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1242
    "Created: / 15-01-2012 / 10:08:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1243
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
  1244
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1245
forwardButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1246
    self navigationHistoryHolder goForward.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1247
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1248
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1249
    "Created: / 21-02-2008 / 19:52:03 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1250
    "Modified: / 15-07-2011 / 16:26:33 / cg"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1251
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1252
12836
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1253
openDocumentation
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1254
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'.
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1255
!
6ac60180dc5e class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 12736
diff changeset
  1256
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1257
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1258
    self navigationHistoryHolder currentItem refreshTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1259
    self tabViewAspect changed.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1260
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1261
"/    sel := selectionIndex.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1262
"/    self selectionIndex:nil.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1263
"/    self selectionIndex:sel.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1264
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1265
    "Created: / 21-08-2011 / 08:23:00 / cg"
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1266
!
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1267
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1268
showAlphabeticalHolderChanged
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1269
    self navigationHistoryHolder currentItem tabViews do:[:each |
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1270
        (each isKindOf:InspectorView) ifTrue:[
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1271
            each showAlphabetical:(self showAlphabeticalHolder value)
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1272
        ]
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1273
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1274
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1275
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1276
!Inspector2 methodsFor:'opening'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1277
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1278
closeDownViews
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1279
    LastExtent := self window extent.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1280
    super closeDownViews.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1281
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1282
    "Created: / 11-07-2011 / 22:33:47 / cg"
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1283
!
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1284
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1285
inspect:anObject 
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1286
    | objectsLanguage |
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1287
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
  1288
    self navigationHistoryHolder currentItem:(self navigationStateFor: anObject).
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1289
    self window notNil ifTrue:[
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1290
        self updateWindowLabel
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1291
    ].
13966
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1292
    objectsLanguage := anObject class programmingLanguage.
6ab4e7ae274a Fix for evaluation language.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13945
diff changeset
  1293
    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
  1294
    "/ 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
  1295
    "/ 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
  1296
    self updateEvaluationLanguage.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1297
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1298
    "Modified: / 27-02-2008 / 12:06:52 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1299
    "Modified: / 15-07-2011 / 16:26:03 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1300
    "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
  1301
    "Modified: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1302
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1303
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1304
openOn: anObject
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1305
    self inspect: anObject.    
15295
1a183ea62e10 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15282
diff changeset
  1306
    self openWithExtent:LastExtent.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1307
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1308
    "Modified: / 13-01-2008 / 13:55:27 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1309
    "Modified: / 11-07-2011 / 22:31:42 / cg"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1310
!
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1311
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1312
postBuildWith:aBuilder
11373
60147f931571 changed: #postBuildWith:
Claus Gittinger <cg@exept.de>
parents: 11361
diff changeset
  1313
    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
  1314
    self updateWindowLabel.
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1315
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1316
    "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
  1317
    "Modified: / 12-08-2014 / 20:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1318
!
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1319
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1320
updateWindowLabel
14449
b05ae6f619c5 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14421
diff changeset
  1321
    "not only the label is updated; 
b05ae6f619c5 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14421
diff changeset
  1322
     also the current inspected object is fetched from the navigation state"
b05ae6f619c5 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 14421
diff changeset
  1323
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1324
    |currentItem object windowLabel |
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1325
10423
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1326
    (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1327
        object := currentItem theObject.
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1328
    ].
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1329
    self currentObjectHolder value:object.
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1330
    windowLabel := InspectorView commonLabelFor:object.
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1331
    "/ Contract window label if too long...
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1332
    (windowLabel includes: Character cr) ifTrue:[ 
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1333
        windowLabel := windowLabel upTo: Character cr.
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1334
    ].
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1335
    windowLabel size > 200 ifTrue:[
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1336
        windowLabel := (windowLabel contractAtEndTo: 200) , '...'
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1337
    ].
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1338
    self window label: windowLabel
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1339
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1340
    "Created: / 15-07-2011 / 16:25:42 / cg"
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1341
    "Modified: / 28-07-2015 / 05:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1342
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1343
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1344
!Inspector2 methodsFor:'private'!
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1345
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
  1346
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
  1347
    | current new |
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1348
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1349
    new := NavigationState for: anObject.
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1350
    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
  1351
    (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
  1352
        | currentTabLabel newSelectionIndex |
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1353
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1354
        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
  1355
        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
  1356
        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
  1357
            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
  1358
        ].
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1359
        new tabViews do:[:each |
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1360
            (each isKindOf:InspectorView) ifTrue:[
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1361
                each showAlphabetical:(self showAlphabeticalHolder value)
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1362
            ]
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1363
        ].
15282
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1364
    ].
18ce7c39bd7d When inspecting a new object, try to keep page selection.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15184
diff changeset
  1365
    ^ 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
  1366
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1367
    "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
  1368
    "Modified: / 13-02-2015 / 20:44:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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
  1369
!
f20011c9afc6 Extracted creation of navigation state so custom subclasses may override and customize.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15178
diff changeset
  1370
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1371
setDoItActionForLanguage: language
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1372
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1373
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1374
    self currentState tabViews do:[:view | 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1375
        (view respondsTo: #workspace) ifTrue:[
15522
92e5dd55bfd6 Set #editedLanguage for all workspaces
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15402
diff changeset
  1376
            view workspace editedLanguage: language.
13805
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1377
            view workspace doItAction: 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1378
                [:theCode |
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1379
                    |evaluator|
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1380
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1381
                    (evaluator := language evaluatorClass)
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1382
                    notNil ifTrue:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1383
                        evaluator
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1384
                            evaluate:theCode 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1385
                            in:nil 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1386
                            receiver:self currentObject 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1387
                            notifying:view workspace 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1388
                            logged:true 
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1389
                            ifFail:nil
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1390
                    ] ifFalse:[
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1391
                        'object''s class provides no evaluator'
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1392
                    ]
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1393
                ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1394
        ].
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1395
    ]
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1396
538d93a2f75d merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13225
diff changeset
  1397
    "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
  1398
    "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
  1399
! !
13168
8de8aa65df94 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13132
diff changeset
  1400
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1401
!Inspector2::NavigationState class methodsFor:'creating classes'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1402
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1403
for:anObject 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1404
    |item|
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1405
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1406
    item := self new.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1407
    item theObject:anObject.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1408
    ^ item.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1409
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1410
    "Modified (format): / 19-08-2011 / 09:24:40 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1411
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1412
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1413
!Inspector2::NavigationState class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1414
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1415
version
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1416
    ^'$Header$'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1417
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1418
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1419
version_SVN
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1420
    ^'$Id$'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1421
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1422
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1423
!Inspector2::NavigationState methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1424
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1425
index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1426
    ^ index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1427
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1428
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1429
index:something
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1430
    index := something.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1431
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1432
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1433
selectionIndex
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1434
    selectionIndex isNil ifTrue:[^1].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1435
    selectionIndex < 1 ifTrue:[^1].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1436
    selectionIndex > tabs size ifTrue:[^tabs size].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1437
    ^selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1438
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1439
    "Created: / 16-01-2008 / 17:24:27 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1440
    "Modified: / 17-02-2008 / 10:20:35 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1441
    "Modified: / 18-11-2011 / 15:00:01 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1442
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1443
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1444
selectionIndex: anInteger
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1445
    selectionIndex := anInteger.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1446
    self changed:#selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1447
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1448
    "Created: / 16-01-2008 / 17:27:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1449
    "Modified: / 17-02-2008 / 09:46:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1450
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1451
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1452
selectionView
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1453
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1454
    |tab|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1455
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1456
    tab := self tabs at: self selectionIndex.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1457
    ^tab 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1458
        ifNil:[nil]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1459
        ifNotNil:[tab view].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1460
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1461
    "Created: / 16-01-2008 / 17:31:19 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1462
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1463
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1464
tabLabels
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1465
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1466
    ^self tabs collect:[:tab | tab label]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1467
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1468
    "Created: / 16-01-2008 / 17:14:07 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1469
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1470
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1471
tabViews
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1472
14158
9367f43bf074 Performance fixes in Inspector2:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13966
diff changeset
  1473
    ^self tabs collect:[:tab | tab viewOrNil]
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1474
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1475
    "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
  1476
    "Modified: / 24-03-2014 / 18:23:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1477
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1478
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1479
tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1480
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1481
    tabs isNil ifTrue:[self initializeTabs].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1482
    ^tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1483
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1484
    "Created: / 16-01-2008 / 16:51:53 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1485
    "Modified: / 18-11-2011 / 15:00:05 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1486
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1487
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1488
theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1489
    ^ theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1490
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1491
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1492
theObject:anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1493
    theObject := anObject.
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1494
    self changed
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1495
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1496
    "Modified: / 17-02-2008 / 08:38:44 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1497
    "Modified: / 19-08-2011 / 09:16:25 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1498
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1499
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1500
!Inspector2::NavigationState methodsFor:'comparing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1501
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1502
= anotherState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1503
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1504
    ^self class == anotherState class 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1505
        and:[self theObject == anotherState theObject]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1506
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1507
    "Created: / 21-02-2008 / 19:39:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1508
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1509
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1510
hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1511
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1512
    ^theObject hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1513
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1514
    "Created: / 21-02-2008 / 19:38:08 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1515
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1516
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1517
!Inspector2::NavigationState methodsFor:'initialization'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1518
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1519
initializeTab: 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
  1520
    "Initializes a extra tab specified by given selector"
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1521
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1522
    | 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
  1523
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1524
    tab := [ theObject perform: selector ] 
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1525
                on: Error 
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1526
                do:[:ex|
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1527
                    "/ for debugging:  
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1528
                    "/ ex reject.
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1529
                    Transcript show:'error in inspector setup: ',ex description.    
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1530
                    Tools::Inspector2Tab new 
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1531
                        label: selector;
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1532
                        text:
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1533
                            (ex description, Character cr, Character cr,
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1534
                             ex suspendedContext fullPrintAllString)
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1535
                ].
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1536
    (tab notNil and:[tab isKindOf: Tools::Inspector2Tab]) ifTrue:[
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1537
        tabs add: 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
  1538
    ]
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1539
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1540
    "Created: / 03-02-2015 / 11:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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
  1541
!
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1542
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1543
initializeTabs
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1544
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1545
    | selectors class |
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
  1546
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1547
    tabs := OrderedCollection new.        
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1548
    selectors := theObject inspector2Tabs 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
  1549
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1550
    "/ Old style - tabs are specified by method #inspector2Tabs
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1551
    selectors do: [:selector| self initializeTab: 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
  1552
0801fd0e860c Allow for extra inspector tabs to be specified also by method annotated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14189
diff changeset
  1553
    "/ New style - tab are defined by method with annotation
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1554
    class := theObject class.
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1555
    [ class notNil ] whileTrue:[ 
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1556
        class selectorsAndMethodsDo: [ :selector :method |
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1557
            (selectors includes: selector) ifFalse:[
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1558
                (method hasAnnotation: #inspector2Tab) ifTrue:[ 
15178
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1559
                    selectors add: selector.
8cf5ae14559b Inspector2 refactoring: do add some tabs automagically and unconditionally.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15071
diff changeset
  1560
                    self initializeTab: selector.  
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1561
                ].
13168
8de8aa65df94 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 13132
diff changeset
  1562
            ].
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
  1563
        ].
14354
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1564
        class := class superclass.
2e253818719a Fix in #initializeExtraTabs: - when searching for annotated methods, search superclasses too!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14260
diff changeset
  1565
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1566
    tabs := tabs asSortedCollection:[:a :b|a priority > b priority].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1567
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1568
    "Created: / 16-01-2008 / 16:54:28 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1569
    "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
  1570
    "Modified: / 03-02-2015 / 11:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1571
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1572
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1573
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1574
    tabs := nil.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1575
    self initializeTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1576
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1577
    "Created: / 21-08-2011 / 08:23:11 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1578
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1579
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1580
!Inspector2 class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1581
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1582
version
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1583
    ^ '$Header$'
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1584
!
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1585
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1586
version_CVS
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1587
    ^ '$Header$'
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1588
!
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1589
8816
fm
parents: 8807
diff changeset
  1590
version_CVS_jvrany
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1591
    ^ '$Header$'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1592
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1593
15765
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1594
version_HG
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1595
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1596
    ^ '$Changeset: <not expanded> $'
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1597
!
4ad929103298 Fixed window label updating in Inspector2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15720
diff changeset
  1598
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1599
version_SVN
15716
3b708f652d71 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 15522
diff changeset
  1600
    ^ '$Id$'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1601
! !
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1602
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1603
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1604
Inspector2 initialize!