ProcessMonitorV2.st
author Claus Gittinger <cg@exept.de>
Thu, 09 Aug 2012 10:59:08 +0200
changeset 11734 996ec373f194
parent 11522 03f5a6c8f136
child 11997 e332775e9182
permissions -rw-r--r--
changed: #helpSpec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6300
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     1
"
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     2
 COPYRIGHT (c) 2003 by eXept Software AG
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
     3
	      All Rights Reserved
6300
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     4
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     5
 This software is furnished under a license and may be used
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     6
 only in accordance with the terms of that license and with the
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     8
 be provided or otherwise made available to, or used by, any
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
     9
 other person.  No title to or ownership of the software is
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    10
 hereby transferred.
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    11
"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
99d11fbee2af initial checkin
penk
parents:
diff changeset
    13
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
    14
ApplicationModel subclass:#ProcessMonitorV2
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    15
	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    16
		hasSelectionHolder showProcessId showGroup showState showPrio
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    17
		showUsedStack showTotalStack showCurrentSegment showSwitch
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    18
		showWhere showInstrumentation showApplication showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    19
		currentSortOrder processTable showDead sortBlock
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    20
		selectionRestartable updateListDelayTime updateContentsDelayTime
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
    21
		enableDecreaseListDelayTime enableDecreaseContentsDelayTime
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
    22
		enableIncreaseListDelayTime enableIncreaseContentsDelayTime
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
    23
		listUpdateDelay updateDelay updateBlock listUpdateBlock
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    24
		updateProcess visibleBlock allowModifications tableMenu
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    25
		hasSelectionWithApplicationProcessHolder
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    26
		hasSelectionAndProcessIsApplicationProcessHolder
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    27
		hasSelectionWithStoppedProcessHolder
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
    28
		hasSelectionAndProcessIsStoppedHolder
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    29
		hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    30
		hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    31
		hasSelectionWithEnabledInstrumentationHolder'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    32
	classVariableNames:''
99d11fbee2af initial checkin
penk
parents:
diff changeset
    33
	poolDictionaries:''
99d11fbee2af initial checkin
penk
parents:
diff changeset
    34
	category:'Monitors-ST/X'
99d11fbee2af initial checkin
penk
parents:
diff changeset
    35
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
    36
99d11fbee2af initial checkin
penk
parents:
diff changeset
    37
Object subclass:#ProcessItem
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    38
	instanceVariableNames:'processId processGroup processName processActive processState
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    39
		processPrio processUsedStack processTotalStack processWhere
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
    40
		processInstrumentation processApplication processWindowTitle
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    41
		processInstance weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
    42
		processInstanceIndexInWeakArray processCurrentSegment
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
    43
		processSwitch prioVal idVal groupVal processBlocked'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    44
	classVariableNames:''
99d11fbee2af initial checkin
penk
parents:
diff changeset
    45
	poolDictionaries:''
99d11fbee2af initial checkin
penk
parents:
diff changeset
    46
	privateIn:ProcessMonitorV2
99d11fbee2af initial checkin
penk
parents:
diff changeset
    47
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
    48
99d11fbee2af initial checkin
penk
parents:
diff changeset
    49
!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
    50
6300
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    51
copyright
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    52
"
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    53
 COPYRIGHT (c) 2003 by eXept Software AG
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    54
	      All Rights Reserved
6300
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    55
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    56
 This software is furnished under a license and may be used
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    57
 only in accordance with the terms of that license and with the
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    58
 inclusion of the above copyright notice.   This software may not
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    59
 be provided or otherwise made available to, or used by, any
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    60
 other person.  No title to or ownership of the software is
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    61
 hereby transferred.
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    62
"
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    63
!
4132e93312b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6290
diff changeset
    64
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    65
documentation
99d11fbee2af initial checkin
penk
parents:
diff changeset
    66
"
99d11fbee2af initial checkin
penk
parents:
diff changeset
    67
    documentation to be added.
99d11fbee2af initial checkin
penk
parents:
diff changeset
    68
99d11fbee2af initial checkin
penk
parents:
diff changeset
    69
    [author:]
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    70
	Christian Penk (penk@bierfix)
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    71
99d11fbee2af initial checkin
penk
parents:
diff changeset
    72
    [instance variables:]
99d11fbee2af initial checkin
penk
parents:
diff changeset
    73
99d11fbee2af initial checkin
penk
parents:
diff changeset
    74
    [class variables:]
99d11fbee2af initial checkin
penk
parents:
diff changeset
    75
99d11fbee2af initial checkin
penk
parents:
diff changeset
    76
    [see also:]
99d11fbee2af initial checkin
penk
parents:
diff changeset
    77
99d11fbee2af initial checkin
penk
parents:
diff changeset
    78
"
99d11fbee2af initial checkin
penk
parents:
diff changeset
    79
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
    80
99d11fbee2af initial checkin
penk
parents:
diff changeset
    81
examples
99d11fbee2af initial checkin
penk
parents:
diff changeset
    82
"
99d11fbee2af initial checkin
penk
parents:
diff changeset
    83
  Starting the application:
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    84
								[exBegin]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    85
    ProcessMonitorV2 open
99d11fbee2af initial checkin
penk
parents:
diff changeset
    86
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    87
								[exEnd]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    88
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
    89
  Starting the application withot any possibilities to change
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
    90
  the processes
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    91
								[exBegin]
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
    92
    ProcessMonitorV2 openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
    93
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    94
								[exEnd]
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
    95
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    96
  more examples to be added:
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    97
								[exBegin]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
    98
    ... add code fragment for
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
    99
    ... executable example here ...
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   100
								[exEnd]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   101
"
99d11fbee2af initial checkin
penk
parents:
diff changeset
   102
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   103
99d11fbee2af initial checkin
penk
parents:
diff changeset
   104
history
99d11fbee2af initial checkin
penk
parents:
diff changeset
   105
    "Created: / 14.1.2003 / 11:16:10 / penk"
99d11fbee2af initial checkin
penk
parents:
diff changeset
   106
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   107
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   108
!ProcessMonitorV2 class methodsFor:'instance creation'!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   109
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   110
openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   111
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   112
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   113
    |application|
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   114
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   115
    application := self new.
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   116
    application open.
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   117
    application allowModifications value:false.
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   118
! !
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
   119
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   120
!ProcessMonitorV2 class methodsFor:'defaults'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   121
99d11fbee2af initial checkin
penk
parents:
diff changeset
   122
defaultLabel
99d11fbee2af initial checkin
penk
parents:
diff changeset
   123
    ^ 'Process Monitor'
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   124
!
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   125
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   126
resourcePackName
7874
defda0e80423 comment
Claus Gittinger <cg@exept.de>
parents: 7863
diff changeset
   127
    "return the name which is used as the fileNameBase of my resource file.
defda0e80423 comment
Claus Gittinger <cg@exept.de>
parents: 7863
diff changeset
   128
     Here, use the same resources as the (old) ProcessMonitor"
defda0e80423 comment
Claus Gittinger <cg@exept.de>
parents: 7863
diff changeset
   129
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   130
    ^ 'ProcessMonitor'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   131
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   132
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   133
!ProcessMonitorV2 class methodsFor:'help'!
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   134
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   135
aboutThisApplicationText
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   136
    ^ super aboutThisApplicationText ,
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   137
      '\\Written by Christian Penk, eXept Software AG.' withCRs
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   138
! !
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   139
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   140
!ProcessMonitorV2 class methodsFor:'help specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   141
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   142
flyByHelpSpec
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   143
    "This resource specification was automatically generated
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   144
     by the UIHelpTool of ST/X."
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   145
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   146
    "Do not manually edit this!! If it is corrupted,
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   147
     the UIHelpTool may not be able to read the specification."
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   148
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   149
    "
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   150
     UIHelpTool openOnClass:ProcessMonitorV2
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   151
    "
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   152
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   153
    <resource: #help>
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   154
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   155
    ^ super flyByHelpSpec addPairsFrom:#(
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   156
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   157
#Debug
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   158
'Debug'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   159
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   160
#Details
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   161
'Details'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   162
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   163
#Inspect
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   164
'Inspect'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   165
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   166
#'Lower Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   167
'Lower Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   168
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   169
#'Raise Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   170
'Raise Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   171
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   172
#RaiseWindow
9293
dcbf31f821ed changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 9035
diff changeset
   173
'Raise Application''s Window'
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   174
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   175
#Restart
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   176
'Restart'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   177
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   178
#Resume
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   179
'Resume'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   180
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   181
#Abort
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   182
'Abort'
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   183
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   184
#Stop
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   185
'Stop'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   186
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   187
#Suspend
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   188
'Suspend'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   189
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   190
#Terminate
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   191
'Terminate'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   192
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   193
#'Terminate Group'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   194
'Terminate Group'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   195
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   196
#'Update Process List'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   197
'Update Process List'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   198
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   199
)
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   200
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   201
    "Modified: / 05-06-2007 / 18:35:47 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   202
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   203
99d11fbee2af initial checkin
penk
parents:
diff changeset
   204
!ProcessMonitorV2 class methodsFor:'image specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   205
9802
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   206
defaultIcon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   207
    "This resource specification was automatically generated
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   208
     by the ImageEditor of ST/X."
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   209
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   210
    "Do not manually edit this!! If it is corrupted,
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   211
     the ImageEditor may not be able to read the specification."
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   212
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   213
    "
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   214
     self defaultIcon inspect
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   215
     ImageEditor openOnClass:self andSelector:#defaultIcon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   216
     Icon flushCachedIcons
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   217
    "
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   218
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   219
    <resource: #image>
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   220
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   221
    ^Icon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   222
        constantNamed:'ProcessMonitorV2 class defaultIcon'
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   223
        ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   224
@@@@@G????9@@@@BP@@@@$O?>@I@@@@BP??8@$@@@@IC?? BP@@@@$@@@@I@@@@BP@@@@$M,@@IC[@@BP@@@@$@@@@I@@@@BP@@@@$@@@@I@@@@BP@@@@$@@
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   225
@@I????>@@@@@CLX7L0*)QDPJ*TQDCL%FH #IQADH*TPQBJX7Y b') ; yourself]
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   226
!
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   227
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   228
detailsMenuIconDown
99d11fbee2af initial checkin
penk
parents:
diff changeset
   229
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   230
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   231
99d11fbee2af initial checkin
penk
parents:
diff changeset
   232
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   233
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   234
99d11fbee2af initial checkin
penk
parents:
diff changeset
   235
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   236
     self detailsMenuIconDown inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   237
     ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
99d11fbee2af initial checkin
penk
parents:
diff changeset
   238
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   239
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   240
99d11fbee2af initial checkin
penk
parents:
diff changeset
   241
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   242
99d11fbee2af initial checkin
penk
parents:
diff changeset
   243
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   244
	constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   245
	ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@(UJ(b') ; yourself); yourself]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   246
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   247
99d11fbee2af initial checkin
penk
parents:
diff changeset
   248
detailsMenuIconUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
   249
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   250
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   251
99d11fbee2af initial checkin
penk
parents:
diff changeset
   252
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   253
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   254
99d11fbee2af initial checkin
penk
parents:
diff changeset
   255
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   256
     self detailsMenuIconUp inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   257
     ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
   258
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   259
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   260
99d11fbee2af initial checkin
penk
parents:
diff changeset
   261
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   262
99d11fbee2af initial checkin
penk
parents:
diff changeset
   263
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   264
	constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   265
	ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'*%P(D@@b') ; yourself); yourself]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   266
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   267
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   268
process22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   269
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   270
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   271
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   272
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   273
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   274
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   275
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   276
     self process22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   277
     ImageEditor openOnClass:self andSelector:#process22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   278
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   279
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   280
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   281
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   282
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   283
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   284
	constantNamed:#'ProcessMonitorV2 class process22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   285
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   286
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   287
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   288
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   289
A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   290
@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   291
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   292
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   293
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   294
processAbort22x22Icon
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   295
    "This resource specification was automatically generated
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   296
     by the ImageEditor of ST/X."
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   297
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   298
    "Do not manually edit this!! If it is corrupted,
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   299
     the ImageEditor may not be able to read the specification."
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   300
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   301
    "
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   302
     self processAbort22x22Icon inspect
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   303
     ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   304
     Icon flushCachedIcons
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   305
    "
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   306
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   307
    <resource: #image>
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   308
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   309
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   310
	constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   311
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   312
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   313
@@@BAP@@APLC@P@@APH@@@@@@@@@@@@@@PLEAPLC@0LEAPLA@@@@@@@@@@@@@@@B@0LC@0LC@0LA@@@@@@@@@@@@@@@@APLC@ DB@0LC@ @@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   314
APLC@ D@@@TC@0LB@@@@@@@@@@@EAPLC@0D@@@@@APLC@0TB@@@@@@@@@PDC@0LB@@@@@@TC@0LA@P@@@@@@@@@@@ HC@0T@@@TC@0LA@@TE@@@@@@@@@@@B
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   315
@0LCAPTC@0LA@@TFA TE@@@@@@@@APLC@0LC@0LC@PTFA@PFAP@@@@@@APLA@ LC@0LCAPTFA@PDA@XE@@@@@@HA@@@E@0LB@@TFA@PDA@PFA @@@@@@@@TE
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   316
@@TA@@@EA XDA@PFAPT@@@@@@@@EA TE@P@@APTEA PDA @@@@@@@@@@@@TFAP@@@@TEA PDA T@@@@@@@@@@@@@A XEAPTFA PDA@X@@@@@@@@@@@@@@@TF
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   317
A XFA@PDA XE@@@@@@@@@@@@@@@@APTFA XFA TE@@@@@@@a') ; colorMapFromArray:#[0 0 0 127 127 127 161 161 165 194 194 194 255 0 0 255 255 255 192 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@') ; yourself); yourself]
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   318
!
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   319
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   320
processDebug22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   321
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   322
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   323
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   324
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   325
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   326
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   327
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   328
     self processDebug22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   329
     ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   330
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   331
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   332
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   333
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   334
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   335
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   336
	constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   337
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   338
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   339
@@@CA @@A PD@P@@A L@@@@@@@@@@@@@@PPFA PDA@PFA PA@@@@@@@@@@@@@@@CA@PD@@@DA@PA@@@@@@@@@@@@@@@@A P@@0DC@@@D@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   340
A PD@0@@@@X@@@@@@@@@@@@@@@@FA PDA@D@@@@@@@HB@ HB@ @@@@@@@PDDA@@@@@@@@ HBAPTEAPTB@@@@@@@@@0@B@ @B@ HEAPTEAPTEAPH@@@@@@@HB
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   341
APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   342
@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   343
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 127 127 127 128 0 0 161 161 165 194 194 194 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   344
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   345
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   346
processInspect22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   347
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   348
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   349
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   350
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   351
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   352
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   353
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   354
     self processInspect22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   355
     ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   356
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   357
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   358
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   359
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   360
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   361
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   362
	constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   363
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   364
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   365
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   366
APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   367
@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   368
@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   369
@@@@@@@@@@@@C ,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 120 120 120 0 64 64 88 88 88 80 80 80 200 200 200 48 48 48]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   370
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   371
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   372
processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   373
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   374
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   375
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   376
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   377
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   378
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   379
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   380
     self processLowerPrio22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   381
     ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   382
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   383
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   384
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   385
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   386
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   387
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   388
	constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   389
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   390
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   391
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   392
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TEAPTEAPTE@@@@@@@@A0\FA T@@@TFAP@@@@@@AP@@@@@@@@@G
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   393
A XFAPTFA T@@@@@@@T@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XEAPT@@@@@@@TEAP@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   394
@@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   395
@@@@@@@E@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9?0O??0C??0C??0G??0G??<CO?<@O?8@F_0@@O @@G@@@B@') ; yourself); yourself]
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   396
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   397
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   398
processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   399
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   400
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   401
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   402
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   403
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   404
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   405
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   406
     self processRaisePrio22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   407
     ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   408
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   409
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   410
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   411
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   412
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   413
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   414
	constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   415
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   416
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   417
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   418
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XEB@@@@@@@@@@@A0\FA T@@@TFA XE@@T@@@@@@@@@@@@G
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   419
A XFAPTFA XE@@@@AP@@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XE@@@@@@@@@@T@@@@@@@\H@@@EA XE@@@@@@@@@@@@AP@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   420
@@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   421
@@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@TEAPTEAPT@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?? C??0G??8G??<CO?<@O_0@F_0@@_0@@_0@@_0') ; yourself); yourself]
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   422
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   423
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   424
processRestart22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   425
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   426
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   427
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   428
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   429
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   430
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   431
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   432
     self processRestart22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   433
     ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   434
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   435
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   436
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   437
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   438
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   439
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   440
	constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   441
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   442
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   443
@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   444
A0XFAPP@@0LC@0@E@@@@@@@@@@@GA0XFA P@@@LC@0@FA \@@@@@@@@@A@PFA XE@@LC@0@FA XD@@@@@@@@@@@@APTFA @C@0L@A XD@@@@@@@@@@@@@@@E
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   445
@@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   446
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   447
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 64 0 0 128 0 0 192 0 127 127 127 161 161 165 194 194 194 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   448
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   449
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   450
processResume22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   451
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   452
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   453
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   454
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   455
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   456
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   457
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   458
     self processResume22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   459
     ImageEditor openOnClass:self andSelector:#processResume22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   460
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   461
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   462
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   463
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   464
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   465
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   466
	constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   467
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   468
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   469
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   470
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TE@@THB@@@@@@@@@@@A0\FA T@@@TFAP@@AP@@@@@@@@@@@@@G
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   471
A XFAPTFA T@@@@E@@@@@@@@@@@@APXFA XFA XE@@@@@@T@@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XG@@T@@@@@@@@E@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   472
@@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   473
@@@@AP@@AP@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@') ; yourself); yourself]
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   474
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   475
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   476
processStop22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   477
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   478
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   479
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   480
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   481
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   482
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   483
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   484
     self processStop22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   485
     ImageEditor openOnClass:self andSelector:#processStop22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   486
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   487
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   488
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   489
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   490
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   491
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   492
	constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   493
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   494
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   495
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   496
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   497
A XFAPTFAPTEAPTEAPTEAP@@@@@@APXFA XFA T@@@@EAP@@@@T@@@@@APXHA0XFA XE@@@@APT@@@@E@@@@@@\H@@@EA XGAP@@@@TE@@@@AP@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   498
@@TH@@T@@@@EAP@@@@T@@@@@@@@@@@@EB@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@AP@@@@TE@@@@AP@@@@@@@@@@@@@@@@T@@@@EAP@@@@T@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   499
@@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@APTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<') ; yourself); yourself]
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   500
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   501
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   502
processSuspend22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   503
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   504
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   505
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   506
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   507
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   508
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   509
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   510
     self processSuspend22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   511
     ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   512
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   513
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   514
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   515
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   516
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   517
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   518
	constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   519
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   520
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   521
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   522
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@TEAPTEAPTEAPTEAPT@@@@@A0\FA TEAPTEAPTEAPTEAPTE@@@@@@@G
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   523
A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   524
@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   525
APTEAPTEAPTEAPTE@@@@@@@@@@@@APTEAPTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<') ; yourself); yourself]
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   526
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   527
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   528
processTerminate22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   529
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   530
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   531
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   532
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   533
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   534
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   535
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   536
     self processTerminate22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   537
     ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   538
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   539
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   540
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   541
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   542
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   543
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   544
	constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   545
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   546
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   547
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   548
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TGC@@@@@@@B@ FA XG@@@LC@TFA XHC@,K@@@@@@@@A0\FA TLB0,LC@XHC@,KBP@@@@@@@@@G
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   549
A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   550
@@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   551
C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   552
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   553
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   554
processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   555
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   556
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   557
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   558
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   559
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   560
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   561
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   562
     self processTerminateGroup22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   563
     ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   564
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   565
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   566
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   567
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   568
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   569
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   570
	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   571
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   572
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA  @@@TG@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   573
@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   574
A TEA XFA TEA  @A0@@@@@@@@ H@@\FA XFA XFA  @B@ @@@@@@@@@@@@EA XGB@\FA XG@@@@@@@L@@@@@@@EA XGB@@@AP0LA \@@@@LB0,@@@TEA XF
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   575
B@@FA 0KB00LAP\LB0,I@@@HB@XFA \@A X@AP(KB00KB0,I@@@@@@@GA0XFAP@@APXFB ,KB0,I@@@@@@@@@@\FA XEAPXFA  LB0,L@@@@@@@@@@@EA XF
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   576
A XFA XLB0,KC@@@@@@@@@@EA  GA XFA XLB0$@B ,L@@@@@@@@A0 @@@TFA \@C@$H@@@JB0@@@@@@@@@@@@@@AP @C@,@@@@@@@(K@@@@@@@@@@@@@@TH
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   577
@@0I@@@@@@@@B0@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   578
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   579
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   580
raiseWindow22x22Icon
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   581
    "This resource specification was automatically generated
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   582
     by the ImageEditor of ST/X."
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   583
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   584
    "Do not manually edit this!! If it is corrupted,
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   585
     the ImageEditor may not be able to read the specification."
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   586
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   587
    "
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   588
     self raiseWindow22x22Icon inspect
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   589
     ImageEditor openOnClass:self andSelector:#raiseWindow22x22Icon
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   590
     Icon flushCachedIcons
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   591
    "
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   592
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   593
    <resource: #image>
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   594
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   595
    ^Icon
8652
c7ab5e1b64ca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8651
diff changeset
   596
        constantNamed:'ProcessMonitorV2 class raiseWindow22x22Icon'
c7ab5e1b64ca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8651
diff changeset
   597
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   598
@@@.K"8.K"8.K"8.K"8.K"8.K"8.K @@@@@@@ HB@ HB@ HB@ HB@ HB@B8@@@@@@@H+J2,+J2,+J2,+J2,+@ @.@@@@@@@BJ2,+J2,+J2,+J2,+J2 @K @@
8652
c7ab5e1b64ca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8651
diff changeset
   599
@ HB@ HB@ HB@ HB@ HBJ2,"@B8@@@HB@ HB@ HB@ HB@ HB@",EF @.@@@B@ HB@ HB@ HB@ HB@" EHQ(@K @@@ HB@ HB@ HB@ HB@ H"AR$(@B8@@@H+
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   600
J2,+J2,+J2,+J2,!!JBD''J@@.@@@BJ2,+J2,+J2,+J2,+HR !!I2 @K @@@",+J2,+J2,+J2,+J2\(HRL @B8@@@H+J2,+J2,+J2,+J2,''JBT#H@@.@@@BJ2,+
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   601
J2,+J2,+J2,EI2 ''A"@@K @@@",+J2,+J2,+J2,EARL I0X @B8@@@H+J2,+J2,+J2,EAR$#HB\FH@@.@@@BJ2,+J2,+J2,EAR$)A"@F@2@@K @@@",+J2,+
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   602
J2,EAR$)HPX HB@Y@B8@@@H+J2,+J2,EAPT)HRDFH@@@@@@.@@@BJ2,EJR$)HRD!!CB\''@2@@@@@@K @@DRPGA2<^D@,KJ!!<-JB@Y@@@@@B8@@@@@@@@@@@@@
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   603
@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@K"8.K @a') ; colorMapFromArray:#[160 200 248 175 200 248 0 48 168 208 208 224 207 216 240 240 240 248 223 216 224 80 136 208 240 232 240 175 208 248 176 208 248 64 112 192 239 232 232 255 248 176 255 248 24 255 248 152 79 120 192 48 120 208 159 192 248 255 248 88 160 192 248 255 248 48 255 248 96 144 184 248 240 144 24 15 56 160 63 88 176 191 216 248 240 208 24 255 248 136 79 120 200 63 104 184 48 80 176 239 232 240 31 72 176 223 216 232 80 144 208 224 224 240 255 248 200 224 224 232 48 88 176 240 240 240 64 104 184 255 248 248 47 112 208 63 96 184 236 233 216 79 128 200]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@') ; yourself); yourself]
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   604
!
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   605
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   606
terminateGroupIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   607
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   608
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   609
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   610
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   611
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   612
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   613
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   614
     self terminateGroupIcon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   615
     ImageEditor openOnClass:self andSelector:#terminateGroupIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   616
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   617
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   618
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   619
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   620
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   621
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   622
	constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   623
	ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   624
@PDA@PXJB (JB (JB (JB TE@PDA@PDA@PXJB (JB (JB (JB (JA0TA@PD@@PXJB (JB (JB (JB (JB (JA D@@@HDB (J@ HJB (JB PDA@(JB X@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   625
@P\G@PDAA (JB XA@PDFA XA@@@@A DA@PDA@PXJB (F@PDA@PDA@PX@A \A@PD@@@@@@@@@A DJ@@@@@@@@@@XJB DA@@,KB0,K@@@A@@,KB0,KB0@AA XF
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   626
B (@B0,KB0,@@@,KB0,KB0@A@PDA@PXJB @KB0,KB0,KB0,KB0@A@PDA@PXJB (J@@,KB0,KB0,KB0@A@PD@@PXJB (JB (@B0,KB0,KB0@JA D@@@HDB (J
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   627
@ HJB @KB0,KB0@JB X@@@@@@P\G@PDAA @KB0,KB0,K@@XA@@@@@@DA@PDA@P@KB0,KB0,KB0,@@P@@@@@A@PDA@P@KB0,KB0@KB0,KB0@@@@@@@@DA@P@K
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   628
B0,KB0@@@@,KB0,K@@@@@@@@@@@KB0,KB0@A@@@@B0,KB0,@@@@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@DA@P@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 48 48 48 56 59 56 64 68 64 88 92 88 128 128 128 160 160 160 192 192 192 216 219 216 239 244 239 248 252 248 160 0 0]; mask:((Depth1Image new) width: 22; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   629
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   630
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   631
terminateIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   632
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   633
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   634
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   635
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   636
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   637
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   638
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   639
     self terminateIcon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   640
     ImageEditor openOnClass:self andSelector:#terminateIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   641
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   642
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   643
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   644
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   645
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   646
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   647
	constantNamed:#'ProcessMonitorV2 class terminateIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   648
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   649
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   650
@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   651
@0H@@@@@@@DB@@@@@@@@@@L@@@@@@@@@@ @@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b') ; yourself); yourself]
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   652
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   653
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   654
viewDetailsIcon
99d11fbee2af initial checkin
penk
parents:
diff changeset
   655
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   656
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   657
99d11fbee2af initial checkin
penk
parents:
diff changeset
   658
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   659
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   660
99d11fbee2af initial checkin
penk
parents:
diff changeset
   661
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   662
     self viewDetailsIcon inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   663
     ImageEditor openOnClass:self andSelector:#viewDetailsIcon
99d11fbee2af initial checkin
penk
parents:
diff changeset
   664
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   665
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   666
99d11fbee2af initial checkin
penk
parents:
diff changeset
   667
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   668
99d11fbee2af initial checkin
penk
parents:
diff changeset
   669
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   670
	constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   671
	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b') ; yourself); yourself]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   672
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   673
99d11fbee2af initial checkin
penk
parents:
diff changeset
   674
!ProcessMonitorV2 class methodsFor:'interface specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   675
99d11fbee2af initial checkin
penk
parents:
diff changeset
   676
windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   677
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   678
     by the UIPainter of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   679
99d11fbee2af initial checkin
penk
parents:
diff changeset
   680
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   681
     the UIPainter may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   682
99d11fbee2af initial checkin
penk
parents:
diff changeset
   683
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   684
     UIPainter new openOnClass:ProcessMonitorV2 andSelector:#windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   685
     ProcessMonitorV2 new openInterface:#windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   686
     ProcessMonitorV2 open
99d11fbee2af initial checkin
penk
parents:
diff changeset
   687
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   688
99d11fbee2af initial checkin
penk
parents:
diff changeset
   689
    <resource: #canvas>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   690
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   691
    ^ 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   692
     #(FullSpec
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   693
        name: windowSpec
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   694
        window: 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   695
       (WindowSpec
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   696
          label: 'ProcessMonitor'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   697
          name: 'ProcessMonitor'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   698
          min: (Point 10 10)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   699
          bounds: (Rectangle 0 0 791 358)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   700
          menu: mainMenu
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   701
          icon: defaultIcon
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   702
        )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   703
        component: 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   704
       (SpecCollection
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   705
          collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   706
           (MenuPanelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   707
              name: 'ToolBar1'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   708
              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   709
              menu: toolBarMainMenu
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   710
              textDefault: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   711
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   712
           (DataSetSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   713
              name: 'ProcessTable'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   714
              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   715
              model: selectedProcesses
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   716
              menu: tableMenu
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   717
              hasHorizontalScrollBar: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   718
              hasVerticalScrollBar: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   719
              dataList: processList
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   720
              useIndex: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   721
              doubleClickSelector: doubleClickedAt:
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   722
              columnHolder: tableColumns
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   723
              multipleSelectOk: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   724
              verticalSpacing: 0
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   725
              postBuildCallback: postBuildProcessTable:
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   726
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   727
           (LabelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   728
              label: 'Update Contents Delay (s):'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   729
              name: 'ContentsUpdateLabel'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   730
              layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   731
              translateLabel: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   732
              adjust: right
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   733
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   734
           (ViewSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   735
              name: 'Box1'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   736
              layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   737
              level: 0
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   738
              component: 
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   739
             (SpecCollection
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   740
                collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   741
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   742
                    name: 'ArrowButton3'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   743
                    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   744
                    model: increaseupdateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   745
                    enableChannel: enableIncreaseContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   746
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   747
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   748
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   749
                    direction: up
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   750
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   751
                 (InputFieldSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   752
                    name: 'EntryField2'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   753
                    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   754
                    model: updateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   755
                    acceptOnReturn: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   756
                    acceptOnTab: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   757
                    acceptOnLostFocus: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   758
                    acceptOnPointerLeave: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   759
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   760
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   761
                    name: 'ArrowButton4'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   762
                    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   763
                    model: decreaseupdateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   764
                    enableChannel: enableDecreaseContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   765
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   766
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   767
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   768
                    direction: down
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   769
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   770
                 )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   771
               
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   772
              )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   773
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   774
           (LabelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   775
              label: 'Update List Delay (s):'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   776
              name: 'ListUpdateLabel'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   777
              layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   778
              translateLabel: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   779
              adjust: right
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   780
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   781
           (ViewSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   782
              name: 'Box2'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   783
              layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   784
              level: 0
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   785
              component: 
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   786
             (SpecCollection
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   787
                collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   788
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   789
                    name: 'ArrowButton5'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   790
                    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   791
                    model: increaseupdateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   792
                    enableChannel: enableIncreaseListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   793
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   794
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   795
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   796
                    direction: up
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   797
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   798
                 (InputFieldSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   799
                    name: 'EntryField3'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   800
                    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   801
                    model: updateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   802
                    acceptOnReturn: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   803
                    acceptOnTab: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   804
                    acceptOnLostFocus: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   805
                    acceptOnPointerLeave: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   806
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   807
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   808
                    name: 'ArrowButton6'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   809
                    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   810
                    model: decreaseupdateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   811
                    enableChannel: enableDecreaseListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   812
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   813
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   814
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   815
                    direction: down
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   816
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   817
                 )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   818
               
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   819
              )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   820
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   821
           )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   822
         
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   823
        )
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   824
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
   825
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   826
99d11fbee2af initial checkin
penk
parents:
diff changeset
   827
!ProcessMonitorV2 class methodsFor:'menu specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   828
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   829
applicationMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   830
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   831
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   832
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   833
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   834
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   835
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   836
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   837
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#applicationMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   838
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 applicationMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   839
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   840
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   841
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   842
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   843
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   844
     #(Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   845
	(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   846
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   847
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   848
	    label: 'Raise Applications Window'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   849
	    itemValue: raiseApplicationWindow
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   850
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   851
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   852
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   853
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   854
	    label: 'Lower Applications Window'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   855
	    itemValue: lowerApplicationWindow
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   856
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   857
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   858
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   859
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   860
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   861
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   862
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   863
	    label: 'Close'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   864
	    itemValue: closeApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   865
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   866
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   867
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   868
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   869
	nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   870
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   871
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   872
    "Modified: / 07-06-2007 / 12:44:21 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   873
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   874
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   875
debugMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   876
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   877
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   878
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   879
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   880
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   881
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   882
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   883
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#debugMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   884
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 debugMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   885
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   886
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   887
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   888
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   889
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   890
     #(Menu
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   891
        (
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   892
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   893
            enabled: hasSelectionHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   894
            label: 'Inspect Process'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   895
            itemValue: inspectSelection
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   896
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   897
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   898
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   899
            enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   900
            label: 'Inspect Application'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   901
            itemValue: inspectApplication
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   902
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   903
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   904
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   905
            label: '-'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   906
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   907
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   908
            enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   909
            label: 'Browse Application'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   910
            itemValue: browseApplication
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   911
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   912
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   913
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   914
            label: '-'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   915
            isVisible: allowModificationsAndHasDebugger
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   916
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   917
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   918
            enabled: hasSelectionHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   919
            label: 'Debug'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   920
            itemValue: debugProcess
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   921
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   922
            isVisible: allowModificationsAndHasDebugger
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   923
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   924
         )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   925
        nil
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   926
        nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   927
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   928
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   929
    "Modified: / 07-06-2007 / 12:49:58 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   930
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   931
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   932
instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   933
    "This resource specification was automatically generated
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   934
     by the MenuEditor of ST/X."
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   935
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   936
    "Do not manually edit this!! If it is corrupted,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   937
     the MenuEditor may not be able to read the specification."
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   938
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   939
    "
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   940
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   941
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 instrumentationMenu)) startUp
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   942
    "
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   943
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   944
    <resource: #menu>
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   945
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   946
    ^ 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   947
     #(Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   948
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   949
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   950
            enabled: hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   951
            label: 'Disable'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   952
            itemValue: disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   953
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   954
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   955
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   956
            enabled: hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   957
            label: 'Enable'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   958
            itemValue: enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   959
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   960
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   961
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   962
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   963
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   964
      )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   965
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   966
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   967
mainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
   968
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   969
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   970
99d11fbee2af initial checkin
penk
parents:
diff changeset
   971
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   972
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   973
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   974
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   975
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   976
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
   977
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
   978
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   979
99d11fbee2af initial checkin
penk
parents:
diff changeset
   980
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   981
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   982
    ^ 
7416
6c684d163ac8 #conditionalRight
Claus Gittinger <cg@exept.de>
parents: 7116
diff changeset
   983
     #(Menu
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   984
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   985
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   986
            label: 'File'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   987
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   988
            submenu: 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   989
           (Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   990
              (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   991
               (MenuItem
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   992
                  label: 'Start Timeslicing'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   993
                  itemValue: startTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   994
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   995
                  isVisible: isNotTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   996
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   997
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   998
                  label: 'Stop Timeslicing'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
   999
                  itemValue: stopTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1000
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1001
                  isVisible: isTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1002
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1003
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1004
                  label: '-'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1005
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1006
               (MenuItem
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1007
                  label: 'Exit'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1008
                  itemValue: closeRequest
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1009
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1010
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1011
               )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1012
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1013
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1014
            )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1015
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1016
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1017
            label: 'Process'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1018
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1019
            isVisible: allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1020
            submenuChannel: processMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1021
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1022
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1023
            label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1024
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1025
            submenuChannel: applicationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1026
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1027
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1028
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1029
            label: 'Debug'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1030
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1031
            submenuChannel: debugMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1032
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1033
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1034
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1035
            label: 'Instrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1036
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1037
            submenuChannel: instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1038
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1039
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1040
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1041
            label: 'View'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1042
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1043
            submenuChannel: viewDetailsMenuSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1044
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1045
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1046
            label: 'Help'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1047
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1048
            startGroup: conditionalRight
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1049
            submenu: 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1050
           (Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1051
              (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1052
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1053
                  label: 'Documentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1054
                  itemValue: openDocumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1055
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1056
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1057
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1058
                  label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1059
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1060
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1061
                  label: 'About this Application...'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1062
                  itemValue: openAboutThisApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1063
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1064
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1065
               )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1066
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1067
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1068
            )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1069
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1070
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1071
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1072
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1073
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1074
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1075
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1076
processMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1077
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1078
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1079
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1080
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1081
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1082
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1083
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1084
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1085
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1086
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1087
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1088
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1089
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1090
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1091
     #(Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1092
	(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1093
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1094
	    enabled: hasSelectionWithStoppedProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1095
	    label: 'Resume'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1096
	    itemValue: resumeProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1097
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1098
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1099
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1100
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1101
	    label: 'Suspend'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1102
	    itemValue: suspendProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1103
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1104
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1105
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1106
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1107
	    label: 'Stop'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1108
	    itemValue: stopProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1109
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1110
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1111
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1112
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1113
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1114
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1115
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1116
	    label: 'Abort'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1117
	    itemValue: abortProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1118
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1119
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1120
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1121
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1122
	    label: 'Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1123
	    itemValue: terminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1124
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1125
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1126
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1127
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1128
	    label: 'Hard Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1129
	    itemValue: hardTerminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1130
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1131
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1132
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1133
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1134
	    label: 'Terminate Group'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1135
	    itemValue: terminateProcessGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1136
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1137
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1138
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1139
	    enabled: selectionRestartable
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1140
	    label: 'Restart'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1141
	    itemValue: restartProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1142
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1143
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1144
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1145
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1146
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1147
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1148
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1149
	    label: 'Raise Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1150
	    itemValue: raisePrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1151
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1152
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1153
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1154
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1155
	    label: 'Lower Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1156
	    itemValue: lowerPrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1157
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1158
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1159
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1160
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1161
	nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1162
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1163
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1164
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1165
tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1166
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1167
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1168
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1169
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1170
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1171
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1172
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1173
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1174
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1175
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1176
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1177
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1178
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1179
    ^
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1180
     #(#Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1181
	#(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1182
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1183
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1184
	    #label: 'Debug'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1185
	    #itemValue: #debugProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1186
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1187
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1188
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1189
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1190
	    #label: 'Inspect'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1191
	    #itemValue: #inspectSelection
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1192
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1193
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1194
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1195
	    #enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1196
	    #label: 'Inspect Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1197
	    #itemValue: #inspectApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1198
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1199
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1200
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1201
	    #enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1202
	    #label: 'Browse Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1203
	    #itemValue: #browseApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1204
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1205
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1206
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1207
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1208
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1209
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1210
	    #enabled: #hasSelectionWithStoppedProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1211
	    #label: 'Resume'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1212
	    #itemValue: #resumeProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1213
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1214
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1215
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1216
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1217
	    #label: 'Suspend'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1218
	    #itemValue: #suspendProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1219
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1220
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1221
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1222
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1223
	    #label: 'Stop'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1224
	    #itemValue: #stopProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1225
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1226
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1227
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1228
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1229
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1230
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1231
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1232
	    #label: 'Abort'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1233
	    #itemValue: #abortProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1234
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1235
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1236
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1237
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1238
	    #label: 'Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1239
	    #itemValue: #terminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1240
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1241
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1242
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1243
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1244
	    #label: 'Hard Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1245
	    #itemValue: #hardTerminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1246
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1247
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1248
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1249
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1250
	    #label: 'Terminate Group'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1251
	    #itemValue: #terminateProcessGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1252
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1253
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1254
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1255
	    #enabled: #selectionRestartable
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1256
	    #label: 'Restart'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1257
	    #itemValue: #restartProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1258
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1259
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1260
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1261
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1262
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1263
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1264
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1265
	    #label: 'Raise Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1266
	    #itemValue: #raisePrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1267
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1268
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1269
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1270
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1271
	    #label: 'Lower Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1272
	    #itemValue: #lowerPrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1273
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1274
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1275
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1276
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1277
	nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1278
      )
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  1279
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1280
    "Modified: / 07-06-2007 / 12:49:47 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1281
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1282
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1283
toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1284
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1285
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1286
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1287
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1288
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1289
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1290
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1291
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1292
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1293
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1294
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1295
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1296
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1297
    ^ 
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
  1298
     #(Menu
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1299
        (
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1300
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1301
            activeHelpKey: Inspect
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1302
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1303
            label: 'Inspect'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1304
            itemValue: inspectSelection
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1305
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1306
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1307
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1308
            labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1309
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1310
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1311
            activeHelpKey: Debug
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1312
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1313
            label: 'Debug'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1314
            itemValue: debugProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1315
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1316
            isButton: true
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1317
            isVisible: allowModificationsAndHasDebugger
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1318
            labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1319
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1320
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1321
            activeHelpKey: RaiseWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1322
            enabled: hasSelectionWithApplicationProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1323
            label: 'Raise Applications Window'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1324
            itemValue: raiseApplicationWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1325
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1326
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1327
            labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1328
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1329
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1330
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1331
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1332
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1333
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1334
            activeHelpKey: Resume
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1335
            enabled: hasSelectionWithStoppedProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1336
            label: 'Resume'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1337
            itemValue: resumeProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1338
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1339
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1340
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1341
            labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1342
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1343
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1344
            activeHelpKey: Stop
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1345
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1346
            label: 'Stop'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1347
            itemValue: stopProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1348
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1349
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1350
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1351
            labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1352
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1353
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1354
            activeHelpKey: Abort
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1355
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1356
            label: 'Abort'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1357
            itemValue: abortProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1358
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1359
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1360
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1361
            labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1362
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1363
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1364
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1365
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1366
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1367
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1368
            activeHelpKey: Terminate
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1369
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1370
            label: 'Terminate'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1371
            itemValue: terminateProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1372
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1373
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1374
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1375
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1376
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1377
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1378
            activeHelpKey: #'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1379
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1380
            label: 'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1381
            itemValue: terminateProcessGroup
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1382
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1383
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1384
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1385
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1386
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1387
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1388
            activeHelpKey: Restart
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1389
            enabled: selectionRestartable
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1390
            label: 'Restart'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1391
            itemValue: restartProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1392
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1393
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1394
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1395
            labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1396
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1397
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1398
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1399
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1400
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1401
         (MenuItem
7921
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1402
            activeHelpKey: #'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1403
            enabled: hasSelectionHolder
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1404
            label: 'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1405
            itemValue: lowerPrio
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1406
            translateLabel: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1407
            isButton: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1408
            isVisible: allowModifications
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1409
            labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1410
          )
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1411
         (MenuItem
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1412
            activeHelpKey: #'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1413
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1414
            label: 'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1415
            itemValue: raisePrio
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1416
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1417
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1418
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1419
            labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1420
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1421
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1422
            label: ''
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1423
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1424
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1425
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1426
            activeHelpKey: #'Update Process List'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1427
            label: 'Update'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1428
            itemValue: updateList
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1429
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1430
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1431
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1432
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1433
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1434
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1435
            activeHelpKey: Details
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1436
            label: 'View Details'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1437
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1438
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1439
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1440
            submenuChannel: viewDetailsMenuSpec
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1441
            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1442
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1443
         )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1444
        nil
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1445
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1446
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1447
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1448
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1449
viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1450
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1451
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1452
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1453
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1454
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1455
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1456
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1457
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1458
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1459
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1460
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1461
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1462
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1463
    ^ 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1464
     #(Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1465
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1466
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1467
            label: 'Id'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1468
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1469
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1470
            indication: showProcessId
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1471
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1472
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1473
            label: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1474
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1475
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1476
            indication: showGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1477
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1478
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1479
            label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1480
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1481
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1482
            indication: showState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1483
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1484
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1485
            label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1486
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1487
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1488
            indication: showPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1489
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1490
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1491
            label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1492
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1493
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1494
            indication: showUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1495
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1496
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1497
            label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1498
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1499
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1500
            indication: showTotalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1501
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1502
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1503
            label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1504
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1505
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1506
            indication: showCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1507
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1508
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1509
            label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1510
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1511
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1512
            indication: showSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1513
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1514
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1515
            label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1516
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1517
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1518
            indication: showWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1519
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1520
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1521
            label: 'Instrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1522
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1523
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1524
            indication: showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1525
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1526
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1527
            label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1528
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1529
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1530
            indication: showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1531
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1532
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1533
            label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1534
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1535
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1536
            indication: showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1537
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1538
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1539
            label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1540
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1541
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1542
            label: 'Show Dead Processes'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1543
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1544
            indication: showDead
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1545
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1546
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1547
            label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1548
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1549
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1550
            label: 'Update'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1551
            itemValue: updateView
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1552
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1553
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1554
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1555
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1556
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1557
      )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1558
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1559
    "Modified: / 17-08-2011 / 11:27:36 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1560
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1561
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1562
!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1563
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1564
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1565
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1566
     by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1567
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1568
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1569
     the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1570
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1571
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1572
     DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1573
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1574
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1575
    <resource: #tableColumns>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1576
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1577
    ^#(
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1578
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1579
         label: 'Id'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1580
         id: id
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1581
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1582
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1583
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1584
         labelActionArgument: 'idVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1585
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1586
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1587
         model: processId
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1588
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1589
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1590
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1591
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1592
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1593
         label: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1594
         id: group
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1595
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1596
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1597
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1598
         labelActionArgument: 'groupVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1599
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1600
         model: processGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1601
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1602
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1603
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1604
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1605
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1606
         label: 'Name'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1607
         id: name
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1608
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1609
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1610
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1611
         labelActionArgument: 'processName'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1612
         width: 200
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1613
         model: processName
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1614
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1615
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1616
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1617
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1618
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1619
         label: ''
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1620
         id: instrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1621
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1622
         activeHelpKey: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1623
         activeHelpKeyForLabel: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1624
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1625
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1626
         labelActionArgument: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1627
         model: processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1628
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1629
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1630
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1631
         showColSeparator: false
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1632
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1633
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1634
         label: ''
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1635
         id: active
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1636
         activeHelpKey: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1637
         activeHelpKeyForLabel: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1638
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1639
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1640
         labelActionArgument: 'processActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1641
         width: 10
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1642
         height: 5
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1643
         model: processActive
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1644
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1645
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1646
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1647
         showColSeparator: false
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  1648
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1649
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1650
         label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1651
         id: state
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1652
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1653
         activeHelpKey: 'processState'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1654
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1655
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1656
         labelActionArgument: 'processState'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1657
         width: 100
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1658
         model: processState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1659
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1660
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1661
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1662
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1663
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1664
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1665
         label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1666
         id: prio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1667
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1668
         activeHelpKey: 'processPriority'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1669
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1670
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1671
         labelActionArgument: 'prioVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1672
         width: 40
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1673
         model: processPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1674
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1675
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1676
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1677
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1678
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1679
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1680
         label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1681
         id: usedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1682
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1683
         activeHelpKey: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1684
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1685
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1686
         labelActionArgument: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1687
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1688
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1689
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1690
         model: processUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1691
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1692
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1693
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1694
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1695
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1696
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1697
         label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1698
         id: totalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1699
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1700
         activeHelpKey: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1701
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1702
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1703
         labelActionArgument: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1704
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1705
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1706
         model: processTotalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1707
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1708
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1709
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1710
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1711
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1712
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1713
         label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1714
         id: currentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1715
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1716
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1717
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1718
         labelActionArgument: 'processCurrentSegment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1719
         width: 110
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1720
         model: processCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1721
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1722
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1723
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1724
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1725
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1726
         label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1727
         id: switch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1728
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1729
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1730
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1731
         labelActionArgument: 'processSwitch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1732
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1733
         width: 55
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1734
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1735
         model: processSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1736
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1737
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1738
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1739
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1740
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1741
         label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1742
         id: where
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1743
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1744
         activeHelpKey: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1745
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1746
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1747
         labelActionArgument: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1748
         model: processWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1749
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1750
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1751
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1752
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1753
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1754
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1755
         label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1756
         id: application
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1757
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1758
         activeHelpKey: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1759
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1760
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1761
         labelActionArgument: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1762
         model: processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1763
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1764
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1765
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1766
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1767
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1768
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1769
         label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1770
         id: windowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1771
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1772
         activeHelpKey: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1773
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1774
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1775
         labelActionArgument: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1776
         model: processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1777
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1778
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1779
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1780
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1781
       )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1782
      )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1783
    
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1784
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1785
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1786
!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1787
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1788
visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1789
    ^ visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1790
!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1791
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1792
visibleBlock:aProcessVisibleFilterBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1793
    visibleBlock := aProcessVisibleFilterBlock.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1794
! !
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1795
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1796
!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1797
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1798
changeSelectionTo:aSelection
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1799
    | newSelection |
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1800
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1801
    aSelection notNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1802
        newSelection := OrderedCollection new.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1803
        aSelection do:[:processItem |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1804
            | index |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1805
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1806
            index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1807
            index ~~ 0 ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1808
                newSelection add:(processList at:index).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1809
            ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1810
        ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1811
        self selectedProcesses value:newSelection
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1812
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1813
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1814
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1815
changeSelectionToProcesses:aProcessList
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1816
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1817
    aProcessList notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1818
	| newSelection |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1819
	newSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1820
	aProcessList do:[:aProcess |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1821
	    | index |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1822
	    index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1823
	    index ~~ 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1824
		newSelection add:(processList at:index).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1825
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1826
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1827
	self selectedProcesses value:newSelection
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1828
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1829
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1830
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1831
decreaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1832
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1833
    self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime - 0.1).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1834
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1835
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1836
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1837
decreaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1838
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1839
    self updateListDelayTime value:(self scaledUpdateListDelayTime - 0.1).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1840
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1841
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1842
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1843
doubleClickedAt:anItemIndex
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1844
    "open a debugger on the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1845
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1846
    self debugProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1847
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1848
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1849
evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1850
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1851
    | contDelaySmallerListDelay |
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1852
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1853
    contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  1854
    self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1855
    self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1856
    self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1857
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1858
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1859
getProcessList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1860
    "select processes to display.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1861
     Subclasses may redefine this"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1862
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1863
    |coll|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1864
5690
024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing
Stefan Vogel <sv@exept.de>
parents: 5538
diff changeset
  1865
    self showDead value ifTrue:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1866
        coll := Process allSubInstances asOrderedCollection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1867
    ] ifFalse:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1868
        coll := ProcessorScheduler knownProcesses asOrderedCollection.
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1869
        coll add:Processor scheduler.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1870
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1871
    ^ coll
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1872
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1873
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1874
increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1875
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1876
    self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime + 0.1).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1877
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1878
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1879
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1880
increaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1881
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1882
    self updateListDelayTime value:(self scaledUpdateListDelayTime + 0.1).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1883
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1884
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1885
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1886
selectedProcessesDo:aBlock
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1887
    | sel proc|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1888
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1889
    sel := self selectedProcesses value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1890
    sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1891
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1892
    sel do:[:processItem |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1893
	proc := processItem processInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1894
	proc notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1895
	    aBlock value:proc.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1896
	].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1897
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1898
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1899
    "Modified: / 07-06-2007 / 12:38:25 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1900
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1901
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1902
selectedProcessesSend:aSelector
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1903
    "send a message to all selected processes"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1904
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1905
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1906
	p perform:aSelector
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1907
    ].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1908
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1909
    self updateList.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1910
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1911
    "Modified: / 07-06-2007 / 12:38:29 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1912
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1913
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1914
!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1915
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1916
currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1917
    "return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1918
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1919
    currentSortOrder isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1920
	currentSortOrder := Dictionary new asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1921
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1922
    ^ currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1923
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1924
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1925
isNotTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1926
    ^ self isTimeslicing not
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1927
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1928
    "Created: / 03-11-2011 / 21:26:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1929
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1930
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1931
isTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1932
    ^ Processor isTimeSlicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1933
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1934
    "Created: / 03-11-2011 / 21:25:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1935
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1936
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1937
processList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1938
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1939
    processList isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1940
	processList := List new.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1941
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1942
    ^ processList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1943
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1944
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1945
scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1946
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1947
    ^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1948
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1949
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1950
scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1951
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1952
    ^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1953
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1954
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1955
selectedProcesses
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1956
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1957
    selectedProcesses isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1958
	selectedProcesses := ValueHolder new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1959
	selectedProcesses addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1960
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1961
    ^ selectedProcesses.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1962
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1963
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1964
showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1965
    "return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1966
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1967
    showDead isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1968
	showDead := false asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1969
	showDead addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1970
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1971
    ^ showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1972
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1973
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1974
sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1975
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1976
    sortBlock isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1977
	| curSortOrder defaultSortInstance|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1978
	defaultSortInstance := #idVal.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1979
	sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1980
	    ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1981
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1982
	curSortOrder := self currentSortOrder value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1983
	curSortOrder at:#column put:defaultSortInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1984
	curSortOrder at:#reverse put:true.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1985
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1986
    ^ sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1987
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1988
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1989
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1990
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1991
    tableColumns isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1992
	tableColumns := self class tableColumns asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1993
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1994
    ^ tableColumns.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1995
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1996
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1997
updateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1998
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1999
    updateContentsDelayTime isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2000
	updateContentsDelayTime := updateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2001
	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2002
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2003
    ^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2004
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2005
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2006
updateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2007
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2008
    updateListDelayTime isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2009
	updateListDelayTime := listUpdateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2010
	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2011
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2012
    ^ updateListDelayTime.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2013
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2014
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2015
!ProcessMonitorV2 methodsFor:'aspects-column'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2016
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2017
showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2018
    "return/create the 'showApplication' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2019
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2020
    showApplication isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2021
        showApplication := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2022
        showApplication onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2023
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2024
    ^ showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2025
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2026
    "Created: / 17-08-2011 / 10:46:56 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2027
!
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2028
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2029
showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2030
    "return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2031
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2032
    showCurrentSegment isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2033
	showCurrentSegment := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2034
	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2035
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2036
    ^ showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2037
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2038
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2039
showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2040
    "return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2041
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2042
    showGroup isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2043
	showGroup := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2044
	showGroup onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2045
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2046
    ^ showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2047
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2048
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2049
showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2050
    "return/create the 'showInstrumentation' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2051
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2052
    showInstrumentation isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2053
        showInstrumentation := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2054
        showInstrumentation onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2055
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2056
    ^ showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2057
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2058
    "Created: / 17-08-2011 / 10:46:27 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2059
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2060
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2061
showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2062
    "return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2063
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2064
    showPrio isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2065
	showPrio := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2066
	showPrio onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2067
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2068
    ^ showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2069
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2070
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2071
showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2072
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2073
    showProcessId isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2074
	showProcessId := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2075
	showProcessId onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2076
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2077
    ^ showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2078
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2079
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2080
showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2081
    "return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2082
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2083
    showState isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2084
	showState := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2085
	showState onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2086
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2087
    ^ showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2088
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2089
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2090
showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2091
    "return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2092
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2093
    showSwitch isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2094
	showSwitch := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2095
	showSwitch onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2096
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2097
    ^ showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2098
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2099
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2100
showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2101
    "return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2102
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2103
    showTotalStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2104
	showTotalStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2105
	showTotalStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2106
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2107
    ^ showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2108
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2109
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2110
showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2111
    "return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2112
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2113
    showUsedStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2114
	showUsedStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2115
	showUsedStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2116
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2117
    ^ showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2118
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2119
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2120
showWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2121
    "return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2122
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2123
    showWhere isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2124
	showWhere := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2125
	showWhere onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2126
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2127
    ^ showWhere
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2128
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2129
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2130
showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2131
    "return/create the 'showWindowTitle' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2132
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2133
    showWindowTitle isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2134
        showWindowTitle := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2135
        showWindowTitle onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2136
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2137
    ^ showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2138
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2139
    "Created: / 17-08-2011 / 10:46:47 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2140
! !
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2141
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2142
!ProcessMonitorV2 methodsFor:'aspects-menu enabling'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2143
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2144
allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2145
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2146
    allowModifications isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2147
	allowModifications := true asValue
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2148
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2149
    ^ allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2150
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2151
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2152
allowModificationsAndHasDebugger
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2153
    ^ BlockValue
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2154
        forLogical:(self allowModifications)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2155
        and:[ Debugger notNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2156
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2157
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2158
enableDecreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2159
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2160
    enableDecreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2161
	enableDecreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2162
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2163
    ^ enableDecreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2164
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2165
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2166
enableDecreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2167
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2168
    enableDecreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2169
	enableDecreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2170
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2171
    ^ enableDecreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2172
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2173
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2174
enableIncreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2175
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2176
    enableIncreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2177
	enableIncreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2178
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2179
    ^ enableIncreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2180
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2181
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2182
enableIncreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2183
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2184
    enableIncreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2185
	enableIncreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2186
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2187
    ^ enableIncreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2188
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2189
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2190
hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2191
    ^ self selectedProcesses value notEmptyOrNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2192
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2193
    "Modified: / 05-06-2007 / 17:43:58 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2194
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2195
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2196
hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2197
    ^ hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2198
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2199
    "Created: / 05-06-2007 / 17:41:54 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2200
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2201
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2202
hasSelectionWithApplicationProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2203
    ^ self hasSelectionWithProcessForWhich:[:p |self isApplicationProcess:p ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2204
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2205
    "Created: / 05-06-2007 / 17:50:37 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2206
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2207
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2208
hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2209
    ^ hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2210
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2211
    "Created: / 05-06-2007 / 17:50:31 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2212
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2213
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2214
hasSelectionWithDisabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2215
    InstrumentationContext isNil ifTrue:[^ false].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2216
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2217
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) isNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2218
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2219
    "Created: / 17-08-2011 / 11:42:19 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2220
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2221
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2222
hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2223
    ^ hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2224
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2225
    "Created: / 17-08-2011 / 11:49:35 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2226
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2227
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2228
hasSelectionWithEnabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2229
    InstrumentationContext isNil ifTrue:[^ false].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2230
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2231
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) notNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2232
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2233
    "Created: / 17-08-2011 / 11:42:08 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2234
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2235
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2236
hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2237
    ^ hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2238
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2239
    "Created: / 17-08-2011 / 11:49:39 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2240
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2241
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2242
hasSelectionWithGUIProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2243
    ^ self hasSelectionWithProcessForWhich:[:p |p isGUIProcess ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2244
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2245
    "Created: / 05-06-2007 / 17:52:10 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2246
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2247
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2248
hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2249
    ^ hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2250
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2251
    "Created: / 05-06-2007 / 17:52:01 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2252
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2253
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2254
hasSelectionWithProcessForWhich:aBlock
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2255
    ^ self hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2256
      and:[ self selectedProcesses value contains:[:pItem |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2257
		|process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2258
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2259
		process := pItem processInstance.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2260
		process notNil and:[ aBlock value:process ]]  ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2261
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2262
    "Created: / 05-06-2007 / 17:40:27 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2263
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2264
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2265
hasSelectionWithStoppedProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2266
    ^ self hasSelectionWithProcessForWhich:[:p |p isStopped ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2267
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2268
    "Modified: / 05-06-2007 / 17:40:42 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2269
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2270
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2271
hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2272
    ^ hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2273
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2274
    "Created: / 05-06-2007 / 17:42:41 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2275
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2276
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2277
selectionRestartable
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2278
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2279
    selectionRestartable isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2280
	selectionRestartable := ValueHolder new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2281
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2282
    ^ selectionRestartable
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2283
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2284
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2285
!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2286
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2287
selectionChanged
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2288
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2289
    |hasSelection allRestartable|
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2290
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2291
    hasSelection := self hasSelection.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2292
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2293
    hasSelectionHolder value:hasSelection.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2294
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2295
    hasSelection ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2296
        self selectionRestartable value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2297
        hasSelectionWithStoppedProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2298
        hasSelectionWithApplicationProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2299
        hasSelectionWithGUIProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2300
        hasSelectionWithEnabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2301
        hasSelectionWithDisabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2302
        ^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2303
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2304
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2305
    hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2306
    hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2307
    hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2308
    hasSelectionWithEnabledInstrumentationHolder value:self hasSelectionWithEnabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2309
    hasSelectionWithDisabledInstrumentationHolder value:self hasSelectionWithDisabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2310
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2311
    allRestartable := true.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2312
    self selectedProcessesDo:[:p |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2313
        p isRestartable ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2314
            allRestartable := false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2315
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2316
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2317
    self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2318
    ^ self.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2319
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2320
    "Modified: / 17-08-2011 / 11:41:32 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2321
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2322
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2323
update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2324
    "Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2325
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2326
    "stub code automatically generated - please change as required"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2327
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2328
    changedObject == builder window ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2329
	something == #visibility ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2330
	    self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2331
	].
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2332
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2333
    changedObject == self selectedProcesses ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2334
	self selectionChanged.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2335
	^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2336
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2337
    changedObject == self showDead ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2338
	self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2339
	^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2340
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2341
    super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2342
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2343
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2344
viewedColumnsChanged
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2345
    | columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2346
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2347
    "/ remember the selected processes
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2348
    sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2349
    sel notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2350
        oldSelection := OrderedCollection new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2351
        sel do:[:proItem|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2352
            |process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2353
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2354
            (process := proItem processInstance) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2355
                oldSelection add:process
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2356
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2357
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2358
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2359
"/    Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2360
    columns := OrderedCollection new.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2361
    self class tableColumns do:[:el|
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2362
        columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2363
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2364
    buffer := columns copy.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2365
    locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2366
    currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2367
    currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2368
    buffer do:[:col |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2369
        | id |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2370
        id := col id.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2371
        id notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2372
            (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2373
                | label icon|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2374
                label := col label.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2375
                icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2376
                col label:(LabelAndIcon label:label icon:icon).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2377
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2378
            #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2379
                ( #id             #showProcessId)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2380
                ( #group          #showGroup)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2381
                ( #prio           #showPrio)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2382
                ( #currentSegment #showCurrentSegment)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2383
                ( #state          #showState)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2384
                ( #switch         #showSwitch)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2385
                ( #totalStack     #showTotalStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2386
                ( #usedStack      #showUsedStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2387
                ( #where          #showWhere)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2388
                ( #application    #showApplication)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2389
                ( #windowTitle    #showWindowTitle)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2390
                ( #instrumentation #showInstrumentation)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2391
            ) pairsDo:[:colName :holderAccessorSelector |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2392
                (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2393
                    columns remove:col.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2394
                ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2395
            ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2396
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2397
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2398
    updateSema critical:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2399
        self tableColumns value:columns.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2400
"/        self updateTable:nil.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2401
"/        Transcript showCR:'oldSelection on set in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2402
        self changeSelectionToProcesses:oldSelection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2403
    ].
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2404
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2405
    "Modified: / 17-08-2011 / 11:11:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2406
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2407
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2408
!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2409
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2410
processEvent:anEvent
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2411
    "filter keyboard events.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2412
     Return true, if I have eaten the event"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2413
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2414
    |focusView key rawKey|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2415
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2416
    anEvent isKeyPressEvent ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2417
	focusView := anEvent targetView.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2418
	key := anEvent key.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2419
	rawKey := anEvent rawKey.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2420
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2421
	(focusView == processList) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2422
	    key == #InspectIt ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2423
		self inspectSelection.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2424
		^ true.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2425
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2426
	]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2427
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2428
    ^ false
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2429
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2430
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2431
!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2432
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2433
commonPostOpen
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2434
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2435
    super commonPostOpen.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2436
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2437
    builder window addDependent:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2438
    self viewedColumnsChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2439
    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2440
    self startUpdateProcess.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2441
    self selectionChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2442
    self sortProcessListBy:#idVal.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2443
    self windowGroup addPreEventHook:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2444
!
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2445
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2446
initialize
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2447
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2448
    super initialize.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2449
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2450
    hasSelectionHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2451
    hasSelectionWithStoppedProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2452
    hasSelectionWithApplicationProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2453
    hasSelectionWithGUIProcessHolder := false asValue.
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2454
    hasSelectionWithDisabledInstrumentationHolder := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2455
    hasSelectionWithEnabledInstrumentationHolder := false asValue.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2456
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2457
    showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2458
    updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2459
    updateDelay := 0.5.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2460
    listUpdateDelay := 5.0.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2461
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2462
    "/ event mode is no longer used;
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2463
    "/ this event support may vanish
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2464
    Processor isPureEventDriven ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2465
        updateBlock := [self updateStatus:nil].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2466
        listUpdateBlock := [self updateList].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2467
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2468
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2469
    "Modified: / 17-08-2011 / 11:39:13 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2470
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2471
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2472
postBuildProcessTable:aWidget
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2473
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2474
    processTable       := aWidget scrolledView.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2475
    processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2476
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2477
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2478
release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2479
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2480
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2481
	updateBlock := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2482
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2483
    listUpdateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2484
	Processor removeTimedBlock:listUpdateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2485
	listUpdateBlock := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2486
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2487
    updateProcess notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2488
	updateProcess terminate.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2489
	updateProcess := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2490
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2491
    super release
6234
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2492
!
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2493
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2494
restarted
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2495
    "restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2496
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2497
    super restarted.
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2498
    self startUpdateProcess.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2499
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2500
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2501
!ProcessMonitorV2 methodsFor:'menu accessing'!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2502
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2503
tableMenu
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2504
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2505
    ^[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2506
	self tableMenuAccess
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2507
    ]
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2508
!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2509
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2510
tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2511
    self allowModifications value ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2512
	tableMenu isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2513
	    tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2514
	    tableMenu receiver:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2515
	    tableMenu findGuiResourcesIn:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2516
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2517
	^ tableMenu
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2518
    ].
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
  2519
    ^ nil
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2520
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2521
    "Modified: / 27-03-2007 / 08:43:43 / cg"
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2522
! !
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2523
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2524
!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2525
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2526
abortProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2527
    "abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2528
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2529
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2530
	p abort
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2531
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2532
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2533
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2534
    "Modified: / 07-06-2007 / 12:38:42 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2535
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2536
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2537
hardTerminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2538
    "hard terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2539
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2540
    self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2541
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2542
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2543
lowerPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2544
    "lower the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2545
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2546
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2547
       p priority:(p priority - 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2548
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2549
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2550
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2551
    "Modified: / 07-06-2007 / 12:38:50 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2552
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2553
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2554
openDocumentation
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2555
    "This method was generated by the Browser.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2556
     It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2557
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2558
    "/ change below as required ...
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2559
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2560
    "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
4561
893af000a82d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4505
diff changeset
  2561
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2562
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2563
    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2564
    "/ directory, and open a viewer with:
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2565
    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2566
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2567
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2568
raisePrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2569
    "raise the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2570
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2571
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2572
       p priority:(p priority + 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2573
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2574
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2575
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2576
    "Modified: / 07-06-2007 / 12:38:57 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2577
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2578
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2579
restartProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2580
    "abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2581
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2582
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2583
	p restart.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2584
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2585
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2586
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2587
    "Modified: / 07-06-2007 / 12:39:04 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2588
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2589
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2590
resumeProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2591
    "resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2592
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2593
    self selectedProcessesSend:#resume
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2594
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2595
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2596
startTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2597
    Processor isTimeSlicing ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2598
        Processor startTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2599
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2600
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2601
    "Created: / 03-11-2011 / 21:26:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2602
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2603
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2604
stopProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2605
    "stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2606
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2607
    self selectedProcessesSend:#stop
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2608
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2609
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2610
stopTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2611
    Processor isTimeSlicing ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2612
        Processor stopTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2613
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2614
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2615
    "Created: / 03-11-2011 / 21:26:40 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2616
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2617
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2618
suspendProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2619
    "suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2620
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2621
    self selectedProcessesSend:#suspend
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2622
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2623
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2624
terminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2625
    "terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2626
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2627
    self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2628
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2629
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2630
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2631
terminateProcessGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2632
    "terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2633
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2634
    self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2635
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2636
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2637
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2638
!ProcessMonitorV2 methodsFor:'menu actions-application'!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2639
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2640
closeApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2641
    "close the process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2642
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2643
    self selectedApplicationTopViewsDo:[:topView | topView terminate]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2644
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2645
    "Created: / 07-06-2007 / 12:40:20 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2646
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2647
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2648
lowerApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2649
    "lower the selected process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2650
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2651
    self selectedApplicationTopViewsDo:[:topView | topView lower]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2652
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2653
    "Created: / 07-06-2007 / 12:43:46 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2654
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2655
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2656
raiseApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2657
    "raise the selected process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2658
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2659
    self selectedApplicationTopViewsDo:[:topView | topView raiseDeiconified]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2660
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2661
    "Created: / 05-06-2007 / 18:37:30 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2662
    "Modified: / 07-06-2007 / 12:43:55 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2663
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2664
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2665
selectedApplicationTopViewsDo:aBlock
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2666
    self selectedProcessesDo:[:eachProcess |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2667
	|wg app topView|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2668
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2669
	wg := self windowGroupOfProcess:eachProcess.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2670
	wg notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2671
	    (topView := wg mainView) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2672
		aBlock value:topView.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2673
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2674
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2675
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2676
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2677
    "Created: / 07-06-2007 / 12:42:09 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2678
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2679
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2680
!ProcessMonitorV2 methodsFor:'menu actions-debug'!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2681
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2682
browseApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2683
    "open a browser on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2684
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2685
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2686
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2687
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2688
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2689
	    app class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2690
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2691
	    topView class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2692
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2693
   ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2694
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2695
    "Created: / 07-06-2007 / 12:48:05 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2696
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2697
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2698
debugProcess
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2699
    "open a debugger on the selected process(es)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2700
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2701
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2702
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2703
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2704
       Debugger openOn:p
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2705
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2706
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2707
    "Modified: / 07-06-2007 / 12:34:43 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2708
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2709
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2710
debugWhenResumed
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2711
    "open a debugger when the selected process(es) is resumed"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2712
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2713
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2714
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2715
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2716
       p addInterruptAction:[Debugger enter]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2717
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2718
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2719
    "Modified: / 07-06-2007 / 12:34:38 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2720
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2721
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2722
disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2723
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2724
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2725
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2726
       InstrumentationContext setInstrumentationContext:nil in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2727
    ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2728
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2729
    "Created: / 17-08-2011 / 11:50:36 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2730
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2731
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2732
enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2733
    |context|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2734
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2735
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2736
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2737
    context := InstrumentationContext new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2738
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2739
       InstrumentationContext setInstrumentationContext:context in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2740
    ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2741
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2742
    "Created: / 17-08-2011 / 11:50:12 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2743
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2744
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2745
inspectApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2746
    "open an inspector on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2747
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2748
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2749
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2750
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2751
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2752
	    app inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2753
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2754
	    topView inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2755
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2756
   ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2757
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2758
    "Modified: / 07-06-2007 / 12:46:42 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2759
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2760
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2761
inspectSelection
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2762
    "open an inspector on the selected process"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2763
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2764
    self selectedProcessesSend:#inspect
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2765
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2766
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2767
!ProcessMonitorV2 methodsFor:'private queries'!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2768
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2769
isApplicationProcess:aProcess
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2770
    ^ (self windowGroupOfProcess:aProcess) notNil.
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2771
!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2772
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2773
windowGroupOfProcess:aProcess
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2774
    WindowGroup scheduledWindowGroups
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2775
	do:[:eachGroup |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2776
	    (eachGroup process == aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2777
		eachGroup isModal ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2778
		    ^ eachGroup previousGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2779
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2780
		^ eachGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2781
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2782
	].
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2783
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2784
    ^ nil
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2785
! !
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2786
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2787
!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2788
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2789
getActiveStringFor:aProcess running:isRunning
5538
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2790
    |stateCharacter|
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2791
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2792
    isRunning ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2793
	stateCharacter := '*'.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2794
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2795
	[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2796
	    (Processor scheduledProcesses includes:aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2797
		stateCharacter := '+'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2798
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2799
		stateCharacter := ''.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2800
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2801
	] valueUninterruptably.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2802
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2803
    ^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2804
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2805
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2806
getApplicationFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2807
    |wg app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2808
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2809
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2810
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2811
        (app := wg application) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2812
            ^ app.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2813
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2814
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2815
    ^ nil.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2816
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2817
    "Created: / 17-08-2011 / 11:12:13 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2818
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2819
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2820
getApplicationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2821
    |app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2822
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2823
    (app := self getApplicationFor:aProcess) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2824
        ^ app class name.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2825
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2826
    ^ ''.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2827
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2828
    "Created: / 17-08-2011 / 10:58:50 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2829
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2830
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2831
getCurrentSegmentStringFor:con
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2832
    | contextCount c sender|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2833
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2834
    con notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2835
        contextCount := 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2836
        c := con.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2837
        [(sender := c sender) notNil] whileTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2838
            c := sender.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2839
            contextCount := contextCount + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2840
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2841
        ^ (((ObjectMemory addressOf:con) printStringRadix:16),
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2842
           ' .. ',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2843
           ((ObjectMemory addressOf:c) printStringRadix:16)).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2844
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2845
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2846
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2847
    "Modified (format): / 17-08-2011 / 10:57:23 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2848
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2849
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2850
getGroupStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2851
    |gId|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2852
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2853
    gId := aProcess processGroupId.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2854
    ((gId == aProcess id) or:[gId isNil]) ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2855
        "/ a group leader
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2856
        ^ '-'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2857
    ] ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2858
        ^ gId.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2859
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2860
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2861
    "Modified (format): / 17-08-2011 / 10:57:33 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2862
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2863
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2864
getInstrumentationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2865
    ^ (InstrumentationContext forProcess:aProcess) isNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2866
        ifTrue:['']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2867
        ifFalse:['Y']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2868
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2869
    "Created: / 17-08-2011 / 11:04:14 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2870
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2871
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2872
getPrioStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2873
    |prioRange|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2874
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2875
    Processor supportDynamicPriorities ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2876
        (prioRange := aProcess priorityRange) isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2877
            ^ aProcess priority asString.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2878
        ] ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2879
            ^ (aProcess priority asString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2880
                    ' [',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2881
                    prioRange start printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2882
                    '..',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2883
                    prioRange stop printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2884
                    ']').
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2885
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2886
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2887
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2888
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2889
    "Modified (format): / 17-08-2011 / 10:57:36 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2890
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2891
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2892
getTotalStackStringFor:aProcess
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2893
    | tStackSize noOfSegs |
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2894
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2895
    aProcess id == 0 ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2896
        ^ 'unlimited'.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2897
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2898
    ((tStackSize := aProcess totalStackSize) notNil 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2899
    and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2900
        ^ (tStackSize printString),' (',(noOfSegs printString),')'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2901
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2902
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2903
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2904
    "Modified: / 17-08-2011 / 10:56:17 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2905
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2906
11289
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2907
getWhereContextFor:con running:isRunning
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2908
    "retrieve a reasonable description of where the process is sitting around;
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2909
     that is not the last context before the context switch, because that would
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2910
     usually be too low level and non-descriptive; instead, walk up the sender chain to
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2911
     a higher level waiter, such as a semaphore wait, a shared queue wait etc."
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2912
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2913
    |c found skipping rs rc r sel|
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2914
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2915
    con notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2916
        c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2917
        found := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2918
        isRunning ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2919
            "/ search for a semaphore-wait in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2920
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2921
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2922
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2923
                        (c receiver class == Semaphore) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2924
                            (sel := c selector) == #wait ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2925
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2926
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2927
                            sel == #waitWithTimeout: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2928
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2929
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2930
                            sel == #waitWithTimeoutMs: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2931
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2932
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2933
                        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2934
                        c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2935
                    ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2936
                ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2937
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2938
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2939
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2940
            "/ search for a non-processor, non-process
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2941
            "/ receiver in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2942
            c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2943
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2944
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2945
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2946
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2947
                            found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2948
                        ] ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2949
                            c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2950
                        ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2951
                    ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2952
                ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2953
            ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2954
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2955
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2956
        "/ skip, until an interesting context is found.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2957
        "/ This skips intermediate contexts, which lead
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2958
        "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2959
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2960
            c := con
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2961
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2962
        skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2963
        [ skipping ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2964
            skipping := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2965
            (c notNil and:[ (r := c receiver) == Delay or:[ r class == Delay ] ]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2966
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2967
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2968
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2969
            (c notNil and:[ (r := c receiver) == Semaphore or:[ r class == Semaphore ] ]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2970
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2971
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2972
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2973
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2974
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2975
                    and:[ c receiver isBlock 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2976
                    and:[ ((sel := c selector) startsWith:'value')
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2977
                          or:[ sel = 'doWhile:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2978
                          or:[ sel = 'doUntil:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2979
                          or:[ sel = 'ensure:' ]]]]]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2980
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2981
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2982
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2983
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2984
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2985
                c notNil
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2986
                    and:[ c receiver == OperatingSystem 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2987
                    and:[ c selector == #unblockInterrupts ] ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2988
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2989
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2990
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2991
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2992
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2993
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2994
                    and:[ c isBlockContext ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2995
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2996
                c := c home.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2997
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2998
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2999
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3000
        c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3001
            sel := c selector.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3002
            sel isNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3003
                sel := '* unknown *'
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3004
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3005
            r := c receiver.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3006
            rc := r class.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3007
            rs := rc name.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3008
            (rc == SharedQueue
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3009
            or:[rc == RecursionLock]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3010
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3011
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3012
            ^ (rs , '>>' , sel).
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3013
        ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3014
    ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3015
    ^ ''
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3016
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3017
    "Created: / 28-02-2012 / 11:48:22 / cg"
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3018
!
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3019
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3020
getWhereStringFor:con running:isRunning
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3021
    "retrieve a reasonable description of where the process is sitting around;
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3022
     that is not the last context before the context switch, because that would
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3023
     usually be too low level and non-descriptive; instead, walk up the sender chain to
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3024
     a higher level waiter, such as a semaphore wait, a shared queue wait etc."
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3025
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3026
    |c found skipping rs rc r sel|
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3027
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3028
    con notNil ifTrue:[
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3029
        c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3030
        found := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3031
        isRunning ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3032
            "/ search for a semaphore-wait in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3033
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3034
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3035
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3036
                        (c receiver class == Semaphore) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3037
                            c selector == #wait ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3038
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3039
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3040
                            c selector == #waitWithTimeout: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3041
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3042
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3043
                            c selector == #waitWithTimeoutMs: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3044
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3045
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3046
                       ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3047
                        c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3048
                    ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3049
                ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3050
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3051
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3052
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3053
            "/ search for a non-processor, non-process
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3054
            "/ receiver in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3055
            c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3056
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3057
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3058
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3059
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3060
                            found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3061
                        ] ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3062
                            c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3063
                        ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3064
                    ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3065
                ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3066
            ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3067
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3068
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3069
        "/ skip, until an interesting context is found.
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3070
        "/ This skips intermediate contexts, which lead
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3071
        "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3072
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3073
            c := con
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3074
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3075
        skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3076
        [ skipping ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3077
            skipping := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3078
            (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3079
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3080
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3081
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3082
            (c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3083
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3084
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3085
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3086
            [
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3087
                c notNil 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3088
                    and:[ c receiver isBlock 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3089
                    and:[ (c selector startsWith:'value')
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3090
                          or:[ c selector = 'doWhile:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3091
                          or:[ c selector = 'doUntil:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3092
                          or:[ c selector = 'ensure:' ]]]]]
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3093
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3094
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3095
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3096
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3097
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3098
                c notNil
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3099
                    and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3100
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3101
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3102
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3103
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3104
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3105
                c notNil and:[ c isBlockContext ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3106
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3107
                c := c home.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3108
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3109
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3110
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3111
        c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3112
            sel := c selector.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3113
            sel isNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3114
                sel := '* unknown *'
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3115
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3116
            r := c receiver.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3117
            rc := r class.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3118
            rs := rc name.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3119
            (rc == SharedQueue
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3120
            or:[rc == RecursionLock]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3121
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3122
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3123
            ^ (rs , '>>' , sel).
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3124
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3125
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  3126
    ^ ''
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3127
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3128
    "Modified: / 28-02-2012 / 11:43:30 / cg"
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3129
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3130
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3131
getWindowTitleFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3132
    |wg topViews|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3133
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3134
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3135
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3136
        (topViews := wg topViews) notEmptyOrNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3137
            ^ topViews first label.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3138
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3139
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3140
    ^ ''.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3141
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3142
    "Created: / 17-08-2011 / 11:01:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3143
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3144
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3145
!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3146
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3147
sortProcessListBy:instanceName
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3148
    "method to sort the list of BugReport"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3149
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3150
    | aSymbol isReverse cmpOp currentSortOrder|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3151
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3152
    aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3153
    isReverse := false.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3154
    currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3155
    currentSortOrder isEmpty ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3156
	currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3157
	currentSortOrder at:#reverse put:false.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3158
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3159
	(currentSortOrder at:#column) = aSymbol ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3160
	    "/ same column like before - change sort order ifReverse is true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3161
	    isReverse := currentSortOrder at:#reverse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3162
	    currentSortOrder at:#reverse put:(isReverse not).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3163
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3164
	    "/ another column - remark column
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3165
	    currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3166
	]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3167
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3168
    (currentSortOrder at:#reverse) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3169
	cmpOp := #'>'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3170
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3171
	cmpOp := #'<'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3172
    ].
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3173
    sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3174
	    |entry1 entry2|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3175
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3176
	    entry1 := (a perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3177
	    entry2 := (b perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3178
	    entry1 = entry2 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3179
		(a idVal < 0 and:[b idVal < 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3180
		    "/ two dead ones (take anything which remains constant)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3181
		    a processName ~= b processName ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3182
			a processName < b processName
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3183
		    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3184
			a processInstance identityHash < b processInstance identityHash
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3185
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3186
		] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3187
		    a idVal < b idVal
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3188
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3189
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3190
		entry1 perform:cmpOp with:entry2
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3191
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3192
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3193
   self viewedColumnsChanged.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3194
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3195
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3196
!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3197
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3198
fillItemInformationIn:processItem
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3199
    |state stateColor running con aProcess|
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3200
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3201
    aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3202
    aProcess isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3203
        ^ self.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3204
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3205
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3206
    processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3207
    processItem idVal:aProcess id ? -1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3208
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3209
    processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3210
    processItem groupVal:(processItem processGroup isNumber ifTrue:[processItem processGroup] ifFalse:[-1]).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3211
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3212
    processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3213
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3214
    state := aProcess state.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3215
    running := (state == #run and:[aProcess == Processor interruptedProcess]).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3216
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3217
    stateColor := (state == #run) 
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3218
                        ifTrue:[ Color green darkened ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3219
                        ifFalse:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3220
                            (state == #debug or:[state == #stopped])
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3221
                                ifTrue:[ Color red ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3222
                                ifFalse:[ Color black ]].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3223
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3224
    processItem processState:(state asString colorizeAllWith:stateColor).
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3225
    processItem processActive:(self getActiveStringFor:aProcess running:running).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3226
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3227
"/    processItem processBlocked:(aProcess interruptsDisabled).
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3228
    processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3229
    processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3230
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3231
    processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3232
    processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3233
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3234
    con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3235
    con isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3236
        aProcess == Processor activeProcess ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3237
            con := thisContext
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3238
        ]
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3239
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3240
    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3241
        processItem processWhere:(self getWhereStringFor:con running:running).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3242
    ].
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3243
    processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3244
    processItem processSwitch:(aProcess numberOfStackBoundaryHits).
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3245
    showApplication ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3246
        processItem processApplication:(self getApplicationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3247
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3248
    showWindowTitle ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3249
        processItem processWindowTitle:(self getWindowTitleFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3250
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3251
    showInstrumentation ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3252
        processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3253
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3254
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3255
    "Modified: / 17-08-2011 / 11:04:32 / cg"
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3256
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3257
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3258
fillItemInformationIn:processItem with:aProcess inArray:weakArrayWithProcesses atIndex:processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3259
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3260
    processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3261
    processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3262
    self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3263
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3264
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3265
startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3266
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3267
        Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3268
        Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3269
    ] ifFalse:[
9410
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3270
        "after a restart, updateProcess is a dead process"
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3271
        self assert:(updateProcess isNil or:[updateProcess isDead]).
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3272
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3273
        updateProcess := [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3274
            [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3275
                |id cnt myDelay|
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3276
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3277
                myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3278
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3279
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3280
                 every updateDelay (0.5), we look which process runs;
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3281
                 every half second, the status is updated.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3282
                 every listUpdateDelay (5s), the list of processes is
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3283
                 built up again
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3284
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3285
                [true] whileTrue:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3286
                    ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3287
                        myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3288
                        self updateStatus:nil.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3289
                    ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3290
                    myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3291
                    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3292
                ]
11522
03f5a6c8f136 changed: #startUpdateProcess use #ifCurtailed:
Stefan Vogel <sv@exept.de>
parents: 11289
diff changeset
  3293
            ] ifCurtailed:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3294
                updateProcess := nil
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3295
            ]
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3296
        ]  forkAt:(Processor userSchedulingPriority + 1).
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3297
        updateProcess name:'monitor [' ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3298
                           Processor activeProcess id printString ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3299
                           '] update'.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3300
        "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3301
         raise my own priority
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3302
        "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3303
        Processor activeProcess priority:(Processor userSchedulingPriority + 2)
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3304
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3305
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3306
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3307
updateChangedItem:oldItem newItem:newItem atIndex:index
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3308
    | colIdx newValue |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3309
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3310
    colIdx := 1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3311
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3312
    oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3313
    oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3314
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3315
    "/ ID
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3316
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3317
    oldItem processId ~= (newValue := newItem processId) ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3318
        oldItem processId:newValue.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3319
        processTable invalidateRowAt:index colAt:colIdx.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3320
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3321
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3322
    #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3323
        ( showGroup     processGroup        processGroup: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3324
        ( true          processName         processName: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3325
        ( showInstrumentation     processInstrumentation        processInstrumentation: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3326
        ( true          processActive       processActive: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3327
        ( showState     processState        processState: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3328
        ( showPrio      processPrio         processPrio: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3329
        ( showUsedStack processUsedStack    processUsedStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3330
        ( showTotalStack processTotalStack  processTotalStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3331
        ( showCurrentSegment processCurrentSegment processCurrentSegment: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3332
        ( showSwitch    processSwitch       processSwitch: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3333
        ( showWhere     processWhere        processWhere: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3334
        ( showApplication     processApplication        processApplication: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3335
        ( showWindowTitle     processWindowTitle        processWindowTitle: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3336
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3337
    ) do:[:eachAspect |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3338
        |showHolder showHolderValue colValueGetter colValueSetter|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3339
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3340
        showHolder := eachAspect at:1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3341
        colValueGetter := eachAspect at:2.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3342
        colValueSetter := eachAspect at:3.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3343
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3344
        showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3345
        showHolderValue ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3346
            colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3347
            (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3348
                oldItem perform:colValueSetter with:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3349
                processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3350
            ].
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3351
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3352
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3353
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3354
"/    "/ GROUP
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3355
"/    self showGroup value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3356
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3357
"/        oldItem processGroup ~= (newValue := newItem processGroup) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3358
"/            oldItem processGroup:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3359
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3360
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3361
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3362
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3363
"/    "/ NAME
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3364
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3365
"/    oldItem processName ~= (newValue := newItem processName) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3366
"/        oldItem processName:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3367
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3368
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3369
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3370
"/    "/ ACTIVE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3371
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3372
"/    oldItem processActive ~= (newValue := newItem processActive) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3373
"/        oldItem processActive:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3374
"/        "/ (processTable columnAt:colIdx).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3375
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3376
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3377
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3378
"/    "/ STATE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3379
"/    showState value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3380
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3381
"/        (oldItem processState sameStringAndEmphasisAs: (newValue := newItem processState)) ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3382
"/            oldItem processState:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3383
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3384
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3385
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3386
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3387
"/    "/ PRIO
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3388
"/    showPrio value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3389
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3390
"/        oldItem processPrio ~= (newValue := newItem processPrio) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3391
"/            oldItem processPrio:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3392
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3393
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3394
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3395
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3396
"/    "/ USED STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3397
"/    showUsedStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3398
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3399
"/        oldItem processUsedStack ~= (newValue := newItem processUsedStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3400
"/            oldItem processUsedStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3401
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3402
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3403
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3404
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3405
"/    "/ TOTAL STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3406
"/    showTotalStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3407
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3408
"/        oldItem processTotalStack ~= (newValue := newItem processTotalStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3409
"/            oldItem processTotalStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3410
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3411
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3412
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3413
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3414
"/    "/ CURRENT SEGMENT
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3415
"/    showCurrentSegment value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3416
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3417
"/        oldItem processCurrentSegment ~= (newValue := newItem processCurrentSegment) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3418
"/            oldItem processCurrentSegment:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3419
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3420
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3421
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3422
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3423
"/    "/ Switch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3424
"/    showSwitch value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3425
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3426
"/        oldItem processSwitch ~= (newValue := newItem processSwitch) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3427
"/            oldItem processSwitch:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3428
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3429
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3430
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3431
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3432
"/    "/ WHERE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3433
"/    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3434
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3435
"/        oldItem processWhere ~= (newValue := newItem processWhere) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3436
"/            oldItem processWhere:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3437
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3438
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3439
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3440
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3441
    "Modified: / 17-08-2011 / 11:47:01 / cg"
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3442
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3443
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3444
updateList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3445
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3446
    |newList|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3447
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3448
    processTable shown ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3449
        newList := self getProcessList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3450
        visibleBlock notNil ifTrue:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3451
            newList := newList select:visibleBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3452
        ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3453
        self updateStatus:newList.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3454
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3455
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3456
        Processor removeTimedBlock:listUpdateBlock.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3457
        Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3458
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3459
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3460
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3461
updateStatus:newProcessList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3462
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3463
    |startTime endTime deltaT|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3464
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3465
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3466
    startTime := Timestamp now.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3467
    updateSema critical:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3468
	self updateTable:newProcessList.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3469
    ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3470
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3471
    endTime := Timestamp now.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3472
    deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3473
"/    Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3474
    deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3475
	"/ the update took longer than 20% - make delay longer, to reduce cpu load.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3476
	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3477
	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3478
    ] ifFalse:[
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3479
"/        self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3480
"/            deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3481
"/                "/ the update took less than 5% - make delay smaller for better animation.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3482
"/                self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime / 2) max:0.5).
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3483
"/                "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3484
"/            ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3485
"/        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3486
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3487
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3488
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3489
	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3490
    ]
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3491
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3492
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3493
updateTable:newProcessList
6042
1ff91f63c1b7 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6010
diff changeset
  3494
    |oldSelection newList sel diff weakProcessList|
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3495
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3496
    processTable shown ifTrue:[
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3497
"/        Transcript showCR:('update the table', Timestamp now printString, 'with new list:', newProcessList notNil asString).
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3498
	sel := self selectedProcesses value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3499
	sel notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3500
	    oldSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3501
	    sel do:[:proItem|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3502
		proItem processInstance notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3503
		    oldSelection add:(proItem processInstance)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3504
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3505
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3506
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3507
"/            Transcript showCR:'oldSelection on catch in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3508
	newProcessList isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3509
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3510
	    processList do:[:oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3511
		| newItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3512
		(self showDead value
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3513
		 or:[oldItem processInstance notNil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3514
		     and:[oldItem processInstance isDead not]]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3515
		    newItem := oldItem copy.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3516
		    self fillItemInformationIn:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3517
		    newList add:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3518
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3519
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3520
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3521
	    "/ remove dead processes if not shown
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3522
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3523
	    weakProcessList := WeakArray withAll:newProcessList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3524
	    weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3525
		"/ in a weakarray, dead entries are 0
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3526
		(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3527
		    (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3528
			| processItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3529
			processItem := ProcessItem new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3530
			self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3531
			newList add:processItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3532
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3533
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3534
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3535
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3536
	newList sort:self sortBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3537
	newList doWithIndex:[:newItem :index|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3538
	    | oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3539
	    oldItem := processList at:index ifAbsent:nil.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3540
	    oldItem isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3541
		processList add:newItem beforeIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3542
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3543
		self updateChangedItem:oldItem newItem:newItem atIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3544
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3545
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3546
	diff := processList size - newList size.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3547
	diff > 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3548
	    processList removeLast:diff
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3549
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3550
"/            Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3551
	self changeSelectionToProcesses:oldSelection.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3552
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3553
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3554
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3555
!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3556
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3557
groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3558
    "return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3559
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3560
    ^ groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3561
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3562
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3563
groupVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3564
    "set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3565
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3566
    groupVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3567
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3568
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3569
idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3570
    "return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3571
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3572
    ^ idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3573
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3574
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3575
idVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3576
    "set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3577
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3578
    idVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3579
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3580
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3581
prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3582
    "return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3583
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3584
    ^ prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3585
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3586
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3587
prioVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3588
    "set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3589
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3590
    prioVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3591
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3592
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3593
processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3594
    "return the value of the instance variable 'processActive' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3595
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3596
    ^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3597
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3598
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3599
processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3600
    "set the value of the instance variable 'processActive' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3601
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3602
    processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3603
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3604
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3605
processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3606
    ^ processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3607
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3608
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3609
processApplication:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3610
    processApplication := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3611
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3612
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3613
processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3614
    ^ processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3615
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3616
    "Created: / 18-07-2010 / 23:52:26 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3617
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3618
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3619
processBlocked:aBoolean
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3620
    processBlocked := aBoolean.
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3621
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3622
    "Created: / 18-07-2010 / 23:52:41 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3623
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3624
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3625
processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3626
    "return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3627
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3628
    ^ processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3629
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3630
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3631
processCurrentSegment:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3632
    "set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3633
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3634
    processCurrentSegment := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3635
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3636
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3637
processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3638
    "return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3639
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3640
    ^ processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3641
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3642
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3643
processGroup:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3644
    "set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3645
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3646
    processGroup := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3647
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3648
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3649
processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3650
    "return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3651
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3652
    ^ processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3653
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3654
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3655
processId:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3656
    "set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3657
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3658
    processId := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3659
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3660
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3661
processInstance
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3662
    "return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3663
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3664
    |procOrNilOrZero|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3665
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3666
    procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3667
    procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3668
    ^ procOrNilOrZero
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3669
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3670
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3671
processInstance:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3672
    "set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3673
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3674
    processInstance := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3675
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3676
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3677
processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3678
    "return the value of the instance variable 'processInstanceIndexInWeakArray' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3679
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3680
    ^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3681
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3682
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3683
processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3684
    "set the value of the instance variable 'processInstanceIndexInWeakArray' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3685
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3686
    processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3687
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3688
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3689
processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3690
    ^ processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3691
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3692
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3693
processInstrumentation:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3694
    processInstrumentation := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3695
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3696
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3697
processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3698
    "return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3699
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3700
    ^ processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3701
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3702
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3703
processName:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3704
    "set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3705
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3706
    processName := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3707
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3708
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3709
processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3710
    "return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3711
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3712
    ^ processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3713
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3714
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3715
processPrio:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3716
    processPrio := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3717
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3718
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3719
processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3720
    ^ processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3721
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3722
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3723
processState:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3724
    processState := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3725
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3726
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3727
processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3728
    ^ processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3729
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3730
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3731
processSwitch:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3732
    processSwitch := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3733
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3734
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3735
processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3736
    ^ processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3737
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3738
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3739
processTotalStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3740
    processTotalStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3741
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3742
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3743
processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3744
    ^ processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3745
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3746
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3747
processUsedStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3748
    processUsedStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3749
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3750
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3751
processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3752
    ^ processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3753
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3754
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3755
processWhere:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3756
    processWhere := something.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3757
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3758
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3759
processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3760
    ^ processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3761
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3762
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3763
processWindowTitle:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3764
    processWindowTitle := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3765
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3766
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3767
weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3768
    ^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3769
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3770
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3771
weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3772
    weakArrayWithProcesses := something.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3773
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3774
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3775
!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3776
8001
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3777
printOn:aStream
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3778
    (self processName ? '') printOn:aStream.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3779
    aStream nextPut:$[.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3780
    (self processId ? '') printOn:aStream. 
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3781
    aStream nextPut:$].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3782
! !
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3783
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3784
!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3785
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3786
version
11522
03f5a6c8f136 changed: #startUpdateProcess use #ifCurtailed:
Stefan Vogel <sv@exept.de>
parents: 11289
diff changeset
  3787
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.59 2012-05-21 08:11:18 stefan Exp $'
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3788
!
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3789
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3790
version_CVS
11522
03f5a6c8f136 changed: #startUpdateProcess use #ifCurtailed:
Stefan Vogel <sv@exept.de>
parents: 11289
diff changeset
  3791
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.59 2012-05-21 08:11:18 stefan Exp $'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3792
! !