"{ Package: 'stx:libtool' }"

SystemStatusMonitorV2 subclass:#ProcessMonitorV2

	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail

		hasSelection selctionRestartable showProcessId showGroup

		showState showPrio showUsedStack showTotalStack

		showCurrentSegment showSwitch showWhere currentSortOrder

		processTable processes showDead sortBlock selectionRestartable'

	classVariableNames:''

	poolDictionaries:''

	category:'Monitors-ST/X'

!

Object subclass:#ProcessItem

	instanceVariableNames:'processId processGroup processName processState processPrio

		processUsedStack processTotalStack processWhere processInstance

		processCurrentSegment processSwitch prioVal idVal groupVal'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProcessMonitorV2

!

!ProcessMonitorV2 class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        Christian Penk (penk@bierfix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

  Starting the application:

                                                                [exBegin]

    ProcessMonitorV2 open

                                                                [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:'defaults'!

defaultIcon

    |i|

    i := Image fromFile:'ProcMon.xbm'.

    i notNil ifTrue:[^ i].

    ^ super defaultIcon

    "Modified: 23.1.1997 / 02:52:31 / cg"

!

defaultLabel

    ^ 'Process Monitor'

! !

!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:#(

#toggleDetails

''

)

! !

!ProcessMonitorV2 class methodsFor:'image specs'!

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

     Icon flushCachedIcons

    "

    <resource: #image>

    ^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:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@(UJ(b') ; yourself); yourself]

!

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

     Icon flushCachedIcons

    "

    <resource: #image>

    ^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:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'*%P(D@@b') ; yourself); yourself]

!

viewDetailsIcon

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

     ImageEditor openOnClass:self andSelector:#viewDetailsIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'

        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]

! !

!ProcessMonitorV2 class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:ProcessMonitorV2 andSelector:#windowSpec

     ProcessMonitorV2 new openInterface:#windowSpec

     ProcessMonitorV2 open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'ProcessMonitorV2'

          #name: 'ProcessMonitorV2'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 16 42 781 379)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#MenuPanelSpec

              #name: 'ToolBar1'

              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)

              #menu: #toolBarMainMenu

              #textDefault: true

            )

           #(#DataSetSpec

              #name: 'Process Table'

              #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 0 1.0)

              #model: #selectedProcesses

              #menu: #tableMenu

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #dataList: #processList

              #useIndex: false

              #has3Dsepartors: false

              #doubleClickSelector: #doubleClickedAt:

              #columnHolder: #tableColumns

              #multipleSelectOk: true

              #verticalSpacing: 0

              #postBuildCallback: #postBuildProcessTable:

            )

           )

        )

      )

! !

!ProcessMonitorV2 class methodsFor:'menu specs'!

mainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Exit'

            #itemValue: #closeRequest

            #translateLabel: true

          )

         #(#MenuItem

            #label: 'Help'

            #translateLabel: true

            #startGroup: #right

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Documentation'

                  #itemValue: #openDocumentation

                  #translateLabel: true

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'About this Application'

                  #itemValue: #openAboutThisApplication

                  #translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

tableMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu

     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Inspect'

            #itemValue: #inspectSelection

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Debug'

            #itemValue: #debugProcess

            #translateLabel: true

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Resume'

            #itemValue: #resumeProcess

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Suspend'

            #itemValue: #suspendProcess

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Stop'

            #itemValue: #stopProcess

            #translateLabel: true

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Abort'

            #itemValue: #abortProcess

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Terminate'

            #itemValue: #terminateProcess

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Hard Terminate'

            #itemValue: #hardTerminateProcess

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Terminate Group'

            #itemValue: #terminateProcessGroup

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #selectionRestartable

            #label: 'Restart'

            #itemValue: #restartProcess

            #translateLabel: true

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Raise Prio'

            #itemValue: #raisePrio

            #translateLabel: true

          )

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Lower Prio'

            #itemValue: #lowerPrio

            #translateLabel: true

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Update'

            #itemValue: #updateView

            #translateLabel: true

          )

         )

        nil

        nil

      )

!

toolBarMainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu

     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #enabled: #hasSelection

            #label: 'Inspect'

            #itemValue: #inspectSelection

            #translateLabel: true

            #isButton: true

            #labelImage: #(#ResourceRetriever #SystemBrowser #watchIcon)

          )

         #(#MenuItem

            #activeHelpKey: #toggleDetails

            #label: 'View Details'

            #translateLabel: true

            #isButton: true

            #startGroup: #right

            #submenuChannel: #viewDetailsMenuSpec

            #labelImage: #(#ResourceRetriever #ProcessMonitorV2 #viewDetailsIcon)

          )

         )

        nil

        nil

      )

!

viewDetailsMenuSpec

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec

     (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Id'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showProcessId

          )

         #(#MenuItem

            #label: 'Group'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showGroup

          )

         #(#MenuItem

            #label: 'State'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showState

          )

         #(#MenuItem

            #label: 'Prio'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showPrio

          )

         #(#MenuItem

            #label: 'Used Stack'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showUsedStack

          )

         #(#MenuItem

            #label: 'Total Stack'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showTotalStack

          )

         #(#MenuItem

            #label: 'Current-Segment'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showCurrentSegment

          )

         #(#MenuItem

            #label: 'Switch'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showSwitch

          )

         #(#MenuItem

            #label: 'Where'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #showWhere

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Show dead Processes'

            #translateLabel: true

            #indication: #showDead

          )

         )

        nil

        nil

      )

! !

!ProcessMonitorV2 class methodsFor:'tableColumns specs'!

tableColumns

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

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

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

    "

     DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns

    "

    <resource: #tableColumns>

    ^#(