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