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