"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2003 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#ProcessMonitorV2

	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail

		hasSelectionHolder showProcessId showGroup showState showPrio

		showUsedStack showTotalStack showCurrentSegment showSwitch

		showWhere showInstrumentation showApplication showWindowTitle

		currentSortOrder processTable showDeadHolder sortBlock

		selectionRestartable updateListDelayTimeHolder

		updateContentsDelayTimeHolder enableDecreaseListDelayTime

		enableDecreaseContentsDelayTime enableIncreaseListDelayTime

		enableIncreaseContentsDelayTime listUpdateDelay updateDelay

		updateBlock listUpdateBlock updateProcess visibleBlock

		allowModifications tableMenu

		hasSelectionWithApplicationProcessHolder

		hasSelectionAndProcessIsApplicationProcessHolder

		hasSelectionWithStoppedProcessHolder

		hasSelectionAndProcessIsStoppedHolder

		hasSelectionWithGUIProcessHolder

		hasSelectionWithDisabledInstrumentationHolder

		hasSelectionWithEnabledInstrumentationHolder interruptCountHolder

		timerActionCountHolder lastInterruptCount lastTimerActionCount

		lastUpdateTimestamp showStartTime'

	classVariableNames:'Singleton'

	poolDictionaries:''

	category:'Monitors-ST/X'

!

Object subclass:#ProcessItem

	instanceVariableNames:'processId processGroup processName processActive processState

		processPrio processUsedStack processTotalStack processWhere

		processInstrumentation processApplication processWindowTitle

		processInstance weakArrayWithProcesses

		processInstanceIndexInWeakArray processCurrentSegment

		processSwitch prioVal idVal groupVal processBlocked

		startTimestamp'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProcessMonitorV2

!

!ProcessMonitorV2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2003 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    documentation to be added.

    [author:]

	Christian Penk (penk@bierfix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

  Starting the application:

								[exBegin]

    ProcessMonitorV2 open

								[exEnd]

  Starting the application withot any possibilities to change

  the processes

								[exBegin]

    ProcessMonitorV2 openAllowNoModifications

								[exEnd]

  more examples to be added:

								[exBegin]

    ... add code fragment for

    ... executable example here ...

								[exEnd]

"

!

history

    "Created: / 14.1.2003 / 11:16:10 / penk"

! !

!ProcessMonitorV2 class methodsFor:'instance creation'!

open

    "Singleton closeRequest"

    (Singleton notNil) ifTrue:[

        Singleton window raiseDeiconified.

        ^ Singleton

    ].

    ^ (Singleton := super open application)

    "Created: / 25-09-2018 / 12:21:37 / Claus Gittinger"

    "Modified (comment): / 07-02-2019 / 17:45:22 / Claus Gittinger"

!

openAllowNoModifications

    |application|

    application := self new.

    application open.

    application allowModifications value:false.

! !

!ProcessMonitorV2 class methodsFor:'defaults'!

defaultLabel

    ^ 'Process Monitor'

!

resourcePackName

    "return the name which is used as the fileNameBase of my resource file.

     Here, use the same resources as the (old) ProcessMonitor"

    ^ 'ProcessMonitor'

! !

!ProcessMonitorV2 class methodsFor:'help'!

aboutThisApplicationText

    ^ super aboutThisApplicationText ,

      '\\Written 2003 by Christian Penk, eXept Software AG,\and Claus Gittinger, eXept Software AG.' withCRs

! !

!ProcessMonitorV2 class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:ProcessMonitorV2

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#Debug

'Debug the selected process'

#Details

'Details - select columns to display'

#Inspect

'Inspect the selected process'

#findProcessByView

'Pick a view and select the associated window group process'

#'Lower Prio'

'Lower the priority of the selected process'

#'Raise Prio'

'Raise the priority of the selected process'

#RaiseWindow

'Raise the application''s window'

#Restart

'Restart'

#Resume

'Resume'

#Abort

'Abort'

#Stop

'Stop'

#Suspend

'Suspend'

#Terminate

'Terminate'

#'Terminate Group'

'Terminate Group'

#'Update Process List'

'Update Process List'

processId

'The process ID. A unique number'

processGroup

'The processes group ID. Usually the ID of the parent process. Nil if detached from parent'

processName

'The processes name'

processApplication

'The processes application class (if any)'

processWindowTitle

'The processes window title (if any)'

processInstrumentation

'The process is currently executed with instrumentaion monitoring active'

processWasActive

'The process was active any time during the last update interval (+)\ or actively running when probed (*)'

processState

'The execution state'

processPriority

'The execution priority, and optional priority range'

processWhere

'The currently executed method or the method which suspended it'

processUsedStack

'The amount of stack space used by the process (in bytes)'

processTotalStack

'The amount of allocated stack space (in bytes) and the number of allocated stack segments'

processSwitch

'The overall count of stack segment switches'

processCurrentSegment

'The address range of the current stack segment'

#interruptCount

'Interrupts per second'

#listUpdateInterval

'Interval to update the list of processes'

#timerActionCount

'Timer actions per second'

#updateInterval

'Interval to update the status of processes'

)

    "Modified: / 05-06-2007 / 18:35:47 / cg"

! !

!ProcessMonitorV2 class methodsFor:'image specs'!

defaultIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

	constantNamed:'ProcessMonitorV2 class defaultIcon'

	ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@G????9@@@@BP@@@@$O?>@I@@@@BP??8@$@@@@IC?? BP@@@@$@@@@I@@@@BP@@@@$M,@@IC[@@BP@@@@$@@@@I@@@@BP@@@@$@@@@I@@@@BP@@@@$@@

@@I????>@@@@@CLX7L0*)QDPJ*TQDCL%FH #IQADH*TPQBJX7Y b') ; yourself]

!

detailsMenuIconDown

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self detailsMenuIconDown inspect

     ImageEditor openOnClass:self andSelector:#detailsMenuIconDown

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'

	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:((ImageMask new)

			    width:7;

			    height:5;

			    bits:(ByteArray fromPackedString:'@A@(UJ(b');

			    yourself);

		yourself

	]

!

detailsMenuIconUp

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self detailsMenuIconUp inspect

     ImageEditor openOnClass:self andSelector:#detailsMenuIconUp

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'

	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:((ImageMask new)

			    width:7;

			    height:5;

			    bits:(ByteArray fromPackedString:'*%P(D@@b');

			    yourself);

		yourself

	]

!

process22x22Icon

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self process22x22Icon inspect

     ImageEditor openOnClass:self andSelector:#process22x22Icon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class process22x22Icon'

	ifAbsentPut:[

	    (Depth8Image new)

		width:22;

		height:22;

		photometric:(#palette);

		bitsPerSample:(#( 8 ));

		samplesPerPixel:(1);

		bits:(ByteArray

			    fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@

@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@

APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G

A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@

@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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:((ImageMask new)

			    width:22;

			    height:22;

			    bits:(ByteArray

					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@');

			    yourself);

		yourself

	]

!

processAbort22x22Icon

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self processAbort22x22Icon inspect

     ImageEditor openOnClass:self andSelector:#processAbort22x22Icon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'

	ifAbsentPut:[

	    (Depth8Image new)

		width:22;

		height:22;

		photometric:(#palette);

		bitsPerSample:(#[ 8 ]);

		samplesPerPixel:(1);

		bits:(ByteArray

			    fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@

@@@BAP@@APLC@P@@APH@@@@@@@@@@@@@@PLEAPLC@0LEAPLA@@@@@@@@@@@@@@@B@0LC@0LC@0LA@@@@@@@@@@@@@@@@APLC@ DB@0LC@ @@@@@@@@@@@@@@

APLC@ D@@@TC@0LB@@@@@@@@@@@EAPLC@0D@@@@@APLC@0TB@@@@@@@@@PDC@0LB@@@@@@TC@0LA@P@@@@@@@@@@@ HC@0T@@@TC@0LA@@TE@@@@@@@@@@@B

@0LCAPTC@0LA@@TFA TE@@@@@@@@APLC@0LC@0LC@PTFA@PFAP@@@@@@APLA@ LC@0LCAPTFA@PDA@XE@@@@@@HA@@@E@0LB@@TFA@PDA@PFA @@@@@@@@TE

@@TA@@@EA XDA@PFAPT@@@@@@@@EA TE@P@@APTEA PDA @@@@@@@@@@@@TFAP@@@@TEA PDA T@@@@@@@@@@@@@A XEAPTFA PDA@X@@@@@@@@@@@@@@@TF

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:((ImageMask new)

			    width:22;

			    height:22;

			    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

	]

!

processDebug22x22Icon

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self processDebug22x22Icon inspect

     ImageEditor openOnClass:self andSelector:#processDebug22x22Icon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'

	ifAbsentPut:[

	    (Depth8Image new)

		width:22;

		height:22;

		photometric:(#palette);

		bitsPerSample:(#( 8 ));

		samplesPerPixel:(1);

		bits:(ByteArray

			    fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@

@@@CA @@A PD@P@@A L@@@@@@@@@@@@@@PPFA PDA@PFA PA@@@@@@@@@@@@@@@CA@PD@@@DA@PA@@@@@@@@@@@@@@@@A P@@0DC@@@D@0@@@@@@@@@@@@@@

A PD@0@@@@X@@@@@@@@@@@@@@@@FA PDA@D@@@@@@@HB@ HB@ @@@@@@@PDDA@@@@@@@@ HBAPTEAPTB@@@@@@@@@0@B@ @B@ HEAPTEAPTEAPH@@@@@@@HB

APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE

@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');

		colorMapFromArray:#[ 0 0 0 127 127 127 128 0 0 161 161 165 194 194 194 255 0 0 255 255 255 ];

		mask:((ImageMask new)

			    width:22;

			    height:22;

			    bits:(ByteArray

					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ');

			    yourself);

		yourself

	]

!

processInspect22x22Icon

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self processInspect22x22Icon inspect

     ImageEditor openOnClass:self andSelector:#processInspect22x22Icon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'