"

 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' }"

ApplicationModel subclass:#ProcessMonitorV2

	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail

		hasSelectionHolder showProcessId showGroup showState showPrio

		showUsedStack showTotalStack showCurrentSegment showSwitch

		showWhere showInstrumentation showApplication showWindowTitle

		currentSortOrder processTable showDead sortBlock

		selectionRestartable updateListDelayTime updateContentsDelayTime

		enableDecreaseListDelayTime enableDecreaseContentsDelayTime

		enableIncreaseListDelayTime enableIncreaseContentsDelayTime

		listUpdateDelay updateDelay updateBlock listUpdateBlock

		updateProcess visibleBlock allowModifications tableMenu

		hasSelectionWithApplicationProcessHolder

		hasSelectionAndProcessIsApplicationProcessHolder

		hasSelectionWithStoppedProcessHolder

		hasSelectionAndProcessIsStoppedHolder

		hasSelectionWithGUIProcessHolder

		hasSelectionWithDisabledInstrumentationHolder

		hasSelectionWithEnabledInstrumentationHolder'

	classVariableNames:''

	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'

	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'!

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 by Christian Penk, eXept Software AG.' withCRs

!

flyByHelpSpec

    "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 flyByHelpSpec addPairsFrom:#(

#Debug

'Debug'

#Details

'Details'

#Inspect

'Inspect'

#'Lower Prio'

'Lower Prio'

#'Raise Prio'

'Raise Prio'

#RaiseWindow

'Raise 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'

)

    "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

    "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

!

detailsMenuIconUp

    "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

!

process22x22Icon

    "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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

!

processAbort22x22Icon

    "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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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

!

processDebug22x22Icon

    "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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

!

processInspect22x22Icon

    "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

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

@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@

APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G

@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@

@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@

!

processLowerPrio22x22Icon

    "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 processLowerPrio22x22Icon inspect

     ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon