Tools__Inspector2.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 08 Feb 2013 08:51:42 +0100
branchjv
changeset 12406 1fbd331e4489
parent 12401 4714b9640528
parent 12405 76f9a872362b
child 12431 9f0c59c742d5
permissions -rw-r--r--
Merged bf820ac5dfc8 and 76f9a872362b
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
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    19
		toolbarBackgroundHolder'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    20
	classVariableNames:'LastExtent ColorProfiles'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    21
	poolDictionaries:''
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
    22
	category:'Interface-Inspector2'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    23
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    24
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    25
Model subclass:#NavigationState
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    26
	instanceVariableNames:'theObject index tabs selectionIndex displayString'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    27
	classVariableNames:''
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    28
	poolDictionaries:''
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    29
	privateIn:Inspector2
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    30
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
    31
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    32
!Inspector2 class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    33
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    34
copyright
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    35
"
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    36
 COPYRIGHT (c) 2006 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    37
	      All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    38
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    39
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    40
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    41
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    42
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    43
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    44
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
    45
"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    46
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    47
11928
df7cfea75d78 added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11582
diff changeset
    48
documentation
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    49
"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    50
    an application for a multitab inspector
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    51
    extendable by the inspected object itself, by providing additional
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    52
    tabs via the inspector2XXX methods
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    53
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    54
    [author:]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    55
        Jan Vrani
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    56
"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    57
! !
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
    58
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
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;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    75
        at: #gray put: Color gray;
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    76
        yourself.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    77
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    78
    "Modified: / 17-01-2012 / 12:57:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    79
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
    80
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
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
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   143
)
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
   144
! !
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   145
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   146
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   147
!Inspector2 class methodsFor:'image specs'!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   148
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   149
settingsIcon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   150
12170
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12158
diff changeset
   151
    <resource: #image>
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   152
12175
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   153
    ^self settingsIcon6
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   154
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   155
    "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
   156
    "Modified: / 28-02-2012 / 21:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   157
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   158
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   159
settingsIcon1
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   160
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   161
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   162
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   163
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   164
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   165
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   166
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   167
     self settingsIcon inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   168
     ImageEditor openOnClass:self andSelector:#settingsIcon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   169
     Icon flushCachedIcons
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   170
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   171
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   172
    <resource: #image>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   173
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   174
    ^Icon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   175
        constantNamed:'Tools::Inspector2 class settingsIcon'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   176
        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
   177
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   178
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[G*LY'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y'':\Y''6\
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   179
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
   180
^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
   181
@@@@@@@@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
   182
^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
   183
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
   184
-;^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
   185
@@@@@@@@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
   186
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
   187
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
   188
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
   189
@@@@@@@@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
   190
-[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
   191
_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
   192
 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
   193
@@@@@@@@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
   194
W7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UW7^UXF:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   195
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   196
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   197
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   198
    "Created: / 17-01-2012 / 12:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   199
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   200
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   201
settingsIcon2
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   202
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   203
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   204
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   205
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   206
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   207
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   208
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   209
     self settingsIcon2 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   210
     ImageEditor openOnClass:self andSelector:#settingsIcon2
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   211
     Icon flushCachedIcons
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   212
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   213
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   214
    <resource: #image>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   215
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   216
    ^Icon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   217
        constantNamed:'Tools::Inspector2 class settingsIcon2'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   218
        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
   219
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   220
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"9J["IR#"IR#"IR#"IR#"IR#"IR#"IR#"IR#"IN#
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   221
!!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
   222
$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
   223
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
   224
$)>,$)>,$)>,$)>,$)>,$):+$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
   225
")"(!!)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
   226
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
   227
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
   228
 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
   229
 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
   230
 )"* 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
   231
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
   232
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
   233
$: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
   234
%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
   235
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
   236
!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!IB_!!X2UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   237
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   238
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
   239
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   240
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   241
settingsIcon3
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   242
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   243
     by the ImageEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   244
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   245
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   246
     the ImageEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   247
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   248
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   249
     self settingsIcon3 inspect
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   250
     ImageEditor openOnClass:self andSelector:#settingsIcon3
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   251
     Icon flushCachedIcons
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   252
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   253
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   254
    <resource: #image>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   255
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   256
    ^Icon
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   257
        constantNamed:'Tools::Inspector2 class settingsIcon3'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   258
        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
   259
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   260
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   261
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
   262
"\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
   263
@@@@@@@@VJ[?(]W?*]G?*=S?*=+?*=+?*=S?*=S?*=S?*]G?''L3?!![??7OC?????????????????????[+''?S:G?@@@@@@@@@@@@@@@@UZO?%\/?$<+?$\''?
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   264
#,''?#,''?#,''?#,''?#,''?#\#? <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
   265
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
   266
??+:??+: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
   267
@@@@@@@@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
   268
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
   269
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
   270
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
   271
@@@@@@@@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
   272
??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
   273
$]#?$]#?$]#?$]#?$]#?$]#?$]#?#=_?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
   274
&-+?&-+?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
   275
@@@@@@@@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
   276
QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?QY3?K(;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   277
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   278
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   279
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   280
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   281
settingsIcon4
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   282
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   283
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   284
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   285
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   286
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   287
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   288
    "
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   289
     self settingsIcon4 inspect
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   290
     ImageEditor openOnClass:self andSelector:#settingsIcon4
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   291
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   292
    "
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   293
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   294
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   295
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   296
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   297
        constantNamed:'Tools::Inspector2 class settingsIcon4'
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   298
        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
   299
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   300
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZC?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*_?V*S?
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   301
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
   302
??>H??>S??> UZO?@@@@@@@@@@@@@@@@VJ[???>%??>-??>4??>7??><??><??><??>>??>7??>*??>*??>J??>J??>J??>J??>J??>J??>JTI??@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   303
@@@@@@@@VJ[???> ??>)??>+??>+??>+??>+??>+??>+??>)??>\??>D??>D??>D??>D??>D??=-??=-??=-S:G?@@@@@@@@@@@@@@@@UZO???>U??>S??>Q
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   304
?/: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
   305
??=#?/=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
   306
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
   307
@@@@@@@@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
   308
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
   309
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
   310
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
   311
@@@@@@@@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
   312
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
   313
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
   314
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
   315
@@@@@@@@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
   316
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
   317
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   318
@@@@@@@@@@@@@@@@@@@@@@@@') ; 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
   319
!
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   320
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   321
settingsIcon5
12170
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12158
diff changeset
   322
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12158
diff changeset
   323
    <resource: #image>
6c9c4b7981ee branch jv-experiments merged back
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12158
diff changeset
   324
11161
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   325
    ^ GenericToolbarIconLibrary palette16x16Icon
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   326
Claus Gittinger <cg@exept.de>
parents: 11160
diff changeset
   327
    "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
   328
    "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
   329
!
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   330
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   331
settingsIcon6
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   332
    "This resource specification was automatically generated
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   333
     by the ImageEditor of ST/X."
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   334
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   335
    "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
   336
     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
   337
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   338
    "
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   339
     self settingsIcon6 inspect
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   340
     ImageEditor openOnClass:self andSelector:#settingsIcon6
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   341
     Icon flushCachedIcons
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   342
    "
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   343
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   344
    <resource: #image>
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
    ^Icon
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   347
        constantNamed:'Tools::Inspector2 class settingsIcon6'
c36c8041ab10 New color-swatch icon in Inspector2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12170
diff changeset
   348
        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
   349
(: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
   350
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
   351
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
   352
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
   353
$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
   354
#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
   355
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
   356
?8C???>@???? @@a') ; yourself); yourself]
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   357
! !
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   358
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   359
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   360
!Inspector2 class methodsFor:'interface specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   361
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   362
windowSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   363
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   364
     by the UIPainter of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   365
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   366
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   367
     the UIPainter may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   368
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   369
    "
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   370
     UIPainter new openOnClass:Tools::Inspector2 andSelector:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   371
     Tools::Inspector2 new openInterface:#windowSpec
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   372
     Tools::Inspector2 open
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   373
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   374
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   375
    <resource: #canvas>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   376
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   377
    ^ 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   378
     #(FullSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   379
        name: windowSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   380
        window: 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   381
       (WindowSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   382
          label: 'Inspector2'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   383
          name: 'Inspector2'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   384
          labelChannel: windowTitleAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   385
          min: (Point 0 0)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   386
          bounds: (Rectangle 0 0 388 421)
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   387
          menu: mainMenu
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   388
        )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   389
        component: 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   390
       (SpecCollection
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   391
          collection: (
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   392
           (MenuPanelSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   393
              name: 'ToolBar'
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   394
              layout: (LayoutFrame 0 0 0 0 0 1 40 0)
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   395
              backgroundChannel: toolbarBackgroundHolder
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   396
              menu: toolbarMenu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   397
              textDefault: true
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   398
            )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   399
           (NoteBookViewSpec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   400
              name: 'NoteBook'
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
   401
              layout: (LayoutFrame 0 0 40 0 0 1 0 1)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   402
              model: tabSelectionIndexAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   403
              menu: tabLabelsAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   404
              useIndex: true
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   405
              fitLastRow: false
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   406
              canvas: tabViewAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   407
              keepCanvasAlive: true
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   408
            )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   409
           )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   410
         
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   411
        )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   412
      )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   413
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   414
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   415
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   416
!Inspector2 class methodsFor:'menu specs'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   417
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   418
mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   419
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   420
     by the MenuEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   421
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   422
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   423
     the MenuEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   424
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   425
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   426
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   427
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   428
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   429
    "
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   430
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   431
    <resource: #menu>
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   432
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   433
    ^ 
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   434
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   435
        (
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   436
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   437
            label: 'File'
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   438
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   439
            submenu: 
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   440
           (Menu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   441
              (
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   442
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   443
                  label: 'Exit'
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   444
                  itemValue: closeRequest
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   445
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   446
                )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   447
               )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   448
              nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   449
              nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   450
            )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   451
          )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   452
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   453
            label: 'View'
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   454
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   455
            submenu: 
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   456
           (Menu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   457
              (
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   458
               (MenuItem
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
   459
                  label: 'Expand Arrays in "all xxx"-Lists'
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   460
                  itemValue: expandArraysInAllList:
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   461
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   462
                  indication: expandArraysInAllList
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   463
                )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   464
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   465
                  label: '-'
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   466
                )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   467
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   468
                  label: 'Color Setting'
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   469
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   470
                  submenuChannel: settingsMenu
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   471
                )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   472
               )
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   473
              nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   474
              nil
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   475
            )
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
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   482
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   483
settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   484
    "This resource specification was automatically generated
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   485
     by the MenuEditor of ST/X."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   486
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   487
    "Do not manually edit this!! If it is corrupted,
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   488
     the MenuEditor may not be able to read the specification."
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   489
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   490
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   491
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   492
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   493
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 settingsMenu)) startUp
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   494
    "
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   495
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   496
    <resource: #menu>
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   497
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   498
    ^ 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   499
     #(Menu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   500
        (
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   501
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   502
            label: 'Default'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   503
            nameKey: #'Default'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   504
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   505
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   506
            choiceValue: default
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   507
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   508
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   509
            label: 'Red'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   510
            nameKey: #'Red'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   511
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   512
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   513
            choiceValue: red
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   514
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   515
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   516
            label: 'Green'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   517
            nameKey: #'Green'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   518
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   519
            choiceValue: green
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   520
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   521
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   522
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   523
            label: 'Blue'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   524
            nameKey: #'Blue'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   525
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   526
            choiceValue: blue
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   527
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   528
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   529
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   530
            label: 'Yellow'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   531
            nameKey: #'Yellow'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   532
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   533
            choiceValue: yellow
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   534
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   535
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   536
         (MenuItem
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   537
            label: 'Gray'
11143
aa07f5c603dd Compilation fix
vrany
parents: 11142
diff changeset
   538
            nameKey: #'Gray'
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   539
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   540
            choiceValue: gray
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   541
            choice: colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   542
          )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   543
         )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   544
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   545
        nil
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   546
      )
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   547
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   548
    "Modified: / 17-01-2012 / 13:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   549
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   550
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   551
toolbarMenu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   552
    "This resource specification was automatically generated
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   553
     by the MenuEditor of ST/X."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   554
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   555
    "Do not manually edit this!! If it is corrupted,
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   556
     the MenuEditor may not be able to read the specification."
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   557
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   558
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   559
    "
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   560
     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#toolbarMenu
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   561
     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 toolbarMenu)) startUp
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   562
    "
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   563
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   564
    <resource: #menu>
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   565
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   566
    ^ 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   567
     #(Menu
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   568
        (
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   569
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   570
            activeHelpKey: backwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   571
            enabled: backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   572
            label: 'Back'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   573
            itemValue: backButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   574
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   575
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   576
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   577
            submenuChannel: backButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   578
            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   579
          )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   580
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   581
            activeHelpKey: forwardInVisitingHistory
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   582
            enabled: forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   583
            label: 'Forward'
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   584
            itemValue: forwardButtonAction
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   585
            translateLabel: true
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   586
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   587
            hideMenuOnActivated: false
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   588
            submenuChannel: forwardButtonMenuChannel
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   589
            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   590
          )
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   591
         (MenuItem
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   592
            label: '-'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   593
          )
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   594
         (MenuItem
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   595
            activeHelpKey: browseClassOfShownObject
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   596
            enabled: browseButtonEnabledHolder
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   597
            label: 'Browse'
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   598
            itemValue: browseClassAction
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   599
            translateLabel: true
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   600
            isButton: true
10596
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   601
            hideMenuOnActivated: false
a18767a996d8 changed: #toolbarMenu
Claus Gittinger <cg@exept.de>
parents: 10460
diff changeset
   602
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   603
          )
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   604
         (MenuItem
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   605
            activeHelpKey: browseFile
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   606
            label: 'Browse File'
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   607
            itemValue: browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   608
            translateLabel: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   609
            isButton: true
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   610
            isVisible: currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   611
            hideMenuOnActivated: false
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   612
            labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon)
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   613
          )
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   614
         (MenuItem
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   615
            activeHelpKey: editImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   616
            label: 'Edit the Image'
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   617
            itemValue: editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   618
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   619
            isButton: true
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   620
            isVisible: currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   621
            hideMenuOnActivated: false
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   622
            labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon)
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   623
          )
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   624
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   625
            activeHelpKey: refresh
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   626
            label: 'Refresh for Changed Object'
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   627
            itemValue: refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   628
            translateLabel: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   629
            isButton: true
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   630
            startGroup: right
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   631
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   632
          )
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   633
         (MenuItem
11160
3f50090b9337 added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11143
diff changeset
   634
            activeHelpKey: colorProfile
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   635
            label: 'Settings'
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   636
            translateLabel: true
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   637
            isButton: true
11265
baa17d98fc0f added: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11229
diff changeset
   638
            isVisible: false
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   639
            submenuChannel: settingsMenu
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   640
            labelImage: (ResourceRetriever #'Tools::Inspector2' settingsIcon)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   641
          )
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   642
         )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   643
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   644
        nil
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   645
      )
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   646
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   647
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   648
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   649
!Inspector2 class methodsFor:'startup'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   650
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   651
openOn: anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   652
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   653
    self new 
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   654
        openOn: anObject.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   655
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   656
    "Modified: / 17-02-2008 / 10:29:45 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   657
    "Modified (format): / 11-07-2011 / 22:28:03 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   658
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   659
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   660
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   661
!Inspector2 class methodsFor:'testing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   662
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   663
testSimpleShow
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   664
    |ins|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   665
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   666
    ins := Inspector2 openOn:4.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   667
    ins inspect:10.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   668
    ins inspect:42.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   669
    ins inspect:'dead one'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   670
    ins inspect:'rolled back'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   671
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   672
    "/ins inspectItem: (ins history at: 3).  "/ Rollback history, zustanou jen prvni 3
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   673
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   674
    ins inspect:'xFuj'.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   675
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   676
    "Modified: / 11-01-2008 / 20:36:37 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   677
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   678
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   679
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   680
!Inspector2 methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   681
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   682
backButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   683
    ^ self backButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   684
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   685
    "Created: / 12-01-2008 / 19:14:35 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   686
    "Modified (format): / 19-08-2011 / 08:59:41 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   687
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   688
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   689
currentObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   690
    ^ self navigationState theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   691
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   692
    "Created: / 13-01-2008 / 10:14:47 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   693
    "Modified: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   694
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   695
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   696
currentState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   697
    ^ self navigationHistoryHolder currentItem
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   698
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   699
    "Created: / 21-02-2008 / 19:39:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   700
    "Modified: / 27-02-2008 / 11:56:55 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   701
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   702
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   703
forwardButtonEnabled:value 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   704
    ^ self forwardButtonEnabledHolder value:value
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   705
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   706
    "Created: / 12-01-2008 / 19:14:48 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   707
    "Modified (format): / 19-08-2011 / 08:59:45 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   708
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   709
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   710
navigationState
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   711
    ^ self navigationHistoryHolder value currentItem
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   712
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   713
    "Created: / 17-02-2008 / 09:49:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   714
    "Modified: / 21-02-2008 / 19:34:14 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   715
    "Modified: / 22-07-2011 / 19:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   716
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   717
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   718
navigationState:historyItem 
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   719
    self navigationHistoryHolder "subjectChannel:" value currentItem:historyItem.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   720
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   721
    "/self fixNavigation. "Nevola se kvuli problemu s prekreslovanim"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   722
    "/self updateTabs.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   723
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   724
    "Created: / 17-02-2008 / 09:49:11 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   725
    "Modified: / 21-02-2008 / 19:47:26 / janfrog"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   726
    "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
   727
    "Modified: / 19-08-2011 / 09:16:38 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   728
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   729
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   730
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   731
!Inspector2 methodsFor:'aspects'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   732
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   733
backButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   734
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   735
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   736
    ^(AspectAdaptor forAspect:#canGoBack)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   737
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   738
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   739
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   740
    "Modified: / 27-02-2008 / 12:11:30 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   741
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   742
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   743
browseButtonEnabledHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   744
    ^ BlockValue
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   745
        with:[:m | m notNil]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   746
        argument:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   747
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   748
    "Created: / 19-08-2011 / 09:22:47 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   749
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   750
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   751
colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   752
    "return/create the 'colorProfileHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   753
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   754
    colorProfileHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   755
        colorProfileHolder := ValueHolder with: #default.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   756
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   757
    ^ colorProfileHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   758
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   759
    "Modified: / 17-01-2012 / 12:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   760
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   761
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   762
currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   763
    currentObjectHolder isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   764
        currentObjectHolder := ValueHolder new
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   765
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   766
    ^ currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   767
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   768
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   769
    "Created: / 19-08-2011 / 08:58:48 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   770
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   771
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   772
currentObjectIsFilename
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   773
    ^ BlockValue
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   774
        with:[:o | o isFilename ]
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   775
        argument:self currentObjectHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   776
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   777
    "Created: / 19-08-2011 / 08:56:27 / cg"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   778
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   779
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   780
currentObjectIsImage
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   781
    ^ BlockValue
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   782
        with:[:o | o isImageOrForm ]
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   783
        argument:self currentObjectHolder
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   784
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   785
    "Created: / 15-01-2012 / 10:06:28 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   786
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   787
11229
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   788
expandArraysInAllList
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   789
    ^ InspectorView expandArraysInAllLists
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   790
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   791
    "Created: / 30-01-2012 / 16:52:46 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   792
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   793
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   794
expandArraysInAllList:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   795
    InspectorView expandArraysInAllLists:aBoolean
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   796
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   797
    "Created: / 30-01-2012 / 16:53:15 / cg"
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   798
!
Claus Gittinger <cg@exept.de>
parents: 11161
diff changeset
   799
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   800
forwardButtonEnabledHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   801
    "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   802
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   803
    ^(AspectAdaptor forAspect:#canGoForward)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   804
        subjectChannel: self navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   805
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   806
    "Created: / 12-01-2008 / 19:13:49 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   807
    "Modified: / 27-02-2008 / 12:11:26 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   808
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   809
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   810
navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   811
    "return/create the 'currentItemHolder' value holder (automatically generated)"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   812
    
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   813
    navigationHistoryHolder isNil ifTrue:[
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   814
        navigationHistoryHolder := Tools::NavigationHistory new.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   815
    ].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   816
    ^ navigationHistoryHolder
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   817
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   818
    "Created: / 21-02-2008 / 19:34:14 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   819
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   820
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   821
navigationStateAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   822
    navigationStateAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   823
        navigationStateAspect := (AspectAdaptor forAspect:#currentItem) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   824
                    subjectChannel:self navigationHistoryHolder
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   825
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   826
    ^ navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   827
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   828
    "Created: / 27-02-2008 / 12:05:22 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   829
    "Modified (format): / 19-08-2011 / 08:59:10 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   830
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   831
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   832
tabLabelsAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   833
    ^ (AspectAdaptor forAspect:#tabLabels) 
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   834
        subjectChannel:self navigationStateAspect
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   835
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   836
    "Created: / 16-01-2008 / 17:29:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   837
    "Modified: / 27-02-2008 / 12:05:32 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   838
    "Modified (format): / 19-08-2011 / 08:59:21 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   839
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   840
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   841
tabSelectionIndexAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   842
    ^ ((AspectAdaptor forAspect:#selectionIndex) 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   843
        subjectChannel:self navigationStateAspect)
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   844
        onChangeEvaluate:[ self tabViewAspect changed ];
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   845
        yourself
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   846
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   847
    "Created: / 16-01-2008 / 17:29:29 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   848
    "Modified: / 27-02-2008 / 12:06:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   849
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   850
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   851
tabViewAspect
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   852
    tabViewAspect isNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   853
        tabViewAspect := (AspectAdaptor forAspect:#selectionView) 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   854
                    subjectChannel:self navigationStateAspect
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   855
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   856
    ^ tabViewAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   857
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   858
    "Created: / 16-01-2008 / 17:30:05 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   859
    "Modified: / 27-02-2008 / 12:05:46 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   860
    "Modified (format): / 19-08-2011 / 08:59:35 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   861
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   862
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   863
toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   864
    "return/create the 'toolbarBackgroundHolder' value holder (automatically generated)"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   865
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   866
    toolbarBackgroundHolder isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   867
        toolbarBackgroundHolder := BlockValue
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   868
            with: [:profile| 
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   869
                | clr |    
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   870
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   871
                clr := ColorProfiles at: profile value.
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   872
                clr isNil ifTrue:[
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   873
                    clr := MenuPanel defaultBackgroundColor
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   874
                ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   875
                clr.            
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   876
            ] argument: self colorProfileHolder            
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   877
    ].
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   878
    ^ toolbarBackgroundHolder
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   879
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   880
    "Modified: / 17-01-2012 / 13:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   881
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   882
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   883
windowTitleAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   884
    ^ (AspectAdaptor forAspect:#displayString) 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   885
        subjectChannel:self navigationStateAspect
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   886
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   887
    "Created: / 17-02-2008 / 08:42:21 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   888
    "Modified: / 27-02-2008 / 12:05:56 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   889
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   890
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   891
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   892
!Inspector2 methodsFor:'menu'!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   893
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   894
backButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   895
    ^ [ self navigationHistoryHolder goBackMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   896
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   897
    "Created: / 12-01-2008 / 18:57:08 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   898
    "Modified: / 22-02-2008 / 16:57:46 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   899
!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   900
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   901
forwardButtonMenuChannel
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   902
    ^ [ self navigationHistoryHolder goForwardMenu ]
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   903
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   904
    "Created: / 12-01-2008 / 18:57:30 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   905
    "Modified: / 22-02-2008 / 16:58:11 / janfrog"
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   906
! !
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   907
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   908
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   909
!Inspector2 methodsFor:'menu actions'!
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   910
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   911
backButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   912
    self navigationHistoryHolder goBack.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   913
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   914
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   915
    "Modified: / 21-02-2008 / 19:40:23 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   916
    "Modified: / 15-07-2011 / 16:26:28 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   917
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   918
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   919
browseClassAction
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   920
    "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
   921
10460
5e7e092fdd3b class definition
Claus Gittinger <cg@exept.de>
parents: 10425
diff changeset
   922
    | class |
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   923
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   924
    class := self currentObject class.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   925
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   926
    browser notNil ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   927
        "/ try to add a tab to the already opened browser
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   928
        (browser isKindOf:Tools::NewSystemBrowser) ifTrue:[
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   929
            browser spawnClassBrowserFor:(Array with:class) in:#newBuffer.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   930
            "/ browser spawnSingleClassBrowserFor:class in:#newBuffer.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   931
            browser window raise.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   932
            ^ self.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   933
        ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   934
    ].
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   935
    "/ if that fails, open a new one
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   936
11361
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
   937
    browser := UserPreferences current systemBrowserClass 
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
   938
                    openInClass:class selector:nil "/ browseSingleClass: class
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   939
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
   940
    "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11361
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
   941
    "Modified (format): / 05-03-2012 / 13:03:55 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   942
!
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   943
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   944
browseFileAction
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   945
    "open a filebrowser on the file represented by the current object"
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   946
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   947
    | fn |
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   948
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   949
    fn := self currentObject asFilename.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   950
    UserPreferences current fileBrowserClass openOn:fn
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   951
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
   952
    "Created: / 19-08-2011 / 09:29:44 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   953
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   954
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   955
changeColorAction: color
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   956
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   957
    self toolbarBackgroundHolder value: (Color perform: color asSymbol)
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   958
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   959
    "Created: / 17-01-2012 / 01:03:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   960
!
57ece4219193 class definition
vrany
parents: 11134
diff changeset
   961
11134
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   962
editImageAction
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   963
    "open an imageEditor on the current object"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   964
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   965
    | img |
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   966
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   967
    img := self currentObject.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   968
    ImageEditor openOnImage:img.
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   969
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   970
    "Created: / 15-01-2012 / 10:08:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   971
!
Claus Gittinger <cg@exept.de>
parents: 10875
diff changeset
   972
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   973
forwardButtonAction
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   974
    self navigationHistoryHolder goForward.
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   975
    self updateWindowLabel
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   976
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   977
    "Created: / 21-02-2008 / 19:52:03 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
   978
    "Modified: / 15-07-2011 / 16:26:33 / cg"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   979
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   980
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   981
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   982
    self navigationHistoryHolder currentItem refreshTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   983
    self tabViewAspect changed.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   984
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   985
"/    sel := selectionIndex.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   986
"/    self selectionIndex:nil.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   987
"/    self selectionIndex:sel.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   988
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
   989
    "Created: / 21-08-2011 / 08:23:00 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   990
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   991
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
   992
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   993
!Inspector2 methodsFor:'opening'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
   994
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   995
closeDownViews
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   996
    LastExtent := self window extent.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   997
    super closeDownViews.
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   998
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
   999
    "Created: / 11-07-2011 / 22:33:47 / cg"
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1000
!
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1001
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1002
historyTryPush: anObject
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1003
    <resource: #obsolete>
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1004
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1005
  "/ Pokud uz na anObject byl tak tam skocit, jinak pridat na konec
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1006
  self history do: [:item |
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1007
    item theObject == anObject ifTrue:[ ^item ]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1008
  ].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1009
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1010
  ^ self history push:anObject.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1011
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1012
    "Modified: / 16-01-2008 / 14:25:30 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1013
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1014
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1015
inspect:anObject 
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1016
    self navigationHistoryHolder currentItem:(NavigationState for:anObject).
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1017
    self window notNil ifTrue:[
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1018
        self updateWindowLabel
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1019
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1020
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1021
    "Modified: / 27-02-2008 / 12:06:52 / janfrog"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1022
    "Modified: / 15-07-2011 / 16:26:03 / cg"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1023
    "Modified (format): / 19-08-2011 / 09:01:20 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1024
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1025
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1026
openOn: anObject
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1027
    self inspect: anObject.    
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1028
    self openWithExtent:(LastExtent ? nil).
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1029
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1030
    "Modified: / 13-01-2008 / 13:55:27 / janfrog"
10311
755d5c678cf0 class definition
Claus Gittinger <cg@exept.de>
parents: 10206
diff changeset
  1031
    "Modified: / 11-07-2011 / 22:31:42 / cg"
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1032
!
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1033
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1034
postBuildWith:aBuilder
11373
60147f931571 changed: #postBuildWith:
Claus Gittinger <cg@exept.de>
parents: 11361
diff changeset
  1035
    super postBuildWith:aBuilder.
60147f931571 changed: #postBuildWith:
Claus Gittinger <cg@exept.de>
parents: 11361
diff changeset
  1036
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1037
    self updateWindowLabel
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1038
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1039
    "Created: / 15-07-2011 / 16:25:36 / cg"
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1040
!
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1041
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1042
updateWindowLabel
10423
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1043
    |currentItem object|
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1044
10423
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1045
    (currentItem := self navigationHistoryHolder currentItem) notNil ifTrue:[
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1046
        object := currentItem theObject.
8215f496b6de changed: #updateWindowLabel
Claus Gittinger <cg@exept.de>
parents: 10392
diff changeset
  1047
    ].
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1048
    self currentObjectHolder value:object.
10320
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1049
    self window label:(InspectorView commonLabelFor:object).
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1050
98f0327453eb seq-id in windowlabel
Claus Gittinger <cg@exept.de>
parents: 10311
diff changeset
  1051
    "Created: / 15-07-2011 / 16:25:42 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1052
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1053
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1054
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1055
!Inspector2::NavigationState class methodsFor:'creating classes'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1056
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1057
for:anObject 
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1058
    |item|
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1059
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1060
    item := self new.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1061
    item theObject:anObject.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1062
    ^ item.
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1063
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1064
    "Modified (format): / 19-08-2011 / 09:24:40 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1065
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1066
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1067
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1068
!Inspector2::NavigationState class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1069
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1070
version
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1071
    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.33 2013-02-01 13:20:56 cg Exp $'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1072
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1073
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1074
version_SVN
8904
f051532eb303 update #version_SVN with § as keyword expansion character
fm
parents: 8816
diff changeset
  1075
    ^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1076
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1077
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1078
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1079
!Inspector2::NavigationState methodsFor:'accessing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1080
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1081
index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1082
    ^ index
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1083
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1084
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1085
index:something
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1086
    index := something.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1087
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1088
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1089
selectionIndex
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1090
    selectionIndex isNil ifTrue:[^1].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1091
    selectionIndex < 1 ifTrue:[^1].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1092
    selectionIndex > tabs size ifTrue:[^tabs size].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1093
    ^selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1094
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1095
    "Created: / 16-01-2008 / 17:24:27 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1096
    "Modified: / 17-02-2008 / 10:20:35 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1097
    "Modified: / 18-11-2011 / 15:00:01 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1098
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1099
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1100
selectionIndex: anInteger
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1101
    selectionIndex := anInteger.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1102
    self changed:#selectionIndex
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1103
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1104
    "Created: / 16-01-2008 / 17:27:52 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1105
    "Modified: / 17-02-2008 / 09:46:45 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1106
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1107
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1108
selectionView
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1109
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1110
    |tab|
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1111
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1112
    tab := self tabs at: self selectionIndex.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1113
    ^tab 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1114
        ifNil:[nil]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1115
        ifNotNil:[tab view].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1116
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1117
    "Created: / 16-01-2008 / 17:31:19 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1118
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1119
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1120
tabLabels
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1121
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1122
    ^self tabs collect:[:tab | tab label]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1123
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1124
    "Created: / 16-01-2008 / 17:14:07 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1125
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1126
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1127
tabViews
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1128
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1129
    ^self tabs collect:[:tab | tab view]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1130
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1131
    "Created: / 16-01-2008 / 17:14:13 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1132
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1133
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1134
tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1135
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1136
    tabs isNil ifTrue:[self initializeTabs].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1137
    ^tabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1138
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1139
    "Created: / 16-01-2008 / 16:51:53 / janfrog"
10875
2bcc9f486e55 cleanup
Claus Gittinger <cg@exept.de>
parents: 10664
diff changeset
  1140
    "Modified: / 18-11-2011 / 15:00:05 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1141
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1142
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1143
theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1144
    ^ theObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1145
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1146
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1147
theObject:anObject
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1148
    theObject := anObject.
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1149
    self changed
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1150
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1151
    "Modified: / 17-02-2008 / 08:38:44 / janfrog"
10597
0b3b91f5820f class definition
Claus Gittinger <cg@exept.de>
parents: 10596
diff changeset
  1152
    "Modified: / 19-08-2011 / 09:16:25 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1153
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1154
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1155
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1156
!Inspector2::NavigationState methodsFor:'comparing'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1157
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1158
= anotherState
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1159
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1160
    ^self class == anotherState class 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1161
        and:[self theObject == anotherState theObject]
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1162
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1163
    "Created: / 21-02-2008 / 19:39:01 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1164
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1165
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1166
hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1167
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1168
    ^theObject hash
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1169
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1170
    "Created: / 21-02-2008 / 19:38:08 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1171
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1172
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1173
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1174
!Inspector2::NavigationState methodsFor:'displaying'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1175
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1176
displayString
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1177
10392
e4e94b17c0c2 displayString
Claus Gittinger <cg@exept.de>
parents: 10379
diff changeset
  1178
    displayString isNil ifTrue:[
11280
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1179
        Error handle:[:ex |
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1180
            displayString := '*ERROR*'
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1181
        ] do:[
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1182
            displayString := theObject printString contractAtEndTo:15.
3910183325f0 catch error while printing
Claus Gittinger <cg@exept.de>
parents: 11265
diff changeset
  1183
        ].
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1184
        displayString := displayString , ' [', (theObject class name ? '???')  , ']'
10392
e4e94b17c0c2 displayString
Claus Gittinger <cg@exept.de>
parents: 10379
diff changeset
  1185
    ].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1186
    ^ displayString
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1187
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1188
    "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
  1189
    "Modified: / 13-06-2012 / 14:40:34 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1190
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1191
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1192
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1193
!Inspector2::NavigationState methodsFor:'initialization'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1194
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1195
initializeClassBrowserTab
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1196
    | browser spec cls canvas makeView view|
11361
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1197
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1198
    cls := theObject class theNonMetaclass.
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1199
11361
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1200
    "/ spec := #singleClassBrowserSpec.
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1201
    spec := #multipleClassBrowserSpec.
6b9a08f63775 browseClassAction
Claus Gittinger <cg@exept.de>
parents: 11280
diff changeset
  1202
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1203
    makeView := [
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1204
        view isNil ifTrue:[
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1205
            browser := Tools::NewSystemBrowser new.
11928
df7cfea75d78 added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11582
diff changeset
  1206
            browser isEmbeddedBrowser:true.
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1207
            browser createBuilder.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1208
            browser navigationState canvasType:spec.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1209
            browser browserCanvasType:spec.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1210
            canvas := browser browserCanvas value.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1211
            canvas builder:(browser builder).
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1212
            browser navigationState canvas:canvas.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1213
            "/ browser switchToClassHierarchyView.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1214
            "/ browser showInheritedMethods.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1215
            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
  1216
            browser sortByNameAndInheritance value:true.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1217
            browser selectClass: cls.
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1218
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1219
            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
  1220
        ].
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1221
        view
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1222
    ].
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1223
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1224
    tabs add:
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1225
        (Tools::Inspector2Tab new
10629
3d4fbb369b58 Added 'Class' tab to Inspector2
vrany
parents: 10597
diff changeset
  1226
            priority: 0;
3d4fbb369b58 Added 'Class' tab to Inspector2
vrany
parents: 10597
diff changeset
  1227
            label:'Class';
11582
4daadd615c71 lazy setup of embedded browser brings up inspector much faster
Claus Gittinger <cg@exept.de>
parents: 11373
diff changeset
  1228
            viewHolder: makeView)
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1229
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1230
    "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
  1231
    "Modified: / 13-06-2012 / 14:58:01 / cg"
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1232
!
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1233
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1234
initializeCommonTabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1235
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1236
    "Unfinished code"
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1237
"/    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
  1238
"/    self initializeClassBrowserTab
10379
489f71d5711e Added "browse class" toolbar button to Inspector2
vrany
parents: 10322
diff changeset
  1239
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1240
"/    tabs add:
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1241
"/        (Tools::Inspector2Tab new
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1242
"/            priority: 50;
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1243
"/            label:'Object';
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1244
"/            view: ((theObject inspectorClass new inspect:theObject)
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1245
"/                        yourself))
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1246
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1247
    "Created: / 16-01-2008 / 16:56:48 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1248
    "Modified: / 17-02-2008 / 10:29:54 / janfrog"
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1249
    "Modified (comment): / 20-04-2012 / 20:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1250
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1251
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1252
initializeExtraTabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1253
10206
a87ddb42707d oops forgot to check in
Claus Gittinger <cg@exept.de>
parents: 9996
diff changeset
  1254
    "/ 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
  1255
    theObject inspector2Tabs do: [:selector|
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1256
            | tab |
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1257
            tab := [ theObject perform: selector ] 
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1258
                        on: Error do:[:ex|
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1259
                            "/ for debugging:  ex reject.
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1260
                            Tools::Inspector2Tab new 
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1261
                                label: selector;
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1262
                                text:
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1263
                                    (ex description, Character cr, Character cr,
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1264
                                     ex suspendedContext fullPrintAllString)].
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1265
            (tab notNil and:[tab isKindOf: Tools::Inspector2Tab])
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1266
                ifTrue:[tabs add: tab]].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1267
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1268
    "Created: / 16-01-2008 / 17:25:24 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1269
    "Modified: / 17-02-2008 / 10:30:43 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1270
    "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
  1271
    "Modified (format): / 21-08-2011 / 08:01:34 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1272
!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1273
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1274
initializeTabs
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1275
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1276
    tabs := OrderedCollection new.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1277
    self initializeCommonTabs.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1278
    self initializeExtraTabs.
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1279
    tabs := tabs asSortedCollection:[:a :b|a priority > b priority].
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1280
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1281
    "Created: / 16-01-2008 / 16:54:28 / janfrog"
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1282
    "Modified: / 17-02-2008 / 10:08:04 / janfrog"
10636
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1283
!
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1284
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1285
refreshTabs
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1286
    tabs := nil.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1287
    self initializeTabs.
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1288
5a678905e63a added: #refreshTabs
Claus Gittinger <cg@exept.de>
parents: 10629
diff changeset
  1289
    "Created: / 21-08-2011 / 08:23:11 / cg"
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1290
! !
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1291
12405
76f9a872362b Merged 3efd83b86c07 and 1206aff1f11 (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12308 12357
diff changeset
  1292
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1293
!Inspector2 class methodsFor:'documentation'!
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1294
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1295
version
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1296
    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.33 2013-02-01 13:20:56 cg Exp $'
10425
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1297
!
c49cba2bd28e only follow (dive in) with double click;
Claus Gittinger <cg@exept.de>
parents: 10423
diff changeset
  1298
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1299
version_CVS
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1300
    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.33 2013-02-01 13:20:56 cg Exp $'
8807
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1301
!
6041d13f1fb1 changed: #version_SVN
fm
parents: 8779
diff changeset
  1302
8816
fm
parents: 8807
diff changeset
  1303
version_CVS_jvrany
8904
f051532eb303 update #version_SVN with § as keyword expansion character
fm
parents: 8816
diff changeset
  1304
    ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §'
9996
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1305
!
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1306
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1307
version_SVN
Claus Gittinger <cg@exept.de>
parents: 8904
diff changeset
  1308
    ^ '§Id: Tools__Inspector2.st 7486 2009-10-26 22:06:24Z vranyj1 §'
8779
5fda1c25e965 initial checkin
fm
parents:
diff changeset
  1309
! !
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1310
12357
63073e1bf301 class: Tools::Inspector2
Claus Gittinger <cg@exept.de>
parents: 11928
diff changeset
  1311
11142
57ece4219193 class definition
vrany
parents: 11134
diff changeset
  1312
Inspector2 initialize!