ProcessMonitorV2.st
author Stefan Vogel <sv@exept.de>
Thu, 23 Jan 2014 17:11:28 +0100
changeset 13775 5064cb57c8ac
parent 12742 54ec064a98eb
child 14396 b93e61a4ddd7
permissions -rw-r--r--
AbortSignal -> AbortOperationRequest
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
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   138
!
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   139
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   140
flyByHelpSpec
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   141
    "This resource specification was automatically generated
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   142
     by the UIHelpTool of ST/X."
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   143
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   144
    "Do not manually edit this!! If it is corrupted,
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   145
     the UIHelpTool may not be able to read the specification."
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   146
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   147
    "
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   148
     UIHelpTool openOnClass:ProcessMonitorV2
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   149
    "
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   150
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   151
    <resource: #help>
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
    ^ super flyByHelpSpec addPairsFrom:#(
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
#Debug
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   156
'Debug'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   157
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   158
#Details
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   159
'Details'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   160
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   161
#Inspect
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   162
'Inspect'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   163
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   164
#'Lower Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   165
'Lower Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   166
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   167
#'Raise Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   168
'Raise Prio'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   169
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   170
#RaiseWindow
9293
dcbf31f821ed changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 9035
diff changeset
   171
'Raise Application''s Window'
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   172
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   173
#Restart
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   174
'Restart'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   175
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   176
#Resume
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   177
'Resume'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   178
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   179
#Abort
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   180
'Abort'
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   181
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   182
#Stop
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   183
'Stop'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   184
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   185
#Suspend
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   186
'Suspend'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   187
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   188
#Terminate
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   189
'Terminate'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   190
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   191
#'Terminate Group'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   192
'Terminate Group'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   193
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   194
#'Update Process List'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   195
'Update Process List'
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   196
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   197
processId
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   198
'The process ID. A unique number'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   199
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   200
processGroup
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   201
'The processes group ID. Usually the ID of the parent process. Nil if detached from parent'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   202
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   203
processName
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   204
'The processes name'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   205
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   206
processApplication
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   207
'The processes application class (if any)'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   208
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   209
processWindowTitle
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   210
'The processes window title (if any)'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   211
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   212
processInstrumentation
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   213
'The process is currently executed with instrumentaion monitoring active'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   214
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   215
processWasActive
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   216
'The process was active any time during the last update interval (+)\ or actively running when probed (*)'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   217
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   218
processState
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   219
'The execution state'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   220
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   221
processPriority
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   222
'The execution priority, and optional priority range'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   223
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   224
processWhere
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   225
'The currently executed method or the method which suspended it'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   226
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   227
processUsedStack
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   228
'The amount of stack space used by the process (in bytes)'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   229
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   230
processTotalStack
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   231
'The amount of allocated stack space (in bytes) and the number of allocated stack segments'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   232
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   233
processSwitch
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   234
'The overall count of stack segment switches'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   235
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   236
processCurrentSegment
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
   237
'The address range of the current stack segment'
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
   238
)
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   239
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   240
    "Modified: / 05-06-2007 / 18:35:47 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   241
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   242
99d11fbee2af initial checkin
penk
parents:
diff changeset
   243
!ProcessMonitorV2 class methodsFor:'image specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   244
9802
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   245
defaultIcon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   246
    "This resource specification was automatically generated
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   247
     by the ImageEditor of ST/X."
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   248
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   249
    "Do not manually edit this!! If it is corrupted,
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   250
     the ImageEditor may not be able to read the specification."
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   251
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   252
    "
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   253
     self defaultIcon inspect
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   254
     ImageEditor openOnClass:self andSelector:#defaultIcon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   255
     Icon flushCachedIcons
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   256
    "
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   257
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   258
    <resource: #image>
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   259
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   260
    ^Icon
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   261
        constantNamed:'ProcessMonitorV2 class defaultIcon'
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   262
        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
   263
@@@@@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
   264
@@I????>@@@@@CLX7L0*)QDPJ*TQDCL%FH #IQADH*TPQBJX7Y b') ; yourself]
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   265
!
bc9e5d0493ff set icon resource
Stefan Vogel <sv@exept.de>
parents: 9661
diff changeset
   266
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   267
detailsMenuIconDown
99d11fbee2af initial checkin
penk
parents:
diff changeset
   268
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   269
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   270
99d11fbee2af initial checkin
penk
parents:
diff changeset
   271
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   272
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   273
99d11fbee2af initial checkin
penk
parents:
diff changeset
   274
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   275
     self detailsMenuIconDown inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   276
     ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
99d11fbee2af initial checkin
penk
parents:
diff changeset
   277
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   278
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   279
99d11fbee2af initial checkin
penk
parents:
diff changeset
   280
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   281
99d11fbee2af initial checkin
penk
parents:
diff changeset
   282
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   283
	constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   284
	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
   285
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   286
99d11fbee2af initial checkin
penk
parents:
diff changeset
   287
detailsMenuIconUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
   288
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   289
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   290
99d11fbee2af initial checkin
penk
parents:
diff changeset
   291
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   292
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   293
99d11fbee2af initial checkin
penk
parents:
diff changeset
   294
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   295
     self detailsMenuIconUp inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   296
     ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
   297
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   298
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   299
99d11fbee2af initial checkin
penk
parents:
diff changeset
   300
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   301
99d11fbee2af initial checkin
penk
parents:
diff changeset
   302
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   303
	constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   304
	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
   305
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   306
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   307
process22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   308
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   309
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   310
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   311
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   312
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   313
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   314
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   315
     self process22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   316
     ImageEditor openOnClass:self andSelector:#process22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   317
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   318
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   319
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   320
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   321
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   322
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   323
	constantNamed:#'ProcessMonitorV2 class process22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   324
	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
   325
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   326
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   327
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
   328
A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   329
@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   330
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   331
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   332
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   333
processAbort22x22Icon
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   334
    "This resource specification was automatically generated
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   335
     by the ImageEditor of ST/X."
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   336
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   337
    "Do not manually edit this!! If it is corrupted,
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   338
     the ImageEditor may not be able to read the specification."
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   339
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   340
    "
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   341
     self processAbort22x22Icon inspect
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   342
     ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   343
     Icon flushCachedIcons
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   344
    "
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   345
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   346
    <resource: #image>
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   347
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   348
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   349
	constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   350
	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
   351
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   352
@@@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
   353
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
   354
@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
   355
@@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
   356
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
   357
!
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   358
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   359
processDebug22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   360
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   361
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   362
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   363
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   364
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   365
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   366
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   367
     self processDebug22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   368
     ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   369
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   373
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   374
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   375
	constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   376
	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
   377
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   378
@@@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
   379
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
   380
APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   381
@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   382
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   383
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   384
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   385
processInspect22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   386
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   387
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   388
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   389
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   390
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   391
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   392
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   393
     self processInspect22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   394
     ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   395
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   399
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   400
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   401
	constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   402
	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
   403
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   404
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   405
APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   406
@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   407
@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   408
@@@@@@@@@@@@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
   409
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   410
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   411
processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   412
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   413
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   414
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   415
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   416
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   417
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   418
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   419
     self processLowerPrio22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   420
     ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   421
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   425
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   426
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   427
	constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   428
	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
   429
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   430
@@@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
   431
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
   432
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
   433
@@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   434
@@@@@@@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
   435
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   436
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   437
processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   438
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   439
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   440
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   441
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   442
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   443
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   444
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   445
     self processRaisePrio22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   446
     ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   447
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   451
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   452
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   453
	constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   454
	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
   455
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   456
@@@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
   457
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
   458
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
   459
@@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   460
@@@@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
   461
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   462
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   463
processRestart22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   464
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   465
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   466
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   467
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   468
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   469
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   470
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   471
     self processRestart22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   472
     ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   473
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   477
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   478
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   479
	constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   480
	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
   481
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   482
@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   483
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
   484
@@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   485
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   486
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   487
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   488
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   489
processResume22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   490
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   491
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   492
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   493
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   494
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   495
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   496
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   497
     self processResume22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   498
     ImageEditor openOnClass:self andSelector:#processResume22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   499
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   503
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   504
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   505
	constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   506
	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
   507
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   508
@@@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
   509
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
   510
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
   511
@@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
   512
@@@@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
   513
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   514
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   515
processStop22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   516
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   517
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   518
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   519
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   520
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   521
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   522
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   523
     self processStop22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   524
     ImageEditor openOnClass:self andSelector:#processStop22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   525
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   529
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   530
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   531
	constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   532
	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
   533
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   534
@@@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
   535
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
   536
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
   537
@@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
   538
@@@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
   539
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   540
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   541
processSuspend22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   542
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   543
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   544
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   545
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   546
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   547
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   548
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   549
     self processSuspend22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   550
     ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   551
     Icon flushCachedIcons
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
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   555
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   556
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   557
	constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   558
	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
   559
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   560
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   561
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
   562
A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   563
@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
   564
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
   565
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   566
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   567
processTerminate22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   568
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   569
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   570
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   571
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   572
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   573
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   574
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   575
     self processTerminate22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   576
     ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   577
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   578
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   579
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   580
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   581
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   582
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   583
	constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   584
	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
   585
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   586
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   587
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
   588
A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   589
@@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   590
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
   591
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   592
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   593
processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   594
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   595
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   596
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   597
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   598
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   599
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   600
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   601
     self processTerminateGroup22x22Icon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   602
     ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   603
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   604
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   605
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   606
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   607
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   608
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   609
	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   610
	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
   611
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA  @@@TG@@@@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   612
@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   613
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
   614
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
   615
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
   616
@@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
   617
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   618
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   619
raiseWindow22x22Icon
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   620
    "This resource specification was automatically generated
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   621
     by the ImageEditor of ST/X."
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   622
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   623
    "Do not manually edit this!! If it is corrupted,
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   624
     the ImageEditor may not be able to read the specification."
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   625
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   626
    "
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   627
     self raiseWindow22x22Icon inspect
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   628
     ImageEditor openOnClass:self andSelector:#raiseWindow22x22Icon
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   629
     Icon flushCachedIcons
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   630
    "
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   631
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   632
    <resource: #image>
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   633
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   634
    ^Icon
8652
c7ab5e1b64ca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8651
diff changeset
   635
        constantNamed:'ProcessMonitorV2 class raiseWindow22x22Icon'
c7ab5e1b64ca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8651
diff changeset
   636
        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
   637
@@@.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
   638
@ 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
   639
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
   640
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
   641
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
   642
@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@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
   643
!
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
   644
4468
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   645
terminateGroupIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   646
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   647
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   648
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   649
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   650
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   651
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   652
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   653
     self terminateGroupIcon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   654
     ImageEditor openOnClass:self andSelector:#terminateGroupIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   655
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   656
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   657
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   658
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   659
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   660
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   661
	constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   662
	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
   663
@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
   664
@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
   665
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
   666
@ 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
   667
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
   668
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   669
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   670
terminateIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   671
    "This resource specification was automatically generated
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   672
     by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   673
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   674
    "Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   675
     the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   676
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   677
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   678
     self terminateIcon inspect
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   679
     ImageEditor openOnClass:self andSelector:#terminateIcon
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   680
     Icon flushCachedIcons
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   681
    "
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   682
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   683
    <resource: #image>
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   684
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   685
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   686
	constantNamed:#'ProcessMonitorV2 class terminateIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   687
	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
   688
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   689
@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   690
@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
   691
!
cc786dd7b4cb checkin from browser
penk
parents: 4463
diff changeset
   692
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   693
viewDetailsIcon
99d11fbee2af initial checkin
penk
parents:
diff changeset
   694
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   695
     by the ImageEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   696
99d11fbee2af initial checkin
penk
parents:
diff changeset
   697
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   698
     the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   699
99d11fbee2af initial checkin
penk
parents:
diff changeset
   700
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   701
     self viewDetailsIcon inspect
99d11fbee2af initial checkin
penk
parents:
diff changeset
   702
     ImageEditor openOnClass:self andSelector:#viewDetailsIcon
99d11fbee2af initial checkin
penk
parents:
diff changeset
   703
     Icon flushCachedIcons
99d11fbee2af initial checkin
penk
parents:
diff changeset
   704
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   705
99d11fbee2af initial checkin
penk
parents:
diff changeset
   706
    <resource: #image>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   707
99d11fbee2af initial checkin
penk
parents:
diff changeset
   708
    ^Icon
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   709
	constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   710
	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
   711
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   712
99d11fbee2af initial checkin
penk
parents:
diff changeset
   713
!ProcessMonitorV2 class methodsFor:'interface specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   714
99d11fbee2af initial checkin
penk
parents:
diff changeset
   715
windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   716
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
   717
     by the UIPainter of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   718
99d11fbee2af initial checkin
penk
parents:
diff changeset
   719
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
   720
     the UIPainter may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
   721
99d11fbee2af initial checkin
penk
parents:
diff changeset
   722
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   723
     UIPainter new openOnClass:ProcessMonitorV2 andSelector:#windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   724
     ProcessMonitorV2 new openInterface:#windowSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
   725
     ProcessMonitorV2 open
99d11fbee2af initial checkin
penk
parents:
diff changeset
   726
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
   727
99d11fbee2af initial checkin
penk
parents:
diff changeset
   728
    <resource: #canvas>
99d11fbee2af initial checkin
penk
parents:
diff changeset
   729
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   730
    ^ 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   731
     #(FullSpec
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   732
        name: windowSpec
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   733
        window: 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   734
       (WindowSpec
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   735
          label: 'ProcessMonitor'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   736
          name: 'ProcessMonitor'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   737
          min: (Point 10 10)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   738
          bounds: (Rectangle 0 0 791 358)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   739
          menu: mainMenu
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   740
          icon: defaultIcon
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   741
        )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   742
        component: 
5938
482ef199ebdb Do not set maxExtent (to 1024x768).
Stefan Vogel <sv@exept.de>
parents: 5783
diff changeset
   743
       (SpecCollection
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   744
          collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   745
           (MenuPanelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   746
              name: 'ToolBar1'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   747
              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   748
              menu: toolBarMainMenu
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   749
              textDefault: true
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
           (DataSetSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   752
              name: 'ProcessTable'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   753
              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
   754
              model: selectedProcesses
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   755
              menu: tableMenu
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   756
              hasHorizontalScrollBar: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   757
              hasVerticalScrollBar: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   758
              dataList: processList
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   759
              useIndex: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   760
              doubleClickSelector: doubleClickedAt:
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   761
              columnHolder: tableColumns
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   762
              multipleSelectOk: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   763
              verticalSpacing: 0
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   764
              postBuildCallback: postBuildProcessTable:
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   765
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   766
           (LabelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   767
              label: 'Update Contents Delay (s):'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   768
              name: 'ContentsUpdateLabel'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   769
              layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   770
              translateLabel: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   771
              adjust: right
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
           (ViewSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   774
              name: 'Box1'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   775
              layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   776
              level: 0
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   777
              component: 
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   778
             (SpecCollection
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   779
                collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   780
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   781
                    name: 'ArrowButton3'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   782
                    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   783
                    model: increaseupdateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   784
                    enableChannel: enableIncreaseContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   785
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   786
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   787
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   788
                    direction: up
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   789
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   790
                 (InputFieldSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   791
                    name: 'EntryField2'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   792
                    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   793
                    model: updateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   794
                    acceptOnReturn: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   795
                    acceptOnTab: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   796
                    acceptOnLostFocus: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   797
                    acceptOnPointerLeave: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   798
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   799
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   800
                    name: 'ArrowButton4'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   801
                    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   802
                    model: decreaseupdateContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   803
                    enableChannel: enableDecreaseContentsDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   804
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   805
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   806
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   807
                    direction: down
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   808
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   809
                 )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   810
               
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   811
              )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   812
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   813
           (LabelSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   814
              label: 'Update List Delay (s):'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   815
              name: 'ListUpdateLabel'
12424
861c95eda0e4 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12119
diff changeset
   816
              layout: (LayoutFrame -301 1 -20 1 -110 1 0 1)
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   817
              translateLabel: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   818
              adjust: right
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
           (ViewSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   821
              name: 'Box2'
12424
861c95eda0e4 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12119
diff changeset
   822
              layout: (LayoutFrame -103 1 -21 1 0 1 1 1)
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   823
              level: 0
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   824
              component: 
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   825
             (SpecCollection
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   826
                collection: (
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   827
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   828
                    name: 'ArrowButton5'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   829
                    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   830
                    model: increaseupdateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   831
                    enableChannel: enableIncreaseListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   832
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   833
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   834
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   835
                    direction: up
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   836
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   837
                 (InputFieldSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   838
                    name: 'EntryField3'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   839
                    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   840
                    model: updateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   841
                    acceptOnReturn: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   842
                    acceptOnTab: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   843
                    acceptOnLostFocus: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   844
                    acceptOnPointerLeave: false
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   845
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   846
                 (ArrowButtonSpec
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   847
                    name: 'ArrowButton6'
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   848
                    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   849
                    model: decreaseupdateListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   850
                    enableChannel: enableDecreaseListDelayTime
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   851
                    isTriggerOnDown: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   852
                    autoRepeat: true
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   853
                    actionValue: ''
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   854
                    direction: down
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   855
                  )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   856
                 )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   857
               
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   858
              )
12424
861c95eda0e4 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12119
diff changeset
   859
              keepSpaceForOSXResizeHandleH: true
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   860
            )
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   861
           )
9807
6ad85e2e00b3 changed: #windowSpec - fix used icon
Stefan Vogel <sv@exept.de>
parents: 9802
diff changeset
   862
         
8195
20edf1507e82 window label
Claus Gittinger <cg@exept.de>
parents: 8001
diff changeset
   863
        )
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
   864
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
   865
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
   866
99d11fbee2af initial checkin
penk
parents:
diff changeset
   867
!ProcessMonitorV2 class methodsFor:'menu specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
   868
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   869
applicationMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   870
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   871
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   872
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   873
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   874
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   875
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   876
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   877
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#applicationMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   878
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 applicationMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   879
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   880
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   881
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   882
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   883
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   884
     #(Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   885
	(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   886
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   887
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   888
	    label: 'Raise Applications Window'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   889
	    itemValue: raiseApplicationWindow
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   890
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   891
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   892
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   893
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   894
	    label: 'Lower Applications Window'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   895
	    itemValue: lowerApplicationWindow
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   896
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   897
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   898
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   899
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   900
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   901
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   902
	    enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   903
	    label: 'Close'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   904
	    itemValue: closeApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   905
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   906
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   907
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   908
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   909
	nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   910
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   911
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   912
    "Modified: / 07-06-2007 / 12:44:21 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   913
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   914
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   915
debugMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   916
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   917
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   918
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   919
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   920
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   921
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   922
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   923
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#debugMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   924
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 debugMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   925
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   926
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   927
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   928
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
   929
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   930
     #(Menu
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   931
        (
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   932
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   933
            enabled: hasSelectionHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   934
            label: 'Inspect Process'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   935
            itemValue: inspectSelection
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   936
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   937
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   938
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   939
            enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   940
            label: 'Inspect Application'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   941
            itemValue: inspectApplication
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   942
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   943
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   944
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   945
            label: '-'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   946
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   947
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   948
            enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   949
            label: 'Browse Application'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   950
            itemValue: browseApplication
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   951
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   952
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   953
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   954
            label: '-'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   955
            isVisible: allowModificationsAndHasDebugger
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   956
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   957
         (MenuItem
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   958
            enabled: hasSelectionHolder
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   959
            label: 'Debug'
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   960
            itemValue: debugProcess
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   961
            translateLabel: true
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   962
            isVisible: allowModificationsAndHasDebugger
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   963
          )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   964
         )
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   965
        nil
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
   966
        nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   967
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   968
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   969
    "Modified: / 07-06-2007 / 12:49:58 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   970
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
   971
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   972
instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   973
    "This resource specification was automatically generated
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   974
     by the MenuEditor of ST/X."
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   975
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   976
    "Do not manually edit this!! If it is corrupted,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   977
     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
   978
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   979
    "
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   980
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   981
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 instrumentationMenu)) startUp
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   982
    "
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   983
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   984
    <resource: #menu>
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   985
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   986
    ^ 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   987
     #(Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   988
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   989
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   990
            enabled: hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   991
            label: 'Disable'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   992
            itemValue: disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   993
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   994
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   995
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   996
            enabled: hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   997
            label: 'Enable'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   998
            itemValue: enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
   999
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1000
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1001
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1002
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1003
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1004
      )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1005
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1006
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1007
mainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1008
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1009
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1010
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1011
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1012
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1013
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1014
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1015
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1016
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1017
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1018
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1019
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1020
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1021
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1022
    ^ 
7416
6c684d163ac8 #conditionalRight
Claus Gittinger <cg@exept.de>
parents: 7116
diff changeset
  1023
     #(Menu
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1024
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1025
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1026
            label: 'File'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1027
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1028
            submenu: 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1029
           (Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1030
              (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1031
               (MenuItem
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1032
                  label: 'Start Timeslicing'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1033
                  itemValue: startTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1034
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1035
                  isVisible: isNotTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1036
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1037
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1038
                  label: 'Stop Timeslicing'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1039
                  itemValue: stopTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1040
                  translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1041
                  isVisible: isTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1042
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1043
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1044
                  label: '-'
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1045
                )
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1046
               (MenuItem
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1047
                  label: 'Exit'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1048
                  itemValue: closeRequest
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1049
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1050
                )
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
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1053
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1054
            )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1055
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1056
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1057
            label: 'Process'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1058
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1059
            isVisible: allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1060
            submenuChannel: processMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1061
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1062
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1063
            label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1064
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1065
            submenuChannel: applicationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1066
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1067
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1068
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1069
            label: 'Debug'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1070
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1071
            submenuChannel: debugMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1072
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1073
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1074
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1075
            label: 'Instrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1076
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1077
            submenuChannel: instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1078
            keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1079
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1080
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1081
            label: 'View'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1082
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1083
            submenuChannel: viewDetailsMenuSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1084
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1085
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1086
            label: 'Help'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1087
            translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1088
            startGroup: conditionalRight
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1089
            submenu: 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1090
           (Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1091
              (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1092
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1093
                  label: 'Documentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1094
                  itemValue: openDocumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1095
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1096
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1097
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1098
                  label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1099
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1100
               (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1101
                  label: 'About this Application...'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1102
                  itemValue: openAboutThisApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1103
                  translateLabel: true
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1104
                )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1105
               )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1106
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1107
              nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1108
            )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1109
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1110
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1111
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1112
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1113
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1114
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1115
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1116
processMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1117
    "This resource specification was automatically generated
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1118
     by the MenuEditor of ST/X."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1119
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1120
    "Do not manually edit this!! If it is corrupted,
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1121
     the MenuEditor may not be able to read the specification."
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1122
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1123
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1124
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1125
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1126
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1127
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1128
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1129
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1130
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1131
    ^ 
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1132
     #(Menu
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1133
        (
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1134
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1135
            enabled: hasSelectionWithStoppedProcessHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1136
            label: 'Resume'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1137
            itemValue: resumeProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1138
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1139
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1140
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1141
            label: 'Suspend'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1142
            itemValue: suspendProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1143
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1144
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1145
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1146
            label: 'Stop'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1147
            itemValue: stopProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1148
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1149
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1150
            label: '-'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1151
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1152
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1153
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1154
            label: 'Abort'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1155
            itemValue: abortProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1156
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1157
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1158
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1159
            label: 'Terminate'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1160
            itemValue: terminateProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1161
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1162
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1163
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1164
            label: 'Hard Terminate'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1165
            itemValue: hardTerminateProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1166
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1167
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1168
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1169
            label: 'Terminate Group'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1170
            itemValue: terminateProcessGroup
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1171
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1172
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1173
            enabled: selectionRestartable
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1174
            label: 'Restart'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1175
            itemValue: restartProcess
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1176
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1177
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1178
            label: '-'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1179
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1180
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1181
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1182
            label: 'Raise Prio'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1183
            itemValue: raisePrio
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1184
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1185
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1186
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1187
            label: 'Lower Prio'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1188
            itemValue: lowerPrio
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1189
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1190
         (MenuItem
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1191
            enabled: hasSelectionHolder
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1192
            label: 'Set Prio Range...'
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1193
            itemValue: setPrioRange
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1194
          )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1195
         )
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1196
        nil
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  1197
        nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1198
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1199
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1200
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1201
tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1202
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1203
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1204
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1205
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1206
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1207
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1208
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1209
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1210
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1211
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1212
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1213
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1214
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1215
    ^
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1216
     #(#Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1217
	#(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1218
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1219
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1220
	    #label: 'Debug'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1221
	    #itemValue: #debugProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1222
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1223
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1224
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1225
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1226
	    #label: 'Inspect'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1227
	    #itemValue: #inspectSelection
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1228
	    #translateLabel: true
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: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1232
	    #label: 'Inspect Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1233
	    #itemValue: #inspectApplication
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: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1238
	    #label: 'Browse Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1239
	    #itemValue: #browseApplication
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
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1244
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1245
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1246
	    #enabled: #hasSelectionWithStoppedProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1247
	    #label: 'Resume'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1248
	    #itemValue: #resumeProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1249
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1250
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1251
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1252
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1253
	    #label: 'Suspend'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1254
	    #itemValue: #suspendProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1255
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1256
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1257
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1258
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1259
	    #label: 'Stop'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1260
	    #itemValue: #stopProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1261
	    #translateLabel: true
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
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1265
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1266
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1267
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1268
	    #label: 'Abort'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1269
	    #itemValue: #abortProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1270
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1271
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1272
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1273
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1274
	    #label: 'Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1275
	    #itemValue: #terminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1276
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1277
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1278
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1279
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1280
	    #label: 'Hard Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1281
	    #itemValue: #hardTerminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1282
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1283
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1284
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1285
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1286
	    #label: 'Terminate Group'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1287
	    #itemValue: #terminateProcessGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1288
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1289
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1290
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1291
	    #enabled: #selectionRestartable
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1292
	    #label: 'Restart'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1293
	    #itemValue: #restartProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1294
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1295
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1296
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1297
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1298
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1299
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1300
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1301
	    #label: 'Raise Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1302
	    #itemValue: #raisePrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1303
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1304
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1305
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1306
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1307
	    #label: 'Lower Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1308
	    #itemValue: #lowerPrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1309
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1310
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1311
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1312
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1313
	nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1314
      )
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  1315
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1316
    "Modified: / 07-06-2007 / 12:49:47 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1317
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1318
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1319
toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1320
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1321
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1322
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1323
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1324
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1325
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1326
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1327
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1328
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1329
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1330
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1331
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1332
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1333
    ^ 
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
  1334
     #(Menu
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1335
        (
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1336
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1337
            activeHelpKey: Inspect
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1338
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1339
            label: 'Inspect'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1340
            itemValue: inspectSelection
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1341
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1342
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1343
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1344
            labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1345
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1346
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1347
            activeHelpKey: Debug
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1348
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1349
            label: 'Debug'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1350
            itemValue: debugProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1351
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1352
            isButton: true
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1353
            isVisible: allowModificationsAndHasDebugger
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1354
            labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1355
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1356
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1357
            activeHelpKey: RaiseWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1358
            enabled: hasSelectionWithApplicationProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1359
            label: 'Raise Applications Window'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1360
            itemValue: raiseApplicationWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1361
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1362
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1363
            labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1364
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1365
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1366
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1367
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1368
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1369
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1370
            activeHelpKey: Resume
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1371
            enabled: hasSelectionWithStoppedProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1372
            label: 'Resume'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1373
            itemValue: resumeProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1374
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1375
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1376
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1377
            labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1378
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1379
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1380
            activeHelpKey: Stop
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1381
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1382
            label: 'Stop'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1383
            itemValue: stopProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1384
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1385
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1386
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1387
            labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1388
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1389
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1390
            activeHelpKey: Abort
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1391
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1392
            label: 'Abort'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1393
            itemValue: abortProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1394
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1395
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1396
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1397
            labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1398
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1399
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1400
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1401
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1402
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1403
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1404
            activeHelpKey: Terminate
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1405
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1406
            label: 'Terminate'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1407
            itemValue: terminateProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1408
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1409
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1410
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1411
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1412
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1413
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1414
            activeHelpKey: #'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1415
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1416
            label: 'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1417
            itemValue: terminateProcessGroup
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1418
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1419
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1420
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1421
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1422
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1423
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1424
            activeHelpKey: Restart
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1425
            enabled: selectionRestartable
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1426
            label: 'Restart'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1427
            itemValue: restartProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1428
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1429
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1430
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1431
            labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1432
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1433
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1434
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1435
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1436
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1437
         (MenuItem
7921
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1438
            activeHelpKey: #'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1439
            enabled: hasSelectionHolder
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1440
            label: 'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1441
            itemValue: lowerPrio
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1442
            translateLabel: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1443
            isButton: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1444
            isVisible: allowModifications
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1445
            labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1446
          )
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1447
         (MenuItem
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1448
            activeHelpKey: #'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1449
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1450
            label: 'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1451
            itemValue: raisePrio
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1452
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1453
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1454
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1455
            labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1456
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1457
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1458
            label: ''
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1459
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1460
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1461
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1462
            activeHelpKey: #'Update Process List'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1463
            label: 'Update'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1464
            itemValue: updateList
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1465
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1466
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1467
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1468
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1469
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1470
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1471
            activeHelpKey: Details
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1472
            label: 'View Details'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1473
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1474
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1475
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1476
            submenuChannel: viewDetailsMenuSpec
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1477
            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1478
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1479
         )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1480
        nil
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1481
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1482
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1483
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1484
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1485
viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1486
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1487
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1488
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1489
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1490
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1491
11999
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1492
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1493
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1494
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1495
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1496
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1497
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1498
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1499
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1500
    ^ 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1501
     #(Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1502
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1503
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1504
            label: 'Id'
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: showProcessId
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: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1510
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1511
            indication: showGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1512
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1513
         (MenuItem
11999
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1514
            label: 'Instrumentation'
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1515
            hideMenuOnActivated: false
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1516
            indication: showInstrumentation
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1517
          )
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1518
         (MenuItem
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1519
            label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1520
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1521
            indication: showState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1522
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1523
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1524
            label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1525
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1526
            indication: showPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1527
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1528
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1529
            label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1530
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1531
            indication: showUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1532
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1533
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1534
            label: 'Total Stack'
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: showTotalStack
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: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1540
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1541
            indication: showCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1542
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1543
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1544
            label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1545
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1546
            indication: showSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1547
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1548
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1549
            label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1550
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1551
            indication: showWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1552
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1553
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1554
            label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1555
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1556
            indication: showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1557
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1558
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1559
            label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1560
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1561
            indication: showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1562
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1563
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1564
            label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1565
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1566
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1567
            label: 'Show Dead Processes'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1568
            indication: showDead
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1569
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1570
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1571
            label: '-'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1572
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1573
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1574
            label: 'Update'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1575
            itemValue: updateView
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1576
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1577
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1578
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1579
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1580
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1581
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1582
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1583
!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1584
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1585
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1586
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1587
     by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1588
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1589
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1590
     the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1591
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1592
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1593
     DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1594
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1595
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1596
    <resource: #tableColumns>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1597
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1598
    ^#(
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1599
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1600
         label: 'Id'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1601
         id: id
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1602
         activeHelpKeyForLabel: 'processId'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1603
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1604
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1605
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1606
         labelActionArgument: 'idVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1607
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1608
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1609
         model: processId
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1610
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1611
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1612
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1613
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1614
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1615
         label: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1616
         id: group
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1617
         activeHelpKeyForLabel: 'processGroup'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1618
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1619
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1620
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1621
         labelActionArgument: 'groupVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1622
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1623
         model: processGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1624
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1625
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1626
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1627
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1628
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1629
         label: 'Name'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1630
         id: name
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1631
         activeHelpKeyForLabel: 'processName'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1632
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1633
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1634
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1635
         labelActionArgument: 'processName'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1636
         width: 200
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1637
         model: processName
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1638
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1639
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1640
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1641
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1642
      (DataSetColumnSpec
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  1643
         label: 'Instr.'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1644
         id: instrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1645
         labelAlignment: left
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  1646
         width: 50
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1647
         "/ activeHelpKey: 'processInstrumentation'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1648
         activeHelpKeyForLabel: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1649
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1650
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1651
         labelActionArgument: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1652
         model: processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1653
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1654
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1655
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1656
         showColSeparator: false
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1657
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1658
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1659
         label: ''
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1660
         id: active
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1661
         "/ activeHelpKey: 'processWasActive'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1662
         activeHelpKeyForLabel: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1663
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1664
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1665
         labelActionArgument: 'processActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1666
         width: 10
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1667
         height: 5
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1668
         model: processActive
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1669
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1670
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1671
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1672
         showColSeparator: false
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  1673
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1674
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1675
         label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1676
         id: state
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1677
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1678
         "/ activeHelpKey: 'processState'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1679
         activeHelpKeyForLabel: 'processState'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1680
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1681
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1682
         labelActionArgument: 'processState'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1683
         width: 100
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1684
         model: processState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1685
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1686
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1687
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1688
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1689
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1690
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1691
         label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1692
         id: prio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1693
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1694
         "/ activeHelpKey: 'processPriority'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1695
         activeHelpKeyForLabel: 'processPriority'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1696
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1697
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1698
         labelActionArgument: 'prioVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1699
         width: 40
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1700
         model: processPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1701
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1702
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1703
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1704
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1705
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1706
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1707
         label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1708
         id: usedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1709
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1710
         "/ activeHelpKey: 'processUsedStack'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1711
         activeHelpKeyForLabel: 'processUsedStack'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1712
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1713
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1714
         labelActionArgument: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1715
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1716
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1717
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1718
         model: processUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1719
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1720
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1721
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1722
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1723
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1724
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1725
         label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1726
         id: totalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1727
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1728
         "/ activeHelpKey: 'processTotalStack'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1729
         activeHelpKeyForLabel: 'processTotalStack'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1730
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1731
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1732
         labelActionArgument: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1733
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1734
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1735
         model: processTotalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1736
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1737
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1738
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1739
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1740
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1741
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1742
         label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1743
         id: currentSegment
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1744
         activeHelpKeyForLabel: 'processCurrentSegment'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1745
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1746
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1747
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1748
         labelActionArgument: 'processCurrentSegment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1749
         width: 110
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1750
         model: processCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1751
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1752
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1753
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1754
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1755
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1756
         label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1757
         id: switch
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1758
         activeHelpKeyForLabel: 'processSwitch'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1759
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1760
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1761
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1762
         labelActionArgument: 'processSwitch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1763
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1764
         width: 55
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1765
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1766
         model: processSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1767
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1768
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1769
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1770
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1771
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1772
         label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1773
         id: where
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1774
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1775
         "/ activeHelpKey: 'processWhere'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1776
         activeHelpKeyForLabel: 'processWhere'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1777
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1778
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1779
         labelActionArgument: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1780
         model: processWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1781
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1782
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1783
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1784
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1785
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1786
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1787
         label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1788
         id: application
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1789
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1790
         "/ activeHelpKey: 'processApplication'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1791
         activeHelpKeyForLabel: 'processApplication'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1792
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1793
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1794
         labelActionArgument: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1795
         model: processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1796
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1797
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1798
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1799
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1800
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1801
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1802
         label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1803
         id: windowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1804
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1805
         "/ activeHelpKey: 'processWindowTitle'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1806
         activeHelpKeyForLabel: 'processWindowTitle'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1807
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1808
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1809
         labelActionArgument: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1810
         model: processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1811
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1812
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1813
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1814
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1815
       )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1816
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1817
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1818
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1819
!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1820
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1821
visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1822
    ^ visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1823
!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1824
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1825
visibleBlock:aProcessVisibleFilterBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1826
    visibleBlock := aProcessVisibleFilterBlock.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1827
! !
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1828
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1829
!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1830
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1831
changeSelectionTo:aSelection
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1832
    | newSelection |
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1833
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1834
    aSelection notNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1835
        newSelection := OrderedCollection new.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1836
        aSelection do:[:processItem |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1837
            | index |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1838
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1839
            index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1840
            index ~~ 0 ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1841
                newSelection add:(processList at:index).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1842
            ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1843
        ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1844
        self selectedProcesses value:newSelection
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1845
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1846
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1847
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1848
changeSelectionToProcesses:aProcessList
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1849
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1850
    aProcessList notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1851
	| newSelection |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1852
	newSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1853
	aProcessList do:[:aProcess |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1854
	    | index |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1855
	    index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1856
	    index ~~ 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1857
		newSelection add:(processList at:index).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1858
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1859
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1860
	self selectedProcesses value:newSelection
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1861
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1862
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1863
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1864
decreaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1865
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1866
    self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime - 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1867
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1868
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1869
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1870
decreaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1871
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1872
    self updateListDelayTime value:((self scaledUpdateListDelayTime - 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1873
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1874
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1875
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1876
doubleClickedAt:anItemIndex
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1877
    "open a debugger on the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1878
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1879
    self debugProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1880
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1881
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1882
evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1883
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1884
    | contDelaySmallerListDelay |
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1885
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1886
    contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  1887
    self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1888
    self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1889
    self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1890
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1891
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1892
getProcessList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1893
    "select processes to display.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1894
     Subclasses may redefine this"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1895
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1896
    |coll|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1897
5690
024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing
Stefan Vogel <sv@exept.de>
parents: 5538
diff changeset
  1898
    self showDead value ifTrue:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1899
        coll := Process allSubInstances asOrderedCollection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1900
    ] ifFalse:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1901
        coll := ProcessorScheduler knownProcesses asOrderedCollection.
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1902
        coll add:Processor scheduler.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1903
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1904
    ^ coll
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1905
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1906
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1907
increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1908
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1909
    self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime + 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1910
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1911
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1912
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1913
increaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1914
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1915
    self updateListDelayTime value:((self scaledUpdateListDelayTime + 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1916
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1917
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1918
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1919
selectedProcessesDo:aBlock
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1920
    | sel proc|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1921
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1922
    sel := self selectedProcesses value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1923
    sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1924
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1925
    sel do:[:processItem |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1926
	proc := processItem processInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1927
	proc notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1928
	    aBlock value:proc.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1929
	].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1930
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1931
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1932
    "Modified: / 07-06-2007 / 12:38:25 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1933
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1934
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1935
selectedProcessesSend:aSelector
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1936
    "send a message to all selected processes"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1937
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1938
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1939
	p perform:aSelector
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1940
    ].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1941
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1942
    self updateList.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1943
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1944
    "Modified: / 07-06-2007 / 12:38:29 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1945
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1946
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1947
!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1948
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1949
currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1950
    "return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1951
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1952
    currentSortOrder isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1953
	currentSortOrder := Dictionary new asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1954
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1955
    ^ currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1956
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1957
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1958
isNotTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1959
    ^ self isTimeslicing not
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1960
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1961
    "Created: / 03-11-2011 / 21:26:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1962
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1963
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1964
isTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1965
    ^ Processor isTimeSlicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1966
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1967
    "Created: / 03-11-2011 / 21:25:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1968
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1969
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1970
processList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1971
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1972
    processList isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1973
	processList := List new.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1974
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1975
    ^ processList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1976
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1977
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1978
scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1979
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1980
    ^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1981
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1982
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1983
scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1984
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1985
    ^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1986
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1987
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1988
selectedProcesses
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1989
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1990
    selectedProcesses isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1991
	selectedProcesses := ValueHolder new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1992
	selectedProcesses addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1993
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1994
    ^ selectedProcesses.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1995
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1996
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1997
showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1998
    "return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1999
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2000
    showDead isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2001
	showDead := false asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2002
	showDead addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2003
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2004
    ^ showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2005
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2006
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2007
sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2008
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2009
    sortBlock isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2010
	| curSortOrder defaultSortInstance|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2011
	defaultSortInstance := #idVal.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2012
	sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2013
	    ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2014
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2015
	curSortOrder := self currentSortOrder value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2016
	curSortOrder at:#column put:defaultSortInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2017
	curSortOrder at:#reverse put:true.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2018
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2019
    ^ sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2020
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2021
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2022
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2023
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2024
    tableColumns isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2025
	tableColumns := self class tableColumns asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2026
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2027
    ^ tableColumns.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2028
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2029
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2030
updateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2031
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2032
    updateContentsDelayTime isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2033
	updateContentsDelayTime := updateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2034
	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2035
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2036
    ^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2037
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2038
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2039
updateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2040
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2041
    updateListDelayTime isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2042
	updateListDelayTime := listUpdateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2043
	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2044
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2045
    ^ updateListDelayTime.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2046
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2047
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2048
!ProcessMonitorV2 methodsFor:'aspects-column'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2049
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2050
showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2051
    "return/create the 'showApplication' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2052
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2053
    showApplication isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2054
        showApplication := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2055
        showApplication onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2056
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2057
    ^ showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2058
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2059
    "Created: / 17-08-2011 / 10:46:56 / cg"
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
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2062
showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2063
    "return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2064
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2065
    showCurrentSegment isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2066
	showCurrentSegment := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2067
	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2068
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2069
    ^ showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2070
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2071
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2072
showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2073
    "return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2074
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2075
    showGroup isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2076
	showGroup := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2077
	showGroup onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2078
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2079
    ^ showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2080
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2081
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2082
showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2083
    "return/create the 'showInstrumentation' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2084
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2085
    showInstrumentation isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2086
        showInstrumentation := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2087
        showInstrumentation onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2088
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2089
    ^ showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2090
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2091
    "Created: / 17-08-2011 / 10:46:27 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2092
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2093
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2094
showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2095
    "return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2096
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2097
    showPrio isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2098
	showPrio := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2099
	showPrio onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2100
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2101
    ^ showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2102
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2103
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2104
showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2105
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2106
    showProcessId isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2107
	showProcessId := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2108
	showProcessId onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2109
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2110
    ^ showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2111
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2112
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2113
showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2114
    "return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2115
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2116
    showState isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2117
	showState := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2118
	showState onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2119
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2120
    ^ showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2121
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2122
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2123
showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2124
    "return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2125
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2126
    showSwitch isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2127
	showSwitch := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2128
	showSwitch onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2129
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2130
    ^ showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2131
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2132
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2133
showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2134
    "return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2135
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2136
    showTotalStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2137
	showTotalStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2138
	showTotalStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2139
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2140
    ^ showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2141
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2142
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2143
showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2144
    "return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2145
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2146
    showUsedStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2147
	showUsedStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2148
	showUsedStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2149
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2150
    ^ showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2151
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2152
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2153
showWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2154
    "return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2155
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2156
    showWhere isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2157
	showWhere := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2158
	showWhere onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2159
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2160
    ^ showWhere
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2161
!
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
showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2164
    "return/create the 'showWindowTitle' value holder (automatically generated)"
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
    showWindowTitle isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2167
        showWindowTitle := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2168
        showWindowTitle onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2169
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2170
    ^ showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2171
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2172
    "Created: / 17-08-2011 / 10:46:47 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2175
!ProcessMonitorV2 methodsFor:'aspects-menu enabling'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2176
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2177
allowModifications
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
    allowModifications isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2180
	allowModifications := true asValue
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
    ^ allowModifications
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2185
allowModificationsAndHasDebugger
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2186
    ^ BlockValue
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2187
        forLogical:(self allowModifications)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2188
        and:[ Debugger notNil ]
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2191
enableDecreaseContentsDelayTime
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
    enableDecreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2194
	enableDecreaseContentsDelayTime := true asValue.
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
    ^ enableDecreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2197
!
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
enableDecreaseListDelayTime
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
    enableDecreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2202
	enableDecreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2203
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2204
    ^ enableDecreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2205
!
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
enableIncreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2208
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2209
    enableIncreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2210
	enableIncreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2211
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2212
    ^ enableIncreaseContentsDelayTime.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2215
enableIncreaseListDelayTime
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
    enableIncreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2218
	enableIncreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2219
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2220
    ^ enableIncreaseListDelayTime.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2223
hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2224
    ^ self selectedProcesses value notEmptyOrNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2225
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2226
    "Modified: / 05-06-2007 / 17:43:58 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2229
hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2230
    ^ hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2231
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2232
    "Created: / 05-06-2007 / 17:41:54 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2233
!
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
hasSelectionWithApplicationProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2236
    ^ self hasSelectionWithProcessForWhich:[:p |self isApplicationProcess:p ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2237
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2238
    "Created: / 05-06-2007 / 17:50:37 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2239
!
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
hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2242
    ^ hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2243
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2244
    "Created: / 05-06-2007 / 17:50:31 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2245
!
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
hasSelectionWithDisabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2248
    InstrumentationContext isNil ifTrue:[^ false].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2249
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2250
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) isNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2251
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2252
    "Created: / 17-08-2011 / 11:42:19 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2255
hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2256
    ^ hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2257
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2258
    "Created: / 17-08-2011 / 11:49:35 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2259
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2260
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2261
hasSelectionWithEnabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2262
    InstrumentationContext isNil ifTrue:[^ false].
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
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) notNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2265
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2266
    "Created: / 17-08-2011 / 11:42:08 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2269
hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2270
    ^ hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2271
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2272
    "Created: / 17-08-2011 / 11:49:39 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2275
hasSelectionWithGUIProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2276
    ^ self hasSelectionWithProcessForWhich:[:p |p isGUIProcess ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2277
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2278
    "Created: / 05-06-2007 / 17:52:10 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2279
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2280
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2281
hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2282
    ^ hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2283
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2284
    "Created: / 05-06-2007 / 17:52:01 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2285
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2286
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2287
hasSelectionWithProcessForWhich:aBlock
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2288
    ^ self hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2289
      and:[ self selectedProcesses value contains:[:pItem |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2290
		|process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2291
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2292
		process := pItem processInstance.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2293
		process notNil and:[ aBlock value:process ]]  ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2294
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2295
    "Created: / 05-06-2007 / 17:40:27 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2296
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2297
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2298
hasSelectionWithStoppedProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2299
    ^ self hasSelectionWithProcessForWhich:[:p |p isStopped ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2300
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2301
    "Modified: / 05-06-2007 / 17:40:42 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2302
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2303
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2304
hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2305
    ^ hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2306
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2307
    "Created: / 05-06-2007 / 17:42:41 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2308
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2309
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2310
selectionRestartable
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2311
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2312
    selectionRestartable isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2313
	selectionRestartable := ValueHolder new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2314
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2315
    ^ selectionRestartable
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2316
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2317
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2318
!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2319
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2320
selectionChanged
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2321
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2322
    |hasSelection allRestartable|
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2323
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2324
    hasSelection := self hasSelection.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2325
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2326
    hasSelectionHolder value:hasSelection.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2327
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2328
    hasSelection ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2329
        self selectionRestartable value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2330
        hasSelectionWithStoppedProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2331
        hasSelectionWithApplicationProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2332
        hasSelectionWithGUIProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2333
        hasSelectionWithEnabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2334
        hasSelectionWithDisabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2335
        ^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2336
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2337
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2338
    hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2339
    hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2340
    hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2341
    hasSelectionWithEnabledInstrumentationHolder value:self hasSelectionWithEnabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2342
    hasSelectionWithDisabledInstrumentationHolder value:self hasSelectionWithDisabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2343
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2344
    allRestartable := true.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2345
    self selectedProcessesDo:[:p |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2346
        p isRestartable ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2347
            allRestartable := false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2348
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2349
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2350
    self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2351
    ^ self.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2352
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2353
    "Modified: / 17-08-2011 / 11:41:32 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2354
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2355
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2356
update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2357
    "Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2358
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2359
    "stub code automatically generated - please change as required"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2360
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2361
    changedObject == builder window ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2362
	something == #visibility ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2363
	    self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2364
	].
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2365
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2366
    changedObject == self selectedProcesses ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2367
	self selectionChanged.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2368
	^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2369
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2370
    changedObject == self showDead ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2371
	self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2372
	^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2373
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2374
    super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2375
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2376
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2377
viewedColumnsChanged
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2378
    | columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2379
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2380
    "/ remember the selected processes
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2381
    sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2382
    sel notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2383
        oldSelection := OrderedCollection new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2384
        sel do:[:proItem|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2385
            |process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2386
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2387
            (process := proItem processInstance) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2388
                oldSelection add:process
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2389
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2390
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2391
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2392
"/    Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2393
    columns := OrderedCollection new.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2394
    self class tableColumns do:[:el|
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2395
        columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2396
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2397
    buffer := columns copy.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2398
    locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2399
    currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2400
    currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2401
    buffer do:[:col |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2402
        | id |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2403
        id := col id.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2404
        id notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2405
            (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2406
                | label icon|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2407
                label := col label.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2408
                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
  2409
                col label:(LabelAndIcon label:label icon:icon).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2410
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2411
            #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2412
                ( #id             #showProcessId)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2413
                ( #group          #showGroup)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2414
                ( #prio           #showPrio)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2415
                ( #currentSegment #showCurrentSegment)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2416
                ( #state          #showState)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2417
                ( #switch         #showSwitch)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2418
                ( #totalStack     #showTotalStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2419
                ( #usedStack      #showUsedStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2420
                ( #where          #showWhere)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2421
                ( #application    #showApplication)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2422
                ( #windowTitle    #showWindowTitle)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2423
                ( #instrumentation #showInstrumentation)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2424
            ) pairsDo:[:colName :holderAccessorSelector |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2425
                (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2426
                    columns remove:col.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2427
                ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2428
            ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2429
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2430
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2431
    updateSema critical:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2432
        self tableColumns value:columns.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2433
"/        self updateTable:nil.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2434
"/        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
  2435
        self changeSelectionToProcesses:oldSelection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2436
    ].
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2437
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2438
    "Modified: / 17-08-2011 / 11:11:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2439
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2440
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2441
!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2442
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2443
processEvent:anEvent
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2444
    "filter keyboard events.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2445
     Return true, if I have eaten the event"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2446
12119
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2447
    <resource: #keyboard (#InspectIt )>
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2448
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2449
    |focusView key rawKey|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2450
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2451
    anEvent isKeyPressEvent ifTrue:[
12119
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2452
        focusView := anEvent targetView.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2453
        key := anEvent key.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2454
        rawKey := anEvent rawKey.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2455
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2456
        (focusView == processList) ifTrue:[
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2457
            key == #InspectIt ifTrue:[
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2458
                self inspectSelection.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2459
                ^ true.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2460
            ].
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2461
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2462
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2463
    ^ false
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2464
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2465
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2466
!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2467
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2468
commonPostOpen
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2469
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2470
    super commonPostOpen.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2471
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2472
    builder window addDependent:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2473
    self viewedColumnsChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2474
    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2475
    self startUpdateProcess.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2476
    self selectionChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2477
    self sortProcessListBy:#idVal.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2478
    self windowGroup addPreEventHook:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2479
!
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2480
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2481
initialize
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2482
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2483
    super initialize.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2484
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2485
    hasSelectionHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2486
    hasSelectionWithStoppedProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2487
    hasSelectionWithApplicationProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2488
    hasSelectionWithGUIProcessHolder := false asValue.
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2489
    hasSelectionWithDisabledInstrumentationHolder := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2490
    hasSelectionWithEnabledInstrumentationHolder := false asValue.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2491
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2492
    showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2493
    updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2494
    updateDelay := 0.5.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2495
    listUpdateDelay := 5.0.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2496
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2497
    "/ event mode is no longer used;
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2498
    "/ this event support may vanish
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2499
    Processor isPureEventDriven ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2500
        updateBlock := [self updateStatus:nil].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2501
        listUpdateBlock := [self updateList].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2502
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2503
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2504
    "Modified: / 17-08-2011 / 11:39:13 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2505
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2506
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2507
postBuildProcessTable:aWidget
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2508
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2509
    processTable       := aWidget scrolledView.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2510
    processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2511
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2512
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2513
release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2514
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2515
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2516
	updateBlock := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2517
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2518
    listUpdateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2519
	Processor removeTimedBlock:listUpdateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2520
	listUpdateBlock := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2521
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2522
    updateProcess notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2523
	updateProcess terminate.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2524
	updateProcess := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2525
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2526
    super release
6234
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2527
!
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2528
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2529
restarted
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2530
    "restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2531
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2532
    super restarted.
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2533
    self startUpdateProcess.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2534
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2535
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2536
!ProcessMonitorV2 methodsFor:'menu accessing'!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2537
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2538
tableMenu
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2539
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2540
    ^[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2541
	self tableMenuAccess
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2542
    ]
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2543
!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2544
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2545
tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2546
    self allowModifications value ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2547
	tableMenu isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2548
	    tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2549
	    tableMenu receiver:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2550
	    tableMenu findGuiResourcesIn:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2551
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2552
	^ tableMenu
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2553
    ].
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
  2554
    ^ nil
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2555
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2556
    "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
  2557
! !
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2558
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2559
!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2560
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2561
abortProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2562
    "abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2563
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2564
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2565
	p abort
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2566
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2567
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2568
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2569
    "Modified: / 07-06-2007 / 12:38:42 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2570
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2571
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2572
hardTerminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2573
    "hard terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2574
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2575
    self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2576
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2577
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2578
lowerPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2579
    "lower the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2580
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2581
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2582
       p priority:(p priority - 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2583
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2584
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2585
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2586
    "Modified: / 07-06-2007 / 12:38:50 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2587
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2588
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2589
openDocumentation
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2590
    "This method was generated by the Browser.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2591
     It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2592
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2593
    "/ change below as required ...
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2594
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2595
    "/ 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
  2596
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2597
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2598
    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2599
    "/ directory, and open a viewer with:
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2600
    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2601
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2602
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2603
raisePrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2604
    "raise the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2605
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2606
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2607
       p priority:(p priority + 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2608
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2609
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2610
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2611
    "Modified: / 07-06-2007 / 12:38:57 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2612
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2613
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2614
restartProcess
13775
5064cb57c8ac AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents: 12742
diff changeset
  2615
    "restarts the selected process"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2616
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2617
    self selectedProcessesDo:[:p |
13775
5064cb57c8ac AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents: 12742
diff changeset
  2618
        p restart.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2619
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2620
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2621
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2622
    "Modified: / 07-06-2007 / 12:39:04 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2623
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2624
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2625
resumeProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2626
    "resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2627
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2628
    self selectedProcessesSend:#resume
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2629
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2630
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2631
setPrioRange
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2632
    "set a prio-range the selected processes priority"
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2633
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2634
    |rangeString range|
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2635
12742
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2636
    [
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2637
        rangeString := Dialog 
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2638
                            request:'Priority Range (min to: max)'
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2639
                            initialAnswer:'7 to: 8'.
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2640
        rangeString isNil ifTrue:[
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2641
            ^ self  "aborted"
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2642
        ].
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2643
        range := Interval readFrom:rangeString onError:nil.
12742
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2644
    ] doWhile:[range isNil].
54ec064a98eb class: ProcessMonitorV2
Stefan Vogel <sv@exept.de>
parents: 12740
diff changeset
  2645
12740
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2646
    self selectedProcessesDo:[:p |
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2647
       p priorityRange:range
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2648
    ].
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2649
    self updateList.
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2650
!
18439573e87f class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12513
diff changeset
  2651
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2652
startTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2653
    Processor isTimeSlicing ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2654
        Processor startTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2655
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2656
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2657
    "Created: / 03-11-2011 / 21:26:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2658
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2659
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2660
stopProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2661
    "stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2662
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2663
    self selectedProcessesSend:#stop
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2664
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2665
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2666
stopTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2667
    Processor isTimeSlicing ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2668
        Processor stopTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2669
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2670
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2671
    "Created: / 03-11-2011 / 21:26:40 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2672
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2673
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2674
suspendProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2675
    "suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2676
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2677
    self selectedProcessesSend:#suspend
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2678
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2679
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2680
terminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2681
    "terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2682
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2683
    self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2684
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2685
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2686
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2687
terminateProcessGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2688
    "terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2689
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2690
    self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2691
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2692
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2693
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2694
!ProcessMonitorV2 methodsFor:'menu actions-application'!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2695
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2696
closeApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2697
    "close the process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2698
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2699
    self selectedApplicationTopViewsDo:[:topView | topView terminate]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2700
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2701
    "Created: / 07-06-2007 / 12:40:20 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2702
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2703
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2704
lowerApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2705
    "lower the selected process(es) topView(s)"
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
    self selectedApplicationTopViewsDo:[:topView | topView lower]
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
    "Created: / 07-06-2007 / 12:43:46 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2710
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2711
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2712
raiseApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2713
    "raise the selected process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2714
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2715
    self selectedApplicationTopViewsDo:[:topView | topView raiseDeiconified]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2716
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2717
    "Created: / 05-06-2007 / 18:37:30 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2718
    "Modified: / 07-06-2007 / 12:43:55 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2719
!
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
selectedApplicationTopViewsDo:aBlock
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2722
    self selectedProcessesDo:[:eachProcess |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2723
	|wg app topView|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2724
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2725
	wg := self windowGroupOfProcess:eachProcess.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2726
	wg notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2727
	    (topView := wg mainView) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2728
		aBlock value:topView.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2729
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2730
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2731
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2732
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2733
    "Created: / 07-06-2007 / 12:42:09 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2734
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2735
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2736
!ProcessMonitorV2 methodsFor:'menu actions-debug'!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2737
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2738
browseApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2739
    "open a browser on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2740
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2741
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2742
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2743
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2744
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2745
	    app class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2746
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2747
	    topView class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2748
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2749
   ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2750
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2751
    "Created: / 07-06-2007 / 12:48:05 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2752
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2753
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2754
debugProcess
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2755
    "open a debugger on the selected process(es)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2756
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2757
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2758
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2759
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2760
       Debugger openOn:p
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2761
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2762
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2763
    "Modified: / 07-06-2007 / 12:34:43 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2764
!
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
debugWhenResumed
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2767
    "open a debugger when the selected process(es) is resumed"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2768
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2769
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2770
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2771
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2772
       p addInterruptAction:[Debugger enter]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2773
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2774
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2775
    "Modified: / 07-06-2007 / 12:34:38 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2776
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2777
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2778
disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2779
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2780
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2781
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2782
       InstrumentationContext setInstrumentationContext:nil in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2783
    ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2784
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2785
    "Created: / 17-08-2011 / 11:50:36 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2786
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2787
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2788
enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2789
    |context|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2790
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2791
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2792
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2793
    context := InstrumentationContext new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2794
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2795
       InstrumentationContext setInstrumentationContext:context in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2796
    ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2797
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2798
    "Created: / 17-08-2011 / 11:50:12 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2799
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2800
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2801
inspectApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2802
    "open an inspector on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2803
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2804
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2805
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2806
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2807
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2808
	    app inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2809
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2810
	    topView inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2811
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2812
   ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2813
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2814
    "Modified: / 07-06-2007 / 12:46:42 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2815
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2816
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2817
inspectSelection
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2818
    "open an inspector on the selected process"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2819
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2820
    self selectedProcessesSend:#inspect
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2821
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2822
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2823
!ProcessMonitorV2 methodsFor:'private queries'!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2824
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2825
isApplicationProcess:aProcess
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2826
    ^ (self windowGroupOfProcess:aProcess) notNil.
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2827
!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2828
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2829
windowGroupOfProcess:aProcess
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2830
    WindowGroup scheduledWindowGroups
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2831
	do:[:eachGroup |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2832
	    (eachGroup process == aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2833
		eachGroup isModal ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2834
		    ^ eachGroup previousGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2835
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2836
		^ eachGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2837
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2838
	].
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2839
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2840
    ^ nil
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2841
! !
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2842
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2843
!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2844
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2845
getActiveStringFor:aProcess running:isRunning
5538
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2846
    |stateCharacter|
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2847
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2848
    isRunning ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2849
	stateCharacter := '*'.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2850
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2851
	[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2852
	    (Processor scheduledProcesses includes:aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2853
		stateCharacter := '+'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2854
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2855
		stateCharacter := ''.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2856
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2857
	] valueUninterruptably.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2858
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2859
    ^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2860
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2861
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2862
getApplicationFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2863
    |wg app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2864
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2865
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2866
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2867
        (app := wg application) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2868
            ^ app.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2869
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2870
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2871
    ^ nil.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2872
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2873
    "Created: / 17-08-2011 / 11:12:13 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2874
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2875
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2876
getApplicationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2877
    |app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2878
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2879
    (app := self getApplicationFor:aProcess) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2880
        ^ app class name.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2881
    ].
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2884
    "Created: / 17-08-2011 / 10:58:50 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2885
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2886
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2887
getCurrentSegmentStringFor:con
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2888
    | contextCount c sender|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2889
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2890
    con notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2891
        contextCount := 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2892
        c := con.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2893
        [(sender := c sender) notNil] whileTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2894
            c := sender.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2895
            contextCount := contextCount + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2896
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2897
        ^ (((ObjectMemory addressOf:con) printStringRadix:16),
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2898
           ' .. ',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2899
           ((ObjectMemory addressOf:c) printStringRadix:16)).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2900
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2901
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2902
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2903
    "Modified (format): / 17-08-2011 / 10:57:23 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2904
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2905
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2906
getGroupStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2907
    |gId|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2908
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2909
    gId := aProcess processGroupId.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2910
    ((gId == aProcess id) or:[gId isNil]) ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2911
        "/ a group leader
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2912
        ^ '-'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2913
    ] ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2914
        ^ gId.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2915
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2916
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2917
    "Modified (format): / 17-08-2011 / 10:57:33 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2918
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2919
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2920
getInstrumentationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2921
    ^ (InstrumentationContext forProcess:aProcess) isNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2922
        ifTrue:['']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2923
        ifFalse:['Y']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2924
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2925
    "Created: / 17-08-2011 / 11:04:14 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2926
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2927
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2928
getPrioStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2929
    |prioRange|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2930
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2931
    Processor supportDynamicPriorities ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2932
        (prioRange := aProcess priorityRange) isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2933
            ^ aProcess priority asString.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2934
        ] ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2935
            ^ (aProcess priority asString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2936
                    ' [',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2937
                    prioRange start printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2938
                    '..',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2939
                    prioRange stop printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2940
                    ']').
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2941
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2942
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2943
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2944
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2945
    "Modified (format): / 17-08-2011 / 10:57:36 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2946
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2947
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2948
getTotalStackStringFor:aProcess
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2949
    | tStackSize noOfSegs |
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2950
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2951
    aProcess id == 0 ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2952
        ^ 'unlimited'.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2953
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2954
    ((tStackSize := aProcess totalStackSize) notNil 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2955
    and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2956
        ^ (tStackSize printString),' (',(noOfSegs printString),')'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2957
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2958
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2959
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2960
    "Modified: / 17-08-2011 / 10:56:17 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2961
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2962
11289
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2963
getWhereContextFor:con running:isRunning
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2964
    "retrieve a reasonable description of where the process is sitting around;
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2965
     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
  2966
     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
  2967
     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
  2968
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2969
    |c found skipping rs rc r sel|
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2970
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2971
    con notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2972
        c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2973
        found := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2974
        isRunning ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2975
            "/ search for a semaphore-wait in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2976
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2977
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2978
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2979
                        (c receiver class == Semaphore) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2980
                            (sel := c selector) == #wait ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2981
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2982
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2983
                            sel == #waitWithTimeout: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2984
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2985
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2986
                            sel == #waitWithTimeoutMs: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2987
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2988
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2989
                        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2990
                        c := c sender.
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
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2994
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2995
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2996
            "/ search for a non-processor, non-process
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2997
            "/ receiver in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2998
            c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2999
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3000
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3001
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3002
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3003
                            found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3004
                        ] ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3005
                            c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3006
                        ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3007
                    ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3008
                ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3009
            ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3010
        ].
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
        "/ skip, until an interesting context is found.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3013
        "/ This skips intermediate contexts, which lead
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3014
        "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3015
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3016
            c := con
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3017
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3018
        skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3019
        [ skipping ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3020
            skipping := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3021
            (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
  3022
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3023
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3024
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3025
            (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
  3026
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3027
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3028
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3029
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3030
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3031
                    and:[ c receiver isBlock 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3032
                    and:[ ((sel := c selector) startsWith:'value')
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3033
                          or:[ sel = 'doWhile:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3034
                          or:[ sel = 'doUntil:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3035
                          or:[ sel = 'ensure:' ]]]]]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3036
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3037
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3038
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3039
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3040
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3041
                c notNil
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3042
                    and:[ c receiver == OperatingSystem 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3043
                    and:[ c selector == #unblockInterrupts ] ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3044
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3045
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3046
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3047
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3048
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3049
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3050
                    and:[ c isBlockContext ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3051
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3052
                c := c home.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3053
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3054
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3055
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3056
        c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3057
            sel := c selector.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3058
            sel isNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3059
                sel := '* unknown *'
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3060
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3061
            r := c receiver.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3062
            rc := r class.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3063
            rs := rc name.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3064
            (rc == SharedQueue
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3065
            or:[rc == RecursionLock]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3066
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3067
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3068
            ^ (rs , '>>' , sel).
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3069
        ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3070
    ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3071
    ^ ''
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3072
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3073
    "Created: / 28-02-2012 / 11:48:22 / cg"
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3074
!
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3075
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3076
getWhereStringFor:con running:isRunning
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3077
    "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
  3078
     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
  3079
     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
  3080
     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
  3081
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3082
    |c found skipping rs rc r sel|
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3083
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3084
    con notNil ifTrue:[
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3085
        c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3086
        found := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3087
        isRunning ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3088
            "/ search for a semaphore-wait in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3089
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3090
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3091
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3092
                        (c receiver class == Semaphore) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3093
                            c selector == #wait ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3094
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3095
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3096
                            c selector == #waitWithTimeout: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3097
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3098
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3099
                            c selector == #waitWithTimeoutMs: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3100
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3101
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3102
                       ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3103
                        c := c sender.
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
                ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3106
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3107
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3108
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3109
            "/ search for a non-processor, non-process
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3110
            "/ receiver in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3111
            c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3112
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3113
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3114
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3115
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3116
                            found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3117
                        ] ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3118
                            c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3119
                        ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3120
                    ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3121
                ]
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
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3124
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3125
        "/ skip, until an interesting context is found.
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3126
        "/ This skips intermediate contexts, which lead
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3127
        "/ 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
  3128
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3129
            c := con
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3130
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3131
        skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3132
        [ skipping ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3133
            skipping := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3134
            (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
  3135
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3136
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3137
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3138
            (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
  3139
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3140
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3141
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3142
            [
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3143
                c notNil 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3144
                    and:[ c receiver isBlock 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3145
                    and:[ (c selector startsWith:'value')
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3146
                          or:[ c selector = 'doWhile:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3147
                          or:[ c selector = 'doUntil:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3148
                          or:[ c selector = 'ensure:' ]]]]]
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3149
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3150
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3151
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3152
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3153
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3154
                c notNil
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3155
                    and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3156
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3157
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3158
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3159
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3160
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3161
                c notNil and:[ c isBlockContext ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3162
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3163
                c := c home.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3164
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3165
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3166
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3167
        c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3168
            sel := c selector.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3169
            sel isNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3170
                sel := '* unknown *'
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3171
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3172
            r := c receiver.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3173
            rc := r class.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3174
            rs := rc name.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3175
            (rc == SharedQueue
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3176
            or:[rc == RecursionLock]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3177
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3178
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3179
            ^ (rs , '>>' , sel).
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3180
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3181
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  3182
    ^ ''
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3183
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3184
    "Modified: / 28-02-2012 / 11:43:30 / cg"
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3185
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3186
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3187
getWindowTitleFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3188
    |wg topViews|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3189
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3190
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3191
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3192
        (topViews := wg topViews) notEmptyOrNil ifTrue:[
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3193
            ^ '"',topViews first label,'"'.
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3194
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3195
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3196
    ^ ''.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3197
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3198
    "Created: / 17-08-2011 / 11:01:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3199
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3200
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3201
!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3202
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3203
sortProcessListBy:instanceName
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3204
    "method to sort the list of BugReport"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3205
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3206
    | aSymbol isReverse cmpOp currentSortOrder|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3207
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3208
    aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3209
    isReverse := false.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3210
    currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3211
    currentSortOrder isEmpty ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3212
	currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3213
	currentSortOrder at:#reverse put:false.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3214
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3215
	(currentSortOrder at:#column) = aSymbol ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3216
	    "/ same column like before - change sort order ifReverse is true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3217
	    isReverse := currentSortOrder at:#reverse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3218
	    currentSortOrder at:#reverse put:(isReverse not).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3219
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3220
	    "/ another column - remark column
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3221
	    currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3222
	]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3223
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3224
    (currentSortOrder at:#reverse) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3225
	cmpOp := #'>'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3226
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3227
	cmpOp := #'<'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3228
    ].
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3229
    sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3230
	    |entry1 entry2|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3231
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3232
	    entry1 := (a perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3233
	    entry2 := (b perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3234
	    entry1 = entry2 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3235
		(a idVal < 0 and:[b idVal < 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3236
		    "/ two dead ones (take anything which remains constant)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3237
		    a processName ~= b processName ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3238
			a processName < b processName
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3239
		    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3240
			a processInstance identityHash < b processInstance identityHash
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3241
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3242
		] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3243
		    a idVal < b idVal
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3244
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3245
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3246
		entry1 perform:cmpOp with:entry2
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3247
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3248
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3249
   self viewedColumnsChanged.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3250
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3251
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3252
!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3253
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3254
fillItemInformationIn:processItem
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3255
    |state stateColor running con aProcess|
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
    aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3258
    aProcess isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3259
        ^ self.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3260
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3261
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3262
    processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3263
    processItem idVal:aProcess id ? -1.
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
    processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3266
    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
  3267
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3268
    processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3269
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3270
    state := aProcess state.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3271
    running := (state == #run and:[aProcess == Processor interruptedProcess]).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3272
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3273
    stateColor := (state == #run) 
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3274
                        ifTrue:[ Color green darkened ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3275
                        ifFalse:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3276
                            (state == #debug or:[state == #stopped])
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3277
                                ifTrue:[ Color red ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3278
                                ifFalse:[ Color black ]].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3279
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3280
    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
  3281
    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
  3282
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3283
"/    processItem processBlocked:(aProcess interruptsDisabled).
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3284
    processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3285
    processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3286
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3287
    processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3288
    processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3289
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3290
    con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3291
    con isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3292
        aProcess == Processor activeProcess ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3293
            con := thisContext
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3294
        ]
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3295
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3296
    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3297
        processItem processWhere:(self getWhereStringFor:con running:running).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3298
    ].
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3299
    processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3300
    processItem processSwitch:(aProcess numberOfStackBoundaryHits).
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3301
    showApplication value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3302
        processItem processApplication:(self getApplicationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3303
    ].
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3304
    showWindowTitle value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3305
        processItem processWindowTitle:(self getWindowTitleFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3306
    ].
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3307
    showInstrumentation value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3308
        processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3309
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3310
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3311
    "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
  3312
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3313
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3314
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
  3315
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3316
    processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3317
    processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3318
    self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3319
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3320
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3321
startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3322
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3323
        Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3324
        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
  3325
    ] ifFalse:[
9410
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3326
        "after a restart, updateProcess is a dead process"
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3327
        self assert:(updateProcess isNil or:[updateProcess isDead]).
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3328
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3329
        updateProcess := [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3330
            [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3331
                |id cnt myDelay|
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3332
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3333
                myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3334
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3335
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3336
                 every updateDelay (0.5), we look which process runs;
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3337
                 every half second, the status is updated.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3338
                 every listUpdateDelay (5s), the list of processes is
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3339
                 built up again
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3340
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3341
                [true] whileTrue:[
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  3342
                    myDelay delay:self scaledUpdateContentsDelayTime * 1000.
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3343
                    ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3344
                        myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3345
                        self updateStatus:nil.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3346
                    ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3347
                    myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3348
                    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3349
                ]
11522
03f5a6c8f136 changed: #startUpdateProcess use #ifCurtailed:
Stefan Vogel <sv@exept.de>
parents: 11289
diff changeset
  3350
            ] ifCurtailed:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3351
                updateProcess := nil
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3352
            ]
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3353
        ]  forkAt:(Processor userSchedulingPriority + 1).
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3354
        updateProcess name:'monitor [' ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3355
                           Processor activeProcess id printString ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3356
                           '] update'.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3357
        "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3358
         raise my own priority
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3359
        "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3360
        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
  3361
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3362
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3363
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3364
updateChangedItem:oldItem newItem:newItem atIndex:index
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3365
    | colIdx newValue |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3366
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3367
    colIdx := 1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3368
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3369
    oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3370
    oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3371
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3372
    "/ ID
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3373
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3374
    oldItem processId ~= (newValue := newItem processId) ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3375
        oldItem processId:newValue.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3376
        processTable invalidateRowAt:index colAt:colIdx.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3377
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3378
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3379
    #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3380
        ( showGroup     processGroup        processGroup: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3381
        ( true          processName         processName: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3382
        ( showInstrumentation     processInstrumentation        processInstrumentation: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3383
        ( true          processActive       processActive: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3384
        ( showState     processState        processState: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3385
        ( showPrio      processPrio         processPrio: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3386
        ( showUsedStack processUsedStack    processUsedStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3387
        ( showTotalStack processTotalStack  processTotalStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3388
        ( showCurrentSegment processCurrentSegment processCurrentSegment: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3389
        ( showSwitch    processSwitch       processSwitch: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3390
        ( showWhere     processWhere        processWhere: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3391
        ( showApplication     processApplication        processApplication: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3392
        ( showWindowTitle     processWindowTitle        processWindowTitle: )
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
    ) do:[:eachAspect |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3395
        |showHolder showHolderValue colValueGetter colValueSetter|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3396
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3397
        showHolder := eachAspect at:1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3398
        colValueGetter := eachAspect at:2.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3399
        colValueSetter := eachAspect at:3.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3400
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3401
        showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3402
        showHolderValue ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3403
            colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3404
            (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3405
                oldItem perform:colValueSetter with:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3406
                processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3407
            ].
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3408
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3409
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3410
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3411
"/    "/ GROUP
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3412
"/    self showGroup value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3413
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3414
"/        oldItem processGroup ~= (newValue := newItem processGroup) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3415
"/            oldItem processGroup:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3416
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3417
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3418
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3419
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3420
"/    "/ NAME
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3421
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3422
"/    oldItem processName ~= (newValue := newItem processName) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3423
"/        oldItem processName:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3424
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3425
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3426
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3427
"/    "/ ACTIVE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3428
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3429
"/    oldItem processActive ~= (newValue := newItem processActive) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3430
"/        oldItem processActive:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3431
"/        "/ (processTable columnAt:colIdx).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3432
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3433
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3434
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3435
"/    "/ STATE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3436
"/    showState value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3437
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3438
"/        (oldItem processState sameStringAndEmphasisAs: (newValue := newItem processState)) ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3439
"/            oldItem processState:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3440
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3441
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3442
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3443
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3444
"/    "/ PRIO
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3445
"/    showPrio value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3446
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3447
"/        oldItem processPrio ~= (newValue := newItem processPrio) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3448
"/            oldItem processPrio:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3449
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3450
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3451
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3452
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3453
"/    "/ USED STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3454
"/    showUsedStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3455
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3456
"/        oldItem processUsedStack ~= (newValue := newItem processUsedStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3457
"/            oldItem processUsedStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3458
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3459
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3460
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3461
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3462
"/    "/ TOTAL STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3463
"/    showTotalStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3464
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3465
"/        oldItem processTotalStack ~= (newValue := newItem processTotalStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3466
"/            oldItem processTotalStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3467
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3468
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3469
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3470
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3471
"/    "/ CURRENT SEGMENT
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3472
"/    showCurrentSegment value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3473
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3474
"/        oldItem processCurrentSegment ~= (newValue := newItem processCurrentSegment) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3475
"/            oldItem processCurrentSegment:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3476
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3477
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3478
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3479
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3480
"/    "/ Switch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3481
"/    showSwitch value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3482
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3483
"/        oldItem processSwitch ~= (newValue := newItem processSwitch) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3484
"/            oldItem processSwitch:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3485
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3486
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3487
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3488
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3489
"/    "/ WHERE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3490
"/    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3491
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3492
"/        oldItem processWhere ~= (newValue := newItem processWhere) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3493
"/            oldItem processWhere:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3494
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3495
"/        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3496
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3497
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3498
    "Modified: / 17-08-2011 / 11:47:01 / cg"
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3499
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3500
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3501
updateList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3502
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3503
    |newList|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3504
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3505
    processTable shown ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3506
        newList := self getProcessList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3507
        visibleBlock notNil ifTrue:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3508
            newList := newList select:visibleBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3509
        ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3510
        self updateStatus:newList.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3511
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3512
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3513
        Processor removeTimedBlock:listUpdateBlock.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3514
        Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3515
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3516
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3517
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3518
updateStatus:newProcessList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3519
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3520
    |startTime endTime deltaT|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3521
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3522
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3523
    startTime := Timestamp now.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3524
    updateSema critical:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3525
	self updateTable:newProcessList.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3526
    ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3527
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3528
    endTime := Timestamp now.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3529
    deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3530
"/    Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3531
    deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3532
	"/ 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
  3533
	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3534
	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3535
    ] ifFalse:[
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3536
"/        self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3537
"/            deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3538
"/                "/ 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
  3539
"/                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
  3540
"/                "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3541
"/            ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3542
"/        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3543
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3544
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3545
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3546
	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3547
    ]
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3548
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3549
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3550
updateTable:newProcessList
6042
1ff91f63c1b7 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6010
diff changeset
  3551
    |oldSelection newList sel diff weakProcessList|
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3552
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3553
    processTable shown ifTrue:[
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3554
"/        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
  3555
	sel := self selectedProcesses value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3556
	sel notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3557
	    oldSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3558
	    sel do:[:proItem|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3559
		proItem processInstance notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3560
		    oldSelection add:(proItem processInstance)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3561
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3562
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3563
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3564
"/            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
  3565
	newProcessList isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3566
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3567
	    processList do:[:oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3568
		| newItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3569
		(self showDead value
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3570
		 or:[oldItem processInstance notNil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3571
		     and:[oldItem processInstance isDead not]]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3572
		    newItem := oldItem copy.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3573
		    self fillItemInformationIn:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3574
		    newList add:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3575
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3576
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3577
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3578
	    "/ remove dead processes if not shown
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3579
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3580
	    weakProcessList := WeakArray withAll:newProcessList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3581
	    weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3582
		"/ in a weakarray, dead entries are 0
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3583
		(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3584
		    (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3585
			| processItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3586
			processItem := ProcessItem new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3587
			self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3588
			newList add:processItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3589
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3590
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3591
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3592
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3593
	newList sort:self sortBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3594
	newList doWithIndex:[:newItem :index|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3595
	    | oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3596
	    oldItem := processList at:index ifAbsent:nil.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3597
	    oldItem isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3598
		processList add:newItem beforeIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3599
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3600
		self updateChangedItem:oldItem newItem:newItem atIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3601
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3602
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3603
	diff := processList size - newList size.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3604
	diff > 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3605
	    processList removeLast:diff
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3606
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3607
"/            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
  3608
	self changeSelectionToProcesses:oldSelection.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3609
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3610
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3611
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3612
!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3613
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3614
groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3615
    "return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3616
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3617
    ^ groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3618
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3619
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3620
groupVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3621
    "set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3622
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3623
    groupVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3624
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3625
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3626
idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3627
    "return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3628
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3629
    ^ idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3630
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3631
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3632
idVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3633
    "set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3634
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3635
    idVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3636
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3637
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3638
prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3639
    "return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3640
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3641
    ^ prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3642
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3643
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3644
prioVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3645
    "set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3646
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3647
    prioVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3648
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3649
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3650
processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3651
    "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
  3652
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3653
    ^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3654
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3655
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3656
processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3657
    "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
  3658
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3659
    processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3660
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3661
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3662
processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3663
    ^ processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3664
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3665
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3666
processApplication:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3667
    processApplication := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3668
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3669
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3670
processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3671
    ^ processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3672
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3673
    "Created: / 18-07-2010 / 23:52:26 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3674
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3675
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3676
processBlocked:aBoolean
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3677
    processBlocked := aBoolean.
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3678
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3679
    "Created: / 18-07-2010 / 23:52:41 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3680
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3681
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3682
processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3683
    "return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3684
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3685
    ^ processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3686
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3687
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3688
processCurrentSegment:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3689
    "set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3690
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3691
    processCurrentSegment := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3692
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3693
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3694
processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3695
    "return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3696
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3697
    ^ processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3698
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3699
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3700
processGroup:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3701
    "set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3702
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3703
    processGroup := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3704
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3705
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3706
processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3707
    "return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3708
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3709
    ^ processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3710
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3711
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3712
processId:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3713
    "set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3714
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3715
    processId := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3716
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3717
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3718
processInstance
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3719
    "return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3720
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3721
    |procOrNilOrZero|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3722
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3723
    procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3724
    procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3725
    ^ procOrNilOrZero
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3726
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3727
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3728
processInstance:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3729
    "set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3730
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3731
    processInstance := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3732
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3733
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3734
processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3735
    "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
  3736
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3737
    ^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3738
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3739
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3740
processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3741
    "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
  3742
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3743
    processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3744
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3745
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3746
processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3747
    ^ processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3748
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3749
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3750
processInstrumentation:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3751
    processInstrumentation := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3752
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3753
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3754
processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3755
    "return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3756
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3757
    ^ processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3758
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3759
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3760
processName:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3761
    "set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3762
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3763
    processName := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3764
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3765
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3766
processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3767
    "return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3768
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3769
    ^ processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3770
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3771
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3772
processPrio:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3773
    processPrio := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3774
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3775
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3776
processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3777
    ^ processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3778
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3779
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3780
processState:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3781
    processState := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3782
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3783
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3784
processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3785
    ^ processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3786
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3787
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3788
processSwitch:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3789
    processSwitch := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3790
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3791
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3792
processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3793
    ^ processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3794
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3795
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3796
processTotalStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3797
    processTotalStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3798
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3799
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3800
processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3801
    ^ processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3802
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3803
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3804
processUsedStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3805
    processUsedStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3806
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3807
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3808
processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3809
    ^ processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3810
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3811
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3812
processWhere:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3813
    processWhere := something.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3814
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3815
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3816
processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3817
    ^ processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3818
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3819
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3820
processWindowTitle:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3821
    processWindowTitle := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3822
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3823
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3824
weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3825
    ^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3826
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3827
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3828
weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3829
    weakArrayWithProcesses := something.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3830
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3831
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3832
!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3833
8001
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3834
printOn:aStream
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3835
    (self processName ? '') printOn:aStream.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3836
    aStream nextPut:$[.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3837
    (self processId ? '') printOn:aStream. 
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3838
    aStream nextPut:$].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3839
! !
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3840
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3841
!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3842
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3843
version
13775
5064cb57c8ac AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents: 12742
diff changeset
  3844
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.68 2014-01-23 16:11:28 stefan Exp $'
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3845
!
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3846
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3847
version_CVS
13775
5064cb57c8ac AbortSignal -> AbortOperationRequest
Stefan Vogel <sv@exept.de>
parents: 12742
diff changeset
  3848
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.68 2014-01-23 16:11:28 stefan Exp $'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3849
! !
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  3850