hg/stx-libtool: comparison ProcessMonitorV2.st

equal deleted inserted replaced

-:881d8fda730f
+:9d5855023789
 "
 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
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !ProcessMonitorV2 class methodsFor:'documentation'!
 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
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 documentation
 "
 documentation to be added.
 [author:]
-Christian Penk (penk@bierfix)
+	Christian Penk (penk@bierfix)
 [instance variables:]
 [class variables:]
 !
 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]
+								[exBegin]
 ... add code fragment for
 ... executable example here ...
-[exEnd]
+								[exEnd]
 "
 !
 history
 "Created: / 14.1.2003 / 11:16:10 / penk"
 ! !
 !ProcessMonitorV2 class methodsFor:'help'!
 aboutThisApplicationText
 ^ super aboutThisApplicationText ,
 '\\Written by Christian Penk, eXept Software AG.' withCRs
 ! !
 !ProcessMonitorV2 class methodsFor:'help specs'!
 "Do not manually edit this!! If it is corrupted,
 the UIHelpTool may not be able to read the specification."
 "
 UIHelpTool openOnClass:ProcessMonitorV2
 "
 <resource: #help>
 ^ super flyByHelpSpec addPairsFrom:#(
 "Do not manually edit this!! If it is corrupted,
 the UIHelpTool may not be able to read the specification."
 "
 UIHelpTool openOnClass:ProcessMonitorV2
 "
 <resource: #help>
 ^ super helpSpec addPairsFrom:#(
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
+	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]
+	ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@(UJ(b') ; yourself); yourself]
 !
 detailsMenuIconUp
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
+	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]
+	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
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class process22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class process22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
 @@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
 APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
 A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
 @@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
 @@@BAP@@APLC@P@@APH@@@@@@@@@@@@@@PLEAPLC@0LEAPLA@@@@@@@@@@@@@@@B@0LC@0LC@0LA@@@@@@@@@@@@@@@@APLC@ DB@0LC@ @@@@@@@@@@@@@@
 APLC@ D@@@TC@0LB@@@@@@@@@@@EAPLC@0D@@@@@APLC@0TB@@@@@@@@@PDC@0LB@@@@@@TC@0LA@P@@@@@@@@@@@ HC@0T@@@TC@0LA@@TE@@@@@@@@@@@B
 @0LCAPTC@0LA@@TFA TE@@@@@@@@APLC@0LC@0LC@PTFA@PFAP@@@@@@APLA@ LC@0LCAPTFA@PDA@XE@@@@@@HA@@@E@0LB@@TFA@PDA@PFA @@@@@@@@TE
 @@TA@@@EA XDA@PFAPT@@@@@@@@EA TE@P@@APTEA PDA @@@@@@@@@@@@TFAP@@@@TEA PDA T@@@@@@@@@@@@@A XEAPTFA PDA@X@@@@@@@@@@@@@@@TF
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
 @@@CA @@A PD@P@@A L@@@@@@@@@@@@@@PPFA PDA@PFA PA@@@@@@@@@@@@@@@CA@PD@@@DA@PA@@@@@@@@@@@@@@@@A P@@0DC@@@D@0@@@@@@@@@@@@@@
 A PD@0@@@@X@@@@@@@@@@@@@@@@FA PDA@D@@@@@@@HB@ HB@ @@@@@@@PDDA@@@@@@@@ HBAPTEAPTB@@@@@@@@@0@B@ @B@ HEAPTEAPTEAPH@@@@@@@HB
 APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
 @ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 @@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
 @@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 A XFAPTFA T@@@@@@@T@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XEAPT@@@@@@@TEAP@@@@@@@@@@
 @@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 A XFAPTFA XE@@@@AP@@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XE@@@@@@@@@@T@@@@@@@\H@@@EA XE@@@@@@@@@@@@AP@@@@@@@@@@
 @@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 @@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 A XFAPTFA T@@@@E@@@@@@@@@@@@APXFA XFA XE@@@@@@T@@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XG@@T@@@@@@@@E@@@@@@@@@@@@
 @@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
 @@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
 APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA  @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
 A XFAPTFAPTEAPTEAPTEAP@@@@@@APXFA XFA T@@@@EAP@@@@T@@@@@APXHA0XFA XE@@@@APT@@@@E@@@@@@\H@@@EA XGAP@@@@TE@@@@AP@@@@@@@@@@
 @@TH@@T@@@@EAP@@@@T@@@@@@@@@@@@EB@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@AP@@@@TE@@@@AP@@@@@@@@@@@@@@@@T@@@@EAP@@@@T@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
 @@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
 @@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 B@@FA 0KB00LAP\LB0,I@@@HB@XFA \@A X@AP(KB00KB0,I@@@@@@@GA0XFAP@@APXFB ,KB0,I@@@@@@@@@@\FA XEAPXFA  LB0,L@@@@@@@@@@@EA XF
 A XFA XLB0,KC@@@@@@@@@@EA  GA XFA XLB0$@B ,L@@@@@@@@A0 @@@TFA \@C@$H@@@JB0@@@@@@@@@@@@@@AP @C@,@@@@@@@(K@@@@@@@@@@@@@@TH
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class raiseWindow22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class raiseWindow22x22Icon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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,+
 J2,+J2,+J2,EI2 ''A"@@K @@@",+J2,+J2,+J2,EARL I0X @B8@@@H+J2,+J2,+J2,EAR$#HB\FH@@.@@@BJ2,+J2,+J2,EAR$)A"@F@2@@K @@@",+J2,+
 J2,EAR$)HPX HB@Y@B8@@@H+J2,+J2,EAPT)HRDFH@@@@@@.@@@BJ2,EJR$)HRD!!CB\''@2@@@@@@K @@DRPGA2<^D@,KJ!!<-JB@Y@@@@@B8@@@@@@@@@@@@@
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
+	constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
-ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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
 @ HJB @KB0,KB0@JB X@@@@@@P\G@PDAA @KB0,KB0,K@@XA@@@@@@DA@PDA@P@KB0,KB0,KB0,@@P@@@@@A@PDA@P@KB0,KB0@KB0,KB0@@@@@@@@DA@P@K
 B0,KB0@@@@,KB0,K@@@@@@@@@@@KB0,KB0@A@@@@B0,KB0,@@@@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@DA@P@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 48 48 48 56 59 56 64 68 64 88 92 88 128 128 128 160 160 160 192 192 192 216 219 216 239 244 239 248 252 248 160 0 0]; mask:((Depth1Image new) width: 22; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@') ; yourself); yourself]
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class terminateIcon'
+	constantNamed:#'ProcessMonitorV2 class terminateIcon'
-ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	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]
 !
 "
 <resource: #image>
 ^Icon
-constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
+	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]
+	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b') ; yourself); yourself]
 ! !
 !ProcessMonitorV2 class methodsFor:'interface specs'!
 windowSpec
 ProcessMonitorV2 open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	window:
 (WindowSpec
-label: 'ProcessMonitorV2'
+	  label: 'ProcessMonitorV2'
-name: 'ProcessMonitorV2'
+	  name: 'ProcessMonitorV2'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 791 358)
+	  bounds: (Rectangle 0 0 791 358)
-menu: mainMenu
+	  menu: mainMenu
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(MenuPanelSpec
+	   (MenuPanelSpec
-name: 'ToolBar1'
+	      name: 'ToolBar1'
-layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+	      layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-menu: toolBarMainMenu
+	      menu: toolBarMainMenu
-textDefault: true
+	      textDefault: true
-)
+	    )
-(DataSetSpec
+	   (DataSetSpec
-name: 'ProcessTable'
+	      name: 'ProcessTable'
-layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
+	      layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
-model: selectedProcesses
+	      model: selectedProcesses
-menu: tableMenu
+	      menu: tableMenu
-hasHorizontalScrollBar: true
+	      hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+	      hasVerticalScrollBar: true
-dataList: processList
+	      dataList: processList
-useIndex: false
+	      useIndex: false
-doubleClickSelector: doubleClickedAt:
+	      doubleClickSelector: doubleClickedAt:
-columnHolder: tableColumns
+	      columnHolder: tableColumns
-multipleSelectOk: true
+	      multipleSelectOk: true
-verticalSpacing: 0
+	      verticalSpacing: 0
-postBuildCallback: postBuildProcessTable:
+	      postBuildCallback: postBuildProcessTable:
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Update Contents Delay (s):'
+	      label: 'Update Contents Delay (s):'
-name: 'ContentsUpdateLabel'
+	      name: 'ContentsUpdateLabel'
-layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
+	      layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
-translateLabel: true
+	      translateLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'Box1'
+	      name: 'Box1'
-layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
+	      layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
-level: 0
+	      level: 0
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(ArrowButtonSpec
+		 (ArrowButtonSpec
-name: 'ArrowButton3'
+		    name: 'ArrowButton3'
-layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+		    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
-model: increaseupdateContentsDelayTime
+		    model: increaseupdateContentsDelayTime
-enableChannel: enableIncreaseContentsDelayTime
+		    enableChannel: enableIncreaseContentsDelayTime
-isTriggerOnDown: true
+		    isTriggerOnDown: true
-autoRepeat: true
+		    autoRepeat: true
-actionValue: ''
+		    actionValue: ''
-direction: up
+		    direction: up
-)
+		  )
-(InputFieldSpec
+		 (InputFieldSpec
-name: 'EntryField2'
+		    name: 'EntryField2'
-layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+		    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
-model: updateContentsDelayTime
+		    model: updateContentsDelayTime
-acceptOnReturn: true
+		    acceptOnReturn: true
-acceptOnTab: true
+		    acceptOnTab: true
-acceptOnLostFocus: true
+		    acceptOnLostFocus: true
-acceptOnPointerLeave: false
+		    acceptOnPointerLeave: false
-)
+		  )
-(ArrowButtonSpec
+		 (ArrowButtonSpec
-name: 'ArrowButton4'
+		    name: 'ArrowButton4'
-layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+		    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
-model: decreaseupdateContentsDelayTime
+		    model: decreaseupdateContentsDelayTime
-enableChannel: enableDecreaseContentsDelayTime
+		    enableChannel: enableDecreaseContentsDelayTime
-isTriggerOnDown: true
+		    isTriggerOnDown: true
-autoRepeat: true
+		    autoRepeat: true
-actionValue: ''
+		    actionValue: ''
-direction: down
+		    direction: down
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Update List Delay (s):'
+	      label: 'Update List Delay (s):'
-name: 'ListUpdateLabel'
+	      name: 'ListUpdateLabel'
-layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
+	      layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
-translateLabel: true
+	      translateLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'Box2'
+	      name: 'Box2'
-layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
+	      layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
-level: 0
+	      level: 0
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(ArrowButtonSpec
+		 (ArrowButtonSpec
-name: 'ArrowButton5'
+		    name: 'ArrowButton5'
-layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+		    layout: (LayoutFrame 68 0 0 0 89 0 20 0)
-model: increaseupdateListDelayTime
+		    model: increaseupdateListDelayTime
-enableChannel: enableIncreaseListDelayTime
+		    enableChannel: enableIncreaseListDelayTime
-isTriggerOnDown: true
+		    isTriggerOnDown: true
-autoRepeat: true
+		    autoRepeat: true
-actionValue: ''
+		    actionValue: ''
-direction: up
+		    direction: up
-)
+		  )
-(InputFieldSpec
+		 (InputFieldSpec
-name: 'EntryField3'
+		    name: 'EntryField3'
-layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+		    layout: (LayoutFrame 22 0 0 0 66 0 20 0)
-model: updateListDelayTime
+		    model: updateListDelayTime
-acceptOnReturn: true
+		    acceptOnReturn: true
-acceptOnTab: true
+		    acceptOnTab: true
-acceptOnLostFocus: true
+		    acceptOnLostFocus: true
-acceptOnPointerLeave: false
+		    acceptOnPointerLeave: false
-)
+		  )
-(ArrowButtonSpec
+		 (ArrowButtonSpec
-name: 'ArrowButton6'
+		    name: 'ArrowButton6'
-layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+		    layout: (LayoutFrame 0 0 0 0 20 0 20 0)
-model: decreaseupdateListDelayTime
+		    model: decreaseupdateListDelayTime
-enableChannel: enableDecreaseListDelayTime
+		    enableChannel: enableDecreaseListDelayTime
-isTriggerOnDown: true
+		    isTriggerOnDown: true
-autoRepeat: true
+		    autoRepeat: true
-actionValue: ''
+		    actionValue: ''
-direction: down
+		    direction: down
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-)
+	   )
-)
+	)
 )
 ! !
 !ProcessMonitorV2 class methodsFor:'menu specs'!
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 applicationMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Raise Applications Window'
+	    label: 'Raise Applications Window'
-itemValue: raiseApplicationWindow
+	    itemValue: raiseApplicationWindow
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Lower Applications Window'
+	    label: 'Lower Applications Window'
-itemValue: lowerApplicationWindow
+	    itemValue: lowerApplicationWindow
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Close'
+	    label: 'Close'
-itemValue: closeApplication
+	    itemValue: closeApplication
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 07-06-2007 / 12:44:21 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 debugMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Inspect Process'
+	    label: 'Inspect Process'
-itemValue: inspectSelection
+	    itemValue: inspectSelection
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Inspect Application'
+	    label: 'Inspect Application'
-itemValue: inspectApplication
+	    itemValue: inspectApplication
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Browse Application'
+	    label: 'Browse Application'
-itemValue: browseApplication
+	    itemValue: browseApplication
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Debug'
+	    label: 'Debug'
-itemValue: debugProcess
+	    itemValue: debugProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 07-06-2007 / 12:49:58 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Exit'
+		  label: 'Exit'
-itemValue: closeRequest
+		  itemValue: closeRequest
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Process'
+	    label: 'Process'
-translateLabel: true
+	    translateLabel: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-submenuChannel: processMenu
+	    submenuChannel: processMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Application'
+	    label: 'Application'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: applicationMenu
+	    submenuChannel: applicationMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Debug'
+	    label: 'Debug'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: debugMenu
+	    submenuChannel: debugMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'Help'
-translateLabel: true
+	    translateLabel: true
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Documentation'
+		  label: 'Documentation'
-itemValue: openDocumentation
+		  itemValue: openDocumentation
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'About this Application...'
+		  label: 'About this Application...'
-itemValue: openAboutThisApplication
+		  itemValue: openAboutThisApplication
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 processMenu
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithStoppedProcessHolder
+	    enabled: hasSelectionWithStoppedProcessHolder
-label: 'Resume'
+	    label: 'Resume'
-itemValue: resumeProcess
+	    itemValue: resumeProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Suspend'
+	    label: 'Suspend'
-itemValue: suspendProcess
+	    itemValue: suspendProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Stop'
+	    label: 'Stop'
-itemValue: stopProcess
+	    itemValue: stopProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Abort'
+	    label: 'Abort'
-itemValue: abortProcess
+	    itemValue: abortProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate'
+	    label: 'Terminate'
-itemValue: terminateProcess
+	    itemValue: terminateProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Hard Terminate'
+	    label: 'Hard Terminate'
-itemValue: hardTerminateProcess
+	    itemValue: hardTerminateProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate Group'
+	    label: 'Terminate Group'
-itemValue: terminateProcessGroup
+	    itemValue: terminateProcessGroup
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: selectionRestartable
+	    enabled: selectionRestartable
-label: 'Restart'
+	    label: 'Restart'
-itemValue: restartProcess
+	    itemValue: restartProcess
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Raise Prio'
+	    label: 'Raise Prio'
-itemValue: raisePrio
+	    itemValue: raisePrio
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Lower Prio'
+	    label: 'Lower Prio'
-itemValue: lowerPrio
+	    itemValue: lowerPrio
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 tableMenu
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
 "
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Debug'
+	    #label: 'Debug'
-#itemValue: #debugProcess
+	    #itemValue: #debugProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Inspect'
+	    #label: 'Inspect'
-#itemValue: #inspectSelection
+	    #itemValue: #inspectSelection
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionWithApplicationProcessHolder
+	    #enabled: #hasSelectionWithApplicationProcessHolder
-#label: 'Inspect Application'
+	    #label: 'Inspect Application'
-#itemValue: #inspectApplication
+	    #itemValue: #inspectApplication
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionWithApplicationProcessHolder
+	    #enabled: #hasSelectionWithApplicationProcessHolder
-#label: 'Browse Application'
+	    #label: 'Browse Application'
-#itemValue: #browseApplication
+	    #itemValue: #browseApplication
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionWithStoppedProcessHolder
+	    #enabled: #hasSelectionWithStoppedProcessHolder
-#label: 'Resume'
+	    #label: 'Resume'
-#itemValue: #resumeProcess
+	    #itemValue: #resumeProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Suspend'
+	    #label: 'Suspend'
-#itemValue: #suspendProcess
+	    #itemValue: #suspendProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Stop'
+	    #label: 'Stop'
-#itemValue: #stopProcess
+	    #itemValue: #stopProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Abort'
+	    #label: 'Abort'
-#itemValue: #abortProcess
+	    #itemValue: #abortProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Terminate'
+	    #label: 'Terminate'
-#itemValue: #terminateProcess
+	    #itemValue: #terminateProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Hard Terminate'
+	    #label: 'Hard Terminate'
-#itemValue: #hardTerminateProcess
+	    #itemValue: #hardTerminateProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Terminate Group'
+	    #label: 'Terminate Group'
-#itemValue: #terminateProcessGroup
+	    #itemValue: #terminateProcessGroup
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #selectionRestartable
+	    #enabled: #selectionRestartable
-#label: 'Restart'
+	    #label: 'Restart'
-#itemValue: #restartProcess
+	    #itemValue: #restartProcess
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Raise Prio'
+	    #label: 'Raise Prio'
-#itemValue: #raisePrio
+	    #itemValue: #raisePrio
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#enabled: #hasSelectionHolder
+	    #enabled: #hasSelectionHolder
-#label: 'Lower Prio'
+	    #label: 'Lower Prio'
-#itemValue: #lowerPrio
+	    #itemValue: #lowerPrio
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 07-06-2007 / 12:49:47 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: Inspect
+	    activeHelpKey: Inspect
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Inspect'
+	    label: 'Inspect'
-itemValue: inspectSelection
+	    itemValue: inspectSelection
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Debug
+	    activeHelpKey: Debug
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Debug'
+	    label: 'Debug'
-itemValue: debugProcess
+	    itemValue: debugProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: RaiseWindow
+	    activeHelpKey: RaiseWindow
-enabled: hasSelectionWithApplicationProcessHolder
+	    enabled: hasSelectionWithApplicationProcessHolder
-label: 'Raise Applications Window'
+	    label: 'Raise Applications Window'
-itemValue: raiseApplicationWindow
+	    itemValue: raiseApplicationWindow
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: allowModifications
+	    isVisible: allowModifications
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Resume
+	    activeHelpKey: Resume
-enabled: hasSelectionWithStoppedProcessHolder
+	    enabled: hasSelectionWithStoppedProcessHolder
-label: 'Resume'
+	    label: 'Resume'
-itemValue: resumeProcess
+	    itemValue: resumeProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Stop
+	    activeHelpKey: Stop
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Stop'
+	    label: 'Stop'
-itemValue: stopProcess
+	    itemValue: stopProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: allowModifications
+	    isVisible: allowModifications
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Abort
+	    activeHelpKey: Abort
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Abort'
+	    label: 'Abort'
-itemValue: abortProcess
+	    itemValue: abortProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Terminate
+	    activeHelpKey: Terminate
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate'
+	    label: 'Terminate'
-itemValue: terminateProcess
+	    itemValue: terminateProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: #'Terminate Group'
+	    activeHelpKey: #'Terminate Group'
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate Group'
+	    label: 'Terminate Group'
-itemValue: terminateProcessGroup
+	    itemValue: terminateProcessGroup
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Restart
+	    activeHelpKey: Restart
-enabled: selectionRestartable
+	    enabled: selectionRestartable
-label: 'Restart'
+	    label: 'Restart'
-itemValue: restartProcess
+	    itemValue: restartProcess
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: allowModifications
+	    isVisible: allowModifications
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: #'Raise Prio'
+	    activeHelpKey: #'Raise Prio'
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Raise Prio'
+	    label: 'Raise Prio'
-itemValue: raisePrio
+	    itemValue: raisePrio
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: #'Lower Prio'
+	    activeHelpKey: #'Lower Prio'
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Lower Prio'
+	    label: 'Lower Prio'
-itemValue: lowerPrio
+	    itemValue: lowerPrio
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-isVisible: allowModifications
+	    isVisible: allowModifications
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: #'Update Process List'
+	    activeHelpKey: #'Update Process List'
-label: 'Update'
+	    label: 'Update'
-itemValue: updateList
+	    itemValue: updateList
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Details
+	    activeHelpKey: Details
-label: 'View Details'
+	    label: 'View Details'
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 05-06-2007 / 18:35:31 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Id'
+	    #label: 'Id'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showProcessId
+	    #indication: #showProcessId
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Group'
+	    #label: 'Group'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showGroup
+	    #indication: #showGroup
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'State'
+	    #label: 'State'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showState
+	    #indication: #showState
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Prio'
+	    #label: 'Prio'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showPrio
+	    #indication: #showPrio
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Used Stack'
+	    #label: 'Used Stack'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showUsedStack
+	    #indication: #showUsedStack
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Total Stack'
+	    #label: 'Total Stack'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showTotalStack
+	    #indication: #showTotalStack
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Current-Segment'
+	    #label: 'Current-Segment'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showCurrentSegment
+	    #indication: #showCurrentSegment
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Switch'
+	    #label: 'Switch'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showSwitch
+	    #indication: #showSwitch
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Where'
+	    #label: 'Where'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #showWhere
+	    #indication: #showWhere
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Show Dead Processes'
+	    #label: 'Show Dead Processes'
-#translateLabel: true
+	    #translateLabel: true
-#indication: #showDead
+	    #indication: #showDead
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: '-'
+	    #label: '-'
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#label: 'Update'
+	    #label: 'Update'
-#itemValue: #updateView
+	    #itemValue: #updateView
-#translateLabel: true
+	    #translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 ! !
 !ProcessMonitorV2 class methodsFor:'tableColumns specs'!
 <resource: #tableColumns>
 ^#(
 #(#DataSetColumnSpec
-#label: 'Id'
+	 #label: 'Id'
-#id: #id
+	 #id: #id
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'idVal'
+	 #labelActionArgument: 'idVal'
-#width: 45
+	 #width: 45
-#type: #number
+	 #type: #number
-#model: #processId
+	 #model: #processId
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Group'
+	 #label: 'Group'
-#id: #group
+	 #id: #group
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'groupVal'
+	 #labelActionArgument: 'groupVal'
-#width: 45
+	 #width: 45
-#model: #processGroup
+	 #model: #processGroup
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Name'
+	 #label: 'Name'
-#id: #name
+	 #id: #name
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processName'
+	 #labelActionArgument: 'processName'
-#width: 200
+	 #width: 200
-#model: #processName
+	 #model: #processName
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: ''
+	 #label: ''
-#id: #active
+	 #id: #active
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processActive'
+	 #labelActionArgument: 'processActive'
-#width: 10
+	 #width: 10
-#height: 5
+	 #height: 5
-#model: #processActive
+	 #model: #processActive
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'State'
+	 #label: 'State'
-#id: #state
+	 #id: #state
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processState'
+	 #labelActionArgument: 'processState'
-#width: 100
+	 #width: 100
-#model: #processState
+	 #model: #processState
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Prio'
+	 #label: 'Prio'
-#id: #prio
+	 #id: #prio
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'prioVal'
+	 #labelActionArgument: 'prioVal'
-#width: 40
+	 #width: 40
-#model: #processPrio
+	 #model: #processPrio
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Used Stack'
+	 #label: 'Used Stack'
-#id: #usedStack
+	 #id: #usedStack
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processUsedStack'
+	 #labelActionArgument: 'processUsedStack'
-#columnAlignment: #right
+	 #columnAlignment: #right
-#width: 75
+	 #width: 75
-#type: #number
+	 #type: #number
-#model: #processUsedStack
+	 #model: #processUsedStack
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Total Stack'
+	 #label: 'Total Stack'
-#id: #totalStack
+	 #id: #totalStack
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processTotalStack'
+	 #labelActionArgument: 'processTotalStack'
-#columnAlignment: #right
+	 #columnAlignment: #right
-#width: 75
+	 #width: 75
-#model: #processTotalStack
+	 #model: #processTotalStack
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Current-Segment'
+	 #label: 'Current-Segment'
-#id: #currentSegment
+	 #id: #currentSegment
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processCurrentSegment'
+	 #labelActionArgument: 'processCurrentSegment'
-#width: 110
+	 #width: 110
-#model: #processCurrentSegment
+	 #model: #processCurrentSegment
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Switch'
+	 #label: 'Switch'
-#id: #switch
+	 #id: #switch
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processSwitch'
+	 #labelActionArgument: 'processSwitch'
-#columnAlignment: #right
+	 #columnAlignment: #right
-#width: 55
+	 #width: 55
-#type: #number
+	 #type: #number
-#model: #processSwitch
+	 #model: #processSwitch
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 #(#DataSetColumnSpec
-#label: 'Where'
+	 #label: 'Where'
-#id: #where
+	 #id: #where
-#labelAlignment: #left
+	 #labelAlignment: #left
-#labelButtonType: #Button
+	 #labelButtonType: #Button
-#labelActionSelector: #sortProcessListBy:
+	 #labelActionSelector: #sortProcessListBy:
-#labelActionArgument: 'processWhere'
+	 #labelActionArgument: 'processWhere'
-#model: #processWhere
+	 #model: #processWhere
-#canSelect: false
+	 #canSelect: false
-#showRowSeparator: false
+	 #showRowSeparator: false
-#showColSeparator: false
+	 #showColSeparator: false
 )
 )
 ! !
 !ProcessMonitorV2 methodsFor:'accessing'!
 !ProcessMonitorV2 methodsFor:'actions'!
 changeSelectionTo:aSelection
 aSelection notNil ifTrue:[
-| newSelection |
+	| newSelection |
-newSelection := OrderedCollection new.
+	newSelection := OrderedCollection new.
-aSelection do:[:processItem |
+	aSelection do:[:processItem |
-| index |
+	    | index |
-index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
+	    index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
-index ~~ 0 ifTrue:[
+	    index ~~ 0 ifTrue:[
-newSelection add:(processList at:index).
+		newSelection add:(processList at:index).
-].
+	    ].
-].
+	].
-self selectedProcesses value:newSelection
+	self selectedProcesses value:newSelection
 ].
 !
 changeSelectionToProcesses:aProcessList
 aProcessList notNil ifTrue:[
-| newSelection |
+	| newSelection |
-newSelection := OrderedCollection new.
+	newSelection := OrderedCollection new.
-aProcessList do:[:aProcess |
+	aProcessList do:[:aProcess |
-| index |
+	    | index |
-index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
+	    index := processList findFirst:[:anItem | (anItem processInstance == aProcess)].
-index ~~ 0 ifTrue:[
+	    index ~~ 0 ifTrue:[
-newSelection add:(processList at:index).
+		newSelection add:(processList at:index).
-].
+	    ].
-].
+	].
-self selectedProcesses value:newSelection
+	self selectedProcesses value:newSelection
 ].
 !
 decreaseupdateContentsDelayTime
 Subclasses may redefine this"
 |coll|
 self showDead value ifTrue:[
-coll := Process allSubInstances asOrderedCollection.
+	coll := Process allSubInstances asOrderedCollection.
 ] ifFalse:[
-coll := ProcessorScheduler knownProcesses asOrderedCollection.
+	coll := ProcessorScheduler knownProcesses asOrderedCollection.
 ].
 ^ coll
 !
 increaseupdateContentsDelayTime
 sel := self selectedProcesses value.
 sel isNil ifTrue:[^ self].
 sel do:[:processItem |
-proc := processItem processInstance.
+	proc := processItem processInstance.
-proc notNil ifTrue:[
+	proc notNil ifTrue:[
-aBlock value:proc.
+	    aBlock value:proc.
-].
+	].
 ].
 "Modified: / 07-06-2007 / 12:38:25 / cg"
 !
 selectedProcessesSend:aSelector
 "send a message to all selected processes"
 self selectedProcessesDo:[:p |
-p perform:aSelector
+	p perform:aSelector
 ].
 self updateList.
 "Modified: / 07-06-2007 / 12:38:29 / cg"
 !ProcessMonitorV2 methodsFor:'aspects'!
 allowModifications
 allowModifications isNil ifTrue:[
-allowModifications := true asValue
+	allowModifications := true asValue
 ].
 ^ allowModifications
 !
 currentSortOrder
 "return/create the 'currentSortOrder' value holder (automatically generated)"
 currentSortOrder isNil ifTrue:[
-currentSortOrder := Dictionary new asValue.
+	currentSortOrder := Dictionary new asValue.
 ].
 ^ currentSortOrder
 !
 enableDecreaseContentsDelayTime
 enableDecreaseContentsDelayTime isNil ifTrue:[
-enableDecreaseContentsDelayTime := true asValue.
+	enableDecreaseContentsDelayTime := true asValue.
 ].
 ^ enableDecreaseContentsDelayTime.
 !
 enableDecreaseListDelayTime
 enableDecreaseListDelayTime isNil ifTrue:[
-enableDecreaseListDelayTime := true asValue.
+	enableDecreaseListDelayTime := true asValue.
 ].
 ^ enableDecreaseListDelayTime.
 !
 enableIncreaseContentsDelayTime
 enableIncreaseContentsDelayTime isNil ifTrue:[
-enableIncreaseContentsDelayTime := true asValue.
+	enableIncreaseContentsDelayTime := true asValue.
 ].
 ^ enableIncreaseContentsDelayTime.
 !
 enableIncreaseListDelayTime
 enableIncreaseListDelayTime isNil ifTrue:[
-enableIncreaseListDelayTime := true asValue.
+	enableIncreaseListDelayTime := true asValue.
 ].
 ^ enableIncreaseListDelayTime.
 !
 hasSelection
 "Created: / 05-06-2007 / 17:52:01 / cg"
 !
 hasSelectionWithProcessForWhich:aBlock
 ^ self hasSelection
 and:[ self selectedProcesses value contains:[:pItem |
-|process|
+		|process|
-process := pItem processInstance.
+		process := pItem processInstance.
-process notNil and:[ aBlock value:process ]]  ]
+		process notNil and:[ aBlock value:process ]]  ]
 "Created: / 05-06-2007 / 17:40:27 / cg"
 !
 hasSelectionWithStoppedProcess
 !
 processList
 processList isNil ifTrue:[
-processList := List new.
+	processList := List new.
 ].
 ^ processList.
 !
 scaledUpdateContentsDelayTime
 !
 selectedProcesses
 selectedProcesses isNil ifTrue:[
-selectedProcesses := ValueHolder new.
+	selectedProcesses := ValueHolder new.
-selectedProcesses addDependent:self.
+	selectedProcesses addDependent:self.
 ].
 ^ selectedProcesses.
 !
 selectionRestartable
 selectionRestartable isNil ifTrue:[
-selectionRestartable := ValueHolder new.
+	selectionRestartable := ValueHolder new.
 ].
 ^ selectionRestartable
 !
 showDead
 "return/create the 'showDead' value holder (automatically generated)"
 showDead isNil ifTrue:[
-showDead := false asValue.
+	showDead := false asValue.
-showDead addDependent:self.
+	showDead addDependent:self.
 ].
 ^ showDead
 !
 sortBlock
 sortBlock isNil ifTrue:[
-| curSortOrder defaultSortInstance|
+	| curSortOrder defaultSortInstance|
-defaultSortInstance := #idVal.
+	defaultSortInstance := #idVal.
-sortBlock := [:a :b |
+	sortBlock := [:a :b |
-((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
+	    ((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
-].
+	].
-curSortOrder := self currentSortOrder value.
+	curSortOrder := self currentSortOrder value.
-curSortOrder at:#column put:defaultSortInstance.
+	curSortOrder at:#column put:defaultSortInstance.
-curSortOrder at:#reverse put:true.
+	curSortOrder at:#reverse put:true.
 ].
 ^ sortBlock
 !
 tableColumns
 tableColumns isNil ifTrue:[
-tableColumns := self class tableColumns asValue.
+	tableColumns := self class tableColumns asValue.
 ].
 ^ tableColumns.
 !
 updateContentsDelayTime
 updateContentsDelayTime isNil ifTrue:[
-updateContentsDelayTime := updateDelay asValue.
+	updateContentsDelayTime := updateDelay asValue.
-updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
+	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
 ].
 ^ updateContentsDelayTime.
 !
 updateListDelayTime
 updateListDelayTime isNil ifTrue:[
-updateListDelayTime := listUpdateDelay asValue.
+	updateListDelayTime := listUpdateDelay asValue.
-updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
+	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
 ].
 ^ updateListDelayTime.
 ! !
 !ProcessMonitorV2 methodsFor:'aspects column'!
 showCurrentSegment
 "return/create the 'showCurrentSegment' value holder (automatically generated)"
 showCurrentSegment isNil ifTrue:[
-showCurrentSegment := showDetail asValue.
+	showCurrentSegment := showDetail asValue.
-showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
+	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
 ].
 ^ showCurrentSegment
 !
 showGroup
 "return/create the 'showGroup' value holder (automatically generated)"
 showGroup isNil ifTrue:[
-showGroup := true asValue.
+	showGroup := true asValue.
-showGroup onChangeSend:#viewedColumnsChanged to:self.
+	showGroup onChangeSend:#viewedColumnsChanged to:self.
 ].
 ^ showGroup
 !
 showPrio
 "return/create the 'showPrio' value holder (automatically generated)"
 showPrio isNil ifTrue:[
-showPrio := true asValue.
+	showPrio := true asValue.
-showPrio onChangeSend:#viewedColumnsChanged to:self.
+	showPrio onChangeSend:#viewedColumnsChanged to:self.
 ].
 ^ showPrio
 !
 showProcessId
 showProcessId isNil ifTrue:[
-showProcessId := true asValue.
+	showProcessId := true asValue.
-showProcessId onChangeSend:#viewedColumnsChanged to:self
+	showProcessId onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showProcessId
 !
 showState
 "return/create the 'showState' value holder (automatically generated)"
 showState isNil ifTrue:[
-showState := true asValue.
+	showState := true asValue.
-showState onChangeSend:#viewedColumnsChanged to:self
+	showState onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showState
 !
 showSwitch
 "return/create the 'showSwitch' value holder (automatically generated)"
 showSwitch isNil ifTrue:[
-showSwitch := showDetail asValue.
+	showSwitch := showDetail asValue.
-showSwitch onChangeSend:#viewedColumnsChanged to:self
+	showSwitch onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showSwitch
 !
 showTotalStack
 "return/create the 'showTotalStack' value holder (automatically generated)"
 showTotalStack isNil ifTrue:[
-showTotalStack := showDetail asValue.
+	showTotalStack := showDetail asValue.
-showTotalStack onChangeSend:#viewedColumnsChanged to:self
+	showTotalStack onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showTotalStack
 !
 showUsedStack
 "return/create the 'showUsedStack' value holder (automatically generated)"
 showUsedStack isNil ifTrue:[
-showUsedStack := showDetail asValue.
+	showUsedStack := showDetail asValue.
-showUsedStack onChangeSend:#viewedColumnsChanged to:self
+	showUsedStack onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showUsedStack
 !
 showWhere
 "return/create the 'showWhere' value holder (automatically generated)"
 showWhere isNil ifTrue:[
-showWhere := true asValue.
+	showWhere := true asValue.
-showWhere onChangeSend:#viewedColumnsChanged to:self
+	showWhere onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showWhere
 ! !
 !ProcessMonitorV2 methodsFor:'change & update'!
 self hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
 self hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
 self hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
 hasSelection ifFalse:[
-self selectionRestartable value:false.
+	self selectionRestartable value:false.
-^ self
+	^ self
 ].
 allRestartable := true.
 self selectedProcessesDo:[:p |
-p isRestartable ifFalse:[
+	p isRestartable ifFalse:[
-allRestartable := false
+	    allRestartable := false
-].
+	].
 ].
 self selectionRestartable value:allRestartable.
 ^ self.
 "Modified: / 05-06-2007 / 17:51:48 / cg"
 "Invoked when an object that I depend upon sends a change notification."
 "stub code automatically generated - please change as required"
 changedObject == builder window ifTrue:[
-something == #visibility ifTrue:[
+	something == #visibility ifTrue:[
-self updateList.
+	    self updateList.
-].
+	].
 ].
 changedObject == self selectedProcesses ifTrue:[
-self selectionChanged.
+	self selectionChanged.
-^ self
+	^ self
 ].
 changedObject == self showDead ifTrue:[
-self updateList.
+	self updateList.
-^ self
+	^ self
 ].
 super update:something with:aParameter from:changedObject
 !
 viewedColumnsChanged
 | columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel|
 sel := self selectedProcesses value.
 sel notNil ifTrue:[
-oldSelection := OrderedCollection new.
+	oldSelection := OrderedCollection new.
-sel do:[:proItem|
+	sel do:[:proItem|
-proItem processInstance notNil ifTrue:[
+	    proItem processInstance notNil ifTrue:[
-oldSelection add:(proItem processInstance)
+		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 |
-id := col id.
+	id := col id.
-id notNil ifTrue:[
+	id notNil ifTrue:[
-(col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
+	    (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
-| label icon|
+		| label icon|
-label := col label.
+		label := col label.
-icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
+		icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
-col label:(LabelAndIcon label:label icon:icon).
+		col label:(LabelAndIcon label:label icon:icon).
-].
+	    ].
-#(
+	    #(
-( #id             #showProcessId)
+		( #id             #showProcessId)
-( #group          #showGroup)
+		( #group          #showGroup)
-( #prio           #showPrio)
+		( #prio           #showPrio)
-( #currentSegment #showCurrentSegment)
+		( #currentSegment #showCurrentSegment)
-( #state          #showState)
+		( #state          #showState)
-( #switch         #showSwitch)
+		( #switch         #showSwitch)
-( #totalStack     #showTotalStack)
+		( #totalStack     #showTotalStack)
-( #usedStack      #showUsedStack)
+		( #usedStack      #showUsedStack)
-( #where          #showWhere)
+		( #where          #showWhere)
-) pairsDo:[:colName :holderAccessorSelector |
+	    ) pairsDo:[:colName :holderAccessorSelector |
-(id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
+		(id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
-columns remove:col.
+		    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"
 ! !
 Return true, if I have eaten the event"
 |focusView key rawKey|
 anEvent isKeyPressEvent ifTrue:[
-focusView := anEvent targetView.
+	focusView := anEvent targetView.
-key := anEvent key.
+	key := anEvent key.
-rawKey := anEvent rawKey.
+	rawKey := anEvent rawKey.
-(focusView == processList) ifTrue:[
+	(focusView == processList) ifTrue:[
-key == #InspectIt ifTrue:[
+	    key == #InspectIt ifTrue:[
-self inspectSelection.
+		self inspectSelection.
-^ true.
+		^ true.
-].
+	    ].
-]
+	]
 ].
 ^ false
 ! !
 !ProcessMonitorV2 methodsFor:'initialization & release'!
 listUpdateDelay := 5.0.
 "/ event mode is no longer used;
 "/ this event support may vanish
 Processor isPureEventDriven ifTrue:[
-updateBlock := [self updateStatus:nil].
+	updateBlock := [self updateStatus:nil].
-listUpdateBlock := [self updateList].
+	listUpdateBlock := [self updateList].
 ].
 "Modified: / 05-06-2007 / 17:53:48 / cg"
 !
 self windowGroup addPreEventHook:self.
 !
 release
 updateBlock notNil ifTrue:[
-Processor removeTimedBlock:updateBlock.
+	Processor removeTimedBlock:updateBlock.
-updateBlock := nil.
+	updateBlock := nil.
 ].
 listUpdateBlock notNil ifTrue:[
-Processor removeTimedBlock:listUpdateBlock.
+	Processor removeTimedBlock:listUpdateBlock.
-listUpdateBlock := nil.
+	listUpdateBlock := nil.
 ].
 updateProcess notNil ifTrue:[
-updateProcess terminate.
+	updateProcess terminate.
-updateProcess := nil.
+	updateProcess := nil.
 ].
 super release
 !
 restarted
 !ProcessMonitorV2 methodsFor:'menu accessing'!
 tableMenu
 ^[
-self tableMenuAccess
+	self tableMenuAccess
 ]
 !
 tableMenuAccess
 self allowModifications value ifTrue:[
-tableMenu isNil ifTrue:[
+	tableMenu isNil ifTrue:[
-tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
+	    tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
-tableMenu receiver:self.
+	    tableMenu receiver:self.
-tableMenu findGuiResourcesIn:self.
+	    tableMenu findGuiResourcesIn:self.
-].
+	].
-^ tableMenu
+	^ tableMenu
 ].
 ^ nil
 "Modified: / 27-03-2007 / 08:43:43 / cg"
 ! !
 abortProcess
 "abort (raise AbortSignal in) the selected process"
 self selectedProcessesDo:[:p |
-p abort
+	p abort
 ].
 self updateList.
 "Modified: / 07-06-2007 / 12:38:42 / cg"
 !
 restartProcess
 "abort (raise AbortSignal in) the selected process"
 self selectedProcessesDo:[:p |
-p restart.
+	p restart.
 ].
 self updateList.
 "Modified: / 07-06-2007 / 12:39:04 / cg"
 !
 "Modified: / 07-06-2007 / 12:43:55 / cg"
 !
 selectedApplicationTopViewsDo:aBlock
 self selectedProcessesDo:[:eachProcess |
-|wg app topView|
+	|wg app topView|
-wg := self windowGroupOfProcess:eachProcess.
+	wg := self windowGroupOfProcess:eachProcess.
-wg notNil ifTrue:[
+	wg notNil ifTrue:[
-(topView := wg mainView) notNil ifTrue:[
+	    (topView := wg mainView) notNil ifTrue:[
-aBlock value:topView.
+		aBlock value:topView.
-]
+	    ]
-]
+	]
 ]
 "Created: / 07-06-2007 / 12:42:09 / cg"
 ! !
 browseApplication
 "open a browser on the selected process(es) application or topView"
 self selectedApplicationTopViewsDo:[:topView |
-|app|
+	|app|
-(app := topView application) notNil ifTrue:[
+	(app := topView application) notNil ifTrue:[
-app class browse.
+	    app class browse.
-] ifFalse:[
+	] ifFalse:[
-topView class browse.
+	    topView class browse.
-]
+	]
 ]
 "Created: / 07-06-2007 / 12:48:05 / cg"
 !
 inspectApplication
 "open an inspector on the selected process(es) application or topView"
 self selectedApplicationTopViewsDo:[:topView |
-|app|
+	|app|
-(app := topView application) notNil ifTrue:[
+	(app := topView application) notNil ifTrue:[
-app inspect.
+	    app inspect.
-] ifFalse:[
+	] ifFalse:[
-topView inspect.
+	    topView inspect.
-]
+	]
 ]
 "Modified: / 07-06-2007 / 12:46:42 / cg"
 !
 isApplicationProcess:aProcess
 ^ (self windowGroupOfProcess:aProcess) notNil.
 !
 windowGroupOfProcess:aProcess
 WindowGroup scheduledWindowGroups
-do:[:eachGroup |
+	do:[:eachGroup |
-(eachGroup process == aProcess) ifTrue:[
+	    (eachGroup process == aProcess) ifTrue:[
-eachGroup isModal ifTrue:[
+		eachGroup isModal ifTrue:[
-^ eachGroup previousGroup
+		    ^ eachGroup previousGroup
-].
+		].
-^ eachGroup
+		^ eachGroup
-]
+	    ]
-].
+	].
 ^ nil
 ! !
 !ProcessMonitorV2 methodsFor:'queries - table string'!
 getActiveStringFor:aProcess running:isRunning
 |stateCharacter|
 isRunning ifTrue:[
-stateCharacter := '*'.
+	stateCharacter := '*'.
 ] ifFalse:[
-[
+	[
-(Processor scheduledProcesses includes:aProcess) ifTrue:[
+	    (Processor scheduledProcesses includes:aProcess) ifTrue:[
-stateCharacter := '+'
+		stateCharacter := '+'
-] ifFalse:[
+	    ] ifFalse:[
-stateCharacter := ''.
+		stateCharacter := ''.
-].
+	    ].
-] valueUninterruptably.
+	] valueUninterruptably.
 ].
 ^ stateCharacter.
 !
 getCurrentSegmentStringFor:con
 con notNil ifTrue:[
-| contextCount c sender|
+	| contextCount c sender|
-contextCount := 1.
+	contextCount := 1.
-c := con.
+	c := con.
-[(sender := c sender) notNil] whileTrue:[
+	[(sender := c sender) notNil] whileTrue:[
-c := sender.
+	    c := sender.
-contextCount := contextCount + 1.
+	    contextCount := contextCount + 1.
-].
+	].
-^ (((ObjectMemory addressOf:con) printStringRadix:16),
+	^ (((ObjectMemory addressOf:con) printStringRadix:16),
-' .. ',
+	   ' .. ',
-((ObjectMemory addressOf:c) printStringRadix:16)).
+	   ((ObjectMemory addressOf:c) printStringRadix:16)).
 ].
 ^ ''
 !
 getGroupStringFor:aProcess
 |gId|
 gId := aProcess processGroupId.
 ((gId == aProcess id) or:[gId isNil]) ifTrue:[
-"/ a group leader
+	"/ a group leader
-^ '-'.
+	^ '-'.
 ] ifFalse:[
-^ gId.
+	^ gId.
 ].
 !
 getPrioStringFor:aProcess
 |prioRange|
 Processor supportDynamicPriorities ifTrue:[
-(prioRange := aProcess priorityRange) isNil ifTrue:[
+	(prioRange := aProcess priorityRange) isNil ifTrue:[
-^ aProcess priority asString.
+	    ^ aProcess priority asString.
-] ifFalse:[
+	] ifFalse:[
-^ (aProcess priority asString,
+	    ^ (aProcess priority asString,
-' [',
+		    ' [',
-prioRange start printString,
+		    prioRange start printString,
-'..',
+		    '..',
-prioRange stop printString,
+		    prioRange stop printString,
-']').
+		    ']').
-].
+	].
 ].
 ^ ''
 !
 getTotalStackStringFor:aProcess
 aProcess id == 0 ifTrue:[
-^ 'unlimited'.
+	^ 'unlimited'.
 ] ifFalse:[
-| tStackSize noOfSegs |
+	| tStackSize noOfSegs |
-((tStackSize := aProcess totalStackSize) notNil and:[
+	((tStackSize := aProcess totalStackSize) notNil and:[
-(noOfSegs := aProcess numberOfStackSegments) notNil
+	 (noOfSegs := aProcess numberOfStackSegments) notNil
-]) ifTrue:[
+	]) ifTrue:[
-^ ((tStackSize printString),
+	    ^ ((tStackSize printString),
-' (',
+	       ' (',
-(noOfSegs printString),
+	       (noOfSegs printString),
-')' )
+	       ')' )
-]
+	]
 ].
 ^ ''
 !
 getWhereStringFor:con running:isRunning
 |c found skipping rs rc r sel|
 con notNil ifTrue:[
-c := con.
+	c := con.
-found := false.
+	found := false.
-isRunning ifFalse:[
+	isRunning ifFalse:[
-"/ search for a semaphore-wait in the top 10 contexts
+	    "/ search for a semaphore-wait in the top 10 contexts
-1 to:10 do:[:n |
+	    1 to:10 do:[:n |
-found ifFalse:[
+		found ifFalse:[
-c notNil ifTrue:[
+		    c notNil ifTrue:[
-(c receiver class == Semaphore) ifTrue:[
+			(c receiver class == Semaphore) ifTrue:[
-c selector == #wait ifTrue:[
+			    c selector == #wait ifTrue:[
-found := true.
+				found := true.
-]
+			    ]
-].
+			].
-c := c sender.
+			c := c sender.
-]
+		    ]
-]
+		]
-].
+	    ].
-].
+	].
-found ifFalse:[
+	found ifFalse:[
-"/ search for a non-processor, non-process
+	    "/ search for a non-processor, non-process
-"/ receiver in the top 10 contexts
+	    "/ receiver in the top 10 contexts
-c := con.
+	    c := con.
-1 to:10 do:[:n |
+	    1 to:10 do:[:n |
-|r|
+		found ifFalse:[
+		    c notNil ifTrue:[
-found ifFalse:[
+			((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
-c notNil ifTrue:[
+			    found := true.
-((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+			] ifFalse:[
-found := true.
+			    c := c sender.
-] ifFalse:[
+			]
-c := c sender.
+		    ]
-]
+		]
-]
+	    ]
-]
+	].
-]
-].
+	"/ skip, until an interesting context is
+	"/ found.
-"/ skip, until an interesting context is
+	"/ this skips intermediate contexts, which lead
-"/ found.
+	"/ to the sema-wait (for example, unwind blocks,
-"/ this skips intermediate contexts, which lead
+	"/ delay-stuff etc.)
-"/ to the sema-wait (for example, unwind blocks,
+	found ifFalse:[
-"/ delay-stuff etc.)
+	    c := con
-found ifFalse:[
+	].
-c := con
+	skipping := true.
-].
+	[ skipping ] whileTrue:[
-skipping := true.
+	    skipping := false.
-[ skipping ] whileTrue:[
+	    (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
-skipping := false.
+		c := c sender.
-(c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
+		skipping := true.
-c := c sender.
+	    ].
-skipping := true.
+	    [
-].
+		c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
-[
+	    ] whileTrue:[
-c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
+		c := c sender.
-] whileTrue:[
+		skipping := true.
-c := c sender.
+	    ].
-skipping := true.
+	    [
-].
+		c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
-[
+	    ] whileTrue:[
-c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
+		c := c sender.
-] whileTrue:[
+		skipping := true.
-c := c sender.
+	    ].
-skipping := true.
+	    [
-].
+		c notNil
-[
+		    and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
-c notNil
+	    ] whileTrue:[
-and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
+		c := c sender.
-] whileTrue:[
+		skipping := true.
-c := c sender.
+	    ].
-skipping := true.
+	    [
-].
+		c notNil and:[ c isBlockContext ]
-[
+	    ] whileTrue:[
-c notNil and:[ c isBlockContext ]
+		c := c home.
-] whileTrue:[
+		skipping := true.
-c := c home.
+	    ].
-skipping := true.
+	].
-].
+	c notNil ifTrue:[
-].
+	    sel := c selector.
-c notNil ifTrue:[
+	    sel isNil ifTrue:[
-sel := c selector.
+		sel := '* unknown *'
-sel isNil ifTrue:[
+	    ].
-sel := '* unknown *'
+	    r := c receiver.
-].
+	    rc := r class.
-r := c receiver.
+	    rs := rc name.
-rc := r class.
+	    (rc == SharedQueue
-rs := rc name.
+	    or:[rc == RecursionLock]) ifTrue:[
-(rc == SharedQueue
+		rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
-or:[rc == RecursionLock]) ifTrue:[
+	    ].
-rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+	    ^ (rs , '>>' , sel).
-].
+	]
-^ (rs , '>>' , sel).
-]
 ].
 ^ ''
 "Modified: / 07-06-2007 / 22:53:40 / cg"
 ! !
 !ProcessMonitorV2 methodsFor:'sorting'!
 sortProcessListBy:instanceName
 "method to sort the list of BugReport"
 | aSymbol isReverse cmpOp currentSortOrder|
 aSymbol := instanceName asSymbol.
 isReverse := false.
 currentSortOrder := self currentSortOrder value.
 currentSortOrder isEmpty ifTrue:[
-currentSortOrder at:#column put:aSymbol.
+	currentSortOrder at:#column put:aSymbol.
-currentSortOrder at:#reverse put:false.
+	currentSortOrder at:#reverse put:false.
 ] ifFalse:[
-(currentSortOrder at:#column) = aSymbol ifTrue:[
+	(currentSortOrder at:#column) = aSymbol ifTrue:[
-"/ same column like before - change sort order ifReverse is true
+	    "/ same column like before - change sort order ifReverse is true
-isReverse := currentSortOrder at:#reverse.
+	    isReverse := currentSortOrder at:#reverse.
-currentSortOrder at:#reverse put:(isReverse not).
+	    currentSortOrder at:#reverse put:(isReverse not).
-] ifFalse:[
+	] ifFalse:[
-"/ another column - remark column
+	    "/ another column - remark column
-currentSortOrder at:#column put:aSymbol.
+	    currentSortOrder at:#column put:aSymbol.
-]
+	]
 ].
 (currentSortOrder at:#reverse) ifTrue:[
-cmpOp := #'>'
+	cmpOp := #'>'
 ] ifFalse:[
-cmpOp := #'<'
+	cmpOp := #'<'
 ].
 sortBlock := [:a :b |
-|entry1 entry2|
+	    |entry1 entry2|
-entry1 := (a perform:aSymbol) ? 0.
+	    entry1 := (a perform:aSymbol) ? 0.
-entry2 := (b perform:aSymbol) ? 0.
+	    entry2 := (b perform:aSymbol) ? 0.
-entry1 = entry2 ifTrue:[
+	    entry1 = entry2 ifTrue:[
-(a idVal < 0 and:[b idVal < 0]) ifTrue:[
+		(a idVal < 0 and:[b idVal < 0]) ifTrue:[
-"/ two dead ones (take anything which remains constant)
+		    "/ two dead ones (take anything which remains constant)
-a processName ~= b processName ifTrue:[
+		    a processName ~= b processName ifTrue:[
-a processName < b processName
+			a processName < b processName
-] ifFalse:[
+		    ] ifFalse:[
-a processInstance identityHash < b processInstance identityHash
+			a processInstance identityHash < b processInstance identityHash
-]
+		    ]
-] ifFalse:[
+		] ifFalse:[
-a idVal < b idVal
+		    a idVal < b idVal
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-entry1 perform:cmpOp with:entry2
+		entry1 perform:cmpOp with:entry2
-]
+	    ]
-].
+	].
 self viewedColumnsChanged.
 ! !
 !ProcessMonitorV2 methodsFor:'update process'!
 fillItemInformationIn:processItem
 | running con aProcess|
 aProcess := processItem processInstance.
 aProcess isNil ifTrue:[
-^ self.
+	^ self.
 ].
 processItem processId:aProcess id.
 processItem idVal:aProcess id ? -1.
 processItem processTotalStack:(self getTotalStackStringFor:aProcess).
 con := aProcess suspendedContext.
 con isNil ifTrue:[
-aProcess == Processor activeProcess ifTrue:[
+	aProcess == Processor activeProcess ifTrue:[
-con := thisContext
+	    con := thisContext
-]
+	]
 ].
 processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
 processItem processSwitch:(aProcess numberOfStackBoundaryHits).
 self fillItemInformationIn:processItem
 !
 startUpdateProcess
 updateBlock notNil ifTrue:[
-Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
+	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
-Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
 ] ifFalse:[
-updateProcess := [
+	updateProcess := [
-[
+	    [
-|id cnt myDelay|
+		|id cnt myDelay|
-myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
+		myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
-"
+		"
-every updateDelay (0.5), we look which process runs;
+		 every updateDelay (0.5), we look which process runs;
-every half second, the status is updated.
+		 every half second, the status is updated.
-every listUpdateDelay (5s), the list of processes is
+		 every listUpdateDelay (5s), the list of processes is
-built up again
+		 built up again
-"
+		"
-[true] whileTrue:[
+		[true] whileTrue:[
-((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
+		    ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
-myDelay wait.
+			myDelay wait.
-self updateStatus:nil.
+			self updateStatus:nil.
-].
+		    ].
-myDelay wait.
+		    myDelay wait.
-self updateList.
+		    self updateList.
-]
+		]
-] valueOnUnwindDo:[
+	    ] valueOnUnwindDo:[
-updateProcess := nil
+		updateProcess := nil
-]
+	    ]
-]  forkAt:(Processor userSchedulingPriority + 1).
+	]  forkAt:(Processor userSchedulingPriority + 1).
-updateProcess name:'monitor [' ,
+	updateProcess name:'monitor [' ,
-Processor activeProcess id printString ,
+			   Processor activeProcess id printString ,
-'] update'.
+			   '] update'.
-"
+	"
-raise my own priority
+	 raise my own priority
-"
+	"
-Processor activeProcess priority:(Processor userSchedulingPriority + 2)
+	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
 ].
 !
 updateChangedItem:oldItem newItem:newItem atIndex:index
 oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
 oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
 "/ ID
 oldItem processId ~= newItem processId ifTrue:[
-oldItem processId:newItem processId.
+	oldItem processId:newItem processId.
-processTable invalidateRowAt:index colAt:colIdx.
+	processTable invalidateRowAt:index colAt:colIdx.
 ].
 "/ GROUP
 self showGroup value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processGroup ~= newItem processGroup ifTrue:[
+	oldItem processGroup ~= newItem processGroup ifTrue:[
-oldItem processGroup:newItem processGroup.
+	    oldItem processGroup:newItem processGroup.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ NAME
 colIdx := colIdx + 1.
 oldItem processName ~= newItem processName ifTrue:[
-oldItem processName:newItem processName.
+	oldItem processName:newItem processName.
-processTable invalidateRowAt:index colAt:colIdx.
+	processTable invalidateRowAt:index colAt:colIdx.
 ].
 "/ ACTIVE
 colIdx := colIdx + 1.
 oldItem processActive ~= newItem processActive ifTrue:[
-oldItem processActive:newItem processActive.
+	oldItem processActive:newItem processActive.
-"/ (processTable columnAt:colIdx).
+	"/ (processTable columnAt:colIdx).
-processTable invalidateRowAt:index colAt:colIdx.
+	processTable invalidateRowAt:index colAt:colIdx.
 ].
 "/ STATE
 self showState value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processState ~= newItem processState ifTrue:[
+	oldItem processState ~= newItem processState ifTrue:[
-oldItem processState:newItem processState.
+	    oldItem processState:newItem processState.
-"/ (processTable columnAt:colIdx).
+	    "/ (processTable columnAt:colIdx).
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ PRIO
 self showPrio value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processPrio ~= newItem processPrio ifTrue:[
+	oldItem processPrio ~= newItem processPrio ifTrue:[
-oldItem processPrio:newItem processPrio.
+	    oldItem processPrio:newItem processPrio.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ USED STACK
 self showUsedStack value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
+	oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
-oldItem processUsedStack:newItem processUsedStack.
+	    oldItem processUsedStack:newItem processUsedStack.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ TOTAL STACK
 self showTotalStack value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
+	oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
-oldItem processTotalStack:newItem processTotalStack.
+	    oldItem processTotalStack:newItem processTotalStack.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ CURRENT SEGMENT
 self showCurrentSegment value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
+	oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
-oldItem processCurrentSegment:newItem processCurrentSegment.
+	    oldItem processCurrentSegment:newItem processCurrentSegment.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ Switch
 self showSwitch value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processSwitch ~= newItem processSwitch ifTrue:[
+	oldItem processSwitch ~= newItem processSwitch ifTrue:[
-oldItem processSwitch:newItem processSwitch.
+	    oldItem processSwitch:newItem processSwitch.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "/ WHERE
 self showWhere value ifTrue:[
-colIdx := colIdx + 1.
+	colIdx := colIdx + 1.
-oldItem processWhere ~= newItem processWhere ifTrue:[
+	oldItem processWhere ~= newItem processWhere ifTrue:[
-oldItem processWhere:newItem processWhere.
+	    oldItem processWhere:newItem processWhere.
-processTable invalidateRowAt:index colAt:colIdx.
+	    processTable invalidateRowAt:index colAt:colIdx.
-].
+	].
 ].
 "Modified: / 19-03-2007 / 10:28:27 / cg"
 !
 updateList
 |newList|
 processTable shown ifTrue:[
-newList := self getProcessList.
+	newList := self getProcessList.
-visibleBlock notNil ifTrue:[
+	visibleBlock notNil ifTrue:[
-newList := newList select:[:aProc|visibleBlock value:aProc]
+	    newList := newList select:[:aProc|visibleBlock value:aProc]
-].
+	].
-self updateStatus:newList.
+	self updateStatus:newList.
 ].
 updateBlock notNil ifTrue:[
-Processor removeTimedBlock:listUpdateBlock.
+	Processor removeTimedBlock:listUpdateBlock.
-Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
 ].
 !
 updateStatus:newProcessList
 |startTime endTime deltaT|
 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.
+	"/ the update took longer than 20% - make delay longer, to reduce cpu load.
-self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
+	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
-"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
+	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
 ] ifFalse:[
 "/        self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
 "/            deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
 "/                "/ the update took less than 5% - make delay smaller for better animation.
 "/                self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime / 2) max:0.5).
 "/                "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
 "/            ].
 "/        ].
 ].
 updateBlock notNil ifTrue:[
-Processor removeTimedBlock:updateBlock.
+	Processor removeTimedBlock:updateBlock.
-Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
+	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
 ]
 !
 updateTable:newProcessList
 |oldSelection newList sel diff weakProcessList|
 processTable shown ifTrue:[
 "/        Transcript showCR:('update the table', Timestamp now printString, 'with new list:', newProcessList notNil asString).
-sel := self selectedProcesses value.
+	sel := self selectedProcesses value.
-sel notNil ifTrue:[
+	sel notNil ifTrue:[
-oldSelection := OrderedCollection new.
+	    oldSelection := OrderedCollection new.
-sel do:[:proItem|
+	    sel do:[:proItem|
-proItem processInstance notNil ifTrue:[
+		proItem processInstance notNil ifTrue:[
-oldSelection add:(proItem processInstance)
+		    oldSelection add:(proItem processInstance)
-].
+		].
-].
+	    ].
-].
+	].
 "/            Transcript showCR:'oldSelection on catch in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
-newProcessList isNil ifTrue:[
+	newProcessList isNil ifTrue:[
-newList := OrderedCollection new.
+	    newList := OrderedCollection new.
-processList do:[:oldItem |
+	    processList do:[:oldItem |
-| newItem |
+		| newItem |
-(self showDead value
+		(self showDead value
-or:[oldItem processInstance notNil
+		 or:[oldItem processInstance notNil
-and:[oldItem processInstance isDead not]]) ifTrue:[
+		     and:[oldItem processInstance isDead not]]) ifTrue:[
-newItem := oldItem copy.
+		    newItem := oldItem copy.
-self fillItemInformationIn:newItem.
+		    self fillItemInformationIn:newItem.
-newList add:newItem.
+		    newList add:newItem.
-]
+		]
-].
+	    ].
-] ifFalse:[
+	] ifFalse:[
-"/ remove dead processes if not shown
+	    "/ remove dead processes if not shown
-newList := OrderedCollection new.
+	    newList := OrderedCollection new.
-weakProcessList := WeakArray withAll:newProcessList.
+	    weakProcessList := WeakArray withAll:newProcessList.
-weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
+	    weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
-"/ in a weakarray, dead entries are 0
+		"/ in a weakarray, dead entries are 0
-(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
+		(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
-(procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
+		    (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
-| processItem |
+			| processItem |
-processItem := ProcessItem new.
+			processItem := ProcessItem new.
-self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
+			self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
-newList add:processItem.
+			newList add:processItem.
-]
+		    ]
-]
+		]
-].
+	    ].
-].
+	].
-newList sort:self sortBlock.
+	newList sort:self sortBlock.
-newList doWithIndex:[:newItem :index|
+	newList doWithIndex:[:newItem :index|
-| oldItem |
+	    | oldItem |
-oldItem := processList at:index ifAbsent:nil.
+	    oldItem := processList at:index ifAbsent:nil.
-oldItem isNil ifTrue:[
+	    oldItem isNil ifTrue:[
-processList add:newItem beforeIndex:index
+		processList add:newItem beforeIndex:index
-] ifFalse:[
+	    ] ifFalse:[
-self updateChangedItem:oldItem newItem:newItem atIndex:index
+		self updateChangedItem:oldItem newItem:newItem atIndex:index
-]
+	    ]
-].
+	].
-diff := processList size - newList size.
+	diff := processList size - newList size.
-diff > 0 ifTrue:[
+	diff > 0 ifTrue:[
-processList removeLast:diff
+	    processList removeLast:diff
-].
+	].
 "/            Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
-self changeSelectionToProcesses:oldSelection.
+	self changeSelectionToProcesses:oldSelection.
 ].
 ! !
 !ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
 ! !
 !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 $'
 ! !

changeset 7811	9d5855023789
parent 7810	881d8fda730f
child 7863	89f48359c0dd