# HG changeset patch # User Claus Gittinger # Date 1181665506 -7200 # Node ID 9d58550237896be419d1c60832b4850467542883 # Parent 881d8fda730f95ee1ed1ff7952528cf8fe316b88 *** empty log message *** diff -r 881d8fda730f -r 9d5855023789 ProcessMonitorV2.st --- 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 " @@ -212,7 +212,7 @@ the UIHelpTool may not be able to read the specification." " - UIHelpTool openOnClass:ProcessMonitorV2 + UIHelpTool openOnClass:ProcessMonitorV2 " @@ -243,8 +243,8 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ ^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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(#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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(#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 $' ! ! diff -r 881d8fda730f -r 9d5855023789 resources/de.rs --- a/resources/de.rs Mon Jun 11 12:56:39 2007 +0200 +++ b/resources/de.rs Tue Jun 12 18:25:06 2007 +0200 @@ -1,6 +1,6 @@ #encoding utf8 -; $Header: /cvs/stx/stx/libtool/resources/de.rs,v 1.34 2007-05-29 17:32:04 cg Exp $ +; $Header: /cvs/stx/stx/libtool/resources/de.rs,v 1.35 2007-06-12 16:25:06 cg Exp $ ; ; German Workspace resources ; @@ -905,8 +905,10 @@ 'Rename Local Variable' 'Lokale Variable umbenennen' 'Rename Instance Variable' 'Instanz-Variable umbenennen' 'Rename Class Variable' 'Klassen-Variable umbenennen' -'Make Abstract (Access only via Getters/Setters)' 'Abstrakte Variable (Zugriff nur über Get/Set-Methoden)' -'Make Concrete (Protect from Access via Getters/Setters)' 'Konkrete Variable (Schutz vor Zugriff durch Get/Set-Methoden)' +; 'Make Abstract (Access only via Getters/Setters)' 'Abstrakte Variable (Zugriff nur über Get/Set-Methoden)' +; 'Make Concrete (Protect from Access via Getters/Setters)' 'Konkrete Variable (Schutz vor Zugriff durch Get/Set-Methoden)' +'Make Abstract (Access only via Getters/Setters)' 'Abstrahieren (Zugriff nur über Get/Set-Methoden)' +'Make Concrete (Protect from Access via Getters/Setters)' 'Konkretisieren (Schutz vor Zugriff durch Get/Set-Methoden)' 'Make Instance Variable' 'Zu Instanzvariable konvertieren' 'Convert to ValueHolder' 'Zu ValueHolder konvertieren' @@ -1859,7 +1861,7 @@ 'Add Shell Terminal Page' 'Neue Shell-Seite' 'File Utilities' 'Datei-Hilfmittel' -'Image' 'Bildbearbeitung' +'Image' 'Bild' 'Duplicate Files' 'Duplikate' 'All Duplicate Files (Recursive)' 'Alle Duplikate (Rekursiv)' 'Shrink Image to Fit View' 'Bild zur Anzeige verkleinern'