ProcessMonitorV2.st
author Claus Gittinger <cg@exept.de>
Sat, 23 Mar 2013 12:38:20 +0100
changeset 12513 b1aca0771123
parent 12424 861c95eda0e4
child 12571 b2e5fdb702cb
child 12740 18439573e87f
permissions -rw-r--r--
class: ProcessMonitorV2 changed: #tableColumns
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
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1123
    "
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1124
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1125
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1126
    "
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
    <resource: #menu>
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1129
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1130
    ^
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1131
     #(Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1132
	(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1133
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1134
	    enabled: hasSelectionWithStoppedProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1135
	    label: 'Resume'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1136
	    itemValue: resumeProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1137
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1138
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1139
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1140
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1141
	    label: 'Suspend'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1142
	    itemValue: suspendProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1143
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1144
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1145
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1146
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1147
	    label: 'Stop'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1148
	    itemValue: stopProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1149
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1150
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1151
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1152
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1153
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1154
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1155
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1156
	    label: 'Abort'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1157
	    itemValue: abortProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1158
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1159
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1160
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1161
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1162
	    label: 'Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1163
	    itemValue: terminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1164
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1165
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1166
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1167
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1168
	    label: 'Hard Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1169
	    itemValue: hardTerminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1170
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1171
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1172
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1173
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1174
	    label: 'Terminate Group'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1175
	    itemValue: terminateProcessGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1176
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1177
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1178
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1179
	    enabled: selectionRestartable
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1180
	    label: 'Restart'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1181
	    itemValue: restartProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1182
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1183
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1184
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1185
	    label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1186
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1187
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1188
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1189
	    label: 'Raise Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1190
	    itemValue: raisePrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1191
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1192
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1193
	 (MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1194
	    enabled: hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1195
	    label: 'Lower Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1196
	    itemValue: lowerPrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1197
	    translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1198
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1199
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1200
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1201
	nil
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1202
      )
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1203
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1204
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1205
tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1206
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1207
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1208
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1209
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1210
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1211
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1212
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1213
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1214
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1215
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1216
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1217
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1218
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1219
    ^
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1220
     #(#Menu
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1221
	#(
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1222
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1223
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1224
	    #label: 'Debug'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1225
	    #itemValue: #debugProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1226
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1227
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1228
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1229
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1230
	    #label: 'Inspect'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1231
	    #itemValue: #inspectSelection
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1232
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1233
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1234
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1235
	    #enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1236
	    #label: 'Inspect Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1237
	    #itemValue: #inspectApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1238
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1239
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1240
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1241
	    #enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1242
	    #label: 'Browse Application'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1243
	    #itemValue: #browseApplication
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1244
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1245
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1246
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1247
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1248
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1249
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1250
	    #enabled: #hasSelectionWithStoppedProcessHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1251
	    #label: 'Resume'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1252
	    #itemValue: #resumeProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1253
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1254
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1255
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1256
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1257
	    #label: 'Suspend'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1258
	    #itemValue: #suspendProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1259
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1260
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1261
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1262
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1263
	    #label: 'Stop'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1264
	    #itemValue: #stopProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1265
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1266
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1267
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1268
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1269
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1270
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1271
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1272
	    #label: 'Abort'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1273
	    #itemValue: #abortProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1274
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1275
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1276
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1277
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1278
	    #label: 'Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1279
	    #itemValue: #terminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1280
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1281
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1282
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1283
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1284
	    #label: 'Hard Terminate'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1285
	    #itemValue: #hardTerminateProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1286
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1287
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1288
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1289
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1290
	    #label: 'Terminate Group'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1291
	    #itemValue: #terminateProcessGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1292
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1293
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1294
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1295
	    #enabled: #selectionRestartable
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1296
	    #label: 'Restart'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1297
	    #itemValue: #restartProcess
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1298
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1299
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1300
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1301
	    #label: '-'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1302
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1303
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1304
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1305
	    #label: 'Raise Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1306
	    #itemValue: #raisePrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1307
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1308
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1309
	 #(#MenuItem
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1310
	    #enabled: #hasSelectionHolder
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1311
	    #label: 'Lower Prio'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1312
	    #itemValue: #lowerPrio
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1313
	    #translateLabel: true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1314
	  )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1315
	 )
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1316
	nil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1317
	nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1318
      )
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  1319
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1320
    "Modified: / 07-06-2007 / 12:49:47 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1321
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1322
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1323
toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1324
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1325
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1326
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1327
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1328
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1329
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1330
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1331
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1332
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1333
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1334
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1335
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1336
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1337
    ^ 
6290
e093380884ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6240
diff changeset
  1338
     #(Menu
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1339
        (
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1340
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1341
            activeHelpKey: Inspect
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1342
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1343
            label: 'Inspect'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1344
            itemValue: inspectSelection
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1345
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1346
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1347
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1348
            labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1349
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1350
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1351
            activeHelpKey: Debug
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1352
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1353
            label: 'Debug'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1354
            itemValue: debugProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1355
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1356
            isButton: true
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1357
            isVisible: allowModificationsAndHasDebugger
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1358
            labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1359
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1360
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1361
            activeHelpKey: RaiseWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1362
            enabled: hasSelectionWithApplicationProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1363
            label: 'Raise Applications Window'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1364
            itemValue: raiseApplicationWindow
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1365
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1366
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1367
            labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
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
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1371
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1372
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1373
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1374
            activeHelpKey: Resume
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1375
            enabled: hasSelectionWithStoppedProcessHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1376
            label: 'Resume'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1377
            itemValue: resumeProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1378
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1379
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1380
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1381
            labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1382
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1383
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1384
            activeHelpKey: Stop
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1385
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1386
            label: 'Stop'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1387
            itemValue: stopProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1388
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1389
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1390
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1391
            labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1392
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1393
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1394
            activeHelpKey: Abort
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1395
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1396
            label: 'Abort'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1397
            itemValue: abortProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1398
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1399
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1400
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1401
            labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
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
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1405
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1406
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1407
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1408
            activeHelpKey: Terminate
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1409
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1410
            label: 'Terminate'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1411
            itemValue: terminateProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1412
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1413
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1414
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1415
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1416
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1417
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1418
            activeHelpKey: #'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1419
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1420
            label: 'Terminate Group'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1421
            itemValue: terminateProcessGroup
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1422
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1423
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1424
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1425
            labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1426
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1427
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1428
            activeHelpKey: Restart
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1429
            enabled: selectionRestartable
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1430
            label: 'Restart'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1431
            itemValue: restartProcess
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1432
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1433
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1434
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1435
            labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
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
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1438
            label: '-'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1439
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1440
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1441
         (MenuItem
7921
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1442
            activeHelpKey: #'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1443
            enabled: hasSelectionHolder
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1444
            label: 'Lower Prio'
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1445
            itemValue: lowerPrio
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1446
            translateLabel: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1447
            isButton: true
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1448
            isVisible: allowModifications
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1449
            labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1450
          )
9d681358d168 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7874
diff changeset
  1451
         (MenuItem
7863
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1452
            activeHelpKey: #'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1453
            enabled: hasSelectionHolder
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1454
            label: 'Raise Prio'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1455
            itemValue: raisePrio
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1456
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1457
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1458
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1459
            labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
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
            label: ''
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1463
            isVisible: allowModifications
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1464
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1465
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1466
            activeHelpKey: #'Update Process List'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1467
            label: 'Update'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1468
            itemValue: updateList
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1469
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1470
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1471
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1472
            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1473
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1474
         (MenuItem
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1475
            activeHelpKey: Details
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1476
            label: 'View Details'
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1477
            translateLabel: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1478
            isButton: true
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1479
            startGroup: right
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1480
            submenuChannel: viewDetailsMenuSpec
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1481
            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1482
          )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1483
         )
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1484
        nil
89f48359c0dd menu button order
Claus Gittinger <cg@exept.de>
parents: 7811
diff changeset
  1485
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1486
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1487
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1488
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1489
viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1490
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1491
     by the MenuEditor of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1492
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1493
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1494
     the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1495
11999
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1496
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1497
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1498
     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1499
     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1500
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1501
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1502
    <resource: #menu>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1503
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1504
    ^ 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1505
     #(Menu
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1506
        (
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1507
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1508
            label: 'Id'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1509
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1510
            indication: showProcessId
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1511
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1512
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1513
            label: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1514
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1515
            indication: showGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1516
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1517
         (MenuItem
11999
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1518
            label: 'Instrumentation'
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1519
            hideMenuOnActivated: false
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1520
            indication: showInstrumentation
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1521
          )
a62eb60fd1aa changed: #viewDetailsMenuSpec
Claus Gittinger <cg@exept.de>
parents: 11997
diff changeset
  1522
         (MenuItem
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1523
            label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1524
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1525
            indication: showState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1526
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1527
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1528
            label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1529
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1530
            indication: showPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1531
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1532
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1533
            label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1534
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1535
            indication: showUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1536
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1537
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1538
            label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1539
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1540
            indication: showTotalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1541
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1542
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1543
            label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1544
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1545
            indication: showCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1546
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1547
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1548
            label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1549
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1550
            indication: showSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1551
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1552
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1553
            label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1554
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1555
            indication: showWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1556
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1557
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1558
            label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1559
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1560
            indication: showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1561
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1562
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1563
            label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1564
            hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1565
            indication: showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1566
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1567
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1568
            label: '-'
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: 'Show Dead Processes'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1572
            indication: showDead
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1573
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1574
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1575
            label: '-'
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
         (MenuItem
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1578
            label: 'Update'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1579
            itemValue: updateView
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1580
          )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1581
         )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1582
        nil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1583
        nil
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1584
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1585
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1586
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1587
!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1588
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1589
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1590
    "This resource specification was automatically generated
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1591
     by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1592
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1593
    "Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1594
     the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1595
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1596
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1597
     DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1598
    "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1599
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1600
    <resource: #tableColumns>
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1601
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1602
    ^#(
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1603
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1604
         label: 'Id'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1605
         id: id
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1606
         activeHelpKeyForLabel: 'processId'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1607
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1608
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1609
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1610
         labelActionArgument: 'idVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1611
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1612
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1613
         model: processId
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1614
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1615
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1616
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1617
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1618
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1619
         label: 'Group'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1620
         id: group
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1621
         activeHelpKeyForLabel: 'processGroup'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1622
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1623
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1624
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1625
         labelActionArgument: 'groupVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1626
         width: 45
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1627
         model: processGroup
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1628
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1629
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1630
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1631
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1632
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1633
         label: 'Name'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1634
         id: name
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1635
         activeHelpKeyForLabel: 'processName'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1636
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1637
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1638
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1639
         labelActionArgument: 'processName'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1640
         width: 200
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1641
         model: processName
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1642
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1643
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1644
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1645
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1646
      (DataSetColumnSpec
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  1647
         label: 'Instr.'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1648
         id: instrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1649
         labelAlignment: left
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  1650
         width: 50
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1651
         "/ activeHelpKey: 'processInstrumentation'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1652
         activeHelpKeyForLabel: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1653
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1654
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1655
         labelActionArgument: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1656
         model: processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1657
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1658
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1659
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1660
         showColSeparator: false
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1661
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1662
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1663
         label: ''
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1664
         id: active
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1665
         "/ activeHelpKey: 'processWasActive'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1666
         activeHelpKeyForLabel: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1667
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1668
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1669
         labelActionArgument: 'processActive'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1670
         width: 10
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1671
         height: 5
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1672
         model: processActive
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1673
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1674
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1675
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1676
         showColSeparator: false
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  1677
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1678
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1679
         label: 'State'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1680
         id: state
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1681
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1682
         "/ activeHelpKey: 'processState'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1683
         activeHelpKeyForLabel: 'processState'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1684
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1685
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1686
         labelActionArgument: 'processState'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1687
         width: 100
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1688
         model: processState
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1689
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1690
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1691
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1692
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1693
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1694
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1695
         label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1696
         id: prio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1697
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1698
         "/ activeHelpKey: 'processPriority'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1699
         activeHelpKeyForLabel: 'processPriority'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1700
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1701
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1702
         labelActionArgument: 'prioVal'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1703
         width: 40
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1704
         model: processPrio
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1705
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1706
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1707
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1708
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1709
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1710
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1711
         label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1712
         id: usedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1713
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1714
         "/ activeHelpKey: 'processUsedStack'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1715
         activeHelpKeyForLabel: 'processUsedStack'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1716
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1717
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1718
         labelActionArgument: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1719
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1720
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1721
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1722
         model: processUsedStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1723
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1724
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1725
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1726
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1727
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1728
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1729
         label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1730
         id: totalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1731
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1732
         "/ activeHelpKey: 'processTotalStack'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1733
         activeHelpKeyForLabel: 'processTotalStack'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1734
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1735
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1736
         labelActionArgument: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1737
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1738
         width: 75
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1739
         model: processTotalStack
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1740
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1741
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1742
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1743
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1744
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1745
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1746
         label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1747
         id: currentSegment
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1748
         activeHelpKeyForLabel: 'processCurrentSegment'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1749
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1750
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1751
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1752
         labelActionArgument: 'processCurrentSegment'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1753
         width: 110
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1754
         model: processCurrentSegment
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1755
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1756
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1757
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1758
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1759
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1760
         label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1761
         id: switch
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1762
         activeHelpKeyForLabel: 'processSwitch'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1763
         labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1764
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1765
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1766
         labelActionArgument: 'processSwitch'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1767
         columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1768
         width: 55
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1769
         type: number
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1770
         model: processSwitch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1771
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1772
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1773
         showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1774
       )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1775
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1776
         label: 'Where'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1777
         id: where
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1778
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1779
         "/ activeHelpKey: 'processWhere'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1780
         activeHelpKeyForLabel: 'processWhere'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1781
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1782
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1783
         labelActionArgument: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1784
         model: processWhere
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1785
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1786
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1787
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1788
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1789
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1790
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1791
         label: 'Application'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1792
         id: application
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1793
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1794
         "/ activeHelpKey: 'processApplication'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1795
         activeHelpKeyForLabel: 'processApplication'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1796
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1797
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1798
         labelActionArgument: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1799
         model: processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1800
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1801
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1802
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1803
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1804
       )
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1805
      (DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1806
         label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1807
         id: windowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1808
         labelAlignment: left
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1809
         "/ activeHelpKey: 'processWindowTitle'
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  1810
         activeHelpKeyForLabel: 'processWindowTitle'
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1811
         labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1812
         labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1813
         labelActionArgument: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1814
         model: processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1815
         menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1816
         canSelect: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1817
         showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  1818
         showColSeparator: false
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1819
       )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1820
      )
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1821
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1822
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1823
!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1824
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1825
visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1826
    ^ visibleBlock
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
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1829
visibleBlock:aProcessVisibleFilterBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  1830
    visibleBlock := aProcessVisibleFilterBlock.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1831
! !
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1832
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1833
!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1834
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1835
changeSelectionTo:aSelection
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1836
    | newSelection |
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1837
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1838
    aSelection notNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1839
        newSelection := OrderedCollection new.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1840
        aSelection do:[:processItem |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1841
            | 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
            index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1844
            index ~~ 0 ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1845
                newSelection add:(processList at:index).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1846
            ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1847
        ].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  1848
        self selectedProcesses value:newSelection
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
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1851
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1852
changeSelectionToProcesses:aProcessList
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1853
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1854
    aProcessList notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1855
	| newSelection |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1856
	newSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1857
	aProcessList do:[:aProcess |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1858
	    | index |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1859
	    index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1860
	    index ~~ 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1861
		newSelection add:(processList at:index).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1862
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1863
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1864
	self selectedProcesses value:newSelection
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1865
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1866
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1867
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1868
decreaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1869
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1870
    self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime - 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1871
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1872
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1873
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1874
decreaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1875
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1876
    self updateListDelayTime value:((self scaledUpdateListDelayTime - 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1877
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1878
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1879
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1880
doubleClickedAt:anItemIndex
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1881
    "open a debugger on the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1882
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1883
    self debugProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1884
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1885
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1886
evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1887
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1888
    | contDelaySmallerListDelay |
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1889
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1890
    contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  1891
    self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1892
    self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1893
    self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1894
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1895
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1896
getProcessList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1897
    "select processes to display.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1898
     Subclasses may redefine this"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1899
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1900
    |coll|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1901
5690
024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing
Stefan Vogel <sv@exept.de>
parents: 5538
diff changeset
  1902
    self showDead value ifTrue:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1903
        coll := Process allSubInstances asOrderedCollection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1904
    ] ifFalse:[
9480
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1905
        coll := ProcessorScheduler knownProcesses asOrderedCollection.
c89920e683af changed: #getProcessList
Stefan Vogel <sv@exept.de>
parents: 9410
diff changeset
  1906
        coll add:Processor scheduler.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1907
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1908
    ^ coll
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1909
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1910
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1911
increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1912
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1913
    self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime + 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1914
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1915
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1916
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1917
increaseupdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1918
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  1919
    self updateListDelayTime value:((self scaledUpdateListDelayTime + 0.1) asFixedPoint:1).
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1920
    self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1921
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1922
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1923
selectedProcessesDo:aBlock
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  1924
    | sel proc|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1925
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1926
    sel := self selectedProcesses value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1927
    sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1928
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1929
    sel do:[:processItem |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1930
	proc := processItem processInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1931
	proc notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1932
	    aBlock value:proc.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1933
	].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1934
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1935
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1936
    "Modified: / 07-06-2007 / 12:38:25 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1937
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1938
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1939
selectedProcessesSend:aSelector
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1940
    "send a message to all selected processes"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1941
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1942
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1943
	p perform:aSelector
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1944
    ].
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1945
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  1946
    self updateList.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1947
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  1948
    "Modified: / 07-06-2007 / 12:38:29 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1949
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1950
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1951
!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1952
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1953
currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1954
    "return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1955
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1956
    currentSortOrder isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1957
	currentSortOrder := Dictionary new asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1958
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1959
    ^ currentSortOrder
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1960
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1961
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1962
isNotTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1963
    ^ self isTimeslicing not
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1964
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1965
    "Created: / 03-11-2011 / 21:26:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1966
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1967
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1968
isTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1969
    ^ Processor isTimeSlicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1970
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1971
    "Created: / 03-11-2011 / 21:25:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1972
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  1973
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1974
processList
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1975
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1976
    processList isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1977
	processList := List new.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1978
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1979
    ^ processList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1980
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1981
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1982
scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1983
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1984
    ^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1985
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1986
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1987
scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1988
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1989
    ^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1990
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  1991
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1992
selectedProcesses
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1993
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1994
    selectedProcesses isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1995
	selectedProcesses := ValueHolder new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  1996
	selectedProcesses addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1997
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1998
    ^ selectedProcesses.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  1999
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2000
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2001
showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2002
    "return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2003
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2004
    showDead isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2005
	showDead := false asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2006
	showDead addDependent:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2007
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2008
    ^ showDead
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2009
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2010
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2011
sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2012
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2013
    sortBlock isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2014
	| curSortOrder defaultSortInstance|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2015
	defaultSortInstance := #idVal.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2016
	sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2017
	    ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2018
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2019
	curSortOrder := self currentSortOrder value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2020
	curSortOrder at:#column put:defaultSortInstance.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2021
	curSortOrder at:#reverse put:true.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2022
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2023
    ^ sortBlock
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2024
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2025
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2026
tableColumns
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2027
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2028
    tableColumns isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2029
	tableColumns := self class tableColumns asValue.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2030
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2031
    ^ tableColumns.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2032
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2033
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2034
updateContentsDelayTime
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 isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2037
	updateContentsDelayTime := updateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2038
	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2039
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2040
    ^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2041
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2042
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2043
updateListDelayTime
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 isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2046
	updateListDelayTime := listUpdateDelay asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2047
	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2048
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2049
    ^ updateListDelayTime.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2050
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2051
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2052
!ProcessMonitorV2 methodsFor:'aspects-column'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2053
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2054
showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2055
    "return/create the 'showApplication' value holder (automatically generated)"
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 isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2058
        showApplication := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2059
        showApplication onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2060
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2061
    ^ showApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2062
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2063
    "Created: / 17-08-2011 / 10:46:56 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2064
!
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2065
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2066
showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2067
    "return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2068
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2069
    showCurrentSegment isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2070
	showCurrentSegment := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2071
	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2072
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2073
    ^ showCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2074
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2075
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2076
showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2077
    "return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2078
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2079
    showGroup isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2080
	showGroup := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2081
	showGroup onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2082
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2083
    ^ showGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2084
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2085
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2086
showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2087
    "return/create the 'showInstrumentation' value holder (automatically generated)"
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 isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2090
        showInstrumentation := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2091
        showInstrumentation onChangeSend:#viewedColumnsChanged to:self
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
    ^ showInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2094
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2095
    "Created: / 17-08-2011 / 10:46:27 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2096
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2097
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2098
showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2099
    "return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2100
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2101
    showPrio isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2102
	showPrio := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2103
	showPrio onChangeSend:#viewedColumnsChanged to:self.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2104
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2105
    ^ showPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2106
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2107
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2108
showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2109
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2110
    showProcessId isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2111
	showProcessId := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2112
	showProcessId onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2113
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2114
    ^ showProcessId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2115
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2116
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2117
showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2118
    "return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2119
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2120
    showState isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2121
	showState := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2122
	showState onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2123
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2124
    ^ showState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2125
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2126
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2127
showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2128
    "return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2129
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2130
    showSwitch isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2131
	showSwitch := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2132
	showSwitch onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2133
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2134
    ^ showSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2135
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2136
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2137
showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2138
    "return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2139
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2140
    showTotalStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2141
	showTotalStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2142
	showTotalStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2143
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2144
    ^ showTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2145
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2146
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2147
showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2148
    "return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2149
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2150
    showUsedStack isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2151
	showUsedStack := showDetail asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2152
	showUsedStack onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2153
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2154
    ^ showUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2155
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2156
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2157
showWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2158
    "return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2159
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2160
    showWhere isNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2161
	showWhere := true asValue.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2162
	showWhere onChangeSend:#viewedColumnsChanged to:self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2163
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2164
    ^ showWhere
10578
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2167
showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2168
    "return/create the 'showWindowTitle' value holder (automatically generated)"
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 isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2171
        showWindowTitle := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2172
        showWindowTitle onChangeSend:#viewedColumnsChanged to:self
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
    ^ showWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2175
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2176
    "Created: / 17-08-2011 / 10:46:47 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2177
! !
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
!ProcessMonitorV2 methodsFor:'aspects-menu enabling'!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2180
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2181
allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2182
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2183
    allowModifications isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2184
	allowModifications := true asValue
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2185
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2186
    ^ allowModifications
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2187
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2188
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2189
allowModificationsAndHasDebugger
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2190
    ^ BlockValue
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2191
        forLogical:(self allowModifications)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2192
        and:[ Debugger notNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2193
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2194
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2195
enableDecreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2196
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2197
    enableDecreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2198
	enableDecreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2199
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2200
    ^ enableDecreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2201
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2202
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2203
enableDecreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2204
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2205
    enableDecreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2206
	enableDecreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2207
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2208
    ^ enableDecreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2209
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2210
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2211
enableIncreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2212
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2213
    enableIncreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2214
	enableIncreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2215
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2216
    ^ enableIncreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2217
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2218
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2219
enableIncreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2220
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2221
    enableIncreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2222
	enableIncreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2223
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2224
    ^ enableIncreaseListDelayTime.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2227
hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2228
    ^ self selectedProcesses value notEmptyOrNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2229
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2230
    "Modified: / 05-06-2007 / 17:43:58 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2233
hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2234
    ^ hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2235
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2236
    "Created: / 05-06-2007 / 17:41:54 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2239
hasSelectionWithApplicationProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2240
    ^ self hasSelectionWithProcessForWhich:[:p |self isApplicationProcess:p ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2241
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2242
    "Created: / 05-06-2007 / 17:50:37 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2245
hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2246
    ^ hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2247
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2248
    "Created: / 05-06-2007 / 17:50:31 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2251
hasSelectionWithDisabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2252
    InstrumentationContext isNil ifTrue:[^ false].
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
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) isNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2255
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2256
    "Created: / 17-08-2011 / 11:42:19 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2259
hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2260
    ^ hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2261
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2262
    "Created: / 17-08-2011 / 11:49:35 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2263
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2264
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2265
hasSelectionWithEnabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2266
    InstrumentationContext isNil ifTrue:[^ false].
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
    ^ self hasSelectionWithProcessForWhich:[:p | (InstrumentationContext forProcess:p) notNil ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2269
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2270
    "Created: / 17-08-2011 / 11:42:08 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2273
hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2274
    ^ hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2275
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2276
    "Created: / 17-08-2011 / 11:49:39 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2279
hasSelectionWithGUIProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2280
    ^ self hasSelectionWithProcessForWhich:[:p |p isGUIProcess ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2281
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2282
    "Created: / 05-06-2007 / 17:52:10 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2285
hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2286
    ^ hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2287
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2288
    "Created: / 05-06-2007 / 17:52:01 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2289
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2290
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2291
hasSelectionWithProcessForWhich:aBlock
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2292
    ^ self hasSelection
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2293
      and:[ self selectedProcesses value contains:[:pItem |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2294
		|process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2295
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2296
		process := pItem processInstance.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2297
		process notNil and:[ aBlock value:process ]]  ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2298
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2299
    "Created: / 05-06-2007 / 17:40:27 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2302
hasSelectionWithStoppedProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2303
    ^ self hasSelectionWithProcessForWhich:[:p |p isStopped ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2304
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2305
    "Modified: / 05-06-2007 / 17:40:42 / cg"
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2308
hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2309
    ^ hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2310
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2311
    "Created: / 05-06-2007 / 17:42:41 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2312
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2313
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2314
selectionRestartable
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2315
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2316
    selectionRestartable isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2317
	selectionRestartable := ValueHolder new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2318
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2319
    ^ selectionRestartable
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2320
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2321
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2322
!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2323
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2324
selectionChanged
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2325
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2326
    |hasSelection allRestartable|
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 := self hasSelection.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2329
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2330
    hasSelectionHolder value:hasSelection.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2331
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2332
    hasSelection ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2333
        self selectionRestartable value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2334
        hasSelectionWithStoppedProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2335
        hasSelectionWithApplicationProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2336
        hasSelectionWithGUIProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2337
        hasSelectionWithEnabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2338
        hasSelectionWithDisabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2339
        ^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2340
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2341
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2342
    hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2343
    hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2344
    hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2345
    hasSelectionWithEnabledInstrumentationHolder value:self hasSelectionWithEnabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2346
    hasSelectionWithDisabledInstrumentationHolder value:self hasSelectionWithDisabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2347
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2348
    allRestartable := true.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2349
    self selectedProcessesDo:[:p |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2350
        p isRestartable ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2351
            allRestartable := false
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2352
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2353
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2354
    self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2355
    ^ self.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2356
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2357
    "Modified: / 17-08-2011 / 11:41:32 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2358
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2359
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2360
update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2361
    "Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2362
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2363
    "stub code automatically generated - please change as required"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2364
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2365
    changedObject == builder window ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2366
	something == #visibility ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2367
	    self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2368
	].
4565
7162b6a896e6 *** empty log message ***
penk
parents: 4561
diff changeset
  2369
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2370
    changedObject == self selectedProcesses ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2371
	self selectionChanged.
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
    changedObject == self showDead ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2375
	self updateList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2376
	^ self
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2377
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2378
    super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2379
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2380
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2381
viewedColumnsChanged
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2382
    | columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2383
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2384
    "/ remember the selected processes
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2385
    sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2386
    sel notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2387
        oldSelection := OrderedCollection new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2388
        sel do:[:proItem|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2389
            |process|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2390
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2391
            (process := proItem processInstance) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2392
                oldSelection add:process
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2393
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2394
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2395
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2396
"/    Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2397
    columns := OrderedCollection new.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2398
    self class tableColumns do:[:el|
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2399
        columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2400
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2401
    buffer := columns copy.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2402
    locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2403
    currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2404
    currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2405
    buffer do:[:col |
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2406
        | id |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2407
        id := col id.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2408
        id notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2409
            (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2410
                | label icon|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2411
                label := col label.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2412
                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
  2413
                col label:(LabelAndIcon label:label icon:icon).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2414
            ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2415
            #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2416
                ( #id             #showProcessId)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2417
                ( #group          #showGroup)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2418
                ( #prio           #showPrio)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2419
                ( #currentSegment #showCurrentSegment)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2420
                ( #state          #showState)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2421
                ( #switch         #showSwitch)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2422
                ( #totalStack     #showTotalStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2423
                ( #usedStack      #showUsedStack)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2424
                ( #where          #showWhere)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2425
                ( #application    #showApplication)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2426
                ( #windowTitle    #showWindowTitle)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2427
                ( #instrumentation #showInstrumentation)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2428
            ) pairsDo:[:colName :holderAccessorSelector |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2429
                (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2430
                    columns remove:col.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2431
                ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2432
            ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2433
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2434
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2435
    updateSema critical:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2436
        self tableColumns value:columns.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2437
"/        self updateTable:nil.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  2438
"/        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
  2439
        self changeSelectionToProcesses:oldSelection.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2440
    ].
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2441
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2442
    "Modified: / 17-08-2011 / 11:11:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2443
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2444
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2445
!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2446
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2447
processEvent:anEvent
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2448
    "filter keyboard events.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2449
     Return true, if I have eaten the event"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2450
12119
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2451
    <resource: #keyboard (#InspectIt )>
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2452
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2453
    |focusView key rawKey|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2454
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2455
    anEvent isKeyPressEvent ifTrue:[
12119
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2456
        focusView := anEvent targetView.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2457
        key := anEvent key.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2458
        rawKey := anEvent rawKey.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2459
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2460
        (focusView == processList) ifTrue:[
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2461
            key == #InspectIt ifTrue:[
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2462
                self inspectSelection.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2463
                ^ true.
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2464
            ].
b44fd76a6243 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12095
diff changeset
  2465
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2466
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2467
    ^ false
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2468
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2469
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2470
!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2471
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2472
commonPostOpen
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2473
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2474
    super commonPostOpen.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2475
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2476
    builder window addDependent:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2477
    self viewedColumnsChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2478
    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2479
    self startUpdateProcess.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2480
    self selectionChanged.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2481
    self sortProcessListBy:#idVal.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2482
    self windowGroup addPreEventHook:self.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2483
!
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2484
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2485
initialize
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2486
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2487
    super initialize.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2488
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2489
    hasSelectionHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2490
    hasSelectionWithStoppedProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2491
    hasSelectionWithApplicationProcessHolder := false asValue.
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2492
    hasSelectionWithGUIProcessHolder := false asValue.
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2493
    hasSelectionWithDisabledInstrumentationHolder := false asValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2494
    hasSelectionWithEnabledInstrumentationHolder := false asValue.
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2495
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2496
    showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2497
    updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2498
    updateDelay := 0.5.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2499
    listUpdateDelay := 5.0.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2500
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2501
    "/ event mode is no longer used;
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2502
    "/ this event support may vanish
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2503
    Processor isPureEventDriven ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2504
        updateBlock := [self updateStatus:nil].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2505
        listUpdateBlock := [self updateList].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2506
    ].
7809
ccba7bb6bfde +raise window function
Claus Gittinger <cg@exept.de>
parents: 7767
diff changeset
  2507
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2508
    "Modified: / 17-08-2011 / 11:39:13 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2509
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2510
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2511
postBuildProcessTable:aWidget
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2512
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2513
    processTable       := aWidget scrolledView.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2514
    processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2515
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2516
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2517
release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2518
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2519
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2520
	updateBlock := 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
    listUpdateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2523
	Processor removeTimedBlock:listUpdateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2524
	listUpdateBlock := 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
    updateProcess notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2527
	updateProcess terminate.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2528
	updateProcess := nil.
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2529
    ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  2530
    super release
6234
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
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2533
restarted
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2534
    "restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2535
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2536
    super restarted.
f4c3118ce840 Restart update process after snapshot restart
Stefan Vogel <sv@exept.de>
parents: 6042
diff changeset
  2537
    self startUpdateProcess.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2538
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2539
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2540
!ProcessMonitorV2 methodsFor:'menu accessing'!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2541
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2542
tableMenu
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
    ^[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2545
	self tableMenuAccess
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2546
    ]
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2547
!
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2548
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2549
tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2550
    self allowModifications value ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2551
	tableMenu isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2552
	    tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2553
	    tableMenu receiver:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2554
	    tableMenu findGuiResourcesIn:self.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2555
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2556
	^ tableMenu
4649
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2557
    ].
6239
b006c077d0a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6234
diff changeset
  2558
    ^ nil
7767
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2559
1547d2d2005c use decodeFromLiteralArray
Claus Gittinger <cg@exept.de>
parents: 7757
diff changeset
  2560
    "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
  2561
! !
37f55d741468 allow task modifications in Process Monitor can be disabled now
penk
parents: 4576
diff changeset
  2562
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2563
!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2564
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2565
abortProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2566
    "abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2567
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2568
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2569
	p abort
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2570
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2571
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2572
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2573
    "Modified: / 07-06-2007 / 12:38:42 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2574
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2575
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2576
hardTerminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2577
    "hard terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2578
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2579
    self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2580
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2581
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2582
lowerPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2583
    "lower the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2584
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2585
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2586
       p priority:(p priority - 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2587
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2588
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2589
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2590
    "Modified: / 07-06-2007 / 12:38:50 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2591
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2592
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2593
openDocumentation
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2594
    "This method was generated by the Browser.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2595
     It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2596
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2597
    "/ change below as required ...
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2598
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2599
    "/ 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
  2600
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2601
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2602
    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2603
    "/ directory, and open a viewer with:
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2604
    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2605
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2606
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2607
raisePrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2608
    "raise the selected processes priority"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2609
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2610
    self selectedProcessesDo:[:p |
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2611
       p priority:(p priority + 1)
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2612
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2613
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2614
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2615
    "Modified: / 07-06-2007 / 12:38:57 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2616
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2617
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2618
restartProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2619
    "abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2620
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2621
    self selectedProcessesDo:[:p |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2622
	p restart.
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2623
    ].
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2624
    self updateList.
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2625
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2626
    "Modified: / 07-06-2007 / 12:39:04 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2627
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2628
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2629
resumeProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2630
    "resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2631
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2632
    self selectedProcessesSend:#resume
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2633
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2634
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2635
startTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2636
    Processor isTimeSlicing ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2637
        Processor startTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2638
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2639
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2640
    "Created: / 03-11-2011 / 21:26:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2641
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2642
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2643
stopProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2644
    "stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2645
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2646
    self selectedProcessesSend:#stop
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2647
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2648
10849
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2649
stopTimeslicing
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2650
    Processor isTimeSlicing ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2651
        Processor stopTimeSlicing.
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2652
    ].
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2653
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2654
    "Created: / 03-11-2011 / 21:26:40 / cg"
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2655
!
Claus Gittinger <cg@exept.de>
parents: 10578
diff changeset
  2656
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2657
suspendProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2658
    "suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2659
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2660
    self selectedProcessesSend:#suspend
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2661
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2662
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2663
terminateProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2664
    "terminate the selected process"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2665
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2666
    self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2667
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2668
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2669
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2670
terminateProcessGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2671
    "terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2672
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2673
    self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2674
    self updateList.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2675
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2676
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2677
!ProcessMonitorV2 methodsFor:'menu actions-application'!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2678
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2679
closeApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2680
    "close the process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2681
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2682
    self selectedApplicationTopViewsDo:[:topView | topView terminate]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2683
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2684
    "Created: / 07-06-2007 / 12:40:20 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2685
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2686
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2687
lowerApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2688
    "lower the selected process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2689
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2690
    self selectedApplicationTopViewsDo:[:topView | topView lower]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2691
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2692
    "Created: / 07-06-2007 / 12:43:46 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2693
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2694
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2695
raiseApplicationWindow
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2696
    "raise the selected process(es) topView(s)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2697
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2698
    self selectedApplicationTopViewsDo:[:topView | topView raiseDeiconified]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2699
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2700
    "Created: / 05-06-2007 / 18:37:30 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2701
    "Modified: / 07-06-2007 / 12:43:55 / 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
selectedApplicationTopViewsDo:aBlock
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2705
    self selectedProcessesDo:[:eachProcess |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2706
	|wg app topView|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2707
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2708
	wg := self windowGroupOfProcess:eachProcess.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2709
	wg notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2710
	    (topView := wg mainView) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2711
		aBlock value:topView.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2712
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2713
	]
7810
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
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2716
    "Created: / 07-06-2007 / 12:42:09 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2717
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2718
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2719
!ProcessMonitorV2 methodsFor:'menu actions-debug'!
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
browseApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2722
    "open a browser on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2723
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2724
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2725
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2726
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2727
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2728
	    app class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2729
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2730
	    topView class browse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2731
	]
7810
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
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2734
    "Created: / 07-06-2007 / 12:48:05 / cg"
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
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2737
debugProcess
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2738
    "open a debugger on the selected process(es)"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2739
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2740
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2741
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2742
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2743
       Debugger openOn:p
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2744
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2745
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2746
    "Modified: / 07-06-2007 / 12:34:43 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2747
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2748
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2749
debugWhenResumed
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2750
    "open a debugger when the selected process(es) is resumed"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2751
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2752
    Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  2753
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2754
    self selectedProcessesDo:[:p |
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2755
       p addInterruptAction:[Debugger enter]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2756
    ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2757
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2758
    "Modified: / 07-06-2007 / 12:34:38 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2759
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2760
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2761
disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2762
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2763
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2764
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2765
       InstrumentationContext setInstrumentationContext:nil in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2766
    ]
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2767
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2768
    "Created: / 17-08-2011 / 11:50:36 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2769
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2770
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2771
enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2772
    |context|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2773
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2774
    InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2775
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2776
    context := InstrumentationContext new.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2777
    self selectedProcessesDo:[:p |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2778
       InstrumentationContext setInstrumentationContext:context in:p
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2779
    ]
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
    "Created: / 17-08-2011 / 11:50:12 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2782
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2783
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2784
inspectApplication
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2785
    "open an inspector on the selected process(es) application or topView"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2786
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2787
    self selectedApplicationTopViewsDo:[:topView |
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2788
	|app|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2789
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2790
	(app := topView application) notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2791
	    app inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2792
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2793
	    topView inspect.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2794
	]
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2795
   ]
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2796
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2797
    "Modified: / 07-06-2007 / 12:46:42 / cg"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2798
!
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2799
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2800
inspectSelection
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2801
    "open an inspector on the selected process"
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2802
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2803
    self selectedProcessesSend:#inspect
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2804
! !
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  2805
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2806
!ProcessMonitorV2 methodsFor:'private queries'!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2807
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2808
isApplicationProcess:aProcess
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2809
    ^ (self windowGroupOfProcess:aProcess) notNil.
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2810
!
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2811
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2812
windowGroupOfProcess:aProcess
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2813
    WindowGroup scheduledWindowGroups
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2814
	do:[:eachGroup |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2815
	    (eachGroup process == aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2816
		eachGroup isModal ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2817
		    ^ eachGroup previousGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2818
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2819
		^ eachGroup
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2820
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2821
	].
6609
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2822
8c68fe4eba22 +inspect application
Claus Gittinger <cg@exept.de>
parents: 6427
diff changeset
  2823
    ^ nil
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
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2826
!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2827
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2828
getActiveStringFor:aProcess running:isRunning
5538
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2829
    |stateCharacter|
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2830
d004f232b1df cosmetics
Stefan Vogel <sv@exept.de>
parents: 5047
diff changeset
  2831
    isRunning ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2832
	stateCharacter := '*'.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2833
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2834
	[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2835
	    (Processor scheduledProcesses includes:aProcess) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2836
		stateCharacter := '+'
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2837
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2838
		stateCharacter := ''.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2839
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  2840
	] valueUninterruptably.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2841
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2842
    ^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2843
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  2844
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2845
getApplicationFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2846
    |wg app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2847
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2848
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2849
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2850
        (app := wg application) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2851
            ^ app.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2852
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2853
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2854
    ^ nil.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2855
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2856
    "Created: / 17-08-2011 / 11:12:13 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2857
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2858
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2859
getApplicationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2860
    |app|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2861
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2862
    (app := self getApplicationFor:aProcess) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2863
        ^ app class name.
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
    ^ ''.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2866
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2867
    "Created: / 17-08-2011 / 10:58:50 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2868
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2869
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2870
getCurrentSegmentStringFor:con
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2871
    | contextCount c sender|
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2872
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2873
    con notNil ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2874
        contextCount := 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2875
        c := con.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2876
        [(sender := c sender) notNil] whileTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2877
            c := sender.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2878
            contextCount := contextCount + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2879
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2880
        ^ (((ObjectMemory addressOf:con) printStringRadix:16),
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
           ((ObjectMemory addressOf:c) printStringRadix:16)).
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2883
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2884
    ^ ''
10578
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
    "Modified (format): / 17-08-2011 / 10:57:23 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2887
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2888
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2889
getGroupStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2890
    |gId|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2891
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2892
    gId := aProcess processGroupId.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2893
    ((gId == aProcess id) or:[gId isNil]) ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2894
        "/ a group leader
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2895
        ^ '-'.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2896
    ] ifFalse:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2897
        ^ gId.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2898
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2899
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2900
    "Modified (format): / 17-08-2011 / 10:57:33 / cg"
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2901
!
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
getInstrumentationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2904
    ^ (InstrumentationContext forProcess:aProcess) isNil
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2905
        ifTrue:['']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2906
        ifFalse:['Y']
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2907
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2908
    "Created: / 17-08-2011 / 11:04:14 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2909
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2910
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2911
getPrioStringFor:aProcess
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2912
    |prioRange|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2913
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2914
    Processor supportDynamicPriorities ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2915
        (prioRange := aProcess priorityRange) isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2916
            ^ aProcess priority asString.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2917
        ] ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2918
            ^ (aProcess priority asString,
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
                    prioRange start printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2921
                    '..',
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2922
                    prioRange stop printString,
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2923
                    ']').
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2924
        ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2925
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2926
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2927
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2928
    "Modified (format): / 17-08-2011 / 10:57:36 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2929
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2930
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2931
getTotalStackStringFor:aProcess
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2932
    | tStackSize noOfSegs |
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2933
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2934
    aProcess id == 0 ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2935
        ^ 'unlimited'.
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
    ((tStackSize := aProcess totalStackSize) notNil 
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2938
    and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2939
        ^ (tStackSize printString),' (',(noOfSegs printString),')'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2940
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  2941
    ^ ''
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2942
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  2943
    "Modified: / 17-08-2011 / 10:56:17 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2944
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  2945
11289
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2946
getWhereContextFor:con running:isRunning
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2947
    "retrieve a reasonable description of where the process is sitting around;
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2948
     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
  2949
     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
  2950
     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
  2951
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2952
    |c found skipping rs rc r sel|
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2953
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2954
    con notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2955
        c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2956
        found := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2957
        isRunning ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2958
            "/ search for a semaphore-wait in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2959
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2960
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2961
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2962
                        (c receiver class == Semaphore) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2963
                            (sel := c selector) == #wait ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2964
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2965
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2966
                            sel == #waitWithTimeout: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2967
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2968
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2969
                            sel == #waitWithTimeoutMs: ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2970
                                found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2971
                            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2972
                        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2973
                        c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2974
                    ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2975
                ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2976
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2977
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2978
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2979
            "/ search for a non-processor, non-process
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2980
            "/ receiver in the top 10 contexts
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2981
            c := con.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2982
            1 to:10 do:[:n |
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2983
                found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2984
                    c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2985
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2986
                            found := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2987
                        ] ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2988
                            c := c sender.
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
                    ]
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
        "/ skip, until an interesting context is found.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2996
        "/ This skips intermediate contexts, which lead
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2997
        "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2998
        found ifFalse:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  2999
            c := con
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3000
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3001
        skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3002
        [ skipping ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3003
            skipping := false.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3004
            (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
  3005
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3006
                skipping := true.
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
            (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
  3009
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3010
                skipping := true.
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
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3013
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3014
                    and:[ c receiver isBlock 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3015
                    and:[ ((sel := c selector) startsWith:'value')
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3016
                          or:[ sel = 'doWhile:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3017
                          or:[ sel = 'doUntil:' 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3018
                          or:[ sel = 'ensure:' ]]]]]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3019
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3020
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3021
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3022
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3023
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3024
                c notNil
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3025
                    and:[ c receiver == OperatingSystem 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3026
                    and:[ c selector == #unblockInterrupts ] ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3027
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3028
                c := c sender.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3029
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3030
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3031
            [
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3032
                c notNil 
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3033
                    and:[ c isBlockContext ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3034
            ] whileTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3035
                c := c home.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3036
                skipping := true.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3037
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3038
        ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3039
        c notNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3040
            sel := c selector.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3041
            sel isNil ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3042
                sel := '* unknown *'
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3043
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3044
            r := c receiver.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3045
            rc := r class.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3046
            rs := rc name.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3047
            (rc == SharedQueue
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3048
            or:[rc == RecursionLock]) ifTrue:[
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3049
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3050
            ].
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3051
            ^ (rs , '>>' , sel).
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3052
        ]
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3053
    ].
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
    "Created: / 28-02-2012 / 11:48:22 / cg"
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3057
!
2c2c4a0ec060 added: #getWhereContextFor:running:
Claus Gittinger <cg@exept.de>
parents: 11288
diff changeset
  3058
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3059
getWhereStringFor:con running:isRunning
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3060
    "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
  3061
     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
  3062
     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
  3063
     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
  3064
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3065
    |c found skipping rs rc r sel|
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3066
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3067
    con notNil ifTrue:[
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3068
        c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3069
        found := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3070
        isRunning ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3071
            "/ search for a semaphore-wait in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3072
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3073
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3074
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3075
                        (c receiver class == Semaphore) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3076
                            c selector == #wait ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3077
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3078
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3079
                            c selector == #waitWithTimeout: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3080
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3081
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3082
                            c selector == #waitWithTimeoutMs: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3083
                                found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3084
                            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3085
                       ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3086
                        c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3087
                    ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3088
                ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3089
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3090
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3091
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3092
            "/ search for a non-processor, non-process
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3093
            "/ receiver in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3094
            c := con.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3095
            1 to:10 do:[:n |
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3096
                found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3097
                    c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3098
                        ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3099
                            found := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3100
                        ] ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3101
                            c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3102
                        ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3103
                    ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3104
                ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3105
            ]
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
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3108
        "/ skip, until an interesting context is found.
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3109
        "/ This skips intermediate contexts, which lead
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3110
        "/ 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
  3111
        found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3112
            c := con
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3113
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3114
        skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3115
        [ skipping ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3116
            skipping := false.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3117
            (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
  3118
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3119
                skipping := true.
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
            (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
  3122
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3123
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3124
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3125
            [
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3126
                c notNil 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3127
                    and:[ c receiver isBlock 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3128
                    and:[ (c selector startsWith:'value')
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3129
                          or:[ c selector = 'doWhile:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3130
                          or:[ c selector = 'doUntil:' 
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3131
                          or:[ c selector = 'ensure:' ]]]]]
9661
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3132
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3133
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3134
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3135
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3136
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3137
                c notNil
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3138
                    and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3139
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3140
                c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3141
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3142
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3143
            [
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3144
                c notNil and:[ c isBlockContext ]
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3145
            ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3146
                c := c home.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3147
                skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3148
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3149
        ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3150
        c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3151
            sel := c selector.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3152
            sel isNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3153
                sel := '* unknown *'
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3154
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3155
            r := c receiver.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3156
            rc := r class.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3157
            rs := rc name.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3158
            (rc == SharedQueue
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3159
            or:[rc == RecursionLock]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3160
                rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3161
            ].
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3162
            ^ (rs , '>>' , sel).
947e86d2fc7f changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 9526
diff changeset
  3163
        ]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3164
    ].
4504
e07fb8560de3 *** empty log message ***
penk
parents: 4502
diff changeset
  3165
    ^ ''
7810
881d8fda730f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7809
diff changeset
  3166
11288
a9e5e329714c changed: #getWhereStringFor:running:
Claus Gittinger <cg@exept.de>
parents: 10849
diff changeset
  3167
    "Modified: / 28-02-2012 / 11:43:30 / cg"
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3168
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3169
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3170
getWindowTitleFor:aProcess
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3171
    |wg topViews|
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3172
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3173
    wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3174
    wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3175
        (topViews := wg topViews) notEmptyOrNil ifTrue:[
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3176
            ^ '"',topViews first label,'"'.
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3177
        ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3178
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3179
    ^ ''.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3180
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3181
    "Created: / 17-08-2011 / 11:01:21 / cg"
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3182
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3183
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3184
!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3185
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3186
sortProcessListBy:instanceName
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3187
    "method to sort the list of BugReport"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3188
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3189
    | aSymbol isReverse cmpOp currentSortOrder|
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3190
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3191
    aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3192
    isReverse := false.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3193
    currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3194
    currentSortOrder isEmpty ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3195
	currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3196
	currentSortOrder at:#reverse put:false.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3197
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3198
	(currentSortOrder at:#column) = aSymbol ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3199
	    "/ same column like before - change sort order ifReverse is true
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3200
	    isReverse := currentSortOrder at:#reverse.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3201
	    currentSortOrder at:#reverse put:(isReverse not).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3202
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3203
	    "/ another column - remark column
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3204
	    currentSortOrder at:#column put:aSymbol.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3205
	]
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3206
    ].
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3207
    (currentSortOrder at:#reverse) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3208
	cmpOp := #'>'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3209
    ] ifFalse:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3210
	cmpOp := #'<'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3211
    ].
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3212
    sortBlock := [:a :b |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3213
	    |entry1 entry2|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3214
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3215
	    entry1 := (a perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3216
	    entry2 := (b perform:aSymbol) ? 0.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3217
	    entry1 = entry2 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3218
		(a idVal < 0 and:[b idVal < 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3219
		    "/ two dead ones (take anything which remains constant)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3220
		    a processName ~= b processName ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3221
			a processName < b processName
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3222
		    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3223
			a processInstance identityHash < b processInstance identityHash
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3224
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3225
		] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3226
		    a idVal < b idVal
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3227
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3228
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3229
		entry1 perform:cmpOp with:entry2
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3230
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3231
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3232
   self viewedColumnsChanged.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3233
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3234
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3235
!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3236
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3237
fillItemInformationIn:processItem
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3238
    |state stateColor running con aProcess|
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3239
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3240
    aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3241
    aProcess isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3242
        ^ self.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3243
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3244
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3245
    processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3246
    processItem idVal:aProcess id ? -1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3247
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3248
    processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3249
    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
  3250
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3251
    processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3252
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3253
    state := aProcess state.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3254
    running := (state == #run and:[aProcess == Processor interruptedProcess]).
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3255
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3256
    stateColor := (state == #run) 
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3257
                        ifTrue:[ Color green darkened ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3258
                        ifFalse:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3259
                            (state == #debug or:[state == #stopped])
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3260
                                ifTrue:[ Color red ]
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3261
                                ifFalse:[ Color black ]].
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3262
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3263
    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
  3264
    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
  3265
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3266
"/    processItem processBlocked:(aProcess interruptsDisabled).
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3267
    processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3268
    processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3269
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3270
    processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3271
    processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3272
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3273
    con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3274
    con isNil ifTrue:[
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3275
        aProcess == Processor activeProcess ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3276
            con := thisContext
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3277
        ]
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3278
    ].
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3279
    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3280
        processItem processWhere:(self getWhereStringFor:con running:running).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3281
    ].
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3282
    processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3283
    processItem processSwitch:(aProcess numberOfStackBoundaryHits).
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3284
    showApplication value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3285
        processItem processApplication:(self getApplicationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3286
    ].
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3287
    showWindowTitle value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3288
        processItem processWindowTitle:(self getWindowTitleFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3289
    ].
11997
e332775e9182 changed:
Claus Gittinger <cg@exept.de>
parents: 11522
diff changeset
  3290
    showInstrumentation value ifTrue:[
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3291
        processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3292
    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3293
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3294
    "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
  3295
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3296
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3297
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
  3298
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3299
    processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3300
    processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3301
    self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3302
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3303
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3304
startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3305
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3306
        Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3307
        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
  3308
    ] ifFalse:[
9410
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3309
        "after a restart, updateProcess is a dead process"
4cf82538c97e changed: #startUpdateProcess
Stefan Vogel <sv@exept.de>
parents: 9293
diff changeset
  3310
        self assert:(updateProcess isNil or:[updateProcess isDead]).
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3311
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3312
        updateProcess := [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3313
            [
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3314
                |id cnt myDelay|
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3315
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3316
                myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3317
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3318
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3319
                 every updateDelay (0.5), we look which process runs;
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3320
                 every half second, the status is updated.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3321
                 every listUpdateDelay (5s), the list of processes is
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3322
                 built up again
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3323
                "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3324
                [true] whileTrue:[
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  3325
                    myDelay delay:self scaledUpdateContentsDelayTime * 1000.
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3326
                    ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3327
                        myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3328
                        self updateStatus:nil.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3329
                    ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3330
                    myDelay wait.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3331
                    self updateList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3332
                ]
11522
03f5a6c8f136 changed: #startUpdateProcess use #ifCurtailed:
Stefan Vogel <sv@exept.de>
parents: 11289
diff changeset
  3333
            ] ifCurtailed:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3334
                updateProcess := nil
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
        ]  forkAt:(Processor userSchedulingPriority + 1).
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3337
        updateProcess name:'monitor [' ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3338
                           Processor activeProcess id printString ,
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3339
                           '] update'.
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
         raise my own priority
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3342
        "
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3343
        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
  3344
    ].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3345
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3346
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3347
updateChangedItem:oldItem newItem:newItem atIndex:index
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3348
    | colIdx newValue |
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3349
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3350
    colIdx := 1.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3351
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3352
    oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3353
    oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3354
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3355
    "/ ID
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3356
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3357
    oldItem processId ~= (newValue := newItem processId) ifTrue:[
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3358
        oldItem processId:newValue.
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3359
        processTable invalidateRowAt:index colAt:colIdx.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3360
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3361
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3362
    #(
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3363
        ( showGroup     processGroup        processGroup: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3364
        ( true          processName         processName: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3365
        ( showInstrumentation     processInstrumentation        processInstrumentation: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3366
        ( true          processActive       processActive: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3367
        ( showState     processState        processState: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3368
        ( showPrio      processPrio         processPrio: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3369
        ( showUsedStack processUsedStack    processUsedStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3370
        ( showTotalStack processTotalStack  processTotalStack: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3371
        ( showCurrentSegment processCurrentSegment processCurrentSegment: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3372
        ( showSwitch    processSwitch       processSwitch: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3373
        ( showWhere     processWhere        processWhere: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3374
        ( showApplication     processApplication        processApplication: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3375
        ( showWindowTitle     processWindowTitle        processWindowTitle: )
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3376
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3377
    ) do:[:eachAspect |
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3378
        |showHolder showHolderValue colValueGetter colValueSetter|
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
        showHolder := eachAspect at:1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3381
        colValueGetter := eachAspect at:2.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3382
        colValueSetter := eachAspect at:3.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3383
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3384
        showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3385
        showHolderValue ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3386
            colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3387
            (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3388
                oldItem perform:colValueSetter with:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3389
                processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3390
            ].
8408
d4725dafc068 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8195
diff changeset
  3391
        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3392
    ].
7757
935e3e45cca4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7466
diff changeset
  3393
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3394
"/    "/ GROUP
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3395
"/    self showGroup value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3396
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3397
"/        oldItem processGroup ~= (newValue := newItem processGroup) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3398
"/            oldItem processGroup:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3399
"/            processTable invalidateRowAt:index colAt:colIdx.
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
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3402
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3403
"/    "/ NAME
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3404
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3405
"/    oldItem processName ~= (newValue := newItem processName) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3406
"/        oldItem processName:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3407
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3408
"/    ].
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3409
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3410
"/    "/ ACTIVE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3411
"/    colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3412
"/    oldItem processActive ~= (newValue := newItem processActive) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3413
"/        oldItem processActive:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3414
"/        "/ (processTable columnAt:colIdx).
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3415
"/        processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3416
"/    ].
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
"/    "/ STATE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3419
"/    showState value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3420
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3421
"/        (oldItem processState sameStringAndEmphasisAs: (newValue := newItem processState)) ifFalse:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3422
"/            oldItem processState:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3423
"/            processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3424
"/        ].
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
"/    "/ PRIO
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3428
"/    showPrio value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3429
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3430
"/        oldItem processPrio ~= (newValue := newItem processPrio) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3431
"/            oldItem processPrio:newValue.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3436
"/    "/ USED STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3437
"/    showUsedStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3438
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3439
"/        oldItem processUsedStack ~= (newValue := newItem processUsedStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3440
"/            oldItem processUsedStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3441
"/            processTable invalidateRowAt:index colAt:colIdx.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3445
"/    "/ TOTAL STACK
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3446
"/    showTotalStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3447
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3448
"/        oldItem processTotalStack ~= (newValue := newItem processTotalStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3449
"/            oldItem processTotalStack:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3450
"/            processTable invalidateRowAt:index colAt:colIdx.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3454
"/    "/ CURRENT SEGMENT
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3455
"/    showCurrentSegment value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3456
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3457
"/        oldItem processCurrentSegment ~= (newValue := newItem processCurrentSegment) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3458
"/            oldItem processCurrentSegment:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3459
"/            processTable invalidateRowAt:index colAt:colIdx.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3463
"/    "/ Switch
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3464
"/    showSwitch value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3465
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3466
"/        oldItem processSwitch ~= (newValue := newItem processSwitch) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3467
"/            oldItem processSwitch:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3468
"/            processTable invalidateRowAt:index colAt:colIdx.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3472
"/    "/ WHERE
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3473
"/    showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3474
"/        colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3475
"/        oldItem processWhere ~= (newValue := newItem processWhere) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3476
"/            oldItem processWhere:newValue.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3477
"/            processTable invalidateRowAt:index colAt:colIdx.
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
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3481
    "Modified: / 17-08-2011 / 11:47:01 / cg"
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3482
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3483
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3484
updateList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3485
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3486
    |newList|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3487
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3488
    processTable shown ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3489
        newList := self getProcessList.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3490
        visibleBlock notNil ifTrue:[
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3491
            newList := newList select:visibleBlock
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3492
        ].
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3493
        self updateStatus:newList.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3494
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3495
    updateBlock notNil ifTrue:[
8651
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3496
        Processor removeTimedBlock:listUpdateBlock.
56eb7da15507 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8408
diff changeset
  3497
        Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3498
    ].
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
updateStatus:newProcessList
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3502
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3503
    |startTime endTime deltaT|
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3504
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3505
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3506
    startTime := Timestamp now.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3507
    updateSema critical:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3508
	self updateTable:newProcessList.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3509
    ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3510
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3511
    endTime := Timestamp now.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3512
    deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3513
"/    Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3514
    deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3515
	"/ 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
  3516
	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3517
	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3518
    ] ifFalse:[
4570
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3519
"/        self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3520
"/            deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3521
"/                "/ 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
  3522
"/                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
  3523
"/                "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3524
"/            ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes
penk
parents: 4568
diff changeset
  3525
"/        ].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3526
    ].
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3527
    updateBlock notNil ifTrue:[
7811
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3528
	Processor removeTimedBlock:updateBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3529
	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3530
    ]
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3531
!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3532
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3533
updateTable:newProcessList
6042
1ff91f63c1b7 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6010
diff changeset
  3534
    |oldSelection newList sel diff weakProcessList|
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3535
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3536
    processTable shown ifTrue:[
5783
5ce97d85326d Rename AbsoluteTime to Timestamp
Stefan Vogel <sv@exept.de>
parents: 5764
diff changeset
  3537
"/        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
  3538
	sel := self selectedProcesses value.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3539
	sel notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3540
	    oldSelection := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3541
	    sel do:[:proItem|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3542
		proItem processInstance notNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3543
		    oldSelection add:(proItem processInstance)
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3544
		].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3545
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3546
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3547
"/            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
  3548
	newProcessList isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3549
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3550
	    processList do:[:oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3551
		| newItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3552
		(self showDead value
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3553
		 or:[oldItem processInstance notNil
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3554
		     and:[oldItem processInstance isDead not]]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3555
		    newItem := oldItem copy.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3556
		    self fillItemInformationIn:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3557
		    newList add:newItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3558
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3559
	    ].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3560
	] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3561
	    "/ remove dead processes if not shown
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3562
	    newList := OrderedCollection new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3563
	    weakProcessList := WeakArray withAll:newProcessList.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3564
	    weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3565
		"/ in a weakarray, dead entries are 0
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3566
		(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3567
		    (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3568
			| processItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3569
			processItem := ProcessItem new.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3570
			self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3571
			newList add:processItem.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3572
		    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3573
		]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3574
	    ].
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
	newList sort:self sortBlock.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3577
	newList doWithIndex:[:newItem :index|
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3578
	    | oldItem |
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3579
	    oldItem := processList at:index ifAbsent:nil.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3580
	    oldItem isNil ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3581
		processList add:newItem beforeIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3582
	    ] ifFalse:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3583
		self updateChangedItem:oldItem newItem:newItem atIndex:index
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3584
	    ]
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3585
	].
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3586
	diff := processList size - newList size.
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3587
	diff > 0 ifTrue:[
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3588
	    processList removeLast:diff
9d5855023789 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7810
diff changeset
  3589
	].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3590
"/            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
  3591
	self changeSelectionToProcesses:oldSelection.
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3592
    ].
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3593
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3594
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3595
!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3596
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3597
groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3598
    "return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3599
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3600
    ^ groupVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3601
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3602
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3603
groupVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3604
    "set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3605
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3606
    groupVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3607
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3608
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3609
idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3610
    "return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3611
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3612
    ^ idVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3613
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3614
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3615
idVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3616
    "set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3617
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3618
    idVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3619
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3620
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3621
prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3622
    "return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3623
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3624
    ^ prioVal
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3625
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3626
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3627
prioVal:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3628
    "set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3629
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3630
    prioVal := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3631
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3632
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3633
processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3634
    "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
  3635
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3636
    ^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3637
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3638
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3639
processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3640
    "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
  3641
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3642
    processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3643
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3644
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3645
processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3646
    ^ processApplication
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3647
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3648
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3649
processApplication:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3650
    processApplication := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3651
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3652
9526
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3653
processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3654
    ^ processBlocked
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3655
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3656
    "Created: / 18-07-2010 / 23:52:26 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3657
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3658
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3659
processBlocked:aBoolean
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3660
    processBlocked := aBoolean.
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3661
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3662
    "Created: / 18-07-2010 / 23:52:41 / cg"
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3663
!
2825b947679d comment/format in: #fillItemInformationIn:
Claus Gittinger <cg@exept.de>
parents: 9480
diff changeset
  3664
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3665
processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3666
    "return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3667
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3668
    ^ processCurrentSegment
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3669
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3670
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3671
processCurrentSegment:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3672
    "set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3673
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3674
    processCurrentSegment := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3675
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3676
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3677
processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3678
    "return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3679
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3680
    ^ processGroup
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3681
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3682
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3683
processGroup:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3684
    "set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3685
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3686
    processGroup := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3687
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3688
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3689
processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3690
    "return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3691
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3692
    ^ processId
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3693
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3694
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3695
processId:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3696
    "set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3697
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3698
    processId := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3699
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3700
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3701
processInstance
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3702
    "return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3703
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3704
    |procOrNilOrZero|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3705
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3706
    procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3707
    procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3708
    ^ procOrNilOrZero
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3709
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3710
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3711
processInstance:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3712
    "set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3713
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3714
    processInstance := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3715
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3716
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3717
processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3718
    "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
  3719
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3720
    ^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3721
!
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
processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3724
    "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
  3725
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3726
    processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3727
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3728
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3729
processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3730
    ^ processInstrumentation
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3731
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3732
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3733
processInstrumentation:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3734
    processInstrumentation := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3735
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3736
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3737
processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3738
    "return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3739
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3740
    ^ processName
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3741
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3742
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3743
processName:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3744
    "set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3745
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3746
    processName := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3747
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3748
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3749
processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3750
    "return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3751
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3752
    ^ processPrio
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3753
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3754
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3755
processPrio:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3756
    processPrio := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3757
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3758
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3759
processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3760
    ^ processState
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3761
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3762
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3763
processState:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3764
    processState := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3765
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3766
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3767
processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3768
    ^ processSwitch
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3769
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3770
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3771
processSwitch:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3772
    processSwitch := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3773
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3774
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3775
processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3776
    ^ processTotalStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3777
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3778
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3779
processTotalStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3780
    processTotalStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3781
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3782
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3783
processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3784
    ^ processUsedStack
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3785
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3786
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3787
processUsedStack:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3788
    processUsedStack := something.
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3789
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3790
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3791
processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3792
    ^ processWhere
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3793
!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3794
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3795
processWhere:something
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3796
    processWhere := something.
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3797
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3798
10578
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3799
processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3800
    ^ processWindowTitle
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3801
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3802
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3803
processWindowTitle:something
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3804
    processWindowTitle := something.
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3805
!
2ca84430d4a2 more view options + instrumentation menu
Claus Gittinger <cg@exept.de>
parents: 9807
diff changeset
  3806
4576
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3807
weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3808
    ^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3809
!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3810
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3811
weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in
penk
parents: 4570
diff changeset
  3812
    weakArrayWithProcesses := something.
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3813
! !
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3814
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3815
!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3816
8001
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3817
printOn:aStream
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3818
    (self processName ? '') printOn:aStream.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3819
    aStream nextPut:$[.
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3820
    (self processId ? '') printOn:aStream. 
07add94fd83b Define #printOn: for each method defining #printString
Stefan Vogel <sv@exept.de>
parents: 7921
diff changeset
  3821
    aStream nextPut:$].
4498
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3822
! !
fcebf25e6033 next stage for process monitor
penk
parents: 4468
diff changeset
  3823
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3824
!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3825
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3826
version
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  3827
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.65 2013-03-23 11:38:20 cg Exp $'
9035
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3828
!
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3829
90950862113a no need for #asText to emphasize a string
Claus Gittinger <cg@exept.de>
parents: 8652
diff changeset
  3830
version_CVS
12513
b1aca0771123 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 12424
diff changeset
  3831
    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.65 2013-03-23 11:38:20 cg Exp $'
4463
99d11fbee2af initial checkin
penk
parents:
diff changeset
  3832
! !
12095
f6e617086f54 class: ProcessMonitorV2
Claus Gittinger <cg@exept.de>
parents: 11999
diff changeset
  3833