hg/stx-libtool: comparison ProcessMonitorV2.st

equal deleted inserted replaced

-:72c6ed3fe931
+:cb4ef7cdc7f1
 "
 <resource: #image>
 ^Icon
-constantNamed:'ProcessMonitorV2 class defaultIcon'
+	constantNamed:'ProcessMonitorV2 class defaultIcon'
-ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@G????9@@@@BP@@@@$O?>@I@@@@BP??8@$@@@@IC?? BP@@@@$@@@@I@@@@BP@@@@$M,@@IC[@@BP@@@@$@@@@I@@@@BP@@@@$@@@@I@@@@BP@@@@$@@
 @@I????>@@@@@CLX7L0*)QDPJ*TQDCL%FH #IQADH*TPQBJX7Y b') ; yourself]
 !
 detailsMenuIconDown
 the ImageEditor may not be able to read the specification."
 "
 self detailsMenuIconDown inspect
 ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth1Image new)
+	    (Depth1Image new)
-width:7;
+		width:7;
-height:5;
+		height:5;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 1 ));
+		bitsPerSample:(#( 1 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray fromPackedString:'@@@@@@@b');
+		bits:(ByteArray fromPackedString:'@@@@@@@b');
-colorMapFromArray:#[ 0 0 0 255 255 255 ];
+		colorMapFromArray:#[ 0 0 0 255 255 255 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:7;
+			    width:7;
-height:5;
+			    height:5;
-bits:(ByteArray fromPackedString:'@A@(UJ(b');
+			    bits:(ByteArray fromPackedString:'@A@(UJ(b');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 detailsMenuIconUp
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self detailsMenuIconUp inspect
 ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth1Image new)
+	    (Depth1Image new)
-width:7;
+		width:7;
-height:5;
+		height:5;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 1 ));
+		bitsPerSample:(#( 1 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray fromPackedString:'@@@@@@@b');
+		bits:(ByteArray fromPackedString:'@@@@@@@b');
-colorMapFromArray:#[ 0 0 0 255 255 255 ];
+		colorMapFromArray:#[ 0 0 0 255 255 255 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:7;
+			    width:7;
-height:5;
+			    height:5;
-bits:(ByteArray fromPackedString:'*%P(D@@b');
+			    bits:(ByteArray fromPackedString:'*%P(D@@b');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 process22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self process22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#process22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class process22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processAbort22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processAbort22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#[ 8 ]);
+		bitsPerSample:(#[ 8 ]);
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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
 A XFA@PDA XE@@@@@@@@@@@@@@@@APTFA XFA TE@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 127 127 127 161 161 165 194 194 194 255 0 0 255 255 255 192 0 0 ];
+		colorMapFromArray:#[ 0 0 0 127 127 127 161 161 165 194 194 194 255 0 0 255 255 255 192 0 0 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processDebug22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processDebug22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 127 127 127 128 0 0 161 161 165 194 194 194 255 0 0 255 255 255 ];
+		colorMapFromArray:#[ 0 0 0 127 127 127 128 0 0 161 161 165 194 194 194 255 0 0 255 255 255 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processInspect22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processInspect22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@
 @@@@@@@@@@@@C ,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 120 120 120 0 64 64 88 88 88 80 80 80 200 200 200 48 48 48 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 120 120 120 0 64 64 88 88 88 80 80 80 200 200 200 48 48 48 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processLowerPrio22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processLowerPrio22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@@@@
 @@@@@@@E@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9?0O??0C??0C??0G??0G??<CO?<@O?8@F_0@@O @@G@@@B@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9?0O??0C??0C??0G??0G??<CO?<@O?8@F_0@@O @@G@@@B@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processRaisePrio22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processRaisePrio22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@@@
 @@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@TEAPTEAPT@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?? C??0G??8G??<CO?<@O_0@F_0@@_0@@_0@@_0');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?? C??0G??8G??<CO?<@O_0@F_0@@_0@@_0@@_0');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processRestart22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processRestart22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 0 64 0 0 128 0 0 192 0 127 127 127 161 161 165 194 194 194 255 255 255 ];
+		colorMapFromArray:#[ 0 0 0 0 64 0 0 128 0 0 192 0 127 127 127 161 161 165 194 194 194 255 255 255 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processResume22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processResume22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processResume22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@@@@@@
 @@@@AP@@AP@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processStop22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processStop22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processStop22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@@@@@@
 @@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@APTEAPTEAPTEAP@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processSuspend22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processSuspend22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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
 APTEAPTEAPTEAPTE@@@@@@@@@@@@APTEAPTEAPTEAPTEAP@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processTerminate22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processTerminate22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@@@@@@,@@@@@@@@@@@@@@@@@
 C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@');
+					fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 processTerminateGroup22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self processTerminateGroup22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
 Icon flushCachedIcons"
 ^ Icon
-constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
+	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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
 @@0I@@@@@@@@B0@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@a');
-colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0 ];
+		colorMapFromArray:#[ 0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@');
+					fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 raiseWindow22x22Icon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self raiseWindow22x22Icon inspect
 ImageEditor openOnClass:self andSelector:#raiseWindow22x22Icon
 Icon flushCachedIcons"
 ^ Icon constantNamed:'ProcessMonitorV2 class raiseWindow22x22Icon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:22;
+		height:22;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#[ 8 ]);
+		bitsPerSample:(#[ 8 ]);
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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@@@HB@ HB@ HB@ HB@ HB@",EF @.@@@B@ HB@ HB@ HB@ HB@" EHQ(@K @@@ HB@ HB@ HB@ HB@ H"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@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@K"8.K @a');
-colorMapFromArray:#[ 160 200 248 175 200 248 0 48 168 208 208 224 207 216 240 240 240 248 223 216 224 80 136 208 240 232 240 175 208 248 176 208 248 64 112 192 239 232 232 255 248 176 255 248 24 255 248 152 79 120 192 48 120 208 159 192 248 255 248 88 160 192 248 255 248 48 255 248 96 144 184 248 240 144 24 15 56 160 63 88 176 191 216 248 240 208 24 255 248 136 79 120 200 63 104 184 48 80 176 239 232 240 31 72 176 223 216 232 80 144 208 224 224 240 255 248 200 224 224 232 48 88 176 240 240 240 64 104 184 255 248 248 47 112 208 63 96 184 236 233 216 79 128 200 ];
+		colorMapFromArray:#[ 160 200 248 175 200 248 0 48 168 208 208 224 207 216 240 240 240 248 223 216 224 80 136 208 240 232 240 175 208 248 176 208 248 64 112 192 239 232 232 255 248 176 255 248 24 255 248 152 79 120 192 48 120 208 159 192 248 255 248 88 160 192 248 255 248 48 255 248 96 144 184 248 240 144 24 15 56 160 63 88 176 191 216 248 240 208 24 255 248 136 79 120 200 63 104 184 48 80 176 239 232 240 31 72 176 223 216 232 80 144 208 224 224 240 255 248 200 224 224 232 48 88 176 240 240 240 64 104 184 255 248 248 47 112 208 63 96 184 236 233 216 79 128 200 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:22;
+			    height:22;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@');
+					fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 terminateGroupIcon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self terminateGroupIcon inspect
 ImageEditor openOnClass:self andSelector:#terminateGroupIcon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:22;
+		width:22;
-height:20;
+		height:20;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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 ];
+		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:((ImageMask new)
+		mask:((ImageMask new)
-width:22;
+			    width:22;
-height:20;
+			    height:20;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@');
+					fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 terminateIcon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self terminateIcon inspect
 ImageEditor openOnClass:self andSelector:#terminateIcon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class terminateIcon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth8Image new)
+	    (Depth8Image new)
-width:16;
+		width:16;
-height:16;
+		height:16;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 8 ));
+		bitsPerSample:(#( 8 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'
+			    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 ];
+		colorMapFromArray:#[ 64 0 0 128 0 0 192 0 0 255 0 0 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:16;
+			    width:16;
-height:16;
+			    height:16;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b');
+					fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 !
 viewDetailsIcon
 <resource: #image>
 "This resource specification was automatically generated
 the ImageEditor may not be able to read the specification."
 "
 self viewDetailsIcon inspect
 ImageEditor openOnClass:self andSelector:#viewDetailsIcon
 Icon flushCachedIcons"
 ^ Icon constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
-ifAbsentPut:[
+	ifAbsentPut:[
-(Depth1Image new)
+	    (Depth1Image new)
-width:16;
+		width:16;
-height:16;
+		height:16;
-photometric:(#palette);
+		photometric:(#palette);
-bitsPerSample:(#( 1 ));
+		bitsPerSample:(#( 1 ));
-samplesPerPixel:(1);
+		samplesPerPixel:(1);
-bits:(ByteArray
+		bits:(ByteArray
-fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
+			    fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
-colorMapFromArray:#[ 0 0 0 255 255 255 ];
+		colorMapFromArray:#[ 0 0 0 255 255 255 ];
-mask:((ImageMask new)
+		mask:((ImageMask new)
-width:16;
+			    width:16;
-height:16;
+			    height:16;
-bits:(ByteArray
+			    bits:(ByteArray
-fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b');
+					fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b');
-yourself);
+			    yourself);
-yourself
+		yourself
-]
+	]
 ! !
 !ProcessMonitorV2 class methodsFor:'interface specs'!
 windowSpec
 ProcessMonitorV2 open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	window:
 (WindowSpec
-label: 'ProcessMonitor'
+	  label: 'ProcessMonitor'
-name: 'ProcessMonitor'
+	  name: 'ProcessMonitor'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 791 358)
+	  bounds: (Rectangle 0 0 791 358)
-menu: mainMenu
+	  menu: mainMenu
-icon: defaultIcon
+	  icon: defaultIcon
-)
+	)
-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 -110 1 0 1)
+	      layout: (LayoutFrame -301 1 -20 1 -110 1 0 1)
-translateLabel: true
+	      translateLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'Box2'
+	      name: 'Box2'
-layout: (LayoutFrame -103 1 -21 1 0 1 1 1)
+	      layout: (LayoutFrame -103 1 -21 1 0 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
-)
+		  )
-)
+		 )
-)
+	      )
-keepSpaceForOSXResizeHandleH: true
+	      keepSpaceForOSXResizeHandleH: true
-)
+	    )
-)
+	   )
-)
+	)
 )
 ! !
 !ProcessMonitorV2 class methodsFor:'menu specs'!
 <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: '-'
-isVisible: allowModificationsAndHasDebugger
+	    isVisible: allowModificationsAndHasDebugger
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Debug'
+	    label: 'Debug'
-itemValue: debugProcess
+	    itemValue: debugProcess
-translateLabel: true
+	    translateLabel: true
-isVisible: allowModificationsAndHasDebugger
+	    isVisible: allowModificationsAndHasDebugger
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 07-06-2007 / 12:49:58 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 instrumentationMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithEnabledInstrumentationHolder
+	    enabled: hasSelectionWithEnabledInstrumentationHolder
-label: 'Disable'
+	    label: 'Disable'
-itemValue: disableInstrumentation
+	    itemValue: disableInstrumentation
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionWithDisabledInstrumentationHolder
+	    enabled: hasSelectionWithDisabledInstrumentationHolder
-label: 'Enable'
+	    label: 'Enable'
-itemValue: enableInstrumentation
+	    itemValue: enableInstrumentation
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 mainMenu
 "This resource specification was automatically generated
 (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: 'Start Timeslicing'
+		  label: 'Start Timeslicing'
-itemValue: startTimeslicing
+		  itemValue: startTimeslicing
-translateLabel: true
+		  translateLabel: true
-isVisible: isNotTimeslicing
+		  isVisible: isNotTimeslicing
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Stop Timeslicing'
+		  label: 'Stop Timeslicing'
-itemValue: stopTimeslicing
+		  itemValue: stopTimeslicing
-translateLabel: true
+		  translateLabel: true
-isVisible: isTimeslicing
+		  isVisible: isTimeslicing
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(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: 'Instrumentation'
+	    label: 'Instrumentation'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: instrumentationMenu
+	    submenuChannel: instrumentationMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'MENU_Help'
+	    label: 'MENU_Help'
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-translateLabel: true
+	    translateLabel: true
-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
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Suspend'
+	    label: 'Suspend'
-itemValue: suspendProcess
+	    itemValue: suspendProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Stop'
+	    label: 'Stop'
-itemValue: stopProcess
+	    itemValue: stopProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Abort'
+	    label: 'Abort'
-itemValue: abortProcess
+	    itemValue: abortProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate'
+	    label: 'Terminate'
-itemValue: terminateProcess
+	    itemValue: terminateProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Hard Terminate'
+	    label: 'Hard Terminate'
-itemValue: hardTerminateProcess
+	    itemValue: hardTerminateProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate Group'
+	    label: 'Terminate Group'
-itemValue: terminateProcessGroup
+	    itemValue: terminateProcessGroup
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: selectionRestartable
+	    enabled: selectionRestartable
-label: 'Restart'
+	    label: 'Restart'
-itemValue: restartProcess
+	    itemValue: restartProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Raise Prio'
+	    label: 'Raise Prio'
-itemValue: raisePrio
+	    itemValue: raisePrio
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Lower Prio'
+	    label: 'Lower Prio'
-itemValue: lowerPrio
+	    itemValue: lowerPrio
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Set Prio Range...'
+	    label: 'Set Prio Range...'
-itemValue: setPrioRange
+	    itemValue: setPrioRange
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Find by View'
+	    label: 'Find by View'
-itemValue: findProcessByView
+	    itemValue: findProcessByView
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 tableMenu
 "This resource specification was automatically generated
 (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
-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
-isButton: true
+	    isButton: true
-isVisible: allowModificationsAndHasDebugger
+	    isVisible: allowModificationsAndHasDebugger
-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
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Find Process by View'
+	    label: 'Find Process by View'
-itemValue: findProcessByView
+	    itemValue: findProcessByView
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
-)
+	  )
-(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
-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
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Abort
+	    activeHelpKey: Abort
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Abort'
+	    label: 'Abort'
-itemValue: abortProcess
+	    itemValue: abortProcess
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: allowModifications
+	    isVisible: allowModifications
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: Terminate
+	    activeHelpKey: Terminate
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Terminate'
+	    label: 'Terminate'
-itemValue: terminateProcess
+	    itemValue: terminateProcess
-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
-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
-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: #'Lower Prio'
+	    activeHelpKey: #'Lower Prio'
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Lower Prio'
+	    label: 'Lower Prio'
-itemValue: lowerPrio
+	    itemValue: lowerPrio
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: #'Raise Prio'
+	    activeHelpKey: #'Raise Prio'
-enabled: hasSelectionHolder
+	    enabled: hasSelectionHolder
-label: 'Raise Prio'
+	    label: 'Raise Prio'
-itemValue: raisePrio
+	    itemValue: raisePrio
-isButton: true
+	    isButton: true
-isVisible: allowModifications
+	    isVisible: allowModifications
-labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
+	    labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
-)
+	  )
-(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
-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'
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-submenuChannel: viewDetailsMenuSpec
+	    submenuChannel: viewDetailsMenuSpec
-labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 viewDetailsMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Id'
+	    label: 'Id'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showProcessId
+	    indication: showProcessId
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Group'
+	    label: 'Group'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showGroup
+	    indication: showGroup
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Instrumentation'
+	    label: 'Instrumentation'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showInstrumentation
+	    indication: showInstrumentation
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'State'
+	    label: 'State'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showState
+	    indication: showState
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Prio'
+	    label: 'Prio'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showPrio
+	    indication: showPrio
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Used Stack'
+	    label: 'Used Stack'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showUsedStack
+	    indication: showUsedStack
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Total Stack'
+	    label: 'Total Stack'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showTotalStack
+	    indication: showTotalStack
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Current-Segment'
+	    label: 'Current-Segment'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showCurrentSegment
+	    indication: showCurrentSegment
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Switch'
+	    label: 'Switch'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showSwitch
+	    indication: showSwitch
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Where'
+	    label: 'Where'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showWhere
+	    indication: showWhere
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Application'
+	    label: 'Application'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showApplication
+	    indication: showApplication
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Window Title'
+	    label: 'Window Title'
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showWindowTitle
+	    indication: showWindowTitle
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Show Dead Processes'
+	    label: 'Show Dead Processes'
-indication: showDead
+	    indication: showDead
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Update'
+	    label: 'Update'
-itemValue: updateView
+	    itemValue: updateView
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 ! !
 !ProcessMonitorV2 class methodsFor:'tableColumns specs'!
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
-label: 'Id'
+	 label: 'Id'
-id: id
+	 id: id
-activeHelpKeyForLabel: 'processId'
+	 activeHelpKeyForLabel: 'processId'
-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
-activeHelpKeyForLabel: 'processGroup'
+	 activeHelpKeyForLabel: 'processGroup'
-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
-activeHelpKeyForLabel: 'processName'
+	 activeHelpKeyForLabel: 'processName'
-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: 'Instr.'
+	 label: 'Instr.'
-id: instrumentation
+	 id: instrumentation
-labelAlignment: left
+	 labelAlignment: left
-width: 50
+	 width: 50
-"/ activeHelpKey: 'processInstrumentation'
+	 "/ activeHelpKey: 'processInstrumentation'
-activeHelpKeyForLabel: 'processInstrumentation'
+	 activeHelpKeyForLabel: 'processInstrumentation'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processInstrumentation'
+	 labelActionArgument: 'processInstrumentation'
-model: processInstrumentation
+	 model: processInstrumentation
-menuFromApplication: false
+	 menuFromApplication: false
-canSelect: false
+	 canSelect: false
-showRowSeparator: false
+	 showRowSeparator: false
-showColSeparator: false
+	 showColSeparator: false
 )
 (DataSetColumnSpec
-label: ''
+	 label: ''
-id: active
+	 id: active
-"/ activeHelpKey: 'processWasActive'
+	 "/ activeHelpKey: 'processWasActive'
-activeHelpKeyForLabel: 'processWasActive'
+	 activeHelpKeyForLabel: 'processWasActive'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processActive'
+	 labelActionArgument: 'processActive'
-width: 10
+	 width: 10
-height: 5
+	 height: 5
-model: processActive
+	 model: processActive
-menuFromApplication: false
+	 menuFromApplication: false
-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
-"/ activeHelpKey: 'processState'
+	 "/ activeHelpKey: 'processState'
-activeHelpKeyForLabel: 'processState'
+	 activeHelpKeyForLabel: 'processState'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processState'
+	 labelActionArgument: 'processState'
-width: 100
+	 width: 100
-model: processState
+	 model: processState
-menuFromApplication: false
+	 menuFromApplication: false
-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
-"/ activeHelpKey: 'processPriority'
+	 "/ activeHelpKey: 'processPriority'
-activeHelpKeyForLabel: 'processPriority'
+	 activeHelpKeyForLabel: 'processPriority'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'prioVal'
+	 labelActionArgument: 'prioVal'
-width: 40
+	 width: 40
-model: processPrio
+	 model: processPrio
-menuFromApplication: false
+	 menuFromApplication: false
-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
-"/ activeHelpKey: 'processUsedStack'
+	 "/ activeHelpKey: 'processUsedStack'
-activeHelpKeyForLabel: 'processUsedStack'
+	 activeHelpKeyForLabel: 'processUsedStack'
-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
-menuFromApplication: false
+	 menuFromApplication: false
-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
-"/ activeHelpKey: 'processTotalStack'
+	 "/ activeHelpKey: 'processTotalStack'
-activeHelpKeyForLabel: 'processTotalStack'
+	 activeHelpKeyForLabel: 'processTotalStack'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processTotalStack'
+	 labelActionArgument: 'processTotalStack'
-columnAlignment: right
+	 columnAlignment: right
-width: 75
+	 width: 75
-model: processTotalStack
+	 model: processTotalStack
-menuFromApplication: false
+	 menuFromApplication: false
-canSelect: false
+	 canSelect: false
-showRowSeparator: false
+	 showRowSeparator: false
-showColSeparator: false
+	 showColSeparator: false
 )
 (DataSetColumnSpec
-label: 'Current-Segment'
+	 label: 'Current-Segment'
-id: currentSegment
+	 id: currentSegment
-activeHelpKeyForLabel: 'processCurrentSegment'
+	 activeHelpKeyForLabel: 'processCurrentSegment'
-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
-activeHelpKeyForLabel: 'processSwitch'
+	 activeHelpKeyForLabel: 'processSwitch'
-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
-"/ activeHelpKey: 'processWhere'
+	 "/ activeHelpKey: 'processWhere'
-activeHelpKeyForLabel: 'processWhere'
+	 activeHelpKeyForLabel: 'processWhere'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processWhere'
+	 labelActionArgument: 'processWhere'
-model: processWhere
+	 model: processWhere
-menuFromApplication: false
+	 menuFromApplication: false
-canSelect: false
+	 canSelect: false
-showRowSeparator: false
+	 showRowSeparator: false
-showColSeparator: false
+	 showColSeparator: false
 )
 (DataSetColumnSpec
-label: 'Application'
+	 label: 'Application'
-id: application
+	 id: application
-labelAlignment: left
+	 labelAlignment: left
-"/ activeHelpKey: 'processApplication'
+	 "/ activeHelpKey: 'processApplication'
-activeHelpKeyForLabel: 'processApplication'
+	 activeHelpKeyForLabel: 'processApplication'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processApplication'
+	 labelActionArgument: 'processApplication'
-model: processApplication
+	 model: processApplication
-menuFromApplication: false
+	 menuFromApplication: false
-canSelect: false
+	 canSelect: false
-showRowSeparator: false
+	 showRowSeparator: false
-showColSeparator: false
+	 showColSeparator: false
 )
 (DataSetColumnSpec
-label: 'Window Title'
+	 label: 'Window Title'
-id: windowTitle
+	 id: windowTitle
-labelAlignment: left
+	 labelAlignment: left
-"/ activeHelpKey: 'processWindowTitle'
+	 "/ activeHelpKey: 'processWindowTitle'
-activeHelpKeyForLabel: 'processWindowTitle'
+	 activeHelpKeyForLabel: 'processWindowTitle'
-labelButtonType: Button
+	 labelButtonType: Button
-labelActionSelector: sortProcessListBy:
+	 labelActionSelector: sortProcessListBy:
-labelActionArgument: 'processWindowTitle'
+	 labelActionArgument: 'processWindowTitle'
-model: processWindowTitle
+	 model: processWindowTitle
-menuFromApplication: false
+	 menuFromApplication: false
-canSelect: false
+	 canSelect: false
-showRowSeparator: false
+	 showRowSeparator: false
-showColSeparator: false
+	 showColSeparator: false
 )
 )
 ! !
 !ProcessMonitorV2 methodsFor:'accessing'!
 changeSelectionTo:aSelection
 | newSelection |
 aSelection notNil ifTrue:[
-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
 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 add:Processor scheduler.
+	coll add:Processor scheduler.
 ].
 ^ coll
 !
 increaseupdateContentsDelayTime
 showApplication
 "return/create the 'showApplication' value holder (automatically generated)"
 showApplication isNil ifTrue:[
-showApplication := false asValue.
+	showApplication := false asValue.
-showApplication onChangeSend:#viewedColumnsChanged to:self
+	showApplication onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showApplication
 "Created: / 17-08-2011 / 10:46:56 / cg"
 !
 showInstrumentation
 "return/create the 'showInstrumentation' value holder (automatically generated)"
 showInstrumentation isNil ifTrue:[
-showInstrumentation := true asValue.
+	showInstrumentation := true asValue.
-showInstrumentation onChangeSend:#viewedColumnsChanged to:self
+	showInstrumentation onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showInstrumentation
 "Created: / 17-08-2011 / 10:46:27 / cg"
 !
 showWindowTitle
 "return/create the 'showWindowTitle' value holder (automatically generated)"
 showWindowTitle isNil ifTrue:[
-showWindowTitle := false asValue.
+	showWindowTitle := false asValue.
-showWindowTitle onChangeSend:#viewedColumnsChanged to:self
+	showWindowTitle onChangeSend:#viewedColumnsChanged to:self
 ].
 ^ showWindowTitle
 "Created: / 17-08-2011 / 10:46:47 / cg"
 ! !
 ^ allowModifications
 !
 allowModificationsAndHasDebugger
 ^ BlockValue
-forLogical:(self allowModifications)
+	forLogical:(self allowModifications)
-and:[ Debugger notNil ]
+	and:[ Debugger notNil ]
 !
 enableDecreaseContentsDelayTime
 enableDecreaseContentsDelayTime isNil ifTrue:[
 hasSelection := self hasSelection.
 hasSelectionHolder value:hasSelection.
 hasSelection ifFalse:[
-self selectionRestartable value:false.
+	self selectionRestartable value:false.
-hasSelectionWithStoppedProcessHolder value:false.
+	hasSelectionWithStoppedProcessHolder value:false.
-hasSelectionWithApplicationProcessHolder value:false.
+	hasSelectionWithApplicationProcessHolder value:false.
-hasSelectionWithGUIProcessHolder value:false.
+	hasSelectionWithGUIProcessHolder value:false.
-hasSelectionWithEnabledInstrumentationHolder value:false.
+	hasSelectionWithEnabledInstrumentationHolder value:false.
-hasSelectionWithDisabledInstrumentationHolder value:false.
+	hasSelectionWithDisabledInstrumentationHolder value:false.
-^ self
+	^ self
 ].
 hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
 hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
 hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
 hasSelectionWithEnabledInstrumentationHolder value:self hasSelectionWithEnabledInstrumentation.
 hasSelectionWithDisabledInstrumentationHolder value:self hasSelectionWithDisabledInstrumentation.
 allRestartable := true.
 self selectedProcessesDo:[:p |
-p isRestartable ifFalse:[
+	p isRestartable ifFalse:[
-allRestartable := false
+	    allRestartable := false
-].
+	].
 ].
 self selectionRestartable value:allRestartable.
 ^ self.
 "Modified: / 17-08-2011 / 11:41:32 / cg"
 | columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel|
 "/ remember the selected processes
 sel := self selectedProcesses value.
 sel notNil ifTrue:[
-oldSelection := OrderedCollection new.
+	oldSelection := OrderedCollection new.
-sel do:[:proItem|
+	sel do:[:proItem|
-|process|
+	    |process|
-(process := proItem processInstance) notNil ifTrue:[
+	    (process := proItem processInstance) notNil ifTrue:[
-oldSelection add:process
+		oldSelection add:process
-].
+	    ].
-].
+	].
 ].
 "/    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)
-( #application    #showApplication)
+		( #application    #showApplication)
-( #windowTitle    #showWindowTitle)
+		( #windowTitle    #showWindowTitle)
-( #instrumentation #showInstrumentation)
+		( #instrumentation #showInstrumentation)
-) 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: / 17-08-2011 / 11:11:21 / cg"
 ! !
 <resource: #keyboard (#InspectIt )>
 |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: / 17-08-2011 / 11:39:13 / cg"
 !
 |v wg p item|
 v := Screen current viewFromUser.
 v notNil ifTrue:[
-(wg := v windowGroup) notNil ifTrue:[
+	(wg := v windowGroup) notNil ifTrue:[
-(p := wg process) notNil ifTrue:[
+	    (p := wg process) notNil ifTrue:[
-item := processList detect:[:i | i processId = p id] ifNone:nil.
+		item := processList detect:[:i | i processId = p id] ifNone:nil.
-item notNil ifTrue:[
+		item notNil ifTrue:[
-self selectedProcesses value:(Array with:item)
+		    self selectedProcesses value:(Array with:item)
-]
+		]
-].
+	    ].
-]
+	]
 ].
 !
 hardTerminateProcess
 "hard terminate the selected process"
 restartProcess
 "restarts the selected process"
 self selectedProcessesDo:[:p |
-p restart.
+	p restart.
 ].
 self updateList.
 "Modified: / 07-06-2007 / 12:39:04 / cg"
 !
 "set a prio-range the selected processes priority"
 |rangeString range|
 [
-rangeString := Dialog
+	rangeString := Dialog
-request:'Priority Range (min to: max)'
+			    request:'Priority Range (min to: max)'
-initialAnswer:'7 to: 8'.
+			    initialAnswer:'7 to: 8'.
-rangeString isNil ifTrue:[
+	rangeString isNil ifTrue:[
-^ self  "aborted"
+	    ^ self  "aborted"
-].
+	].
-range := Interval readFrom:rangeString onError:nil.
+	range := Interval readFrom:rangeString onError:nil.
 ] doWhile:[range isNil].
 self selectedProcessesDo:[:p |
 p priorityRange:range
 ].
 self updateList.
 !
 startTimeslicing
 Processor isTimeSlicing ifFalse:[
-Processor startTimeSlicing.
+	Processor startTimeSlicing.
 ].
 "Created: / 03-11-2011 / 21:26:27 / cg"
 !
 self selectedProcessesSend:#stop
 !
 stopTimeslicing
 Processor isTimeSlicing ifTrue:[
-Processor stopTimeSlicing.
+	Processor stopTimeSlicing.
 ].
 "Created: / 03-11-2011 / 21:26:40 / cg"
 !
 getApplicationFor:aProcess
 |wg app|
 wg := self windowGroupOfProcess:aProcess.
 wg notNil ifTrue:[
-(app := wg application) notNil ifTrue:[
+	(app := wg application) notNil ifTrue:[
-^ app.
+	    ^ app.
-].
+	].
 ].
 ^ nil.
 "Created: / 17-08-2011 / 11:12:13 / cg"
 !
 getApplicationStringFor:aProcess
 |app|
 (app := self getApplicationFor:aProcess) notNil ifTrue:[
-^ app class name.
+	^ app class name.
 ].
 ^ ''.
 "Created: / 17-08-2011 / 10:58:50 / cg"
 !
 getCurrentSegmentStringFor:con
 | contextCount c sender|
 con notNil ifTrue:[
-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)).
 ].
 ^ ''
 "Modified (format): / 17-08-2011 / 10:57:23 / cg"
 !
 getGroupStringFor:aProcess
 |gId|
 gId := aProcess processGroupId.
 ((gId == aProcess id) or:[gId isNil]) ifTrue:[
-"/ a group leader
+	"/ a group leader
-^ '-'.
+	^ '-'.
 ] ifFalse:[
-^ gId.
+	^ gId.
 ].
 "Modified (format): / 17-08-2011 / 10:57:33 / cg"
 !
 getInstrumentationStringFor:aProcess
 ^ (InstrumentationContext forProcess:aProcess) isNil
-ifTrue:['']
+	ifTrue:['']
-ifFalse:['Y']
+	ifFalse:['Y']
 "Created: / 17-08-2011 / 11:04:14 / cg"
 !
 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,
-']').
+		    ']').
-].
+	].
 ].
 ^ ''
 "Modified (format): / 17-08-2011 / 10:57:36 / cg"
 !
 getTotalStackStringFor:aProcess
 | tStackSize noOfSegs |
 aProcess id == 0 ifTrue:[
-^ 'unlimited'.
+	^ 'unlimited'.
 ].
 ((tStackSize := aProcess totalStackSize) notNil
 and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
-^ (tStackSize printString),' (',(noOfSegs printString),')'
+	^ (tStackSize printString),' (',(noOfSegs printString),')'
 ].
 ^ ''
 "Modified: / 17-08-2011 / 10:56:17 / cg"
 !
 a higher level waiter, such as a semaphore wait, a shared queue wait etc."
 |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:[
-(sel := c selector) == #wait ifTrue:[
+			    (sel := c selector) == #wait ifTrue:[
-found := true.
+				found := true.
-].
+			    ].
-sel == #waitWithTimeout: ifTrue:[
+			    sel == #waitWithTimeout: ifTrue:[
-found := true.
+				found := true.
-].
+			    ].
-sel == #waitWithTimeoutMs: ifTrue:[
+			    sel == #waitWithTimeoutMs: 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 |
-found ifFalse:[
+		found ifFalse:[
-c notNil ifTrue:[
+		    c notNil ifTrue:[
-((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+			((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
-found := true.
+			    found := true.
-] ifFalse:[
+			] ifFalse:[
-c := c sender.
+			    c := c sender.
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-"/ skip, until an interesting context is found.
+	"/ skip, until an interesting context is found.
-"/ This skips intermediate contexts, which lead
+	"/ This skips intermediate contexts, which lead
-"/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
+	"/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
-found ifFalse:[
+	found ifFalse:[
-c := con
+	    c := con
-].
+	].
-skipping := true.
+	skipping := true.
-[ skipping ] whileTrue:[
+	[ skipping ] whileTrue:[
-skipping := false.
+	    skipping := false.
-(c notNil and:[ (r := c receiver) == Delay or:[ r class == Delay ] ]) ifTrue:[
+	    (c notNil and:[ (r := c receiver) == Delay or:[ r class == Delay ] ]) ifTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-(c notNil and:[ (r := c receiver) == Semaphore or:[ r class == Semaphore ] ]) ifTrue:[
+	    (c notNil and:[ (r := c receiver) == Semaphore or:[ r class == Semaphore ] ]) ifTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil
+		c notNil
-and:[ c receiver isBlock
+		    and:[ c receiver isBlock
-and:[ ((sel := c selector) startsWith:'value')
+		    and:[ ((sel := c selector) startsWith:'value')
-or:[ sel = 'doWhile:'
+			  or:[ sel = 'doWhile:'
-or:[ sel = 'doUntil:'
+			  or:[ sel = 'doUntil:'
-or:[ sel = 'ensure:' ]]]]]
+			  or:[ sel = 'ensure:' ]]]]]
-] whileTrue:[
+	    ] whileTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil
+		c notNil
-and:[ c receiver == OperatingSystem
+		    and:[ c receiver == OperatingSystem
-and:[ c selector == #unblockInterrupts ] ]
+		    and:[ c selector == #unblockInterrupts ] ]
-] whileTrue:[
+	    ] whileTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil
+		c notNil
-and:[ c isBlockContext ]
+		    and:[ c isBlockContext ]
-] whileTrue:[
+	    ] whileTrue:[
-c := c home.
+		c := c home.
-skipping := true.
+		skipping := true.
-].
+	    ].
-].
+	].
-c notNil ifTrue:[
+	c notNil ifTrue:[
-sel := c selector.
+	    sel := c selector.
-sel isNil ifTrue:[
+	    sel isNil ifTrue:[
-sel := '* unknown *'
+		sel := '* unknown *'
-].
+	    ].
-r := c receiver.
+	    r := c receiver.
-rc := r class.
+	    rc := r class.
-rs := rc name.
+	    rs := rc name.
-(rc == SharedQueue
+	    (rc == SharedQueue
-or:[rc == RecursionLock]) ifTrue:[
+	    or:[rc == RecursionLock]) ifTrue:[
-rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+		rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
-].
+	    ].
-^ (rs , '>>' , sel).
+	    ^ (rs , '>>' , sel).
-]
+	]
 ].
 ^ ''
 "Created: / 28-02-2012 / 11:48:22 / cg"
 !
 a higher level waiter, such as a semaphore wait, a shared queue wait etc."
 |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 selector == #waitWithTimeout: ifTrue:[
+			    c selector == #waitWithTimeout: ifTrue:[
-found := true.
+				found := true.
-].
+			    ].
-c selector == #waitWithTimeoutMs: ifTrue:[
+			    c selector == #waitWithTimeoutMs: 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 |
-found ifFalse:[
+		found ifFalse:[
-c notNil ifTrue:[
+		    c notNil ifTrue:[
-((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+			((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
-found := true.
+			    found := true.
-] ifFalse:[
+			] ifFalse:[
-c := c sender.
+			    c := c sender.
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-"/ skip, until an interesting context is found.
+	"/ skip, until an interesting context is found.
-"/ This skips intermediate contexts, which lead
+	"/ This skips intermediate contexts, which lead
-"/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
+	"/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
-found ifFalse:[
+	found ifFalse:[
-c := con
+	    c := con
-].
+	].
-skipping := true.
+	skipping := true.
-[ skipping ] whileTrue:[
+	[ skipping ] whileTrue:[
-skipping := false.
+	    skipping := false.
-(c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
+	    (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-(c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
+	    (c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil
+		c notNil
-and:[ c receiver isBlock
+		    and:[ c receiver isBlock
-and:[ (c selector startsWith:'value')
+		    and:[ (c selector startsWith:'value')
-or:[ c selector = 'doWhile:'
+			  or:[ c selector = 'doWhile:'
-or:[ c selector = 'doUntil:'
+			  or:[ c selector = 'doUntil:'
-or:[ c selector = 'ensure:' ]]]]]
+			  or:[ c selector = 'ensure:' ]]]]]
-] whileTrue:[
+	    ] whileTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil
+		c notNil
-and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
+		    and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
-] whileTrue:[
+	    ] whileTrue:[
-c := c sender.
+		c := c sender.
-skipping := true.
+		skipping := true.
-].
+	    ].
-[
+	    [
-c notNil and:[ c isBlockContext ]
+		c notNil and:[ c isBlockContext ]
-] whileTrue:[
+	    ] whileTrue:[
-c := c home.
+		c := c home.
-skipping := true.
+		skipping := true.
-].
+	    ].
-].
+	].
-c notNil ifTrue:[
+	c notNil ifTrue:[
-sel := c selector.
+	    sel := c selector.
-sel isNil ifTrue:[
+	    sel isNil ifTrue:[
-sel := '* unknown *'
+		sel := '* unknown *'
-].
+	    ].
-r := c receiver.
+	    r := c receiver.
-rc := r class.
+	    rc := r class.
-rs := rc name.
+	    rs := rc name.
-(rc == SharedQueue
+	    (rc == SharedQueue
-or:[rc == RecursionLock]) ifTrue:[
+	    or:[rc == RecursionLock]) ifTrue:[
-rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+		rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
-].
+	    ].
-^ (rs , '>>' , sel).
+	    ^ (rs , '>>' , sel).
-]
+	]
 ].
 ^ ''
 "Modified: / 28-02-2012 / 11:43:30 / cg"
 !
 getWindowTitleFor:aProcess
 |wg topViews|
 wg := self windowGroupOfProcess:aProcess.
 wg notNil ifTrue:[
-(topViews := wg topViews) notEmptyOrNil ifTrue:[
+	(topViews := wg topViews) notEmptyOrNil ifTrue:[
-^ '"',topViews first label,'"'.
+	    ^ '"',topViews first label,'"'.
-].
+	].
 ].
 ^ ''.
 "Created: / 17-08-2011 / 11:01:21 / cg"
 ! !
 fillItemInformationIn:processItem
 |state stateColor running con aProcess|
 aProcess := processItem processInstance.
 aProcess isNil ifTrue:[
-^ self.
+	^ self.
 ].
 processItem processId:aProcess id.
 processItem idVal:aProcess id ? -1.
 processItem processName:aProcess name ? ''.
 state := aProcess state.
 running := (state == #run and:[aProcess == Processor interruptedProcess]).
 stateColor := (state == #run)
-ifTrue:[ Color green darkened ]
+			ifTrue:[ Color green darkened ]
-ifFalse:[
+			ifFalse:[
-(state == #debug or:[state == #stopped])
+			    (state == #debug or:[state == #stopped])
-ifTrue:[ Color red ]
+				ifTrue:[ Color red ]
-ifFalse:[ Color black ]].
+				ifFalse:[ Color black ]].
 processItem processState:(state asString colorizeAllWith:stateColor).
 processItem processActive:(self getActiveStringFor:aProcess running:running).
 "/    processItem processBlocked:(aProcess interruptsDisabled).
 processItem processUsedStack:aProcess usedStackSize.
 processItem processTotalStack:(self getTotalStackStringFor:aProcess).
 con := aProcess suspendedContext.
 con isNil ifTrue:[
-aProcess == Processor activeProcess ifTrue:[
+	aProcess == Processor activeProcess ifTrue:[
-con := thisContext
+	    con := thisContext
-]
+	]
 ].
 showWhere value ifTrue:[
-processItem processWhere:(self getWhereStringFor:con running:running).
+	processItem processWhere:(self getWhereStringFor:con running:running).
 ].
 processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
 processItem processSwitch:(aProcess numberOfStackBoundaryHits).
 showApplication value ifTrue:[
-processItem processApplication:(self getApplicationStringFor:aProcess)
+	processItem processApplication:(self getApplicationStringFor:aProcess)
 ].
 showWindowTitle value ifTrue:[
-processItem processWindowTitle:(self getWindowTitleFor:aProcess)
+	processItem processWindowTitle:(self getWindowTitleFor:aProcess)
 ].
 showInstrumentation value ifTrue:[
-processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
+	processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
 ].
 "Modified: / 17-08-2011 / 11:04:32 / cg"
 !
 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:[
-"after a restart, updateProcess is a dead process"
+	"after a restart, updateProcess is a dead process"
-self assert:(updateProcess isNil or:[updateProcess isDead]).
+	self assert:(updateProcess isNil or:[updateProcess isDead]).
-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:[
-myDelay delay:self scaledUpdateContentsDelayTime * 1000.
+		    myDelay delay:self scaledUpdateContentsDelayTime * 1000.
-((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.
-]
+		]
-] ifCurtailed:[
+	    ] ifCurtailed:[
-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
 | colIdx newValue |
 oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
 "/ ID
 oldItem processId ~= (newValue := newItem processId) ifTrue:[
-oldItem processId:newValue.
+	oldItem processId:newValue.
-processTable invalidateRowAt:index colAt:colIdx.
+	processTable invalidateRowAt:index colAt:colIdx.
 ].
 #(
-( showGroup     processGroup        processGroup: )
+	( showGroup     processGroup        processGroup: )
-( true          processName         processName: )
+	( true          processName         processName: )
-( showInstrumentation     processInstrumentation        processInstrumentation: )
+	( showInstrumentation     processInstrumentation        processInstrumentation: )
-( true          processActive       processActive: )
+	( true          processActive       processActive: )
-( showState     processState        processState: )
+	( showState     processState        processState: )
-( showPrio      processPrio         processPrio: )
+	( showPrio      processPrio         processPrio: )
-( showUsedStack processUsedStack    processUsedStack: )
+	( showUsedStack processUsedStack    processUsedStack: )
-( showTotalStack processTotalStack  processTotalStack: )
+	( showTotalStack processTotalStack  processTotalStack: )
-( showCurrentSegment processCurrentSegment processCurrentSegment: )
+	( showCurrentSegment processCurrentSegment processCurrentSegment: )
-( showSwitch    processSwitch       processSwitch: )
+	( showSwitch    processSwitch       processSwitch: )
-( showWhere     processWhere        processWhere: )
+	( showWhere     processWhere        processWhere: )
-( showApplication     processApplication        processApplication: )
+	( showApplication     processApplication        processApplication: )
-( showWindowTitle     processWindowTitle        processWindowTitle: )
+	( showWindowTitle     processWindowTitle        processWindowTitle: )
 ) do:[:eachAspect |
-|showHolder showHolderValue colValueGetter colValueSetter|
+	|showHolder showHolderValue colValueGetter colValueSetter|
-showHolder := eachAspect at:1.
+	showHolder := eachAspect at:1.
-colValueGetter := eachAspect at:2.
+	colValueGetter := eachAspect at:2.
-colValueSetter := eachAspect at:3.
+	colValueSetter := eachAspect at:3.
-showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
+	showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
-showHolderValue ifTrue:[
+	showHolderValue ifTrue:[
-colIdx := colIdx + 1.
+	    colIdx := colIdx + 1.
-(oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
+	    (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
-oldItem perform:colValueSetter with:newValue.
+		oldItem perform:colValueSetter with:newValue.
-processTable invalidateRowAt:index colAt:colIdx.
+		processTable invalidateRowAt:index colAt:colIdx.
-].
+	    ].
-].
+	].
 ].
 "/    "/ GROUP
 "/    self showGroup value ifTrue:[
 "/        colIdx := colIdx + 1.
 updateList
 |newList|
 processTable shown ifTrue:[
-newList := self getProcessList.
+	newList := self getProcessList.
-visibleBlock notNil ifTrue:[
+	visibleBlock notNil ifTrue:[
-newList := newList select:visibleBlock
+	    newList := newList select:visibleBlock
-].
+	].
-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
 	    "/ remove dead processes if not shown
 	    newList := OrderedCollection new.
 	    weakProcessList := WeakArray withAll:newProcessList.
 	    weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero |
 		"/ in a weakarray, dead entries are 0
-		(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
+		(procOrNilOrZero notNil and:[procOrNilOrZero class ~~ SmallInteger]) ifTrue:[
 		    (procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
 			| processItem |
 			processItem := ProcessItem new.
 			self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
 			newList add:processItem.
 !ProcessMonitorV2::ProcessItem methodsFor:'printing'!
 printOn:aStream
 (self processName ? '') printOn:aStream.
 aStream nextPut:$[.
 (self processId ? '') printOn:aStream.
 aStream nextPut:$].
 ! !
 !ProcessMonitorV2 class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.73 2015-02-24 11:48:56 cg Exp $'
+^ '$Header$'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.73 2015-02-24 11:48:56 cg Exp $'
+^ '$Header$'
 ! !

changeset 15753	cb4ef7cdc7f1
parent 15396	e344d3ab7af0
child 15756	9f212f4609db