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