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