Tools__ViewTreeApplication.st
author Claus Gittinger <cg@exept.de>
Sat, 21 Jul 2012 18:58:03 +0200
changeset 2898 c7f6c498df6a
parent 2888 9adfb8a84696
child 2978 a952dfdb1b6a
permissions -rw-r--r--
category of:15 methods
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     1
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     2
 COPYRIGHT (c) 2007 by eXept Software AG
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     3
              All Rights Reserved
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     4
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     5
 This software is furnished under a license and may be used
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     6
 only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     8
 be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
     9
 other person.  No title to or ownership of the software is
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    10
 hereby transferred.
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    11
"
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    12
"{ Package: 'stx:libtool2' }"
87bb1815460b initial checkin
ca
parents:
diff changeset
    13
87bb1815460b initial checkin
ca
parents:
diff changeset
    14
"{ NameSpace: Tools }"
87bb1815460b initial checkin
ca
parents:
diff changeset
    15
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    16
ToolApplicationModel subclass:#ViewTreeInspectorApplication
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    17
	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
    18
		motionAction process followFocusChannel showNamesHolder
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
    19
		inspectorView'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    20
	classVariableNames:''
87bb1815460b initial checkin
ca
parents:
diff changeset
    21
	poolDictionaries:''
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    22
	category:'Interface-Smalltalk'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    23
!
87bb1815460b initial checkin
ca
parents:
diff changeset
    24
87bb1815460b initial checkin
ca
parents:
diff changeset
    25
Object subclass:#MenuDesc
87bb1815460b initial checkin
ca
parents:
diff changeset
    26
	instanceVariableNames:'title value action'
87bb1815460b initial checkin
ca
parents:
diff changeset
    27
	classVariableNames:''
87bb1815460b initial checkin
ca
parents:
diff changeset
    28
	poolDictionaries:''
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    29
	privateIn:ViewTreeInspectorApplication
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    30
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    31
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    32
HierarchicalItem subclass:#ViewTreeItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    33
	instanceVariableNames:'widget isDrawnShown exists xOffsetAdditionalName'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    34
	classVariableNames:'HandleExtent'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    35
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    36
	privateIn:ViewTreeInspectorApplication
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    37
!
87bb1815460b initial checkin
ca
parents:
diff changeset
    38
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    39
ValueModel subclass:#ViewTreeModel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    40
	instanceVariableNames:'lockSema selectedSuperItems selection hiddenLevel listOfItems
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    41
		inputEventAction mappedViewAction beforeSelectionChangedAction
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    42
		icons timedUpdateTask selectOnClickHolder testModeChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    43
		hasTargetWidgetChannel'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    44
	classVariableNames:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    45
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    46
	privateIn:ViewTreeInspectorApplication
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    47
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    48
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    49
HierarchicalList subclass:#ItemList
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    50
	instanceVariableNames:'treeModel eventHook eventHookInitialized showWidgetNames'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    51
	classVariableNames:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    52
	poolDictionaries:''
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    53
	privateIn:ViewTreeInspectorApplication::ViewTreeModel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    54
!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    55
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    56
!ViewTreeInspectorApplication class methodsFor:'documentation'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    57
2748
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    58
copyright
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    59
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    60
 COPYRIGHT (c) 2007 by eXept Software AG
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    61
              All Rights Reserved
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    62
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    63
 This software is furnished under a license and may be used
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    64
 only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    65
 inclusion of the above copyright notice.   This software may not
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    66
 be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    67
 other person.  No title to or ownership of the software is
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    68
 hereby transferred.
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    69
"
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    70
!
76f6fd319918 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2747
diff changeset
    71
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    72
documentation
87bb1815460b initial checkin
ca
parents:
diff changeset
    73
"
87bb1815460b initial checkin
ca
parents:
diff changeset
    74
     Small application showing a ViewTreeModel use.
87bb1815460b initial checkin
ca
parents:
diff changeset
    75
87bb1815460b initial checkin
ca
parents:
diff changeset
    76
     It displays a hierarchical list of a selected TopView and
87bb1815460b initial checkin
ca
parents:
diff changeset
    77
     all its contained subViews.
87bb1815460b initial checkin
ca
parents:
diff changeset
    78
     Useful to have a look at subcomponents - to see how views
87bb1815460b initial checkin
ca
parents:
diff changeset
    79
     are structured.
87bb1815460b initial checkin
ca
parents:
diff changeset
    80
87bb1815460b initial checkin
ca
parents:
diff changeset
    81
87bb1815460b initial checkin
ca
parents:
diff changeset
    82
    [Instance variables:]
87bb1815460b initial checkin
ca
parents:
diff changeset
    83
        model           <ViewTreeModel>      the used ViewTreeModel
87bb1815460b initial checkin
ca
parents:
diff changeset
    84
        clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)
87bb1815460b initial checkin
ca
parents:
diff changeset
    85
        clickedPoint    <Point>              point where the motion action started from.
87bb1815460b initial checkin
ca
parents:
diff changeset
    86
        motionAction    <Action>             (oneArg-) action called durring buttonMotion.
87bb1815460b initial checkin
ca
parents:
diff changeset
    87
87bb1815460b initial checkin
ca
parents:
diff changeset
    88
87bb1815460b initial checkin
ca
parents:
diff changeset
    89
    [author:]
87bb1815460b initial checkin
ca
parents:
diff changeset
    90
        Claus Atzkern
87bb1815460b initial checkin
ca
parents:
diff changeset
    91
87bb1815460b initial checkin
ca
parents:
diff changeset
    92
    [see also:]
87bb1815460b initial checkin
ca
parents:
diff changeset
    93
        ViewTreeModel
87bb1815460b initial checkin
ca
parents:
diff changeset
    94
        ViewTreeItem
87bb1815460b initial checkin
ca
parents:
diff changeset
    95
"
87bb1815460b initial checkin
ca
parents:
diff changeset
    96
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
    97
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
    98
!ViewTreeInspectorApplication class methodsFor:'initialization'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
    99
87bb1815460b initial checkin
ca
parents:
diff changeset
   100
initialize
87bb1815460b initial checkin
ca
parents:
diff changeset
   101
    "add myself to the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   102
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   103
    self installInLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   104
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   105
87bb1815460b initial checkin
ca
parents:
diff changeset
   106
installInLauncher
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   107
    "add myself to the launcher menu"
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   108
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   109
    |menuItem icon|
87bb1815460b initial checkin
ca
parents:
diff changeset
   110
87bb1815460b initial checkin
ca
parents:
diff changeset
   111
    NewLauncher isNil ifTrue:[^ self].
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   112
    "/ cg - disabled. the icon is too ugly.
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   113
    ^ self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   114
87bb1815460b initial checkin
ca
parents:
diff changeset
   115
    icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.
87bb1815460b initial checkin
ca
parents:
diff changeset
   116
87bb1815460b initial checkin
ca
parents:
diff changeset
   117
    menuItem := MenuItem new 
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   118
                    label: 'View Tree Inspector';
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   119
                    value: [ ViewTreeInspectorApplication open];
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   120
                    isButton: true;
87bb1815460b initial checkin
ca
parents:
diff changeset
   121
                    icon: icon;
87bb1815460b initial checkin
ca
parents:
diff changeset
   122
                    nameKey: #viewInspect.
87bb1815460b initial checkin
ca
parents:
diff changeset
   123
87bb1815460b initial checkin
ca
parents:
diff changeset
   124
    menuItem startGroup:#right.
87bb1815460b initial checkin
ca
parents:
diff changeset
   125
    NewLauncher addMenuItem:menuItem in:'toolbar'
87bb1815460b initial checkin
ca
parents:
diff changeset
   126
                   position:#( #before #help)
87bb1815460b initial checkin
ca
parents:
diff changeset
   127
                      space:false.
87bb1815460b initial checkin
ca
parents:
diff changeset
   128
87bb1815460b initial checkin
ca
parents:
diff changeset
   129
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   130
self installInLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   131
self removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   132
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   133
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   134
87bb1815460b initial checkin
ca
parents:
diff changeset
   135
postAutoload
87bb1815460b initial checkin
ca
parents:
diff changeset
   136
    "add myself to the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   137
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   138
    self installInLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   139
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   140
self installInLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   141
self removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   142
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   143
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   144
87bb1815460b initial checkin
ca
parents:
diff changeset
   145
removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   146
    "remove myself from the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   147
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   148
    NewLauncher isNil ifTrue:[^ self].
87bb1815460b initial checkin
ca
parents:
diff changeset
   149
    NewLauncher removeUserTool:#viewInspect
87bb1815460b initial checkin
ca
parents:
diff changeset
   150
87bb1815460b initial checkin
ca
parents:
diff changeset
   151
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   152
self installInLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   153
self removeFromLauncher
87bb1815460b initial checkin
ca
parents:
diff changeset
   154
"
87bb1815460b initial checkin
ca
parents:
diff changeset
   155
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   156
87bb1815460b initial checkin
ca
parents:
diff changeset
   157
unload
87bb1815460b initial checkin
ca
parents:
diff changeset
   158
    "class is about to be unloaded - remove myself from the launcher menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   159
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   160
    self removeFromLauncher.
87bb1815460b initial checkin
ca
parents:
diff changeset
   161
    super unload.
87bb1815460b initial checkin
ca
parents:
diff changeset
   162
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   163
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   164
!ViewTreeInspectorApplication class methodsFor:'image specs'!
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   165
2759
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   166
crossHairIcon
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   167
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   168
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   169
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   170
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   171
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   172
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   173
    "
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   174
     self crossHairIcon inspect
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   175
     ImageEditor openOnClass:self andSelector:#crossHairIcon
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   176
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   177
    "
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   178
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   179
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   180
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   181
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   182
        constantNamed:'Tools::ViewTreeInspectorApplication class crossHairIcon'
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   183
        ifAbsentPut:[(Depth1Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@F0@@XL@@>>@A8O@A>?@B,Z B(J @@@@B(J B,Z A>?@A8O@@>>@@XL@@F0@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[255 255 255 0 0 0]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G0@@_<@@?>@A??@C?? C?? G??0G<_0G<_0G<_0G??0C?? C?? A??@@?>@@_<@@G0@@@@@@@@@@@@@@@@@') ; yourself); yourself]
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   184
!
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   185
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   186
pickWindowIcon
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   187
    "This resource specification was automatically generated
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   188
     by the ImageEditor of ST/X."
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   189
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   190
    "Do not manually edit this!! If it is corrupted,
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   191
     the ImageEditor may not be able to read the specification."
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   192
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   193
    "
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   194
     self pickWindowIcon inspect
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   195
     ImageEditor openOnClass:self andSelector:#pickWindowIcon
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   196
     Icon flushCachedIcons
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   197
    "
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   198
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   199
    <resource: #image>
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   200
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   201
    ^Icon
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   202
        constantNamed:'Tools::ViewTreeInspectorApplication class pickWindowIcon'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   203
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   204
,;N3,;N3,;N3,;N3,;N3,;N3,;N3,3H<P38;M3P,H2@^GA(VEQHQCP0KA D<[&-%XU=WST%BN#D!!GQ$TD@(IBP\BQF)+Z6E_U4-FPCX+G1,WEA@JBP$HAT23
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   205
,;N3,;N3,;N3,;N$():Z&IRR&1!!^,;N3,;N3,;N3,;N$)JJ^&)"T$),0W[N3,;N3,;N3,;N3,:R"'')*X%IJWK523,;N3,;N3,0@@@KN3)JJ^&)"T$"5Z,;N3
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   206
,;N3@@B3-KL@@JJ^&)"T$)D*V[N3,;N3@KN3-KR4)JH@&)"T$)*MJE"3,;N3,0B3)JJ4&*R"@I*X%IJZ#RYV,;N3,0B3@JR"-JR"-I(@%IJV%H %U[N3,;L@
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   207
-@B4-KR4-KR4@IRR%IJEIER3,;N3@KL@)JJ4():4&@BO#9RR!!RIS,;N3,;L@,:R"-JJ^& BT#8>O#8H"T+N3,;N3@KN$@@@@'')(@%H>O#(>AH%F3,;N3,;L@
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   208
@JR4'' @@%IJO#8>O RIO,;N3,;N3):P@@@BX%IJO#8>O#7<"S*63,;N$():Z&IRR&IRR#8>O#8=>H"&-,;N$():Z&IRR&)"T$(>O#8>O @<)R$!!GQTD?OS$8
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   209
MSL.I2H"H"H"H"HO,;N3,;N3,;N3,;N3,;N3,;N3,;N3,0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 50 164 0 50 171 0 137 0 0 206 0 1 50 177 2 56 178 3 64 241 3 67 246 3 73 255 4 74 255 5 63 191 7 66 194 10 71 196 10 79 255 12 59 167 12 82 255 14 77 199 18 83 201 19 88 255 21 91 255 23 89 204 27 95 206 28 97 255 29 72 179 30 100 255 32 101 209 36 106 255 36 107 211 39 109 255 41 113 214 45 115 255 45 119 216 48 118 255 50 87 176 50 125 219 51 88 176 51 88 177 52 89 178 52 90 178 53 90 178 53 127 212 54 91 179 54 123 255 54 131 221 55 92 180 55 95 181 56 93 180 56 94 181 57 127 255 57 149 229 58 99 184 58 137 224 61 104 187 63 132 255 63 143 226 64 108 190 66 113 193 66 135 255 67 149 229 68 157 232 69 117 196 71 155 231 72 122 199 72 141 255 75 126 202 75 144 255 75 160 234 77 163 236 78 131 206 80 149 255 81 136 209 84 140 212 84 153 255 87 145 215 88 157 255 91 168 235 93 161 255 94 154 222 96 157 223 96 165 255 97 159 225 98 160 225 98 162 226 99 163 227 100 165 228 101 166 229 101 170 255 102 167 230 103 169 231 104 170 232 104 173 255 105 172 233 105 174 234 106 175 235 109 178 255 112 180 255 117 186 255 119 187 255 122 154 245 125 160 253 125 193 255 126 161 253 126 194 255 127 162 254 130 165 254 132 200 255 132 201 255 133 60 36 135 170 255 139 207 255 140 175 255 144 179 255 149 184 255 153 188 255 157 192 255 162 196 255 166 200 255 170 204 255 174 208 255 174 218 230 177 212 255 181 215 255 185 219 255 188 222 255 191 225 255 212 211 224 218 217 230 219 219 230 220 220 231 222 221 232 223 223 233 225 224 234 225 225 234 226 226 237 227 226 235 227 227 236 227 227 238 228 228 237 229 229 239 231 230 238 231 231 238 231 231 240 232 232 241 233 232 239 233 233 240 234 234 242 235 234 241 236 236 243 237 236 242 237 237 244 238 237 243 238 238 244 239 238 243 239 239 245 240 239 244 241 240 245 241 241 246 241 241 247 242 242 246 242 242 247 243 243 247 243 243 248 244 244 248 244 244 249 245 244 247 246 246 249 246 246 250 247 246 249 247 247 250 248 248 251 249 249 250 249 249 251 250 250 251 250 250 252 251 251 252 251 251 253 253 253 254 254 254 255 255 255 255 0 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C????????????????????????????????????????????????????????????????????????????????@@@C') ; yourself); yourself]
2759
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   210
!
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   211
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   212
pickWindowIcon2
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   213
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   214
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   215
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   216
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   217
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   218
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   219
    "
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   220
     self pickWindowIcon2 inspect
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   221
     ImageEditor openOnClass:self andSelector:#pickWindowIcon2
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   222
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   223
    "
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   224
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   225
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   226
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   227
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   228
        constantNamed:'Tools::ViewTreeInspectorApplication class pickWindowIcon2'
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   229
        ifAbsentPut:[(Depth8Image new) width: 22; height: 23; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   230
@CH<O#,7MB0#HA8\F!!XUD!!DMC@,F@P@<[&U!!W5]MRTH:LRD]FQPPB $IA0H@QF)+XU=WR4Y@M",_F1\TD@(IBP E@D23,;N3,;N3,;N3,;N"'')*X%IJ[F@A^
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   231
,;N3,;N3,0@@@@@@():Z&IRR&3@@W+N3,;N3@@B3,0B3)@@@&)"T$),0@E63,;N3@KN3@@@@@@B"'' BX%IJWK0A\,;N3@KN3,;N3@JR"'')*X@IRR&24@V+N3
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   232
@KN3,;L@@@@@@I:Z&IP@$),*@E&3,0B3,;N3,:P@():Z&IRT@IJ[J@AX,0B3@KL@,;L@@@B^& BT@IP@&2X@U+L@,0B3@KL@)JJ^@I @%@BT@I,%@EV3@@@@
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   233
@@@@@JR"'' @@@@@@@@B[I@AT,0B3@KL@)@B$()8@&@BZ@IP@&2H@T;L@,0B3@JR$@@@@%I @& BT@I,"@EJ3,0B3,:R$)I8@&IRX%I*X@IJ[H AQ,;L@,:R$
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   234
)@@@@@@@&IRO#0BO RH@S;N3,0B$)JR"'' BX%I"T#0BO#7<"@D:-,;N$@JR$@@@@@@BR#0BO#8=>H AN+[N$)JH@@I"T@I"T@@BO#8>O_"H@JZ63)JJ^&) @
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   235
@@@@@IJO#8>O#8@O@B&3,;N3,;N3,;N3,;N"'')*X%IJ[C0@)R$]EPS<=NS 5L28''H"H"H"H"H <b') ; colorMapFromArray:#[0 0 0 0 50 164 0 50 171 0 137 0 0 206 0 1 50 177 2 56 178 3 64 241 3 67 246 3 73 255 4 74 255 5 63 191 7 66 194 10 71 196 10 79 255 12 59 167 12 82 255 14 77 199 18 83 201 19 88 255 21 91 255 23 89 204 27 95 206 28 97 255 29 72 179 30 100 255 32 101 209 36 106 255 36 107 211 39 109 255 41 113 214 45 115 255 45 119 216 48 118 255 50 87 176 50 125 219 51 88 176 51 88 177 52 89 178 52 90 178 53 90 178 53 127 212 54 91 179 54 123 255 54 131 221 55 92 180 55 95 181 56 93 180 56 94 181 57 127 255 57 149 229 58 99 184 58 137 224 61 104 187 63 132 255 63 143 226 64 108 190 66 113 193 66 135 255 67 149 229 68 157 232 69 117 196 71 155 231 72 122 199 72 141 255 75 126 202 75 144 255 75 160 234 77 163 236 78 131 206 80 149 255 81 136 209 84 140 212 84 153 255 87 145 215 88 157 255 91 168 235 93 161 255 94 154 222 96 157 223 96 165 255 97 159 225 98 160 225 98 162 226 99 163 227 100 165 228 101 166 229 101 170 255 102 167 230 103 169 231 104 170 232 104 173 255 105 172 233 105 174 234 106 175 235 109 178 255 112 180 255 117 186 255 119 187 255 122 154 245 125 160 253 125 193 255 126 161 253 126 194 255 127 162 254 130 165 254 132 200 255 132 201 255 133 60 36 135 170 255 139 207 255 140 175 255 144 179 255 149 184 255 153 188 255 157 192 255 162 196 255 166 200 255 170 204 255 174 208 255 174 218 230 177 212 255 181 215 255 185 219 255 188 222 255 191 225 255 212 211 224 218 217 230 219 219 230 220 220 231 222 221 232 223 223 233 225 224 234 225 225 234 226 226 237 227 226 235 227 227 236 227 227 238 228 228 237 229 229 239 231 230 238 231 231 238 231 231 240 232 232 241 233 232 239 233 233 240 234 234 242 235 234 241 236 236 243 237 236 242 237 237 244 238 237 243 238 238 244 239 238 243 239 239 245 240 239 244 241 240 245 241 241 246 241 241 247 242 242 246 242 242 247 243 243 247 243 243 248 244 244 248 244 244 249 245 244 247 246 246 249 246 246 250 247 246 249 247 247 250 248 248 251 249 249 250 249 249 251 250 250 251 250 250 252 251 251 252 251 251 253 253 253 254 254 254 255 255 255 255]; mask:((Depth1Image new) width: 22; height: 23; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<_??<') ; yourself); yourself]
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   236
! !
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   237
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   238
!ViewTreeInspectorApplication class methodsFor:'interface specs'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   239
87bb1815460b initial checkin
ca
parents:
diff changeset
   240
windowSpec
87bb1815460b initial checkin
ca
parents:
diff changeset
   241
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   242
     by the UIPainter of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   243
87bb1815460b initial checkin
ca
parents:
diff changeset
   244
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   245
     the UIPainter may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   246
87bb1815460b initial checkin
ca
parents:
diff changeset
   247
    "
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   248
     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   249
     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   250
     Tools::ViewTreeInspectorApplication open
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   251
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   252
87bb1815460b initial checkin
ca
parents:
diff changeset
   253
    <resource: #canvas>
87bb1815460b initial checkin
ca
parents:
diff changeset
   254
87bb1815460b initial checkin
ca
parents:
diff changeset
   255
    ^ 
87bb1815460b initial checkin
ca
parents:
diff changeset
   256
     #(FullSpec
87bb1815460b initial checkin
ca
parents:
diff changeset
   257
        name: windowSpec
87bb1815460b initial checkin
ca
parents:
diff changeset
   258
        window: 
87bb1815460b initial checkin
ca
parents:
diff changeset
   259
       (WindowSpec
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   260
          label: 'View Tree Inspector'
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   261
          name: 'View Tree Inspector'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   262
          min: (Point 10 10)
87bb1815460b initial checkin
ca
parents:
diff changeset
   263
          max: (Point 1024 9999)
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   264
          bounds: (Rectangle 0 0 381 654)
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   265
          menu: menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   266
        )
87bb1815460b initial checkin
ca
parents:
diff changeset
   267
        component: 
87bb1815460b initial checkin
ca
parents:
diff changeset
   268
       (SpecCollection
87bb1815460b initial checkin
ca
parents:
diff changeset
   269
          collection: (
87bb1815460b initial checkin
ca
parents:
diff changeset
   270
           (MenuPanelSpec
87bb1815460b initial checkin
ca
parents:
diff changeset
   271
              name: 'toolbarMenu'
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   272
              layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   273
              menu: toolbarMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   274
              textDefault: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   275
            )
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   276
       (VariableVerticalPanelSpec
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   277
              name: 'VariableVerticalPanel1'
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   278
              layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   279
              component: 
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   280
             (SpecCollection
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   281
                collection: (
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   282
                 (HierarchicalListViewSpec
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   283
                    name: 'List'
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   284
                    level: 1
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   285
                    model: model
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   286
                    menu: middleButtonMenu
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   287
                    hasHorizontalScrollBar: true
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   288
                    hasVerticalScrollBar: true
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   289
                    miniScrollerHorizontal: true
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   290
                    miniScrollerVertical: false
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   291
                    listModel: listOfItems
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   292
                    multipleSelectOk: true
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   293
                    useIndex: false
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   294
                    highlightMode: label
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   295
                    showLeftIndicators: false
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   296
                    indicatorSelector: indicatorClicked:
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   297
                    useDefaultIcons: false
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   298
                    postBuildCallback: postBuildTree:
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   299
                  )
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   300
                 (ViewSpec
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   301
                    name: 'Box1'
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   302
                    viewClassName: 'InspectorView'
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   303
                    postBuildCallback: postBuildInspectorView:
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   304
                  )
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   305
                 )
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   306
               
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   307
              )
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   308
              handles: (Any 0.5 1.0)
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   309
            )
87bb1815460b initial checkin
ca
parents:
diff changeset
   310
           )
87bb1815460b initial checkin
ca
parents:
diff changeset
   311
         
87bb1815460b initial checkin
ca
parents:
diff changeset
   312
        )
87bb1815460b initial checkin
ca
parents:
diff changeset
   313
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   314
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   315
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   316
!ViewTreeInspectorApplication class methodsFor:'menu specs'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   317
87bb1815460b initial checkin
ca
parents:
diff changeset
   318
menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   319
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   320
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   321
87bb1815460b initial checkin
ca
parents:
diff changeset
   322
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   323
     the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   324
87bb1815460b initial checkin
ca
parents:
diff changeset
   325
    "
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   326
     MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#menu
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   327
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication menu)) startUp
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   328
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   329
87bb1815460b initial checkin
ca
parents:
diff changeset
   330
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   331
87bb1815460b initial checkin
ca
parents:
diff changeset
   332
    ^ 
87bb1815460b initial checkin
ca
parents:
diff changeset
   333
     #(Menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   334
        (
87bb1815460b initial checkin
ca
parents:
diff changeset
   335
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   336
            label: 'File'
87bb1815460b initial checkin
ca
parents:
diff changeset
   337
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   338
            submenu: 
87bb1815460b initial checkin
ca
parents:
diff changeset
   339
           (Menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   340
              (
87bb1815460b initial checkin
ca
parents:
diff changeset
   341
               (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   342
                  label: 'Pick a View'
2762
Claus Gittinger <cg@exept.de>
parents: 2759
diff changeset
   343
                  itemValue: doPickView
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   344
                  translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   345
                )
87bb1815460b initial checkin
ca
parents:
diff changeset
   346
               (MenuItem
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   347
                  enabled: hasTargetWidgetChannel
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   348
                  label: 'Release Picked View'
87bb1815460b initial checkin
ca
parents:
diff changeset
   349
                  itemValue: doUnpick
87bb1815460b initial checkin
ca
parents:
diff changeset
   350
                  translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   351
                )
87bb1815460b initial checkin
ca
parents:
diff changeset
   352
               (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   353
                  label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   354
                )
87bb1815460b initial checkin
ca
parents:
diff changeset
   355
               (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   356
                  label: 'Settings'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   357
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   358
                  submenu: 
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   359
                 (Menu
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   360
                    (
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   361
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   362
                        label: 'Test Mode'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   363
                        translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   364
                        hideMenuOnActivated: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   365
                        indication: testModeChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   366
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   367
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   368
                        enabled: testModeChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   369
                        label: 'Follow Focus'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   370
                        translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   371
                        hideMenuOnActivated: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   372
                        indication: followFocusChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   373
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   374
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   375
                        label: '-'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   376
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   377
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   378
                        label: 'Select on Click'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   379
                        translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   380
                        hideMenuOnActivated: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   381
                        indication: selectOnClickHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   382
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   383
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   384
                        label: '-'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   385
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   386
                     (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   387
                        label: 'Show Name of Widgets'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   388
                        translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   389
                        hideMenuOnActivated: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   390
                        indication: showNamesHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   391
                      )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   392
                     )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   393
                    nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   394
                    nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   395
                  )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   396
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   397
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   398
                  label: '-'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   399
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   400
               (MenuItem
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   401
                  label: 'Exit'
87bb1815460b initial checkin
ca
parents:
diff changeset
   402
                  itemValue: closeRequest
87bb1815460b initial checkin
ca
parents:
diff changeset
   403
                  translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   404
                )
87bb1815460b initial checkin
ca
parents:
diff changeset
   405
               )
87bb1815460b initial checkin
ca
parents:
diff changeset
   406
              nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   407
              nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   408
            )
87bb1815460b initial checkin
ca
parents:
diff changeset
   409
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   410
         (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   411
            enabled: hasSingleSelectionHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   412
            label: 'Selection'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   413
            translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   414
            submenuChannel: middleButtonMenu
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   415
          )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   416
         (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   417
            label: 'Application'
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   418
            translateLabel: true
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   419
            submenu: 
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   420
           (Menu
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   421
              (
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   422
               (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   423
                  enabled: hasSingleSelectionHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   424
                  label: 'Browse'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   425
                  itemValue: doBrowse:
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   426
                  translateLabel: true
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   427
                  argument: application
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   428
                )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   429
               (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   430
                  enabled: hasSingleSelectionHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   431
                  label: 'Inspect'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   432
                  itemValue: doInspect:
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   433
                  translateLabel: true
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   434
                  argument: application
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   435
                )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   436
               (MenuItem
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   437
                  label: '-'
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   438
                )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   439
               (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   440
                  enabled: hasTargetWidgetChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   441
                  label: 'All Applications'
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   442
                  translateLabel: true
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   443
                  submenuChannel: submenuApplications:
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   444
                )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   445
               )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   446
              nil
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   447
              nil
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   448
            )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   449
          )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   450
         (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   451
            label: 'Widget'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   452
            translateLabel: true
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   453
            submenu: 
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   454
           (Menu
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   455
              (
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   456
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   457
                  enabled: hasSingleSelectionHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   458
                  label: 'Browse'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   459
                  itemValue: doBrowse:
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   460
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   461
                  argument: view
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   462
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   463
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   464
                  enabled: hasSingleSelectionHolder
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   465
                  label: 'Inspect'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   466
                  itemValue: doInspect:
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   467
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   468
                  argument: view
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   469
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   470
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   471
                  label: '-'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   472
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   473
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   474
                  enabled: hasTargetWidgetChannel
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   475
                  label: 'All Components'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   476
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   477
                  startGroup: right
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   478
                  submenuChannel: submenuComponents:
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   479
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   480
               )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   481
              nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   482
              nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   483
            )
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   484
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   485
         (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   486
            label: 'Help'
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   487
            translateLabel: true
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   488
            startGroup: conditionalRight
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   489
            submenu: 
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   490
           (Menu
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   491
              (
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   492
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   493
                  label: 'Documentation'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   494
                  itemValue: openDocumentation
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   495
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   496
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   497
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   498
                  label: '-'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   499
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   500
               (MenuItem
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   501
                  label: 'About this Application...'
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   502
                  itemValue: openAboutThisApplication
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   503
                  translateLabel: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   504
                )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   505
               )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   506
              nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   507
              nil
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   508
            )
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   509
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   510
         )
87bb1815460b initial checkin
ca
parents:
diff changeset
   511
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   512
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   513
      )
2888
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   514
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
   515
    "Modified: / 27-04-2012 / 14:13:17 / cg"
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   516
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   517
87bb1815460b initial checkin
ca
parents:
diff changeset
   518
middleButtonMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   519
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   520
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   521
87bb1815460b initial checkin
ca
parents:
diff changeset
   522
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   523
     the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   524
87bb1815460b initial checkin
ca
parents:
diff changeset
   525
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   526
     MenuEditor new openOnClass:ViewTreeApplication andSelector:#middleButtonMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   527
     (Menu new fromLiteralArrayEncoding:(ViewTreeApplication middleButtonMenu)) startUp
87bb1815460b initial checkin
ca
parents:
diff changeset
   528
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   529
87bb1815460b initial checkin
ca
parents:
diff changeset
   530
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   531
87bb1815460b initial checkin
ca
parents:
diff changeset
   532
    ^ 
87bb1815460b initial checkin
ca
parents:
diff changeset
   533
     #(Menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   534
        (
87bb1815460b initial checkin
ca
parents:
diff changeset
   535
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   536
            label: 'Geometry'
87bb1815460b initial checkin
ca
parents:
diff changeset
   537
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   538
            submenuChannel: submenuGeometry:
87bb1815460b initial checkin
ca
parents:
diff changeset
   539
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   540
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   541
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   542
            label: 'Interface'
87bb1815460b initial checkin
ca
parents:
diff changeset
   543
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   544
            submenuChannel: submenuInterface:
87bb1815460b initial checkin
ca
parents:
diff changeset
   545
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   546
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   547
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   548
            label: 'Visibility'
87bb1815460b initial checkin
ca
parents:
diff changeset
   549
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   550
            submenuChannel: submenuVisibility:
87bb1815460b initial checkin
ca
parents:
diff changeset
   551
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   552
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   553
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   554
            label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   555
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   556
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   557
            label: 'Browse View Class'
87bb1815460b initial checkin
ca
parents:
diff changeset
   558
            itemValue: doBrowse:
87bb1815460b initial checkin
ca
parents:
diff changeset
   559
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   560
            argument: view
87bb1815460b initial checkin
ca
parents:
diff changeset
   561
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   562
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   563
            label: 'Browse Model Class'
87bb1815460b initial checkin
ca
parents:
diff changeset
   564
            itemValue: doBrowse:
87bb1815460b initial checkin
ca
parents:
diff changeset
   565
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   566
            isVisible: hasModel
87bb1815460b initial checkin
ca
parents:
diff changeset
   567
            argument: model
87bb1815460b initial checkin
ca
parents:
diff changeset
   568
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   569
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   570
            label: 'Browse Application Class'
87bb1815460b initial checkin
ca
parents:
diff changeset
   571
            itemValue: doBrowse:
87bb1815460b initial checkin
ca
parents:
diff changeset
   572
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   573
            isVisible: hasApplication
87bb1815460b initial checkin
ca
parents:
diff changeset
   574
            argument: application
87bb1815460b initial checkin
ca
parents:
diff changeset
   575
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   576
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   577
            label: 'Browse Controller Class'
87bb1815460b initial checkin
ca
parents:
diff changeset
   578
            itemValue: doBrowse:
87bb1815460b initial checkin
ca
parents:
diff changeset
   579
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   580
            isVisible: hasController
87bb1815460b initial checkin
ca
parents:
diff changeset
   581
            argument: controller
87bb1815460b initial checkin
ca
parents:
diff changeset
   582
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   583
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   584
            label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   585
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   586
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   587
            label: 'Inspect View'
87bb1815460b initial checkin
ca
parents:
diff changeset
   588
            itemValue: doInspect:
87bb1815460b initial checkin
ca
parents:
diff changeset
   589
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   590
            argument: view
87bb1815460b initial checkin
ca
parents:
diff changeset
   591
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   592
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   593
            label: 'Inspect Window Group'
87bb1815460b initial checkin
ca
parents:
diff changeset
   594
            itemValue: doInspect:
87bb1815460b initial checkin
ca
parents:
diff changeset
   595
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   596
            argument: group
87bb1815460b initial checkin
ca
parents:
diff changeset
   597
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   598
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   599
            label: 'Inspect Model'
87bb1815460b initial checkin
ca
parents:
diff changeset
   600
            itemValue: doInspect:
87bb1815460b initial checkin
ca
parents:
diff changeset
   601
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   602
            isVisible: hasModel
87bb1815460b initial checkin
ca
parents:
diff changeset
   603
            argument: model
87bb1815460b initial checkin
ca
parents:
diff changeset
   604
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   605
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   606
            label: 'Inspect Application'
87bb1815460b initial checkin
ca
parents:
diff changeset
   607
            itemValue: doInspect:
87bb1815460b initial checkin
ca
parents:
diff changeset
   608
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   609
            isVisible: hasApplication
87bb1815460b initial checkin
ca
parents:
diff changeset
   610
            argument: application
87bb1815460b initial checkin
ca
parents:
diff changeset
   611
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   612
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   613
            label: 'Inspect Controller'
87bb1815460b initial checkin
ca
parents:
diff changeset
   614
            itemValue: doInspect:
87bb1815460b initial checkin
ca
parents:
diff changeset
   615
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   616
            isVisible: hasController
87bb1815460b initial checkin
ca
parents:
diff changeset
   617
            argument: controller
87bb1815460b initial checkin
ca
parents:
diff changeset
   618
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   619
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   620
            label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   621
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   622
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   623
            label: 'Flash'
87bb1815460b initial checkin
ca
parents:
diff changeset
   624
            itemValue: doFlash
87bb1815460b initial checkin
ca
parents:
diff changeset
   625
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   626
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   627
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   628
            label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   629
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   630
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   631
            label: 'Destroy'
87bb1815460b initial checkin
ca
parents:
diff changeset
   632
            itemValue: doDestroy
87bb1815460b initial checkin
ca
parents:
diff changeset
   633
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   634
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   635
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   636
            label: '-'
87bb1815460b initial checkin
ca
parents:
diff changeset
   637
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   638
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   639
            label: 'Instance Variables'
87bb1815460b initial checkin
ca
parents:
diff changeset
   640
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   641
            submenuChannel: submenuInspector:
87bb1815460b initial checkin
ca
parents:
diff changeset
   642
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   643
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   644
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   645
            label: '='
87bb1815460b initial checkin
ca
parents:
diff changeset
   646
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   647
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   648
            label: ''
87bb1815460b initial checkin
ca
parents:
diff changeset
   649
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   650
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   651
            enabled: selectedComponentHasChildren
87bb1815460b initial checkin
ca
parents:
diff changeset
   652
            label: 'Applications'
87bb1815460b initial checkin
ca
parents:
diff changeset
   653
            nameKey: single
87bb1815460b initial checkin
ca
parents:
diff changeset
   654
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   655
            submenuChannel: submenuApplications:
87bb1815460b initial checkin
ca
parents:
diff changeset
   656
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   657
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   658
         (MenuItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   659
            enabled: selectedComponentHasChildren
87bb1815460b initial checkin
ca
parents:
diff changeset
   660
            label: 'Components'
87bb1815460b initial checkin
ca
parents:
diff changeset
   661
            nameKey: single
87bb1815460b initial checkin
ca
parents:
diff changeset
   662
            translateLabel: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   663
            submenuChannel: submenuComponents:
87bb1815460b initial checkin
ca
parents:
diff changeset
   664
            keepLinkedMenu: true
87bb1815460b initial checkin
ca
parents:
diff changeset
   665
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   666
         )
87bb1815460b initial checkin
ca
parents:
diff changeset
   667
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   668
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   669
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   670
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   671
87bb1815460b initial checkin
ca
parents:
diff changeset
   672
toolbarMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
   673
    "This resource specification was automatically generated
87bb1815460b initial checkin
ca
parents:
diff changeset
   674
     by the MenuEditor of ST/X."
87bb1815460b initial checkin
ca
parents:
diff changeset
   675
87bb1815460b initial checkin
ca
parents:
diff changeset
   676
    "Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin
ca
parents:
diff changeset
   677
     the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin
ca
parents:
diff changeset
   678
87bb1815460b initial checkin
ca
parents:
diff changeset
   679
    "
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   680
     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   681
     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   682
    "
87bb1815460b initial checkin
ca
parents:
diff changeset
   683
87bb1815460b initial checkin
ca
parents:
diff changeset
   684
    <resource: #menu>
87bb1815460b initial checkin
ca
parents:
diff changeset
   685
87bb1815460b initial checkin
ca
parents:
diff changeset
   686
    ^ 
87bb1815460b initial checkin
ca
parents:
diff changeset
   687
     #(Menu
87bb1815460b initial checkin
ca
parents:
diff changeset
   688
        (
87bb1815460b initial checkin
ca
parents:
diff changeset
   689
         (MenuItem
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   690
            label: 'Pick a View'
2762
Claus Gittinger <cg@exept.de>
parents: 2759
diff changeset
   691
            itemValue: doPickView
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   692
            translateLabel: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   693
            isButton: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   694
            hideMenuOnActivated: false
2759
Claus Gittinger <cg@exept.de>
parents: 2758
diff changeset
   695
            labelImage: (ResourceRetriever #'Tools::ViewTreeInspectorApplication' pickWindowIcon2)
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   696
          )
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   697
         (MenuItem
2757
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   698
            enabled: hasTargetWidgetChannel
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   699
            label: 'Release Picked View'
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   700
            isButton: true
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   701
            itemValue: doUnpick
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   702
            translateLabel: true
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   703
            labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon)
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   704
          )
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   705
         (MenuItem
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   706
            label: '-'
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   707
          )
6c83d6b487b2 changed:
Claus Gittinger <cg@exept.de>
parents: 2748
diff changeset
   708
         (MenuItem
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   709
            enabled: hasSingleSelectionHolder
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   710
            label: 'Browse Application'
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   711
            itemValue: doBrowse:
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   712
            translateLabel: false
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   713
            isButton: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   714
            hideMenuOnActivated: false
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   715
            labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   716
            argument: application
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   717
          )
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   718
         (MenuItem
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   719
            enabled: hasSingleSelectionHolder
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   720
            label: 'Inspect Application'
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   721
            itemValue: doInspect:
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   722
            translateLabel: false
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   723
            isButton: true
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   724
            hideMenuOnActivated: false
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   725
            labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   726
            argument: application
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   727
          )
87bb1815460b initial checkin
ca
parents:
diff changeset
   728
         )
87bb1815460b initial checkin
ca
parents:
diff changeset
   729
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   730
        nil
87bb1815460b initial checkin
ca
parents:
diff changeset
   731
      )
87bb1815460b initial checkin
ca
parents:
diff changeset
   732
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   733
2747
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   734
!ViewTreeInspectorApplication class methodsFor:'startup'!
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   735
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   736
openInPickMode
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   737
    |app|
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   738
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   739
    app := self new.
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   740
    app open.
2762
Claus Gittinger <cg@exept.de>
parents: 2759
diff changeset
   741
    app doPickView.
2747
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   742
! !
717a0dcc710d added: #openInPickMode
Claus Gittinger <cg@exept.de>
parents: 2744
diff changeset
   743
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   744
!ViewTreeInspectorApplication methodsFor:'actions'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   745
87bb1815460b initial checkin
ca
parents:
diff changeset
   746
indicatorClicked:anIndex
87bb1815460b initial checkin
ca
parents:
diff changeset
   747
    |item sensor|
87bb1815460b initial checkin
ca
parents:
diff changeset
   748
87bb1815460b initial checkin
ca
parents:
diff changeset
   749
    item := model listOfItems at:anIndex ifAbsent:nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
   750
87bb1815460b initial checkin
ca
parents:
diff changeset
   751
    item notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   752
        (     (sensor := self window sensor) notNil
87bb1815460b initial checkin
ca
parents:
diff changeset
   753
         and:[(sensor ctrlDown or:[sensor shiftDown])]
87bb1815460b initial checkin
ca
parents:
diff changeset
   754
        ) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   755
            item recursiveToggleExpand
87bb1815460b initial checkin
ca
parents:
diff changeset
   756
        ] ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   757
            item toggleExpand
87bb1815460b initial checkin
ca
parents:
diff changeset
   758
        ]
87bb1815460b initial checkin
ca
parents:
diff changeset
   759
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   760
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   761
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   762
!ViewTreeInspectorApplication methodsFor:'aspects'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   763
87bb1815460b initial checkin
ca
parents:
diff changeset
   764
followFocusChannel
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   765
    "boolean holder, which indicates whether selection changed dependend on the focus view"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   766
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   767
    ^ followFocusChannel
87bb1815460b initial checkin
ca
parents:
diff changeset
   768
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   769
87bb1815460b initial checkin
ca
parents:
diff changeset
   770
hasSingleSelectionHolder
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   771
    "boolean holder, true if one item is selected"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   772
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   773
    ^ hasSingleSelectionHolder
87bb1815460b initial checkin
ca
parents:
diff changeset
   774
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   775
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   776
hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   777
    "answer the channel which is set to true if a target widget exists"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   778
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   779
    ^ model hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   780
!
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   781
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   782
listOfItems
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   783
    "returns the hierarchical list of items"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   784
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   785
    ^ model listOfItems
87bb1815460b initial checkin
ca
parents:
diff changeset
   786
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   787
87bb1815460b initial checkin
ca
parents:
diff changeset
   788
model
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   789
    "returns my selection model, a ViewTreeModel"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   790
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   791
    ^ model
87bb1815460b initial checkin
ca
parents:
diff changeset
   792
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   793
87bb1815460b initial checkin
ca
parents:
diff changeset
   794
selectOnClickHolder
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   795
    "boolean holder, which indicates whether the selection will change on click"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   796
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   797
    ^ model selectOnClickHolder
87bb1815460b initial checkin
ca
parents:
diff changeset
   798
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   799
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   800
showNamesHolder
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   801
    "boolean holder, which indicates whether application names or widget names
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   802
     as additional text are shown for the items"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   803
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   804
    ^ showNamesHolder
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   805
!
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   806
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   807
testModeChannel
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   808
    "answer a boolean channel which describes the behaviour how to process
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   809
     events on the target view.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   810
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   811
     false: all input events are eaten and the selection is shown on the target view.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   812
     true:  no  input events are eaten and no  selection is shown on the target view."
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   813
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   814
    ^ model testModeChannel
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   815
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   816
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   817
!ViewTreeInspectorApplication methodsFor:'change & update'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   818
87bb1815460b initial checkin
ca
parents:
diff changeset
   819
selectionChanged
87bb1815460b initial checkin
ca
parents:
diff changeset
   820
    |info view item|
87bb1815460b initial checkin
ca
parents:
diff changeset
   821
87bb1815460b initial checkin
ca
parents:
diff changeset
   822
    item := model selectedItem.
87bb1815460b initial checkin
ca
parents:
diff changeset
   823
87bb1815460b initial checkin
ca
parents:
diff changeset
   824
    item notNil ifTrue:[ |state|
87bb1815460b initial checkin
ca
parents:
diff changeset
   825
        view := item widget.
87bb1815460b initial checkin
ca
parents:
diff changeset
   826
87bb1815460b initial checkin
ca
parents:
diff changeset
   827
        view id isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   828
            state := 'no ID'.
87bb1815460b initial checkin
ca
parents:
diff changeset
   829
        ] ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   830
            view shown ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   831
                state := 'visible'.
87bb1815460b initial checkin
ca
parents:
diff changeset
   832
            ] ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   833
                state := 'invisible'
87bb1815460b initial checkin
ca
parents:
diff changeset
   834
            ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   835
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   836
        info := '%1 [%2] - %3' bindWith:(view class name)
87bb1815460b initial checkin
ca
parents:
diff changeset
   837
                                   with:(view name ? '') with:state allBold.
87bb1815460b initial checkin
ca
parents:
diff changeset
   838
87bb1815460b initial checkin
ca
parents:
diff changeset
   839
    ] ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   840
        info := ''
87bb1815460b initial checkin
ca
parents:
diff changeset
   841
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   842
    hasSingleSelectionHolder value:(view notNil).
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
   843
    inspectorView inspect:view.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   844
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   845
87bb1815460b initial checkin
ca
parents:
diff changeset
   846
update:something with:someArgument from:aModel
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   847
    |oldSelection|
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   848
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   849
    aModel == showNamesHolder ifTrue:[
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   850
        oldSelection := model selectedItem.
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   851
        model selectedItem:nil.
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   852
        self listOfItems showWidgetNames:(aModel value).
2454
4867f3e9dd43 *** empty log message ***
ca
parents: 2451
diff changeset
   853
        model selectedItem:oldSelection.
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   854
        ^ self
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
   855
    ].
2458
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   856
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   857
    aModel == model ifTrue:[
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   858
        self selectionChanged.
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   859
        ^ self
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   860
    ].
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
   861
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   862
    super update:something with:someArgument from:aModel.
87bb1815460b initial checkin
ca
parents:
diff changeset
   863
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
   864
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
   865
!ViewTreeInspectorApplication methodsFor:'event processing'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   866
87bb1815460b initial checkin
ca
parents:
diff changeset
   867
processButtonMotionEvent:ev
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   868
    |click rootView|
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   869
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   870
    motionAction isNil ifTrue:[^ self].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   871
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   872
    (rootView := model rootView) isNil ifTrue:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   873
        clickedItem := motionAction := nil.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   874
        ^ self
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   875
    ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   876
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   877
    click := rootView device
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   878
            translatePoint:((ev x)@ (ev y))
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   879
            fromView:(ev view)
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   880
            toView:rootView.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   881
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   882
    click = clickedPoint ifFalse:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   883
        (clickedItem isNil or:[(click dist:clickedPoint) > 5.0]) ifTrue:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   884
            motionAction value:click
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   885
        ]
87bb1815460b initial checkin
ca
parents:
diff changeset
   886
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   887
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   888
87bb1815460b initial checkin
ca
parents:
diff changeset
   889
processButtonPressEvent:ev
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   890
    |rootView sensor lastRectangle|
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   891
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   892
    rootView    := model rootView.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   893
    sensor      := model rootView sensor.
87bb1815460b initial checkin
ca
parents:
diff changeset
   894
    clickedItem := model listOfItems detectItemRespondsToView:(ev view).
87bb1815460b initial checkin
ca
parents:
diff changeset
   895
87bb1815460b initial checkin
ca
parents:
diff changeset
   896
    (sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   897
        clickedItem notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   898
            self selectOnClickHolder value ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   899
                model toggleSelectItem:clickedItem
87bb1815460b initial checkin
ca
parents:
diff changeset
   900
            ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   901
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   902
        clickedItem := motionAction := nil.
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   903
        ^ self
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   904
    ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   905
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   906
    clickedPoint := rootView device translatePoint:((ev x)@ (ev y))  fromView:(ev view) toView:rootView.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   907
    lastRectangle := nil.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   908
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   909
    motionAction :=[:p|
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   910
        rootView    := model rootView device rootView.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   911
        rootView    := model rootView.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   912
        clickedItem := nil.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   913
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   914
        rootView xoring:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   915
            lastRectangle notNil ifTrue:[ rootView displayRectangle:lastRectangle ]
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   916
                                ifFalse:[ rootView clippedByChildren:false ].
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   917
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   918
            p isNil ifTrue:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   919
                rootView clippedByChildren:true.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   920
                motionAction := nil.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   921
            ] ifFalse:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   922
                lastRectangle := Rectangle origin:(clickedPoint min:p) corner:(clickedPoint max:p).
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   923
                rootView displayRectangle:lastRectangle.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   924
            ].
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   925
            rootView flush.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   926
        ].
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   927
        lastRectangle
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   928
    ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   929
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   930
87bb1815460b initial checkin
ca
parents:
diff changeset
   931
processButtonReleaseEvent:anEvent
87bb1815460b initial checkin
ca
parents:
diff changeset
   932
    |rootView rectangle newItems widget origin|
87bb1815460b initial checkin
ca
parents:
diff changeset
   933
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   934
    (rootView := model rootView) isNil ifTrue:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   935
        clickedItem := motionAction := nil.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   936
        ^ self
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   937
    ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   938
    motionAction isNil ifTrue:[ ^ self ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   939
    clickedItem notNil ifTrue:[ ^ model selectItem:clickedItem ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   940
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   941
    rectangle := motionAction value:nil.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   942
    rectangle isNil ifTrue:[^ self].
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   943
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   944
    newItems := OrderedCollection new.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   945
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   946
    model rootItem recursiveDo:[:anItem|
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   947
        widget := anItem widget.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   948
        origin := widget originRelativeTo:rootView.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   949
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   950
        (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   951
            newItems add:anItem.
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   952
        ]
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   953
    ].
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
   954
    model value:newItems.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   955
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   956
87bb1815460b initial checkin
ca
parents:
diff changeset
   957
processEvent:anEvent
87bb1815460b initial checkin
ca
parents:
diff changeset
   958
    |button menu|
87bb1815460b initial checkin
ca
parents:
diff changeset
   959
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   960
    anEvent isKeyPressEvent ifTrue:[ self processKeyPressEvent:anEvent. ^ self  ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   961
    anEvent isButtonEvent  ifFalse:[ ^ self ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   962
87bb1815460b initial checkin
ca
parents:
diff changeset
   963
    button := anEvent button.
87bb1815460b initial checkin
ca
parents:
diff changeset
   964
87bb1815460b initial checkin
ca
parents:
diff changeset
   965
    (button == 2 or:[button == #menu]) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   966
        motionAction isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   967
            anEvent isButtonPressEvent ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   968
                self selectOnClickHolder value ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   969
                    menu := self middleButtonMenu value.
87bb1815460b initial checkin
ca
parents:
diff changeset
   970
                    menu notNil ifTrue:[
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   971
                        menu := MenuPanel 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   972
                                    menu:(Menu new fromLiteralArrayEncoding:menu)
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   973
                                    receiver:self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   974
                        menu startUp.
87bb1815460b initial checkin
ca
parents:
diff changeset
   975
                    ]
87bb1815460b initial checkin
ca
parents:
diff changeset
   976
                ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   977
            ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   978
            clickedItem := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
   979
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   980
        ^ self
87bb1815460b initial checkin
ca
parents:
diff changeset
   981
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   982
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   983
    anEvent isButtonPressEvent  ifTrue:[ self processButtonPressEvent:anEvent. ^ self ].
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
   984
    anEvent isButtonMotionEvent ifTrue:[ self processButtonMotionEvent:anEvent. ^ self ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
   985
87bb1815460b initial checkin
ca
parents:
diff changeset
   986
    anEvent isButtonReleaseEvent ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   987
        self selectOnClickHolder value ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   988
            self processButtonReleaseEvent:anEvent
87bb1815460b initial checkin
ca
parents:
diff changeset
   989
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   990
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   991
    clickedItem := motionAction := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
   992
87bb1815460b initial checkin
ca
parents:
diff changeset
   993
    anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   994
        self selectOnClickHolder value ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
   995
            self doInspect:#view.
87bb1815460b initial checkin
ca
parents:
diff changeset
   996
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   997
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
   998
!
87bb1815460b initial checkin
ca
parents:
diff changeset
   999
87bb1815460b initial checkin
ca
parents:
diff changeset
  1000
processKeyPressEvent:anEvent
87bb1815460b initial checkin
ca
parents:
diff changeset
  1001
    |item prnt idx key max next|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1002
87bb1815460b initial checkin
ca
parents:
diff changeset
  1003
    key := anEvent key.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1004
    key isSymbol ifFalse:[^ self].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1005
87bb1815460b initial checkin
ca
parents:
diff changeset
  1006
    key == #Delete    ifTrue:[ ^ self doDestroy ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1007
    key == #InspectIt ifTrue:[ ^ self doInspect:#view ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1008
87bb1815460b initial checkin
ca
parents:
diff changeset
  1009
    (   key == #CursorUp
87bb1815460b initial checkin
ca
parents:
diff changeset
  1010
    or:[key == #CursorDown
87bb1815460b initial checkin
ca
parents:
diff changeset
  1011
    or:[key == #CursorLeft
87bb1815460b initial checkin
ca
parents:
diff changeset
  1012
    or:[key == #CursorRight]]]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1013
    ) ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1014
        ^ self
87bb1815460b initial checkin
ca
parents:
diff changeset
  1015
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1016
    item := model selectedItem.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1017
87bb1815460b initial checkin
ca
parents:
diff changeset
  1018
    item isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1019
        ^ model selectedItem:(model first ? model rootItem)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1020
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1021
87bb1815460b initial checkin
ca
parents:
diff changeset
  1022
    prnt := item parent.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1023
    prnt isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1024
        "/ is the root item
87bb1815460b initial checkin
ca
parents:
diff changeset
  1025
        (key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1026
                                                  ifFalse:[item := item at:1 ifAbsent:item].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1027
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1028
        ^ model selectedItem:item
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1029
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1030
    key == #CursorLeft ifTrue:[ ^ model selectedItem:prnt ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1031
87bb1815460b initial checkin
ca
parents:
diff changeset
  1032
    key == #CursorRight ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1033
        next := item at:1 ifAbsent:nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1034
        next notNil ifTrue:[ model selectedItem:next ].
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1035
        ^ self
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1036
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1037
87bb1815460b initial checkin
ca
parents:
diff changeset
  1038
    max := prnt size.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1039
87bb1815460b initial checkin
ca
parents:
diff changeset
  1040
    key == #CursorUp ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1041
        idx := prnt identityIndexOf:item.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1042
        idx == 1 ifTrue:[idx := max + 1].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1043
        model selectedItem:(prnt at:idx - 1).
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1044
        ^ self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1045
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1046
87bb1815460b initial checkin
ca
parents:
diff changeset
  1047
    key == #CursorDown ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1048
        idx := prnt identityIndexOf:item.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1049
        idx == max ifTrue:[idx := 0].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1050
        model selectedItem:(prnt at:idx + 1).
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1051
        ^ self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1052
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1053
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1054
87bb1815460b initial checkin
ca
parents:
diff changeset
  1055
processMappedView:aView
87bb1815460b initial checkin
ca
parents:
diff changeset
  1056
    |parent anchor|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1057
87bb1815460b initial checkin
ca
parents:
diff changeset
  1058
    parent := self listOfItems detectItemRespondsToView:aView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1059
    parent isNil ifTrue:[ ^ self ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1060
87bb1815460b initial checkin
ca
parents:
diff changeset
  1061
    NotFoundSignal handle:[:ex|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1062
        "contained subvies used by spec are not yet created;
87bb1815460b initial checkin
ca
parents:
diff changeset
  1063
         thus we have to wait until last used subview is build
87bb1815460b initial checkin
ca
parents:
diff changeset
  1064
        "
87bb1815460b initial checkin
ca
parents:
diff changeset
  1065
        anchor := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1066
    ] do:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1067
        anchor := parent class buildViewsFrom:(parent widget).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1068
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1069
    anchor notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1070
        parent updateFromChildren:anchor children.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1071
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1072
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
  1073
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
  1074
!ViewTreeInspectorApplication methodsFor:'initialization & release'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1075
87bb1815460b initial checkin
ca
parents:
diff changeset
  1076
closeDownViews
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1077
    "release the grapped application"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1078
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1079
    process := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1080
    super closeDownViews.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1081
    self doUnpick.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1082
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1083
87bb1815460b initial checkin
ca
parents:
diff changeset
  1084
initialize
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1085
    "setup my model and channels"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1086
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1087
    super initialize.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1088
87bb1815460b initial checkin
ca
parents:
diff changeset
  1089
    hasSingleSelectionHolder := false asValue.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1090
    followFocusChannel       := false asValue.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1091
87bb1815460b initial checkin
ca
parents:
diff changeset
  1092
    model := ViewTreeModel new.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1093
    model inputEventAction:[:ev| self processEvent:ev ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1094
    model mappedViewAction:[:vw| self processMappedView:vw ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1095
    model application:self.
2458
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
  1096
    model addDependent:self.
64d8f3c973b3 *** empty log message ***
ca
parents: 2455
diff changeset
  1097
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1098
2451
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1099
    showNamesHolder := false asValue.
cbda60900ced *** empty log message ***
ca
parents: 2177
diff changeset
  1100
    showNamesHolder addDependent:self.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1101
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1102
2770
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
  1103
postBuildInspectorView:anInspector
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
  1104
    inspectorView := anInspector.
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
  1105
!
9322aee00ea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2762
diff changeset
  1106
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1107
postBuildTree:aTree
87bb1815460b initial checkin
ca
parents:
diff changeset
  1108
    treeView := aTree scrolledView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1109
    treeView hasConstantHeight:true.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1110
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
  1111
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
  1112
!ViewTreeInspectorApplication methodsFor:'menu queries'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1113
87bb1815460b initial checkin
ca
parents:
diff changeset
  1114
hasApplication
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1115
    "returns true if the current selected view has an application"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1116
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1117
    |view|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1118
87bb1815460b initial checkin
ca
parents:
diff changeset
  1119
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1120
  ^ (view notNil and:[view application notNil])
87bb1815460b initial checkin
ca
parents:
diff changeset
  1121
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1122
87bb1815460b initial checkin
ca
parents:
diff changeset
  1123
hasController
87bb1815460b initial checkin
ca
parents:
diff changeset
  1124
    "returns true if the current selected item's view has a controller
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1125
     other than nil or the view itself"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1126
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1127
    |view controller|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1128
87bb1815460b initial checkin
ca
parents:
diff changeset
  1129
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1130
87bb1815460b initial checkin
ca
parents:
diff changeset
  1131
    view notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1132
        controller := view controller.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1133
      ^ (controller notNil and:[controller ~~ view])
87bb1815460b initial checkin
ca
parents:
diff changeset
  1134
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1135
    ^ false
87bb1815460b initial checkin
ca
parents:
diff changeset
  1136
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1137
87bb1815460b initial checkin
ca
parents:
diff changeset
  1138
hasModel
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1139
    "returns true if the current selected view has a model"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1140
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1141
    |view|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1142
87bb1815460b initial checkin
ca
parents:
diff changeset
  1143
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1144
  ^ (view notNil and:[view model notNil])
87bb1815460b initial checkin
ca
parents:
diff changeset
  1145
! !
87bb1815460b initial checkin
ca
parents:
diff changeset
  1146
2744
5bee95e91ffd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2458
diff changeset
  1147
!ViewTreeInspectorApplication methodsFor:'menu specs'!
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1148
87bb1815460b initial checkin
ca
parents:
diff changeset
  1149
middleButtonMenu
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1150
    "returns the middleButton menu for the single selected item or nil"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1151
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1152
    ^ [ 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1153
        model selectedItem notNil 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1154
            ifTrue:[self class middleButtonMenu]
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1155
            ifFalse:[nil]
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1156
      ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1157
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1158
87bb1815460b initial checkin
ca
parents:
diff changeset
  1159
submenuApplications:aMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1160
    |applications menu item list addBlock|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1161
87bb1815460b initial checkin
ca
parents:
diff changeset
  1162
    item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1163
                                              ifFalse:[model rootItem].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1164
    item isNil ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1165
87bb1815460b initial checkin
ca
parents:
diff changeset
  1166
    applications := IdentityDictionary new.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1167
87bb1815460b initial checkin
ca
parents:
diff changeset
  1168
    addBlock := [:el| |cls ctr|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1169
        cls := self resolveApplicationClassFor:el.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1170
87bb1815460b initial checkin
ca
parents:
diff changeset
  1171
        cls notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1172
            ctr := applications at:cls ifAbsent:0.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1173
            applications at:cls put:(ctr + 1).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1174
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1175
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1176
    item recursiveDo:addBlock.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1177
    addBlock value:item.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1178
87bb1815460b initial checkin
ca
parents:
diff changeset
  1179
    applications isEmpty ifTrue:[^ nil ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1180
    list := SortedCollection sortBlock:[:a :b| a title < b title ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1181
87bb1815460b initial checkin
ca
parents:
diff changeset
  1182
    applications keysAndValuesDo:[:cls :ctr|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1183
       list add:(MenuDesc title:(cls name)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1184
                          value:(ctr printString)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1185
                         action:[self doSelectNextOfApplicationClass:cls startingIn:item]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1186
                 ).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1187
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1188
87bb1815460b initial checkin
ca
parents:
diff changeset
  1189
    menu := MenuDesc buildFromList:list onGC:aMenu.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1190
    menu do:[:el|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1191
        el hideMenuOnActivated:false
87bb1815460b initial checkin
ca
parents:
diff changeset
  1192
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1193
    ^ menu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1194
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1195
87bb1815460b initial checkin
ca
parents:
diff changeset
  1196
submenuComponents:aMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1197
    |widgets list total menu item|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1198
87bb1815460b initial checkin
ca
parents:
diff changeset
  1199
    item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1200
                                              ifFalse:[model rootItem].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1201
    item isNil ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1202
87bb1815460b initial checkin
ca
parents:
diff changeset
  1203
    widgets := IdentityDictionary new.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1204
    total   := 0.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1205
87bb1815460b initial checkin
ca
parents:
diff changeset
  1206
    item recursiveDo:[:el| |cls ctr|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1207
        cls := el widget.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1208
87bb1815460b initial checkin
ca
parents:
diff changeset
  1209
        cls notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1210
            cls := cls class.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1211
            ctr := widgets at:cls ifAbsent:0.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1212
            widgets at:cls put:(ctr + 1).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1213
            total := total + 1.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1214
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1215
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1216
    total == 0 ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1217
    list := SortedCollection sortBlock:[:a :b| a title < b title ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1218
87bb1815460b initial checkin
ca
parents:
diff changeset
  1219
    widgets keysAndValuesDo:[:cls :ctr|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1220
        list add:(MenuDesc title:(cls name)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1221
                           value:(ctr printString)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1222
                          action:[self doSelectNextOfClass:cls startingIn:item]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1223
                 ).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1224
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1225
    list := list asOrderedCollection.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1226
    list add:(MenuDesc separator).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1227
    list add:(MenuDesc title:'Total' value:(total printString)).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1228
    menu := MenuDesc buildFromList:list onGC:aMenu.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1229
    menu do:[:el|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1230
        el hideMenuOnActivated:false
87bb1815460b initial checkin
ca
parents:
diff changeset
  1231
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1232
    ^ menu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1233
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1234
87bb1815460b initial checkin
ca
parents:
diff changeset
  1235
submenuGeometry:aMenu
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1236
    "builds and returns the geometry submenu"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1237
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1238
    |view point inst list x y|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1239
87bb1815460b initial checkin
ca
parents:
diff changeset
  1240
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1241
    view isNil ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1242
87bb1815460b initial checkin
ca
parents:
diff changeset
  1243
    list := OrderedCollection new.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1244
87bb1815460b initial checkin
ca
parents:
diff changeset
  1245
    "/ origin
87bb1815460b initial checkin
ca
parents:
diff changeset
  1246
    point := view relativeOrigin.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1247
    point isNil ifTrue:[ point := view origin ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1248
87bb1815460b initial checkin
ca
parents:
diff changeset
  1249
    x := view left.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1250
    y := view top.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1251
87bb1815460b initial checkin
ca
parents:
diff changeset
  1252
    (x == point x and:[y == point y]) ifTrue:[ inst := point ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1253
                                     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1254
87bb1815460b initial checkin
ca
parents:
diff changeset
  1255
    list add:(MenuDesc title:'origin' value:inst).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1256
87bb1815460b initial checkin
ca
parents:
diff changeset
  1257
    "/ corner
87bb1815460b initial checkin
ca
parents:
diff changeset
  1258
    point := view relativeCorner.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1259
    point isNil ifTrue:[ point := view corner ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1260
87bb1815460b initial checkin
ca
parents:
diff changeset
  1261
    x := view right.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1262
    y := view bottom.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1263
87bb1815460b initial checkin
ca
parents:
diff changeset
  1264
    (x == point x and:[y == point y]) ifTrue:[ inst := point ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1265
                                     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1266
87bb1815460b initial checkin
ca
parents:
diff changeset
  1267
    list add:(MenuDesc title:'corner' value:inst).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1268
87bb1815460b initial checkin
ca
parents:
diff changeset
  1269
    "/ extent
87bb1815460b initial checkin
ca
parents:
diff changeset
  1270
    (point := view relativeExtent) isNil ifTrue:[point := view extent].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1271
    list add:(MenuDesc title:'extent' value:point).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1272
87bb1815460b initial checkin
ca
parents:
diff changeset
  1273
    "/ preferred extent
87bb1815460b initial checkin
ca
parents:
diff changeset
  1274
    list add:(MenuDesc title:'pref. extent' value:(view preferredExtent)).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1275
    list add:(MenuDesc separator).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1276
87bb1815460b initial checkin
ca
parents:
diff changeset
  1277
    "/ view insets
87bb1815460b initial checkin
ca
parents:
diff changeset
  1278
    inst := 'l:%1  r:%2  t:%3  b:%4' bindWith:(view leftInset)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1279
                                         with:(view rightInset)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1280
                                         with:(view topInset)
87bb1815460b initial checkin
ca
parents:
diff changeset
  1281
                                         with:(view bottomInset).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1282
87bb1815460b initial checkin
ca
parents:
diff changeset
  1283
    list add:(MenuDesc title:'insets'      value:inst).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1284
    list add:(MenuDesc title:'borderWidth' value:(view borderWidth)).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1285
    list add:(MenuDesc title:'level'       value:(view level)).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1286
    list add:(MenuDesc separator).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1287
87bb1815460b initial checkin
ca
parents:
diff changeset
  1288
    (inst := view layout) notNil ifTrue:[ inst := inst displayString ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1289
    list add:(MenuDesc title:'layout' value:inst).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1290
87bb1815460b initial checkin
ca
parents:
diff changeset
  1291
    (inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1292
    list add:(MenuDesc title:'transformation' value:inst).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1293
87bb1815460b initial checkin
ca
parents:
diff changeset
  1294
  ^ MenuDesc buildFromList:list onGC:aMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1295
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1296
87bb1815460b initial checkin
ca
parents:
diff changeset
  1297
submenuInspector:aMenu
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1298
    "builds and returns the inspector submenu"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1299
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1300
    |view list n names label value|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1301
87bb1815460b initial checkin
ca
parents:
diff changeset
  1302
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1303
    view isNil ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1304
87bb1815460b initial checkin
ca
parents:
diff changeset
  1305
    n := view class instSize.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1306
    n > 0 ifFalse:[^ nil ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1307
87bb1815460b initial checkin
ca
parents:
diff changeset
  1308
    list  := OrderedCollection new:n.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1309
    names := view class allInstVarNames.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1310
87bb1815460b initial checkin
ca
parents:
diff changeset
  1311
    1 to:n do:[:i| |action|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1312
        label := (names at:i) printString.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1313
        value := view instVarAt:i.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1314
        value isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1315
            value  := '------'.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1316
            action := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1317
        ] ifFalse:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1318
            value  := value displayString contractAtEndTo:40.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1319
            action := [(view instVarAt:i) inspect].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1320
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1321
        list add:(MenuDesc title:label value:value action:action).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1322
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1323
87bb1815460b initial checkin
ca
parents:
diff changeset
  1324
    ^ MenuDesc buildFromList:list onGC:aMenu
87bb1815460b initial checkin
ca
parents:
diff changeset
  1325
!
87bb1815460b initial checkin
ca
parents:
diff changeset
  1326
87bb1815460b initial checkin
ca
parents:
diff changeset
  1327
submenuInterface:aMenu
2455
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1328
    "builds and returns the interface submenu"
93aaf62a6b95 remove colors from window spec & rework
ca
parents: 2454
diff changeset
  1329
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1330
    |view label inst value list|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1331
87bb1815460b initial checkin
ca
parents:
diff changeset
  1332
    view := self selectedView.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1333
    view isNil ifTrue:[^ nil].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1334
87bb1815460b initial checkin
ca
parents:
diff changeset
  1335
    list := OrderedCollection new.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1336
87bb1815460b initial checkin
ca
parents:
diff changeset
  1337
    inst  := view controller.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1338
    value := nil.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1339
87bb1815460b initial checkin
ca
parents:
diff changeset
  1340
    inst isNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1341
        label := nil
87bb1815460b initial checkin
ca
parents:
diff changeset
  1342
    ] ifFalse:[
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1343
        inst == view ifTrue:[ 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1344
            label := '== view itself' 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1345
        ] ifFalse:[ 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1346
            label := inst displayString.
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1347
            value := [view controller inspect].
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1348
        ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1349
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1350
    list add:(MenuDesc title:'controller' value:label action:value).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1351
87bb1815460b initial checkin
ca
parents:
diff changeset
  1352
    inst := view delegate.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1353
    inst notNil ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1354
        list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1355
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1356
87bb1815460b initial checkin
ca
parents:
diff changeset
  1357
    inst := view application.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1358
2758
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1359
    inst notNil ifTrue:[ 
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1360
        |topAppl|
c61fe917957a comment/format in:8 methods
Claus Gittinger <cg@exept.de>
parents: 2757
diff changeset
  1361
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1362
        list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1363
87bb1815460b initial checkin
ca
parents:
diff changeset
  1364
        topAppl := inst topApplication.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1365
87bb1815460b initial checkin
ca
parents:
diff changeset
  1366
        (topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1367
            list add:(MenuDesc title:'topApplication' value:topAppl action:[ inst topApplication inspect ]).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1368
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1369
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1370
    list add:(MenuDesc separator).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1371
2888
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1372
    (view respondsTo:#'model') ifTrue:[
2779
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1373
        inst := view model.
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1374
2888
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1375
        inst isNil 
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1376
            ifTrue:[ label := value := nil ]
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1377
            ifFalse:[ label := inst displayString.
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1378
                      label := label,(self aspectLabelFor:inst inApplicationOf:view).  
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1379
                      value := [ view model inspect ].
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1380
                    ].
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1381
87bb1815460b initial checkin
ca
parents:
diff changeset
  1382
        list add:(MenuDesc title:'model' value:label action:value).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1383
87bb1815460b initial checkin
ca
parents:
diff changeset
  1384
        (inst notNil and:[view respondsTo:#modelInterface]) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1385
            view modelInterface keysAndValuesDo:[:key : val|
87bb1815460b initial checkin
ca
parents:
diff changeset
  1386
                val isNil ifTrue:[ label := nil ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1387
                         ifFalse:[ label := val displayString ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1388
87bb1815460b initial checkin
ca
parents:
diff changeset
  1389
                list add:(MenuDesc title:('      - ', key) value:label ).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1390
            ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1391
        ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1392
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1393
87bb1815460b initial checkin
ca
parents:
diff changeset
  1394
    (view respondsTo:#enableChannel) ifTrue:[
87bb1815460b initial checkin
ca
parents:
diff changeset
  1395
        inst := view enableChannel.
87bb1815460b initial checkin
ca
parents:
diff changeset
  1396
87bb1815460b initial checkin
ca
parents:
diff changeset
  1397
        inst isNil ifTrue:[ label := value := nil ]
87bb1815460b initial checkin
ca
parents:
diff changeset
  1398
                  ifFalse:[ label := inst displayString.
2888
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1399
                            label := label,(self aspectLabelFor:inst inApplicationOf:view).  
2177
87bb1815460b initial checkin
ca
parents:
diff changeset
  1400
                            value := [ view enableChannel inspect ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1401
                          ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1402
87bb1815460b initial checkin
ca
parents:
diff changeset
  1403
        list add:(MenuDesc title:'enableChannel' value:label action:value).
87bb1815460b initial checkin
ca
parents:
diff changeset
  1404
    ].
87bb1815460b initial checkin
ca
parents:
diff changeset
  1405
2888
Claus Gittinger <cg@exept.de>
parents: 2779
diff changeset
  1406
    #( #action #pressAction #releaseAction ) do:[:actionSelector |
2779
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1407
        (view respondsTo:actionSelector) ifTrue:[
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1408
            inst := view perform:actionSelector.
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1409
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1410
            inst isNil 
10fef360ad85 changed: #submenuInterface:
Claus Gittinger <cg@exept.de>
parents: 2770
diff changeset
  1411
                ifTrue:[ label := value := nil ]
10fef360ad85 changed: #submenuInterface:
Claus G