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