--- a/ProcessMonitorV2.st Mon Jun 11 12:56:39 2007 +0200
+++ b/ProcessMonitorV2.st Tue Jun 12 18:25:06 2007 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 2003 by eXept Software AG
- All Rights Reserved
+ 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
@@ -47,7 +47,7 @@
copyright
"
COPYRIGHT (c) 2003 by eXept Software AG
- All Rights Reserved
+ 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
@@ -63,7 +63,7 @@
documentation to be added.
[author:]
- Christian Penk (penk@bierfix)
+ Christian Penk (penk@bierfix)
[instance variables:]
@@ -77,23 +77,23 @@
examples
"
Starting the application:
- [exBegin]
+ [exBegin]
ProcessMonitorV2 open
- [exEnd]
+ [exEnd]
Starting the application withot any possibilities to change
the processes
- [exBegin]
+ [exBegin]
ProcessMonitorV2 openAllowNoModifications
- [exEnd]
+ [exEnd]
more examples to be added:
- [exBegin]
- ... add code fragment for
+ [exBegin]
+ ... add code fragment for
... executable example here ...
- [exEnd]
+ [exEnd]
"
!
@@ -136,7 +136,7 @@
!ProcessMonitorV2 class methodsFor:'help'!
aboutThisApplicationText
- ^ super aboutThisApplicationText ,
+ ^ super aboutThisApplicationText ,
'\\Written by Christian Penk, eXept Software AG.' withCRs
! !
@@ -150,7 +150,7 @@
the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:ProcessMonitorV2
+ UIHelpTool openOnClass:ProcessMonitorV2
"
<resource: #help>
@@ -212,7 +212,7 @@
the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:ProcessMonitorV2
+ UIHelpTool openOnClass:ProcessMonitorV2
"
<resource: #help>
@@ -243,8 +243,8 @@
<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]
+ 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
@@ -263,8 +263,8 @@
<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]
+ 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]
!
process22x22Icon
@@ -283,8 +283,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class process22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ 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
@@ -309,8 +309,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ 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
@@ -335,8 +335,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ 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
@@ -361,8 +361,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
+ 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 @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
@@ -387,8 +387,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
+ 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@@@@@@TEAPTEAPTE@@@@@@@@A0\FA T@@@TFAP@@@@@@AP@@@@@@@@@G
@@ -413,8 +413,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
+ 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 XEB@@@@@@@@@@@A0\FA T@@@TFA XE@@T@@@@@@@@@@@@G
@@ -439,8 +439,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
+ ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
A0XFAPP@@0LC@0@E@@@@@@@@@@@GA0XFA P@@@LC@0@FA \@@@@@@@@@A@PFA XE@@LC@0@FA XD@@@@@@@@@@@@APTFA @C@0L@A XD@@@@@@@@@@@@@@@E
@@ -465,8 +465,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
+ 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@@@@@@TE@@THB@@@@@@@@@@@A0\FA T@@@TFAP@@AP@@@@@@@@@@@@@G
@@ -491,8 +491,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
+ 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
@@ -517,8 +517,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
+ 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@@TEAPTEAPTEAPTEAPT@@@@@A0\FA TEAPTEAPTEAPTEAPTE@@@@@@@G
@@ -543,8 +543,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
+ 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 TGC@@@@@@@B@ FA XG@@@LC@TFA XHC@,K@@@@@@@@A0\FA TLB0,LC@XHC@,KBP@@@@@@@@@G
@@ -569,8 +569,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
+ ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA @@@TG@@@@@@@@@@@@
@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
A TEA XFA TEA @A0@@@@@@@@ H@@\FA XFA XFA @B@ @@@@@@@@@@@@EA XGB@\FA XG@@@@@@@L@@@@@@@EA XGB@@@AP0LA \@@@@LB0,@@@TEA XF
@@ -595,8 +595,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class raiseWindow22x22Icon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class raiseWindow22x22Icon'
+ ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@.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 @@
@ HB@ HB@ HB@ HB@ HBJ2,"@B8@@@H+J2,+J2,+J2,+J2,+@",EF @.@@@BJ2,+J2,+J2,+J2,+J2 EHQ(@K @@@",+J2,+J2,+J2,+J2,"AR$(@B8@@@H+
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,+
@@ -621,8 +621,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
+ ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@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@@@@@
@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
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
@@ -646,8 +646,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProcessMonitorV2 class terminateIcon'
- ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProcessMonitorV2 class terminateIcon'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
@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]
@@ -669,8 +669,8 @@
<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]
+ 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'!
@@ -690,138 +690,138 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'ProcessMonitorV2'
- name: 'ProcessMonitorV2'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 791 358)
- menu: mainMenu
- )
- component:
+ label: 'ProcessMonitorV2'
+ name: 'ProcessMonitorV2'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 791 358)
+ 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: 'ProcessTable'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
- model: selectedProcesses
- menu: tableMenu
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- dataList: processList
- useIndex: false
- doubleClickSelector: doubleClickedAt:
- columnHolder: tableColumns
- multipleSelectOk: true
- verticalSpacing: 0
- postBuildCallback: postBuildProcessTable:
- )
- (LabelSpec
- label: 'Update Contents Delay (s):'
- name: 'ContentsUpdateLabel'
- layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
- translateLabel: true
- adjust: right
- )
- (ViewSpec
- name: 'Box1'
- layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
- level: 0
- component:
- (SpecCollection
- collection: (
- (ArrowButtonSpec
- name: 'ArrowButton3'
- layout: (LayoutFrame 68 0 0 0 89 0 20 0)
- model: increaseupdateContentsDelayTime
- enableChannel: enableIncreaseContentsDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: up
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 22 0 0 0 66 0 20 0)
- model: updateContentsDelayTime
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (ArrowButtonSpec
- name: 'ArrowButton4'
- layout: (LayoutFrame 0 0 0 0 20 0 20 0)
- model: decreaseupdateContentsDelayTime
- enableChannel: enableDecreaseContentsDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: down
- )
- )
-
- )
- )
- (LabelSpec
- label: 'Update List Delay (s):'
- name: 'ListUpdateLabel'
- layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
- translateLabel: true
- adjust: right
- )
- (ViewSpec
- name: 'Box2'
- layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
- level: 0
- component:
- (SpecCollection
- collection: (
- (ArrowButtonSpec
- name: 'ArrowButton5'
- layout: (LayoutFrame 68 0 0 0 89 0 20 0)
- model: increaseupdateListDelayTime
- enableChannel: enableIncreaseListDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: up
- )
- (InputFieldSpec
- name: 'EntryField3'
- layout: (LayoutFrame 22 0 0 0 66 0 20 0)
- model: updateListDelayTime
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (ArrowButtonSpec
- name: 'ArrowButton6'
- layout: (LayoutFrame 0 0 0 0 20 0 20 0)
- model: decreaseupdateListDelayTime
- enableChannel: enableDecreaseListDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: down
- )
- )
-
- )
- )
- )
-
- )
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+ menu: toolBarMainMenu
+ textDefault: true
+ )
+ (DataSetSpec
+ name: 'ProcessTable'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
+ model: selectedProcesses
+ menu: tableMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ dataList: processList
+ useIndex: false
+ doubleClickSelector: doubleClickedAt:
+ columnHolder: tableColumns
+ multipleSelectOk: true
+ verticalSpacing: 0
+ postBuildCallback: postBuildProcessTable:
+ )
+ (LabelSpec
+ label: 'Update Contents Delay (s):'
+ name: 'ContentsUpdateLabel'
+ layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
+ translateLabel: true
+ adjust: right
+ )
+ (ViewSpec
+ name: 'Box1'
+ layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
+ level: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ArrowButtonSpec
+ name: 'ArrowButton3'
+ layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+ model: increaseupdateContentsDelayTime
+ enableChannel: enableIncreaseContentsDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: up
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+ model: updateContentsDelayTime
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (ArrowButtonSpec
+ name: 'ArrowButton4'
+ layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+ model: decreaseupdateContentsDelayTime
+ enableChannel: enableDecreaseContentsDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: down
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'Update List Delay (s):'
+ name: 'ListUpdateLabel'
+ layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
+ translateLabel: true
+ adjust: right
+ )
+ (ViewSpec
+ name: 'Box2'
+ layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
+ level: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ArrowButtonSpec
+ name: 'ArrowButton5'
+ layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+ model: increaseupdateListDelayTime
+ enableChannel: enableIncreaseListDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: up
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+ model: updateListDelayTime
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (ArrowButtonSpec
+ name: 'ArrowButton6'
+ layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+ model: decreaseupdateListDelayTime
+ enableChannel: enableDecreaseListDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: down
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
! !
@@ -841,33 +841,33 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Raise Applications Window'
- itemValue: raiseApplicationWindow
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Lower Applications Window'
- itemValue: lowerApplicationWindow
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Close'
- itemValue: closeApplication
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Raise Applications Window'
+ itemValue: raiseApplicationWindow
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Lower Applications Window'
+ itemValue: lowerApplicationWindow
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Close'
+ itemValue: closeApplication
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
"Modified: / 07-06-2007 / 12:44:21 / cg"
@@ -887,42 +887,42 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Inspect Process'
- itemValue: inspectSelection
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Inspect Application'
- itemValue: inspectApplication
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Browse Application'
- itemValue: browseApplication
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Debug'
- itemValue: debugProcess
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Inspect Process'
+ itemValue: inspectSelection
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Inspect Application'
+ itemValue: inspectApplication
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Browse Application'
+ itemValue: browseApplication
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Debug'
+ itemValue: debugProcess
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
"Modified: / 07-06-2007 / 12:49:58 / cg"
@@ -942,76 +942,76 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'File'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Process'
- translateLabel: true
- isVisible: allowModifications
- submenuChannel: processMenu
- )
- (MenuItem
- label: 'Application'
- translateLabel: true
- submenuChannel: applicationMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'Debug'
- translateLabel: true
- submenuChannel: debugMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'View'
- translateLabel: true
- submenuChannel: viewDetailsMenuSpec
- )
- (MenuItem
- label: 'Help'
- translateLabel: true
- startGroup: conditionalRight
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Documentation'
- itemValue: openDocumentation
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About this Application...'
- itemValue: openAboutThisApplication
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Process'
+ translateLabel: true
+ isVisible: allowModifications
+ submenuChannel: processMenu
+ )
+ (MenuItem
+ label: 'Application'
+ translateLabel: true
+ submenuChannel: applicationMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'Debug'
+ translateLabel: true
+ submenuChannel: debugMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'View'
+ translateLabel: true
+ submenuChannel: viewDetailsMenuSpec
+ )
+ (MenuItem
+ label: 'Help'
+ translateLabel: true
+ startGroup: conditionalRight
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Documentation'
+ itemValue: openDocumentation
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About this Application...'
+ itemValue: openAboutThisApplication
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
!
@@ -1029,78 +1029,78 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionWithStoppedProcessHolder
- label: 'Resume'
- itemValue: resumeProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Suspend'
- itemValue: suspendProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Stop'
- itemValue: stopProcess
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Abort'
- itemValue: abortProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate'
- itemValue: terminateProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Hard Terminate'
- itemValue: hardTerminateProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate Group'
- itemValue: terminateProcessGroup
- translateLabel: true
- )
- (MenuItem
- enabled: selectionRestartable
- label: 'Restart'
- itemValue: restartProcess
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Raise Prio'
- itemValue: raisePrio
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Lower Prio'
- itemValue: lowerPrio
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionWithStoppedProcessHolder
+ label: 'Resume'
+ itemValue: resumeProcess
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Suspend'
+ itemValue: suspendProcess
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Stop'
+ itemValue: stopProcess
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Abort'
+ itemValue: abortProcess
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate'
+ itemValue: terminateProcess
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Hard Terminate'
+ itemValue: hardTerminateProcess
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate Group'
+ itemValue: terminateProcessGroup
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: selectionRestartable
+ label: 'Restart'
+ itemValue: restartProcess
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Raise Prio'
+ itemValue: raisePrio
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Lower Prio'
+ itemValue: lowerPrio
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
!
@@ -1118,105 +1118,105 @@
<resource: #menu>
- ^
+ ^
#(#Menu
- #(
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Debug'
- #itemValue: #debugProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Inspect'
- #itemValue: #inspectSelection
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionWithApplicationProcessHolder
- #label: 'Inspect Application'
- #itemValue: #inspectApplication
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionWithApplicationProcessHolder
- #label: 'Browse Application'
- #itemValue: #browseApplication
- #translateLabel: true
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #enabled: #hasSelectionWithStoppedProcessHolder
- #label: 'Resume'
- #itemValue: #resumeProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Suspend'
- #itemValue: #suspendProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Stop'
- #itemValue: #stopProcess
- #translateLabel: true
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Abort'
- #itemValue: #abortProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Terminate'
- #itemValue: #terminateProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Hard Terminate'
- #itemValue: #hardTerminateProcess
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Terminate Group'
- #itemValue: #terminateProcessGroup
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #selectionRestartable
- #label: 'Restart'
- #itemValue: #restartProcess
- #translateLabel: true
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Raise Prio'
- #itemValue: #raisePrio
- #translateLabel: true
- )
- #(#MenuItem
- #enabled: #hasSelectionHolder
- #label: 'Lower Prio'
- #itemValue: #lowerPrio
- #translateLabel: true
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Debug'
+ #itemValue: #debugProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Inspect'
+ #itemValue: #inspectSelection
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionWithApplicationProcessHolder
+ #label: 'Inspect Application'
+ #itemValue: #inspectApplication
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionWithApplicationProcessHolder
+ #label: 'Browse Application'
+ #itemValue: #browseApplication
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionWithStoppedProcessHolder
+ #label: 'Resume'
+ #itemValue: #resumeProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Suspend'
+ #itemValue: #suspendProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Stop'
+ #itemValue: #stopProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Abort'
+ #itemValue: #abortProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Terminate'
+ #itemValue: #terminateProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Hard Terminate'
+ #itemValue: #hardTerminateProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Terminate Group'
+ #itemValue: #terminateProcessGroup
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #selectionRestartable
+ #label: 'Restart'
+ #itemValue: #restartProcess
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Raise Prio'
+ #itemValue: #raisePrio
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #enabled: #hasSelectionHolder
+ #label: 'Lower Prio'
+ #itemValue: #lowerPrio
+ #translateLabel: true
+ )
+ )
+ nil
+ nil
)
"Modified: / 07-06-2007 / 12:49:47 / cg"
@@ -1236,155 +1236,155 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- activeHelpKey: Inspect
- enabled: hasSelectionHolder
- label: 'Inspect'
- itemValue: inspectSelection
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
- )
- (MenuItem
- activeHelpKey: Debug
- enabled: hasSelectionHolder
- label: 'Debug'
- itemValue: debugProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
- )
- (MenuItem
- activeHelpKey: RaiseWindow
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Raise Applications Window'
- itemValue: raiseApplicationWindow
- translateLabel: true
- isButton: true
- labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: Resume
- enabled: hasSelectionWithStoppedProcessHolder
- label: 'Resume'
- itemValue: resumeProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
- )
- (MenuItem
- activeHelpKey: Stop
- enabled: hasSelectionHolder
- label: 'Stop'
- itemValue: stopProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: Abort
- enabled: hasSelectionHolder
- label: 'Abort'
- itemValue: abortProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
- )
- (MenuItem
- activeHelpKey: Terminate
- enabled: hasSelectionHolder
- label: 'Terminate'
- itemValue: terminateProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
- )
- (MenuItem
- activeHelpKey: #'Terminate Group'
- enabled: hasSelectionHolder
- label: 'Terminate Group'
- itemValue: terminateProcessGroup
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
- )
- (MenuItem
- activeHelpKey: Restart
- enabled: selectionRestartable
- label: 'Restart'
- itemValue: restartProcess
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: #'Raise Prio'
- enabled: hasSelectionHolder
- label: 'Raise Prio'
- itemValue: raisePrio
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
- )
- (MenuItem
- activeHelpKey: #'Lower Prio'
- enabled: hasSelectionHolder
- label: 'Lower Prio'
- itemValue: lowerPrio
- translateLabel: true
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
- )
- (MenuItem
- label: ''
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: #'Update Process List'
- label: 'Update'
- itemValue: updateList
- translateLabel: true
- isButton: true
- startGroup: right
- labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
- )
- (MenuItem
- activeHelpKey: Details
- label: 'View Details'
- translateLabel: true
- isButton: true
- startGroup: right
- submenuChannel: viewDetailsMenuSpec
- labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ activeHelpKey: Inspect
+ enabled: hasSelectionHolder
+ label: 'Inspect'
+ itemValue: inspectSelection
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Debug
+ enabled: hasSelectionHolder
+ label: 'Debug'
+ itemValue: debugProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: RaiseWindow
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Raise Applications Window'
+ itemValue: raiseApplicationWindow
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: Resume
+ enabled: hasSelectionWithStoppedProcessHolder
+ label: 'Resume'
+ itemValue: resumeProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Stop
+ enabled: hasSelectionHolder
+ label: 'Stop'
+ itemValue: stopProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: Abort
+ enabled: hasSelectionHolder
+ label: 'Abort'
+ itemValue: abortProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Terminate
+ enabled: hasSelectionHolder
+ label: 'Terminate'
+ itemValue: terminateProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: #'Terminate Group'
+ enabled: hasSelectionHolder
+ label: 'Terminate Group'
+ itemValue: terminateProcessGroup
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Restart
+ enabled: selectionRestartable
+ label: 'Restart'
+ itemValue: restartProcess
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: #'Raise Prio'
+ enabled: hasSelectionHolder
+ label: 'Raise Prio'
+ itemValue: raisePrio
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: #'Lower Prio'
+ enabled: hasSelectionHolder
+ label: 'Lower Prio'
+ itemValue: lowerPrio
+ translateLabel: true
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
+ )
+ (MenuItem
+ label: ''
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: #'Update Process List'
+ label: 'Update'
+ itemValue: updateList
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+ )
+ (MenuItem
+ activeHelpKey: Details
+ label: 'View Details'
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ submenuChannel: viewDetailsMenuSpec
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+ )
+ )
+ nil
+ nil
)
"Modified: / 05-06-2007 / 18:35:31 / cg"
@@ -1404,82 +1404,82 @@
<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
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Update'
- #itemValue: #updateView
- #translateLabel: true
- )
- )
- nil
- nil
+ #(
+ #(#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
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Update'
+ #itemValue: #updateView
+ #translateLabel: true
+ )
+ )
+ nil
+ nil
)
! !
@@ -1500,152 +1500,152 @@
^#(
#(#DataSetColumnSpec
- #label: 'Id'
- #id: #id
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'idVal'
- #width: 45
- #type: #number
- #model: #processId
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Id'
+ #id: #id
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'idVal'
+ #width: 45
+ #type: #number
+ #model: #processId
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Group'
- #id: #group
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'groupVal'
- #width: 45
- #model: #processGroup
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Group'
+ #id: #group
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'groupVal'
+ #width: 45
+ #model: #processGroup
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Name'
- #id: #name
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processName'
- #width: 200
- #model: #processName
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Name'
+ #id: #name
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processName'
+ #width: 200
+ #model: #processName
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: ''
- #id: #active
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processActive'
- #width: 10
- #height: 5
- #model: #processActive
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: ''
+ #id: #active
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processActive'
+ #width: 10
+ #height: 5
+ #model: #processActive
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'State'
- #id: #state
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processState'
- #width: 100
- #model: #processState
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'State'
+ #id: #state
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processState'
+ #width: 100
+ #model: #processState
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Prio'
- #id: #prio
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'prioVal'
- #width: 40
- #model: #processPrio
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Prio'
+ #id: #prio
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'prioVal'
+ #width: 40
+ #model: #processPrio
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Used Stack'
- #id: #usedStack
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processUsedStack'
- #columnAlignment: #right
- #width: 75
- #type: #number
- #model: #processUsedStack
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Used Stack'
+ #id: #usedStack
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processUsedStack'
+ #columnAlignment: #right
+ #width: 75
+ #type: #number
+ #model: #processUsedStack
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Total Stack'
- #id: #totalStack
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processTotalStack'
- #columnAlignment: #right
- #width: 75
- #model: #processTotalStack
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Total Stack'
+ #id: #totalStack
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processTotalStack'
+ #columnAlignment: #right
+ #width: 75
+ #model: #processTotalStack
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Current-Segment'
- #id: #currentSegment
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processCurrentSegment'
- #width: 110
- #model: #processCurrentSegment
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Current-Segment'
+ #id: #currentSegment
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processCurrentSegment'
+ #width: 110
+ #model: #processCurrentSegment
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Switch'
- #id: #switch
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processSwitch'
- #columnAlignment: #right
- #width: 55
- #type: #number
- #model: #processSwitch
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Switch'
+ #id: #switch
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processSwitch'
+ #columnAlignment: #right
+ #width: 55
+ #type: #number
+ #model: #processSwitch
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
#(#DataSetColumnSpec
- #label: 'Where'
- #id: #where
- #labelAlignment: #left
- #labelButtonType: #Button
- #labelActionSelector: #sortProcessListBy:
- #labelActionArgument: 'processWhere'
- #model: #processWhere
- #canSelect: false
- #showRowSeparator: false
- #showColSeparator: false
+ #label: 'Where'
+ #id: #where
+ #labelAlignment: #left
+ #labelButtonType: #Button
+ #labelActionSelector: #sortProcessListBy:
+ #labelActionArgument: 'processWhere'
+ #model: #processWhere
+ #canSelect: false
+ #showRowSeparator: false
+ #showColSeparator: false
)
)
! !
@@ -1669,32 +1669,32 @@
changeSelectionTo:aSelection
aSelection notNil ifTrue:[
- | newSelection |
- newSelection := OrderedCollection new.
- aSelection do:[:processItem |
- | index |
- index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
- index ~~ 0 ifTrue:[
- newSelection add:(processList at:index).
- ].
- ].
- self selectedProcesses value:newSelection
+ | newSelection |
+ newSelection := OrderedCollection new.
+ aSelection do:[:processItem |
+ | index |
+ index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
+ index ~~ 0 ifTrue:[
+ newSelection add:(processList at:index).
+ ].
+ ].
+ self selectedProcesses value:newSelection
].
!
changeSelectionToProcesses:aProcessList
aProcessList notNil ifTrue:[
- | newSelection |
- newSelection := OrderedCollection new.
- aProcessList do:[:aProcess |
- | index |
- index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
- index ~~ 0 ifTrue:[
- newSelection add:(processList at:index).
- ].
- ].
- self selectedProcesses value:newSelection
+ | newSelection |
+ newSelection := OrderedCollection new.
+ aProcessList do:[:aProcess |
+ | index |
+ index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
+ index ~~ 0 ifTrue:[
+ newSelection add:(processList at:index).
+ ].
+ ].
+ self selectedProcesses value:newSelection
].
!
@@ -1733,9 +1733,9 @@
|coll|
self showDead value ifTrue:[
- coll := Process allSubInstances asOrderedCollection.
+ coll := Process allSubInstances asOrderedCollection.
] ifFalse:[
- coll := ProcessorScheduler knownProcesses asOrderedCollection.
+ coll := ProcessorScheduler knownProcesses asOrderedCollection.
].
^ coll
!
@@ -1759,10 +1759,10 @@
sel isNil ifTrue:[^ self].
sel do:[:processItem |
- proc := processItem processInstance.
- proc notNil ifTrue:[
- aBlock value:proc.
- ].
+ proc := processItem processInstance.
+ proc notNil ifTrue:[
+ aBlock value:proc.
+ ].
].
"Modified: / 07-06-2007 / 12:38:25 / cg"
@@ -1772,7 +1772,7 @@
"send a message to all selected processes"
self selectedProcessesDo:[:p |
- p perform:aSelector
+ p perform:aSelector
].
self updateList.
@@ -1785,7 +1785,7 @@
allowModifications
allowModifications isNil ifTrue:[
- allowModifications := true asValue
+ allowModifications := true asValue
].
^ allowModifications
!
@@ -1794,7 +1794,7 @@
"return/create the 'currentSortOrder' value holder (automatically generated)"
currentSortOrder isNil ifTrue:[
- currentSortOrder := Dictionary new asValue.
+ currentSortOrder := Dictionary new asValue.
].
^ currentSortOrder
!
@@ -1802,7 +1802,7 @@
enableDecreaseContentsDelayTime
enableDecreaseContentsDelayTime isNil ifTrue:[
- enableDecreaseContentsDelayTime := true asValue.
+ enableDecreaseContentsDelayTime := true asValue.
].
^ enableDecreaseContentsDelayTime.
!
@@ -1810,7 +1810,7 @@
enableDecreaseListDelayTime
enableDecreaseListDelayTime isNil ifTrue:[
- enableDecreaseListDelayTime := true asValue.
+ enableDecreaseListDelayTime := true asValue.
].
^ enableDecreaseListDelayTime.
!
@@ -1818,7 +1818,7 @@
enableIncreaseContentsDelayTime
enableIncreaseContentsDelayTime isNil ifTrue:[
- enableIncreaseContentsDelayTime := true asValue.
+ enableIncreaseContentsDelayTime := true asValue.
].
^ enableIncreaseContentsDelayTime.
!
@@ -1826,7 +1826,7 @@
enableIncreaseListDelayTime
enableIncreaseListDelayTime isNil ifTrue:[
- enableIncreaseListDelayTime := true asValue.
+ enableIncreaseListDelayTime := true asValue.
].
^ enableIncreaseListDelayTime.
!
@@ -1868,12 +1868,12 @@
!
hasSelectionWithProcessForWhich:aBlock
- ^ self hasSelection
- and:[ self selectedProcesses value contains:[:pItem |
- |process|
-
- process := pItem processInstance.
- process notNil and:[ aBlock value:process ]] ]
+ ^ self hasSelection
+ and:[ self selectedProcesses value contains:[:pItem |
+ |process|
+
+ process := pItem processInstance.
+ process notNil and:[ aBlock value:process ]] ]
"Created: / 05-06-2007 / 17:40:27 / cg"
!
@@ -1893,7 +1893,7 @@
processList
processList isNil ifTrue:[
- processList := List new.
+ processList := List new.
].
^ processList.
!
@@ -1911,8 +1911,8 @@
selectedProcesses
selectedProcesses isNil ifTrue:[
- selectedProcesses := ValueHolder new.
- selectedProcesses addDependent:self.
+ selectedProcesses := ValueHolder new.
+ selectedProcesses addDependent:self.
].
^ selectedProcesses.
!
@@ -1920,7 +1920,7 @@
selectionRestartable
selectionRestartable isNil ifTrue:[
- selectionRestartable := ValueHolder new.
+ selectionRestartable := ValueHolder new.
].
^ selectionRestartable
!
@@ -1929,8 +1929,8 @@
"return/create the 'showDead' value holder (automatically generated)"
showDead isNil ifTrue:[
- showDead := false asValue.
- showDead addDependent:self.
+ showDead := false asValue.
+ showDead addDependent:self.
].
^ showDead
!
@@ -1938,14 +1938,14 @@
sortBlock
sortBlock isNil ifTrue:[
- | curSortOrder defaultSortInstance|
- defaultSortInstance := #idVal.
- sortBlock := [:a :b |
- ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
- ].
- curSortOrder := self currentSortOrder value.
- curSortOrder at:#column put:defaultSortInstance.
- curSortOrder at:#reverse put:true.
+ | curSortOrder defaultSortInstance|
+ defaultSortInstance := #idVal.
+ sortBlock := [:a :b |
+ ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
+ ].
+ curSortOrder := self currentSortOrder value.
+ curSortOrder at:#column put:defaultSortInstance.
+ curSortOrder at:#reverse put:true.
].
^ sortBlock
!
@@ -1953,7 +1953,7 @@
tableColumns
tableColumns isNil ifTrue:[
- tableColumns := self class tableColumns asValue.
+ tableColumns := self class tableColumns asValue.
].
^ tableColumns.
!
@@ -1961,8 +1961,8 @@
updateContentsDelayTime
updateContentsDelayTime isNil ifTrue:[
- updateContentsDelayTime := updateDelay asValue.
- updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
+ updateContentsDelayTime := updateDelay asValue.
+ updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
].
^ updateContentsDelayTime.
!
@@ -1970,8 +1970,8 @@
updateListDelayTime
updateListDelayTime isNil ifTrue:[
- updateListDelayTime := listUpdateDelay asValue.
- updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
+ updateListDelayTime := listUpdateDelay asValue.
+ updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
].
^ updateListDelayTime.
! !
@@ -1982,8 +1982,8 @@
"return/create the 'showCurrentSegment' value holder (automatically generated)"
showCurrentSegment isNil ifTrue:[
- showCurrentSegment := showDetail asValue.
- showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
+ showCurrentSegment := showDetail asValue.
+ showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
].
^ showCurrentSegment
!
@@ -1992,8 +1992,8 @@
"return/create the 'showGroup' value holder (automatically generated)"
showGroup isNil ifTrue:[
- showGroup := true asValue.
- showGroup onChangeSend:#viewedColumnsChanged to:self.
+ showGroup := true asValue.
+ showGroup onChangeSend:#viewedColumnsChanged to:self.
].
^ showGroup
!
@@ -2002,8 +2002,8 @@
"return/create the 'showPrio' value holder (automatically generated)"
showPrio isNil ifTrue:[
- showPrio := true asValue.
- showPrio onChangeSend:#viewedColumnsChanged to:self.
+ showPrio := true asValue.
+ showPrio onChangeSend:#viewedColumnsChanged to:self.
].
^ showPrio
!
@@ -2011,8 +2011,8 @@
showProcessId
showProcessId isNil ifTrue:[
- showProcessId := true asValue.
- showProcessId onChangeSend:#viewedColumnsChanged to:self
+ showProcessId := true asValue.
+ showProcessId onChangeSend:#viewedColumnsChanged to:self
].
^ showProcessId
!
@@ -2021,8 +2021,8 @@
"return/create the 'showState' value holder (automatically generated)"
showState isNil ifTrue:[
- showState := true asValue.
- showState onChangeSend:#viewedColumnsChanged to:self
+ showState := true asValue.
+ showState onChangeSend:#viewedColumnsChanged to:self
].
^ showState
!
@@ -2031,8 +2031,8 @@
"return/create the 'showSwitch' value holder (automatically generated)"
showSwitch isNil ifTrue:[
- showSwitch := showDetail asValue.
- showSwitch onChangeSend:#viewedColumnsChanged to:self
+ showSwitch := showDetail asValue.
+ showSwitch onChangeSend:#viewedColumnsChanged to:self
].
^ showSwitch
!
@@ -2041,8 +2041,8 @@
"return/create the 'showTotalStack' value holder (automatically generated)"
showTotalStack isNil ifTrue:[
- showTotalStack := showDetail asValue.
- showTotalStack onChangeSend:#viewedColumnsChanged to:self
+ showTotalStack := showDetail asValue.
+ showTotalStack onChangeSend:#viewedColumnsChanged to:self
].
^ showTotalStack
!
@@ -2051,8 +2051,8 @@
"return/create the 'showUsedStack' value holder (automatically generated)"
showUsedStack isNil ifTrue:[
- showUsedStack := showDetail asValue.
- showUsedStack onChangeSend:#viewedColumnsChanged to:self
+ showUsedStack := showDetail asValue.
+ showUsedStack onChangeSend:#viewedColumnsChanged to:self
].
^ showUsedStack
!
@@ -2061,8 +2061,8 @@
"return/create the 'showWhere' value holder (automatically generated)"
showWhere isNil ifTrue:[
- showWhere := true asValue.
- showWhere onChangeSend:#viewedColumnsChanged to:self
+ showWhere := true asValue.
+ showWhere onChangeSend:#viewedColumnsChanged to:self
].
^ showWhere
! !
@@ -2081,15 +2081,15 @@
self hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
hasSelection ifFalse:[
- self selectionRestartable value:false.
- ^ self
+ self selectionRestartable value:false.
+ ^ self
].
allRestartable := true.
self selectedProcessesDo:[:p |
- p isRestartable ifFalse:[
- allRestartable := false
- ].
+ p isRestartable ifFalse:[
+ allRestartable := false
+ ].
].
self selectionRestartable value:allRestartable.
^ self.
@@ -2103,17 +2103,17 @@
"stub code automatically generated - please change as required"
changedObject == builder window ifTrue:[
- something == #visibility ifTrue:[
- self updateList.
- ].
+ something == #visibility ifTrue:[
+ self updateList.
+ ].
].
changedObject == self selectedProcesses ifTrue:[
- self selectionChanged.
- ^ self
+ self selectionChanged.
+ ^ self
].
changedObject == self showDead ifTrue:[
- self updateList.
- ^ self
+ self updateList.
+ ^ self
].
super update:something with:aParameter from:changedObject
!
@@ -2124,54 +2124,54 @@
sel := self selectedProcesses value.
sel notNil ifTrue:[
- oldSelection := OrderedCollection new.
- sel do:[:proItem|
- proItem processInstance notNil ifTrue:[
- oldSelection add:(proItem processInstance)
- ].
- ].
+ oldSelection := OrderedCollection new.
+ sel do:[:proItem|
+ proItem processInstance notNil ifTrue:[
+ oldSelection add:(proItem processInstance)
+ ].
+ ].
].
"/ Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
columns := OrderedCollection new.
self class tableColumns do:[:el|
- columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
+ columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
].
buffer := columns copy.
locCurrentSortOrder := self currentSortOrder value.
currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
buffer do:[:col |
- | id |
- id := col id.
- id notNil ifTrue:[
- (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
- | label icon|
- label := col label.
- icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
- col label:(LabelAndIcon label:label icon:icon).
- ].
- #(
- ( #id #showProcessId)
- ( #group #showGroup)
- ( #prio #showPrio)
- ( #currentSegment #showCurrentSegment)
- ( #state #showState)
- ( #switch #showSwitch)
- ( #totalStack #showTotalStack)
- ( #usedStack #showUsedStack)
- ( #where #showWhere)
- ) pairsDo:[:colName :holderAccessorSelector |
- (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
- columns remove:col.
- ]
- ]
- ]
+ | id |
+ id := col id.
+ id notNil ifTrue:[
+ (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
+ | label icon|
+ label := col label.
+ icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
+ col label:(LabelAndIcon label:label icon:icon).
+ ].
+ #(
+ ( #id #showProcessId)
+ ( #group #showGroup)
+ ( #prio #showPrio)
+ ( #currentSegment #showCurrentSegment)
+ ( #state #showState)
+ ( #switch #showSwitch)
+ ( #totalStack #showTotalStack)
+ ( #usedStack #showUsedStack)
+ ( #where #showWhere)
+ ) pairsDo:[:colName :holderAccessorSelector |
+ (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
+ columns remove:col.
+ ]
+ ]
+ ]
].
updateSema critical:[
- self tableColumns value:columns.
+ self tableColumns value:columns.
"/ self updateTable:nil.
"/ Transcript showCR:'oldSelection on set in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
- self changeSelectionToProcesses:oldSelection.
+ self changeSelectionToProcesses:oldSelection.
].
"Modified: / 27-03-2007 / 08:43:49 / cg"
@@ -2186,16 +2186,16 @@
|focusView key rawKey|
anEvent isKeyPressEvent ifTrue:[
- focusView := anEvent targetView.
- key := anEvent key.
- rawKey := anEvent rawKey.
-
- (focusView == processList) ifTrue:[
- key == #InspectIt ifTrue:[
- self inspectSelection.
- ^ true.
- ].
- ]
+ focusView := anEvent targetView.
+ key := anEvent key.
+ rawKey := anEvent rawKey.
+
+ (focusView == processList) ifTrue:[
+ key == #InspectIt ifTrue:[
+ self inspectSelection.
+ ^ true.
+ ].
+ ]
].
^ false
! !
@@ -2219,8 +2219,8 @@
"/ event mode is no longer used;
"/ this event support may vanish
Processor isPureEventDriven ifTrue:[
- updateBlock := [self updateStatus:nil].
- listUpdateBlock := [self updateList].
+ updateBlock := [self updateStatus:nil].
+ listUpdateBlock := [self updateList].
].
"Modified: / 05-06-2007 / 17:53:48 / cg"
@@ -2247,16 +2247,16 @@
release
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:updateBlock.
- updateBlock := nil.
+ Processor removeTimedBlock:updateBlock.
+ updateBlock := nil.
].
listUpdateBlock notNil ifTrue:[
- Processor removeTimedBlock:listUpdateBlock.
- listUpdateBlock := nil.
+ Processor removeTimedBlock:listUpdateBlock.
+ listUpdateBlock := nil.
].
updateProcess notNil ifTrue:[
- updateProcess terminate.
- updateProcess := nil.
+ updateProcess terminate.
+ updateProcess := nil.
].
super release
!
@@ -2273,18 +2273,18 @@
tableMenu
^[
- self tableMenuAccess
+ self tableMenuAccess
]
!
tableMenuAccess
self allowModifications value ifTrue:[
- tableMenu isNil ifTrue:[
- tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
- tableMenu receiver:self.
- tableMenu findGuiResourcesIn:self.
- ].
- ^ tableMenu
+ tableMenu isNil ifTrue:[
+ tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
+ tableMenu receiver:self.
+ tableMenu findGuiResourcesIn:self.
+ ].
+ ^ tableMenu
].
^ nil
@@ -2297,7 +2297,7 @@
"abort (raise AbortSignal in) the selected process"
self selectedProcessesDo:[:p |
- p abort
+ p abort
].
self updateList.
@@ -2350,7 +2350,7 @@
"abort (raise AbortSignal in) the selected process"
self selectedProcessesDo:[:p |
- p restart.
+ p restart.
].
self updateList.
@@ -2418,14 +2418,14 @@
selectedApplicationTopViewsDo:aBlock
self selectedProcessesDo:[:eachProcess |
- |wg app topView|
-
- wg := self windowGroupOfProcess:eachProcess.
- wg notNil ifTrue:[
- (topView := wg mainView) notNil ifTrue:[
- aBlock value:topView.
- ]
- ]
+ |wg app topView|
+
+ wg := self windowGroupOfProcess:eachProcess.
+ wg notNil ifTrue:[
+ (topView := wg mainView) notNil ifTrue:[
+ aBlock value:topView.
+ ]
+ ]
]
"Created: / 07-06-2007 / 12:42:09 / cg"
@@ -2437,13 +2437,13 @@
"open a browser on the selected process(es) application or topView"
self selectedApplicationTopViewsDo:[:topView |
- |app|
-
- (app := topView application) notNil ifTrue:[
- app class browse.
- ] ifFalse:[
- topView class browse.
- ]
+ |app|
+
+ (app := topView application) notNil ifTrue:[
+ app class browse.
+ ] ifFalse:[
+ topView class browse.
+ ]
]
"Created: / 07-06-2007 / 12:48:05 / cg"
@@ -2473,13 +2473,13 @@
"open an inspector on the selected process(es) application or topView"
self selectedApplicationTopViewsDo:[:topView |
- |app|
-
- (app := topView application) notNil ifTrue:[
- app inspect.
- ] ifFalse:[
- topView inspect.
- ]
+ |app|
+
+ (app := topView application) notNil ifTrue:[
+ app inspect.
+ ] ifFalse:[
+ topView inspect.
+ ]
]
"Modified: / 07-06-2007 / 12:46:42 / cg"
@@ -2498,34 +2498,34 @@
!
windowGroupOfProcess:aProcess
- WindowGroup scheduledWindowGroups
- do:[:eachGroup |
- (eachGroup process == aProcess) ifTrue:[
- eachGroup isModal ifTrue:[
- ^ eachGroup previousGroup
- ].
- ^ eachGroup
- ]
- ].
+ WindowGroup scheduledWindowGroups
+ do:[:eachGroup |
+ (eachGroup process == aProcess) ifTrue:[
+ eachGroup isModal ifTrue:[
+ ^ eachGroup previousGroup
+ ].
+ ^ eachGroup
+ ]
+ ].
^ nil
! !
!ProcessMonitorV2 methodsFor:'queries - table string'!
-getActiveStringFor:aProcess running:isRunning
+getActiveStringFor:aProcess running:isRunning
|stateCharacter|
isRunning ifTrue:[
- stateCharacter := '*'.
+ stateCharacter := '*'.
] ifFalse:[
- [
- (Processor scheduledProcesses includes:aProcess) ifTrue:[
- stateCharacter := '+'
- ] ifFalse:[
- stateCharacter := ''.
- ].
- ] valueUninterruptably.
+ [
+ (Processor scheduledProcesses includes:aProcess) ifTrue:[
+ stateCharacter := '+'
+ ] ifFalse:[
+ stateCharacter := ''.
+ ].
+ ] valueUninterruptably.
].
^ stateCharacter.
!
@@ -2533,16 +2533,16 @@
getCurrentSegmentStringFor:con
con notNil ifTrue:[
- | contextCount c sender|
- contextCount := 1.
- c := con.
- [(sender := c sender) notNil] whileTrue:[
- c := sender.
- contextCount := contextCount + 1.
- ].
- ^ (((ObjectMemory addressOf:con) printStringRadix:16),
- ' .. ',
- ((ObjectMemory addressOf:c) printStringRadix:16)).
+ | contextCount c sender|
+ contextCount := 1.
+ c := con.
+ [(sender := c sender) notNil] whileTrue:[
+ c := sender.
+ contextCount := contextCount + 1.
+ ].
+ ^ (((ObjectMemory addressOf:con) printStringRadix:16),
+ ' .. ',
+ ((ObjectMemory addressOf:c) printStringRadix:16)).
].
^ ''
!
@@ -2553,10 +2553,10 @@
gId := aProcess processGroupId.
((gId == aProcess id) or:[gId isNil]) ifTrue:[
- "/ a group leader
- ^ '-'.
+ "/ a group leader
+ ^ '-'.
] ifFalse:[
- ^ gId.
+ ^ gId.
].
!
@@ -2565,16 +2565,16 @@
|prioRange|
Processor supportDynamicPriorities ifTrue:[
- (prioRange := aProcess priorityRange) isNil ifTrue:[
- ^ aProcess priority asString.
- ] ifFalse:[
- ^ (aProcess priority asString,
- ' [',
- prioRange start printString,
- '..',
- prioRange stop printString,
- ']').
- ].
+ (prioRange := aProcess priorityRange) isNil ifTrue:[
+ ^ aProcess priority asString.
+ ] ifFalse:[
+ ^ (aProcess priority asString,
+ ' [',
+ prioRange start printString,
+ '..',
+ prioRange stop printString,
+ ']').
+ ].
].
^ ''
!
@@ -2583,116 +2583,114 @@
aProcess id == 0 ifTrue:[
- ^ 'unlimited'.
+ ^ 'unlimited'.
] ifFalse:[
- | tStackSize noOfSegs |
- ((tStackSize := aProcess totalStackSize) notNil and:[
- (noOfSegs := aProcess numberOfStackSegments) notNil
- ]) ifTrue:[
- ^ ((tStackSize printString),
- ' (',
- (noOfSegs printString),
- ')' )
- ]
+ | tStackSize noOfSegs |
+ ((tStackSize := aProcess totalStackSize) notNil and:[
+ (noOfSegs := aProcess numberOfStackSegments) notNil
+ ]) ifTrue:[
+ ^ ((tStackSize printString),
+ ' (',
+ (noOfSegs printString),
+ ')' )
+ ]
].
^ ''
!
-getWhereStringFor:con running:isRunning
+getWhereStringFor:con running:isRunning
|c found skipping rs rc r sel|
con notNil ifTrue:[
- c := con.
- found := false.
- isRunning ifFalse:[
- "/ search for a semaphore-wait in the top 10 contexts
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver class == Semaphore) ifTrue:[
- c selector == #wait ifTrue:[
- found := true.
- ]
- ].
- c := c sender.
- ]
- ]
- ].
- ].
- found ifFalse:[
- "/ search for a non-processor, non-process
- "/ receiver in the top 10 contexts
- c := con.
- 1 to:10 do:[:n |
- |r|
-
- found ifFalse:[
- c notNil ifTrue:[
- ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
- ]
- ]
- ]
- ].
-
- "/ skip, until an interesting context is
- "/ found.
- "/ this skips intermediate contexts, which lead
- "/ to the sema-wait (for example, unwind blocks,
- "/ delay-stuff etc.)
- found ifFalse:[
- c := con
- ].
- skipping := true.
- [ skipping ] whileTrue:[
- skipping := false.
- (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil and:[ c isBlockContext ]
- ] whileTrue:[
- c := c home.
- skipping := true.
- ].
- ].
- c notNil ifTrue:[
- sel := c selector.
- sel isNil ifTrue:[
- sel := '* unknown *'
- ].
- r := c receiver.
- rc := r class.
- rs := rc name.
- (rc == SharedQueue
- or:[rc == RecursionLock]) ifTrue:[
- rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
- ].
- ^ (rs , '>>' , sel).
- ]
+ c := con.
+ found := false.
+ isRunning ifFalse:[
+ "/ search for a semaphore-wait in the top 10 contexts
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver class == Semaphore) ifTrue:[
+ c selector == #wait ifTrue:[
+ found := true.
+ ]
+ ].
+ c := c sender.
+ ]
+ ]
+ ].
+ ].
+ found ifFalse:[
+ "/ search for a non-processor, non-process
+ "/ receiver in the top 10 contexts
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
+ ]
+ ]
+ ]
+ ]
+ ].
+
+ "/ skip, until an interesting context is
+ "/ found.
+ "/ this skips intermediate contexts, which lead
+ "/ to the sema-wait (for example, unwind blocks,
+ "/ delay-stuff etc.)
+ found ifFalse:[
+ c := con
+ ].
+ skipping := true.
+ [ skipping ] whileTrue:[
+ skipping := false.
+ (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil and:[ c isBlockContext ]
+ ] whileTrue:[
+ c := c home.
+ skipping := true.
+ ].
+ ].
+ c notNil ifTrue:[
+ sel := c selector.
+ sel isNil ifTrue:[
+ sel := '* unknown *'
+ ].
+ r := c receiver.
+ rc := r class.
+ rs := rc name.
+ (rc == SharedQueue
+ or:[rc == RecursionLock]) ifTrue:[
+ rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+ ].
+ ^ (rs , '>>' , sel).
+ ]
].
^ ''
@@ -2701,7 +2699,7 @@
!ProcessMonitorV2 methodsFor:'sorting'!
-sortProcessListBy:instanceName
+sortProcessListBy:instanceName
"method to sort the list of BugReport"
| aSymbol isReverse cmpOp currentSortOrder|
@@ -2710,55 +2708,55 @@
isReverse := false.
currentSortOrder := self currentSortOrder value.
currentSortOrder isEmpty ifTrue:[
- currentSortOrder at:#column put:aSymbol.
- currentSortOrder at:#reverse put:false.
+ currentSortOrder at:#column put:aSymbol.
+ currentSortOrder at:#reverse put:false.
] ifFalse:[
- (currentSortOrder at:#column) = aSymbol ifTrue:[
- "/ same column like before - change sort order ifReverse is true
- isReverse := currentSortOrder at:#reverse.
- currentSortOrder at:#reverse put:(isReverse not).
- ] ifFalse:[
- "/ another column - remark column
- currentSortOrder at:#column put:aSymbol.
- ]
+ (currentSortOrder at:#column) = aSymbol ifTrue:[
+ "/ same column like before - change sort order ifReverse is true
+ isReverse := currentSortOrder at:#reverse.
+ currentSortOrder at:#reverse put:(isReverse not).
+ ] ifFalse:[
+ "/ another column - remark column
+ currentSortOrder at:#column put:aSymbol.
+ ]
].
(currentSortOrder at:#reverse) ifTrue:[
- cmpOp := #'>'
+ cmpOp := #'>'
] ifFalse:[
- cmpOp := #'<'
+ cmpOp := #'<'
].
- sortBlock := [:a :b |
- |entry1 entry2|
-
- entry1 := (a perform:aSymbol) ? 0.
- entry2 := (b perform:aSymbol) ? 0.
- entry1 = entry2 ifTrue:[
- (a idVal < 0 and:[b idVal < 0]) ifTrue:[
- "/ two dead ones (take anything which remains constant)
- a processName ~= b processName ifTrue:[
- a processName < b processName
- ] ifFalse:[
- a processInstance identityHash < b processInstance identityHash
- ]
- ] ifFalse:[
- a idVal < b idVal
- ]
- ] ifFalse:[
- entry1 perform:cmpOp with:entry2
- ]
- ].
+ sortBlock := [:a :b |
+ |entry1 entry2|
+
+ entry1 := (a perform:aSymbol) ? 0.
+ entry2 := (b perform:aSymbol) ? 0.
+ entry1 = entry2 ifTrue:[
+ (a idVal < 0 and:[b idVal < 0]) ifTrue:[
+ "/ two dead ones (take anything which remains constant)
+ a processName ~= b processName ifTrue:[
+ a processName < b processName
+ ] ifFalse:[
+ a processInstance identityHash < b processInstance identityHash
+ ]
+ ] ifFalse:[
+ a idVal < b idVal
+ ]
+ ] ifFalse:[
+ entry1 perform:cmpOp with:entry2
+ ]
+ ].
self viewedColumnsChanged.
! !
!ProcessMonitorV2 methodsFor:'update process'!
-fillItemInformationIn:processItem
+fillItemInformationIn:processItem
| running con aProcess|
aProcess := processItem processInstance.
aProcess isNil ifTrue:[
- ^ self.
+ ^ self.
].
processItem processId:aProcess id.
@@ -2783,9 +2781,9 @@
con := aProcess suspendedContext.
con isNil ifTrue:[
- aProcess == Processor activeProcess ifTrue:[
- con := thisContext
- ]
+ aProcess == Processor activeProcess ifTrue:[
+ con := thisContext
+ ]
].
processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
@@ -2804,40 +2802,40 @@
startUpdateProcess
updateBlock notNil ifTrue:[
- Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
- Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+ Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
+ Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
] ifFalse:[
- updateProcess := [
- [
- |id cnt myDelay|
-
- myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
-
- "
- every updateDelay (0.5), we look which process runs;
- every half second, the status is updated.
- every listUpdateDelay (5s), the list of processes is
- built up again
- "
- [true] whileTrue:[
- ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
- myDelay wait.
- self updateStatus:nil.
- ].
- myDelay wait.
- self updateList.
- ]
- ] valueOnUnwindDo:[
- updateProcess := nil
- ]
- ] forkAt:(Processor userSchedulingPriority + 1).
- updateProcess name:'monitor [' ,
- Processor activeProcess id printString ,
- '] update'.
- "
- raise my own priority
- "
- Processor activeProcess priority:(Processor userSchedulingPriority + 2)
+ updateProcess := [
+ [
+ |id cnt myDelay|
+
+ myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
+
+ "
+ every updateDelay (0.5), we look which process runs;
+ every half second, the status is updated.
+ every listUpdateDelay (5s), the list of processes is
+ built up again
+ "
+ [true] whileTrue:[
+ ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
+ myDelay wait.
+ self updateStatus:nil.
+ ].
+ myDelay wait.
+ self updateList.
+ ]
+ ] valueOnUnwindDo:[
+ updateProcess := nil
+ ]
+ ] forkAt:(Processor userSchedulingPriority + 1).
+ updateProcess name:'monitor [' ,
+ Processor activeProcess id printString ,
+ '] update'.
+ "
+ raise my own priority
+ "
+ Processor activeProcess priority:(Processor userSchedulingPriority + 2)
].
!
@@ -2851,96 +2849,96 @@
"/ ID
oldItem processId ~= newItem processId ifTrue:[
- oldItem processId:newItem processId.
- processTable invalidateRowAt:index colAt:colIdx.
+ oldItem processId:newItem processId.
+ processTable invalidateRowAt:index colAt:colIdx.
].
"/ GROUP
self showGroup value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processGroup ~= newItem processGroup ifTrue:[
- oldItem processGroup:newItem processGroup.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processGroup ~= newItem processGroup ifTrue:[
+ oldItem processGroup:newItem processGroup.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ NAME
colIdx := colIdx + 1.
oldItem processName ~= newItem processName ifTrue:[
- oldItem processName:newItem processName.
- processTable invalidateRowAt:index colAt:colIdx.
+ oldItem processName:newItem processName.
+ processTable invalidateRowAt:index colAt:colIdx.
].
"/ ACTIVE
colIdx := colIdx + 1.
oldItem processActive ~= newItem processActive ifTrue:[
- oldItem processActive:newItem processActive.
- "/ (processTable columnAt:colIdx).
- processTable invalidateRowAt:index colAt:colIdx.
+ oldItem processActive:newItem processActive.
+ "/ (processTable columnAt:colIdx).
+ processTable invalidateRowAt:index colAt:colIdx.
].
"/ STATE
self showState value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processState ~= newItem processState ifTrue:[
- oldItem processState:newItem processState.
- "/ (processTable columnAt:colIdx).
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processState ~= newItem processState ifTrue:[
+ oldItem processState:newItem processState.
+ "/ (processTable columnAt:colIdx).
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ PRIO
self showPrio value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processPrio ~= newItem processPrio ifTrue:[
- oldItem processPrio:newItem processPrio.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processPrio ~= newItem processPrio ifTrue:[
+ oldItem processPrio:newItem processPrio.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ USED STACK
self showUsedStack value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
- oldItem processUsedStack:newItem processUsedStack.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
+ oldItem processUsedStack:newItem processUsedStack.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ TOTAL STACK
self showTotalStack value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
- oldItem processTotalStack:newItem processTotalStack.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
+ oldItem processTotalStack:newItem processTotalStack.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ CURRENT SEGMENT
self showCurrentSegment value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
- oldItem processCurrentSegment:newItem processCurrentSegment.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
+ oldItem processCurrentSegment:newItem processCurrentSegment.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ Switch
self showSwitch value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processSwitch ~= newItem processSwitch ifTrue:[
- oldItem processSwitch:newItem processSwitch.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processSwitch ~= newItem processSwitch ifTrue:[
+ oldItem processSwitch:newItem processSwitch.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"/ WHERE
self showWhere value ifTrue:[
- colIdx := colIdx + 1.
- oldItem processWhere ~= newItem processWhere ifTrue:[
- oldItem processWhere:newItem processWhere.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
+ colIdx := colIdx + 1.
+ oldItem processWhere ~= newItem processWhere ifTrue:[
+ oldItem processWhere:newItem processWhere.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
].
"Modified: / 19-03-2007 / 10:28:27 / cg"
@@ -2951,15 +2949,15 @@
|newList|
processTable shown ifTrue:[
- newList := self getProcessList.
- visibleBlock notNil ifTrue:[
- newList := newList select:[:aProc|visibleBlock value:aProc]
- ].
- self updateStatus:newList.
+ newList := self getProcessList.
+ visibleBlock notNil ifTrue:[
+ newList := newList select:[:aProc|visibleBlock value:aProc]
+ ].
+ self updateStatus:newList.
].
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:listUpdateBlock.
- Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+ Processor removeTimedBlock:listUpdateBlock.
+ Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
].
!
@@ -2970,16 +2968,16 @@
startTime := Timestamp now.
updateSema critical:[
- self updateTable:newProcessList.
+ self updateTable:newProcessList.
].
endTime := Timestamp now.
deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
"/ Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
- "/ the update took longer than 20% - make delay longer, to reduce cpu load.
- self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
- "/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
+ "/ the update took longer than 20% - make delay longer, to reduce cpu load.
+ self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
+ "/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
] ifFalse:[
"/ self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
"/ deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
@@ -2990,8 +2988,8 @@
"/ ].
].
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:updateBlock.
- Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
+ Processor removeTimedBlock:updateBlock.
+ Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
]
!
@@ -3000,60 +2998,60 @@
processTable shown ifTrue:[
"/ Transcript showCR:('update the table', Timestamp now printString, 'with new list:', newProcessList notNil asString).
- sel := self selectedProcesses value.
- sel notNil ifTrue:[
- oldSelection := OrderedCollection new.
- sel do:[:proItem|
- proItem processInstance notNil ifTrue:[
- oldSelection add:(proItem processInstance)
- ].
- ].
- ].
+ sel := self selectedProcesses value.
+ sel notNil ifTrue:[
+ oldSelection := OrderedCollection new.
+ sel do:[:proItem|
+ proItem processInstance notNil ifTrue:[
+ oldSelection add:(proItem processInstance)
+ ].
+ ].
+ ].
"/ Transcript showCR:'oldSelection on catch in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
- newProcessList isNil ifTrue:[
- newList := OrderedCollection new.
- processList do:[:oldItem |
- | newItem |
- (self showDead value
- or:[oldItem processInstance notNil
- and:[oldItem processInstance isDead not]]) ifTrue:[
- newItem := oldItem copy.
- self fillItemInformationIn:newItem.
- newList add:newItem.
- ]
- ].
- ] ifFalse:[
- "/ remove dead processes if not shown
- newList := OrderedCollection new.
- weakProcessList := WeakArray withAll:newProcessList.
- weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
- "/ in a weakarray, dead entries are 0
- (procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
- (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
- | processItem |
- processItem := ProcessItem new.
- self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
- newList add:processItem.
- ]
- ]
- ].
- ].
- newList sort:self sortBlock.
- newList doWithIndex:[:newItem :index|
- | oldItem |
- oldItem := processList at:index ifAbsent:nil.
- oldItem isNil ifTrue:[
- processList add:newItem beforeIndex:index
- ] ifFalse:[
- self updateChangedItem:oldItem newItem:newItem atIndex:index
- ]
- ].
- diff := processList size - newList size.
- diff > 0 ifTrue:[
- processList removeLast:diff
- ].
+ newProcessList isNil ifTrue:[
+ newList := OrderedCollection new.
+ processList do:[:oldItem |
+ | newItem |
+ (self showDead value
+ or:[oldItem processInstance notNil
+ and:[oldItem processInstance isDead not]]) ifTrue:[
+ newItem := oldItem copy.
+ self fillItemInformationIn:newItem.
+ newList add:newItem.
+ ]
+ ].
+ ] ifFalse:[
+ "/ remove dead processes if not shown
+ newList := OrderedCollection new.
+ weakProcessList := WeakArray withAll:newProcessList.
+ weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
+ "/ in a weakarray, dead entries are 0
+ (procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
+ (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
+ | processItem |
+ processItem := ProcessItem new.
+ self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
+ newList add:processItem.
+ ]
+ ]
+ ].
+ ].
+ newList sort:self sortBlock.
+ newList doWithIndex:[:newItem :index|
+ | oldItem |
+ oldItem := processList at:index ifAbsent:nil.
+ oldItem isNil ifTrue:[
+ processList add:newItem beforeIndex:index
+ ] ifFalse:[
+ self updateChangedItem:oldItem newItem:newItem atIndex:index
+ ]
+ ].
+ diff := processList size - newList size.
+ diff > 0 ifTrue:[
+ processList removeLast:diff
+ ].
"/ Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
- self changeSelectionToProcesses:oldSelection.
+ self changeSelectionToProcesses:oldSelection.
].
! !
@@ -3282,5 +3280,5 @@
!ProcessMonitorV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.37 2007-06-11 10:56:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.38 2007-06-12 16:25:06 cg Exp $'
! !