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