--- a/ProcessMonitorV2.st Thu Jul 23 13:04:08 2015 +0200
+++ b/ProcessMonitorV2.st Thu Jul 23 13:25:51 2015 +0200
@@ -263,8 +263,8 @@
<resource: #image>
^Icon
- constantNamed:'ProcessMonitorV2 class defaultIcon'
- ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'ProcessMonitorV2 class defaultIcon'
+ 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]
!
@@ -279,24 +279,24 @@
self detailsMenuIconDown inspect
ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
- ifAbsentPut:[
- (Depth1Image new)
- width:7;
- height:5;
- photometric:(#palette);
- bitsPerSample:(#( 1 ));
- samplesPerPixel:(1);
- bits:(ByteArray fromPackedString:'@@@@@@@b');
- colorMapFromArray:#[ 0 0 0 255 255 255 ];
- mask:((ImageMask new)
- width:7;
- height:5;
- bits:(ByteArray fromPackedString:'@A@(UJ(b');
- yourself);
- yourself
- ]
+ ifAbsentPut:[
+ (Depth1Image new)
+ width:7;
+ height:5;
+ photometric:(#palette);
+ bitsPerSample:(#( 1 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray fromPackedString:'@@@@@@@b');
+ colorMapFromArray:#[ 0 0 0 255 255 255 ];
+ mask:((ImageMask new)
+ width:7;
+ height:5;
+ bits:(ByteArray fromPackedString:'@A@(UJ(b');
+ yourself);
+ yourself
+ ]
!
detailsMenuIconUp
@@ -309,24 +309,24 @@
self detailsMenuIconUp inspect
ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
- ifAbsentPut:[
- (Depth1Image new)
- width:7;
- height:5;
- photometric:(#palette);
- bitsPerSample:(#( 1 ));
- samplesPerPixel:(1);
- bits:(ByteArray fromPackedString:'@@@@@@@b');
- colorMapFromArray:#[ 0 0 0 255 255 255 ];
- mask:((ImageMask new)
- width:7;
- height:5;
- bits:(ByteArray fromPackedString:'*%P(D@@b');
- yourself);
- yourself
- ]
+ ifAbsentPut:[
+ (Depth1Image new)
+ width:7;
+ height:5;
+ photometric:(#palette);
+ bitsPerSample:(#( 1 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray fromPackedString:'@@@@@@@b');
+ colorMapFromArray:#[ 0 0 0 255 255 255 ];
+ mask:((ImageMask new)
+ width:7;
+ height:5;
+ bits:(ByteArray fromPackedString:'*%P(D@@b');
+ yourself);
+ yourself
+ ]
!
process22x22Icon
@@ -339,32 +339,32 @@
self process22x22Icon inspect
ImageEditor openOnClass:self andSelector:#process22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class process22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@');
+ yourself);
+ yourself
+ ]
!
processAbort22x22Icon
@@ -377,32 +377,32 @@
self processAbort22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#[ 8 ]);
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#[ 8 ]);
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
@@@BAP@@APLC@P@@APH@@@@@@@@@@@@@@PLEAPLC@0LEAPLA@@@@@@@@@@@@@@@B@0LC@0LC@0LA@@@@@@@@@@@@@@@@APLC@ DB@0LC@ @@@@@@@@@@@@@@
APLC@ D@@@TC@0LB@@@@@@@@@@@EAPLC@0D@@@@@APLC@0TB@@@@@@@@@PDC@0LB@@@@@@TC@0LA@P@@@@@@@@@@@ HC@0T@@@TC@0LA@@TE@@@@@@@@@@@B
@0LCAPTC@0LA@@TFA TE@@@@@@@@APLC@0LC@0LC@PTFA@PFAP@@@@@@APLA@ LC@0LCAPTFA@PDA@XE@@@@@@HA@@@E@0LB@@TFA@PDA@PFA @@@@@@@@TE
@@TA@@@EA XDA@PFAPT@@@@@@@@EA TE@P@@APTEA PDA @@@@@@@@@@@@TFAP@@@@TEA PDA T@@@@@@@@@@@@@A XEAPTFA PDA@X@@@@@@@@@@@@@@@TF
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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@');
+ yourself);
+ yourself
+ ]
!
processDebug22x22Icon
@@ -415,32 +415,32 @@
self processDebug22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
@@@CA @@A PD@P@@A L@@@@@@@@@@@@@@PPFA PDA@PFA PA@@@@@@@@@@@@@@@CA@PD@@@DA@PA@@@@@@@@@@@@@@@@A P@@0DC@@@D@0@@@@@@@@@@@@@@
A PD@0@@@@X@@@@@@@@@@@@@@@@FA PDA@D@@@@@@@HB@ HB@ @@@@@@@PDDA@@@@@@@@ HBAPTEAPTB@@@@@@@@@0@B@ @B@ HEAPTEAPTEAPH@@@@@@@HB
APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
- 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)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ');
+ yourself);
+ yourself
+ ]
!
processInspect22x22Icon
@@ -453,32 +453,32 @@
self processInspect22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
@@@@@@@@@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X');
+ yourself);
+ yourself
+ ]
!
processLowerPrio22x22Icon
@@ -491,32 +491,32 @@
self processLowerPrio22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TEAPTEAPTE@@@@@@@@A0\FA T@@@TFAP@@@@@@AP@@@@@@@@@G
A XFAPTFA T@@@@@@@T@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XEAPT@@@@@@@TEAP@@@@@@@@@@
@@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
@@@@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- 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@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ 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@');
+ yourself);
+ yourself
+ ]
!
processRaisePrio22x22Icon
@@ -529,32 +529,32 @@
self processRaisePrio22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XEB@@@@@@@@@@@A0\FA T@@@TFA XE@@T@@@@@@@@@@@@G
A XFAPTFA XE@@@@AP@@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XE@@@@@@@@@@T@@@@@@@\H@@@EA XE@@@@@@@@@@@@AP@@@@@@@@@@
@@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- 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');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ 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');
+ yourself);
+ yourself
+ ]
!
processRestart22x22Icon
@@ -567,32 +567,32 @@
self processRestart22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
A0XFAPP@@0LC@0@E@@@@@@@@@@@GA0XFA P@@@LC@0@FA \@@@@@@@@@A@PFA XE@@LC@0@FA XD@@@@@@@@@@@@APTFA @C@0L@A XD@@@@@@@@@@@@@@@E
@@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@');
+ yourself);
+ yourself
+ ]
!
processResume22x22Icon
@@ -605,32 +605,32 @@
self processResume22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processResume22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TE@@THB@@@@@@@@@@@A0\FA T@@@TFAP@@AP@@@@@@@@@@@@@G
A XFAPTFA T@@@@E@@@@@@@@@@@@APXFA XFA XE@@@@@@T@@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XG@@T@@@@@@@@E@@@@@@@@@@@@
@@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
@@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@');
+ yourself);
+ yourself
+ ]
!
processStop22x22Icon
@@ -643,32 +643,32 @@
self processStop22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processStop22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
A XFAPTFAPTEAPTEAPTEAP@@@@@@APXFA XFA T@@@@EAP@@@@T@@@@@APXHA0XFA XE@@@@APT@@@@E@@@@@@\H@@@EA XGAP@@@@TE@@@@AP@@@@@@@@@@
@@TH@@T@@@@EAP@@@@T@@@@@@@@@@@@EB@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@AP@@@@TE@@@@AP@@@@@@@@@@@@@@@@T@@@@EAP@@@@T@@@@@@@@@@@@@
@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<');
+ yourself);
+ yourself
+ ]
!
processSuspend22x22Icon
@@ -681,32 +681,32 @@
self processSuspend22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@TEAPTEAPTEAPTEAPT@@@@@A0\FA TEAPTEAPTEAPTEAPTE@@@@@@@G
A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<');
+ yourself);
+ yourself
+ ]
!
processTerminate22x22Icon
@@ -719,32 +719,32 @@
self processTerminate22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TGC@@@@@@@B@ FA XG@@@LC@TFA XHC@,K@@@@@@@@A0\FA TLB0,LC@XHC@,KBP@@@@@@@@@G
A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
@@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@');
+ yourself);
+ yourself
+ ]
!
processTerminateGroup22x22Icon
@@ -757,33 +757,33 @@
self processTerminateGroup22x22Icon inspect
ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
Icon flushCachedIcons"
-
- ^ Icon
- constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+
+ ^ Icon
+ constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA @@@TG@@@@@@@@@@@@
@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
A TEA XFA TEA @A0@@@@@@@@ H@@\FA XFA XFA @B@ @@@@@@@@@@@@EA XGB@\FA XG@@@@@@@L@@@@@@@EA XGB@@@AP0LA \@@@@LB0,@@@TEA XF
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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@');
+ yourself);
+ yourself
+ ]
!
raiseWindow22x22Icon
@@ -796,32 +796,32 @@
self raiseWindow22x22Icon inspect
ImageEditor openOnClass:self andSelector:#raiseWindow22x22Icon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:'ProcessMonitorV2 class raiseWindow22x22Icon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:22;
- photometric:(#palette);
- bitsPerSample:(#[ 8 ]);
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:22;
+ photometric:(#palette);
+ bitsPerSample:(#[ 8 ]);
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@.K"8.K"8.K"8.K"8.K"8.K"8.K @@@@@@@ HB@ HB@ HB@ HB@ HB@B8@@@@@@@H+J2,+J2,+J2,+J2,+@ @.@@@@@@@BJ2,+J2,+J2,+J2,+J2 @K @@
@ HB@ HB@ HB@ HB@ HBJ2,"@B8@@@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 ];
- mask:((ImageMask new)
- width:22;
- height:22;
- bits:(ByteArray
- fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:22;
+ bits:(ByteArray
+ fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@');
+ yourself);
+ yourself
+ ]
!
terminateGroupIcon
@@ -834,31 +834,31 @@
self terminateGroupIcon inspect
ImageEditor openOnClass:self andSelector:#terminateGroupIcon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
- ifAbsentPut:[
- (Depth8Image new)
- width:22;
- height:20;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:22;
+ height:20;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@PDA@PXJB (JB (JB (JB TE@PDA@PDA@PXJB (JB (JB (JB (JA0TA@PD@@PXJB (JB (JB (JB (JB (JA D@@@HDB (J@ HJB (JB PDA@(JB X@@@@@
@P\G@PDAA (JB XA@PDFA XA@@@@A DA@PDA@PXJB (F@PDA@PDA@PX@A \A@PD@@@@@@@@@A DJ@@@@@@@@@@XJB DA@@,KB0,K@@@A@@,KB0,KB0@AA XF
B (@B0,KB0,@@@,KB0,KB0@A@PDA@PXJB @KB0,KB0,KB0,KB0@A@PDA@PXJB (J@@,KB0,KB0,KB0@A@PD@@PXJB (JB (@B0,KB0,KB0@JA D@@@HDB (J
@ HJB @KB0,KB0@JB X@@@@@@P\G@PDAA @KB0,KB0,K@@XA@@@@@@DA@PDA@P@KB0,KB0,KB0,@@P@@@@@A@PDA@P@KB0,KB0@KB0,KB0@@@@@@@@DA@P@K
B0,KB0@@@@,KB0,K@@@@@@@@@@@KB0,KB0@A@@@@B0,KB0,@@@@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@DA@P@@@@@@@@@@@@@b');
- colorMapFromArray:#[ 0 0 0 48 48 48 56 59 56 64 68 64 88 92 88 128 128 128 160 160 160 192 192 192 216 219 216 239 244 239 248 252 248 160 0 0 ];
- mask:((ImageMask new)
- width:22;
- height:20;
- bits:(ByteArray
- fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@');
- yourself);
- yourself
- ]
+ 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)
+ width:22;
+ height:20;
+ bits:(ByteArray
+ fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@');
+ yourself);
+ yourself
+ ]
!
terminateIcon
@@ -871,29 +871,29 @@
self terminateIcon inspect
ImageEditor openOnClass:self andSelector:#terminateIcon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class terminateIcon'
- ifAbsentPut:[
- (Depth8Image new)
- width:16;
- height:16;
- photometric:(#palette);
- bitsPerSample:(#( 8 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'
+ ifAbsentPut:[
+ (Depth8Image new)
+ width:16;
+ height:16;
+ photometric:(#palette);
+ bitsPerSample:(#( 8 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
@0H@@@@@@@DB@@@@@@@@@@L@@@@@@@@@@ @@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
- colorMapFromArray:#[ 64 0 0 128 0 0 192 0 0 255 0 0 ];
- mask:((ImageMask new)
- width:16;
- height:16;
- bits:(ByteArray
- fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b');
- yourself);
- yourself
- ]
+ colorMapFromArray:#[ 64 0 0 128 0 0 192 0 0 255 0 0 ];
+ mask:((ImageMask new)
+ width:16;
+ height:16;
+ bits:(ByteArray
+ fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b');
+ yourself);
+ yourself
+ ]
!
viewDetailsIcon
@@ -906,26 +906,26 @@
self viewDetailsIcon inspect
ImageEditor openOnClass:self andSelector:#viewDetailsIcon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
- ifAbsentPut:[
- (Depth1Image new)
- width:16;
- height:16;
- photometric:(#palette);
- bitsPerSample:(#( 1 ));
- samplesPerPixel:(1);
- bits:(ByteArray
- fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
- colorMapFromArray:#[ 0 0 0 255 255 255 ];
- mask:((ImageMask new)
- width:16;
- height:16;
- bits:(ByteArray
- fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b');
- yourself);
- yourself
- ]
+ ifAbsentPut:[
+ (Depth1Image new)
+ width:16;
+ height:16;
+ photometric:(#palette);
+ bitsPerSample:(#( 1 ));
+ samplesPerPixel:(1);
+ bits:(ByteArray
+ fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
+ colorMapFromArray:#[ 0 0 0 255 255 255 ];
+ mask:((ImageMask new)
+ width:16;
+ height:16;
+ bits:(ByteArray
+ fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b');
+ yourself);
+ yourself
+ ]
! !
!ProcessMonitorV2 class methodsFor:'interface specs'!
@@ -945,140 +945,140 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'ProcessMonitor'
- name: 'ProcessMonitor'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 791 358)
- menu: mainMenu
- icon: defaultIcon
- )
- component:
+ label: 'ProcessMonitor'
+ name: 'ProcessMonitor'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 791 358)
+ menu: mainMenu
+ icon: defaultIcon
+ )
+ component:
(SpecCollection
- collection: (
- (MenuPanelSpec
- name: 'ToolBar1'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
- menu: toolBarMainMenu
- textDefault: true
- )
- (DataSetSpec
- name: 'ProcessTable'
- layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
- model: selectedProcesses
- menu: tableMenu
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- dataList: processList
- useIndex: false
- doubleClickSelector: doubleClickedAt:
- columnHolder: tableColumns
- multipleSelectOk: true
- verticalSpacing: 0
- postBuildCallback: postBuildProcessTable:
- )
- (LabelSpec
- label: 'Update Contents Delay (s):'
- name: 'ContentsUpdateLabel'
- layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
- translateLabel: true
- adjust: right
- )
- (ViewSpec
- name: 'Box1'
- layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
- level: 0
- component:
- (SpecCollection
- collection: (
- (ArrowButtonSpec
- name: 'ArrowButton3'
- layout: (LayoutFrame 68 0 0 0 89 0 20 0)
- model: increaseupdateContentsDelayTime
- enableChannel: enableIncreaseContentsDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: up
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 22 0 0 0 66 0 20 0)
- model: updateContentsDelayTime
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (ArrowButtonSpec
- name: 'ArrowButton4'
- layout: (LayoutFrame 0 0 0 0 20 0 20 0)
- model: decreaseupdateContentsDelayTime
- enableChannel: enableDecreaseContentsDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: down
- )
- )
-
- )
- )
- (LabelSpec
- label: 'Update List Delay (s):'
- name: 'ListUpdateLabel'
- layout: (LayoutFrame -301 1 -20 1 -110 1 0 1)
- translateLabel: true
- adjust: right
- )
- (ViewSpec
- name: 'Box2'
- layout: (LayoutFrame -103 1 -21 1 0 1 1 1)
- level: 0
- component:
- (SpecCollection
- collection: (
- (ArrowButtonSpec
- name: 'ArrowButton5'
- layout: (LayoutFrame 68 0 0 0 89 0 20 0)
- model: increaseupdateListDelayTime
- enableChannel: enableIncreaseListDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: up
- )
- (InputFieldSpec
- name: 'EntryField3'
- layout: (LayoutFrame 22 0 0 0 66 0 20 0)
- model: updateListDelayTime
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (ArrowButtonSpec
- name: 'ArrowButton6'
- layout: (LayoutFrame 0 0 0 0 20 0 20 0)
- model: decreaseupdateListDelayTime
- enableChannel: enableDecreaseListDelayTime
- isTriggerOnDown: true
- autoRepeat: true
- actionValue: ''
- direction: down
- )
- )
-
- )
- keepSpaceForOSXResizeHandleH: true
- )
- )
-
- )
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+ menu: toolBarMainMenu
+ textDefault: true
+ )
+ (DataSetSpec
+ name: 'ProcessTable'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
+ model: selectedProcesses
+ menu: tableMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ dataList: processList
+ useIndex: false
+ doubleClickSelector: doubleClickedAt:
+ columnHolder: tableColumns
+ multipleSelectOk: true
+ verticalSpacing: 0
+ postBuildCallback: postBuildProcessTable:
+ )
+ (LabelSpec
+ label: 'Update Contents Delay (s):'
+ name: 'ContentsUpdateLabel'
+ layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
+ translateLabel: true
+ adjust: right
+ )
+ (ViewSpec
+ name: 'Box1'
+ layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
+ level: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ArrowButtonSpec
+ name: 'ArrowButton3'
+ layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+ model: increaseupdateContentsDelayTime
+ enableChannel: enableIncreaseContentsDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: up
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+ model: updateContentsDelayTime
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (ArrowButtonSpec
+ name: 'ArrowButton4'
+ layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+ model: decreaseupdateContentsDelayTime
+ enableChannel: enableDecreaseContentsDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: down
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'Update List Delay (s):'
+ name: 'ListUpdateLabel'
+ layout: (LayoutFrame -301 1 -20 1 -110 1 0 1)
+ translateLabel: true
+ adjust: right
+ )
+ (ViewSpec
+ name: 'Box2'
+ layout: (LayoutFrame -103 1 -21 1 0 1 1 1)
+ level: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ArrowButtonSpec
+ name: 'ArrowButton5'
+ layout: (LayoutFrame 68 0 0 0 89 0 20 0)
+ model: increaseupdateListDelayTime
+ enableChannel: enableIncreaseListDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: up
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 22 0 0 0 66 0 20 0)
+ model: updateListDelayTime
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (ArrowButtonSpec
+ name: 'ArrowButton6'
+ layout: (LayoutFrame 0 0 0 0 20 0 20 0)
+ model: decreaseupdateListDelayTime
+ enableChannel: enableDecreaseListDelayTime
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: down
+ )
+ )
+
+ )
+ keepSpaceForOSXResizeHandleH: true
+ )
+ )
+
+ )
)
! !
@@ -1146,42 +1146,42 @@
^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Inspect Process'
- itemValue: inspectSelection
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Inspect Application'
- itemValue: inspectApplication
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Browse Application'
- itemValue: browseApplication
- translateLabel: true
- )
- (MenuItem
- label: '-'
- isVisible: allowModificationsAndHasDebugger
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Debug'
- itemValue: debugProcess
- translateLabel: true
- isVisible: allowModificationsAndHasDebugger
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Inspect Process'
+ itemValue: inspectSelection
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Inspect Application'
+ itemValue: inspectApplication
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Browse Application'
+ itemValue: browseApplication
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModificationsAndHasDebugger
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Debug'
+ itemValue: debugProcess
+ translateLabel: true
+ isVisible: allowModificationsAndHasDebugger
+ )
+ )
+ nil
+ nil
)
"Modified: / 07-06-2007 / 12:49:58 / cg"
@@ -1201,24 +1201,24 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionWithEnabledInstrumentationHolder
- label: 'Disable'
- itemValue: disableInstrumentation
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionWithDisabledInstrumentationHolder
- label: 'Enable'
- itemValue: enableInstrumentation
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionWithEnabledInstrumentationHolder
+ label: 'Disable'
+ itemValue: disableInstrumentation
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelectionWithDisabledInstrumentationHolder
+ label: 'Enable'
+ itemValue: enableInstrumentation
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
!
@@ -1237,97 +1237,97 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'File'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Start Timeslicing'
- itemValue: startTimeslicing
- translateLabel: true
- isVisible: isNotTimeslicing
- )
- (MenuItem
- label: 'Stop Timeslicing'
- itemValue: stopTimeslicing
- translateLabel: true
- isVisible: isTimeslicing
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Process'
- translateLabel: true
- isVisible: allowModifications
- submenuChannel: processMenu
- )
- (MenuItem
- label: 'Application'
- translateLabel: true
- submenuChannel: applicationMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'Debug'
- translateLabel: true
- submenuChannel: debugMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'Instrumentation'
- translateLabel: true
- submenuChannel: instrumentationMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'View'
- translateLabel: true
- submenuChannel: viewDetailsMenuSpec
- )
- (MenuItem
- label: 'MENU_Help'
- startGroup: conditionalRight
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Documentation'
- itemValue: openDocumentation
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About this Application...'
- itemValue: openAboutThisApplication
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Start Timeslicing'
+ itemValue: startTimeslicing
+ translateLabel: true
+ isVisible: isNotTimeslicing
+ )
+ (MenuItem
+ label: 'Stop Timeslicing'
+ itemValue: stopTimeslicing
+ translateLabel: true
+ isVisible: isTimeslicing
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Process'
+ translateLabel: true
+ isVisible: allowModifications
+ submenuChannel: processMenu
+ )
+ (MenuItem
+ label: 'Application'
+ translateLabel: true
+ submenuChannel: applicationMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'Debug'
+ translateLabel: true
+ submenuChannel: debugMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'Instrumentation'
+ translateLabel: true
+ submenuChannel: instrumentationMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'View'
+ translateLabel: true
+ submenuChannel: viewDetailsMenuSpec
+ )
+ (MenuItem
+ label: 'MENU_Help'
+ startGroup: conditionalRight
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Documentation'
+ itemValue: openDocumentation
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About this Application...'
+ itemValue: openAboutThisApplication
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
!
@@ -1346,80 +1346,80 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionWithStoppedProcessHolder
- label: 'Resume'
- itemValue: resumeProcess
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Suspend'
- itemValue: suspendProcess
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Stop'
- itemValue: stopProcess
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Abort'
- itemValue: abortProcess
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate'
- itemValue: terminateProcess
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Hard Terminate'
- itemValue: hardTerminateProcess
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate Group'
- itemValue: terminateProcessGroup
- )
- (MenuItem
- enabled: selectionRestartable
- label: 'Restart'
- itemValue: restartProcess
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Raise Prio'
- itemValue: raisePrio
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Lower Prio'
- itemValue: lowerPrio
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Set Prio Range...'
- itemValue: setPrioRange
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Find by View'
- itemValue: findProcessByView
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionWithStoppedProcessHolder
+ label: 'Resume'
+ itemValue: resumeProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Suspend'
+ itemValue: suspendProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Stop'
+ itemValue: stopProcess
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Abort'
+ itemValue: abortProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate'
+ itemValue: terminateProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Hard Terminate'
+ itemValue: hardTerminateProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate Group'
+ itemValue: terminateProcessGroup
+ )
+ (MenuItem
+ enabled: selectionRestartable
+ label: 'Restart'
+ itemValue: restartProcess
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Raise Prio'
+ itemValue: raisePrio
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Lower Prio'
+ itemValue: lowerPrio
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Set Prio Range...'
+ itemValue: setPrioRange
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Find by View'
+ itemValue: findProcessByView
+ )
+ )
+ nil
+ nil
)
!
@@ -1556,148 +1556,148 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- activeHelpKey: Inspect
- enabled: hasSelectionHolder
- label: 'Inspect'
- itemValue: inspectSelection
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
- )
- (MenuItem
- activeHelpKey: Debug
- enabled: hasSelectionHolder
- label: 'Debug'
- itemValue: debugProcess
- isButton: true
- isVisible: allowModificationsAndHasDebugger
- labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
- )
- (MenuItem
- activeHelpKey: RaiseWindow
- enabled: hasSelectionWithApplicationProcessHolder
- label: 'Raise Applications Window'
- itemValue: raiseApplicationWindow
- isButton: true
- labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
- )
- (MenuItem
- label: 'Find Process by View'
- itemValue: findProcessByView
- isButton: true
- labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: Resume
- enabled: hasSelectionWithStoppedProcessHolder
- label: 'Resume'
- itemValue: resumeProcess
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
- )
- (MenuItem
- activeHelpKey: Stop
- enabled: hasSelectionHolder
- label: 'Stop'
- itemValue: stopProcess
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
- )
- (MenuItem
- activeHelpKey: Abort
- enabled: hasSelectionHolder
- label: 'Abort'
- itemValue: abortProcess
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: Terminate
- enabled: hasSelectionHolder
- label: 'Terminate'
- itemValue: terminateProcess
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
- )
- (MenuItem
- activeHelpKey: #'Terminate Group'
- enabled: hasSelectionHolder
- label: 'Terminate Group'
- itemValue: terminateProcessGroup
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
- )
- (MenuItem
- activeHelpKey: Restart
- enabled: selectionRestartable
- label: 'Restart'
- itemValue: restartProcess
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
- )
- (MenuItem
- label: '-'
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: #'Lower Prio'
- enabled: hasSelectionHolder
- label: 'Lower Prio'
- itemValue: lowerPrio
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
- )
- (MenuItem
- activeHelpKey: #'Raise Prio'
- enabled: hasSelectionHolder
- label: 'Raise Prio'
- itemValue: raisePrio
- isButton: true
- isVisible: allowModifications
- labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
- )
- (MenuItem
- label: ''
- isVisible: allowModifications
- )
- (MenuItem
- activeHelpKey: #'Update Process List'
- label: 'Update'
- itemValue: updateList
- isButton: true
- startGroup: right
- labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
- )
- (MenuItem
- activeHelpKey: Details
- label: 'View Details'
- isButton: true
- startGroup: right
- submenuChannel: viewDetailsMenuSpec
- labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ activeHelpKey: Inspect
+ enabled: hasSelectionHolder
+ label: 'Inspect'
+ itemValue: inspectSelection
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Debug
+ enabled: hasSelectionHolder
+ label: 'Debug'
+ itemValue: debugProcess
+ isButton: true
+ isVisible: allowModificationsAndHasDebugger
+ labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: RaiseWindow
+ enabled: hasSelectionWithApplicationProcessHolder
+ label: 'Raise Applications Window'
+ itemValue: raiseApplicationWindow
+ isButton: true
+ labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
+ )
+ (MenuItem
+ label: 'Find Process by View'
+ itemValue: findProcessByView
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: Resume
+ enabled: hasSelectionWithStoppedProcessHolder
+ label: 'Resume'
+ itemValue: resumeProcess
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Stop
+ enabled: hasSelectionHolder
+ label: 'Stop'
+ itemValue: stopProcess
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Abort
+ enabled: hasSelectionHolder
+ label: 'Abort'
+ itemValue: abortProcess
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: Terminate
+ enabled: hasSelectionHolder
+ label: 'Terminate'
+ itemValue: terminateProcess
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: #'Terminate Group'
+ enabled: hasSelectionHolder
+ label: 'Terminate Group'
+ itemValue: terminateProcessGroup
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: Restart
+ enabled: selectionRestartable
+ label: 'Restart'
+ itemValue: restartProcess
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: #'Lower Prio'
+ enabled: hasSelectionHolder
+ label: 'Lower Prio'
+ itemValue: lowerPrio
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
+ )
+ (MenuItem
+ activeHelpKey: #'Raise Prio'
+ enabled: hasSelectionHolder
+ label: 'Raise Prio'
+ itemValue: raisePrio
+ isButton: true
+ isVisible: allowModifications
+ labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
+ )
+ (MenuItem
+ label: ''
+ isVisible: allowModifications
+ )
+ (MenuItem
+ activeHelpKey: #'Update Process List'
+ label: 'Update'
+ itemValue: updateList
+ isButton: true
+ startGroup: right
+ labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+ )
+ (MenuItem
+ activeHelpKey: Details
+ label: 'View Details'
+ isButton: true
+ startGroup: right
+ submenuChannel: viewDetailsMenuSpec
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+ )
+ )
+ nil
+ nil
)
!
@@ -1716,86 +1716,86 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'Id'
- hideMenuOnActivated: false
- indication: showProcessId
- )
- (MenuItem
- label: 'Group'
- hideMenuOnActivated: false
- indication: showGroup
- )
- (MenuItem
- label: 'Instrumentation'
- hideMenuOnActivated: false
- indication: showInstrumentation
- )
- (MenuItem
- label: 'State'
- hideMenuOnActivated: false
- indication: showState
- )
- (MenuItem
- label: 'Prio'
- hideMenuOnActivated: false
- indication: showPrio
- )
- (MenuItem
- label: 'Used Stack'
- hideMenuOnActivated: false
- indication: showUsedStack
- )
- (MenuItem
- label: 'Total Stack'
- hideMenuOnActivated: false
- indication: showTotalStack
- )
- (MenuItem
- label: 'Current-Segment'
- hideMenuOnActivated: false
- indication: showCurrentSegment
- )
- (MenuItem
- label: 'Switch'
- hideMenuOnActivated: false
- indication: showSwitch
- )
- (MenuItem
- label: 'Where'
- hideMenuOnActivated: false
- indication: showWhere
- )
- (MenuItem
- label: 'Application'
- hideMenuOnActivated: false
- indication: showApplication
- )
- (MenuItem
- label: 'Window Title'
- hideMenuOnActivated: false
- indication: showWindowTitle
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Dead Processes'
- indication: showDead
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Update'
- itemValue: updateView
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Id'
+ hideMenuOnActivated: false
+ indication: showProcessId
+ )
+ (MenuItem
+ label: 'Group'
+ hideMenuOnActivated: false
+ indication: showGroup
+ )
+ (MenuItem
+ label: 'Instrumentation'
+ hideMenuOnActivated: false
+ indication: showInstrumentation
+ )
+ (MenuItem
+ label: 'State'
+ hideMenuOnActivated: false
+ indication: showState
+ )
+ (MenuItem
+ label: 'Prio'
+ hideMenuOnActivated: false
+ indication: showPrio
+ )
+ (MenuItem
+ label: 'Used Stack'
+ hideMenuOnActivated: false
+ indication: showUsedStack
+ )
+ (MenuItem
+ label: 'Total Stack'
+ hideMenuOnActivated: false
+ indication: showTotalStack
+ )
+ (MenuItem
+ label: 'Current-Segment'
+ hideMenuOnActivated: false
+ indication: showCurrentSegment
+ )
+ (MenuItem
+ label: 'Switch'
+ hideMenuOnActivated: false
+ indication: showSwitch
+ )
+ (MenuItem
+ label: 'Where'
+ hideMenuOnActivated: false
+ indication: showWhere
+ )
+ (MenuItem
+ label: 'Application'
+ hideMenuOnActivated: false
+ indication: showApplication
+ )
+ (MenuItem
+ label: 'Window Title'
+ hideMenuOnActivated: false
+ indication: showWindowTitle
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Dead Processes'
+ indication: showDead
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update'
+ itemValue: updateView
+ )
+ )
+ nil
+ nil
)
! !
@@ -1816,221 +1816,221 @@
^#(
(DataSetColumnSpec
- label: 'Id'
- id: id
- activeHelpKeyForLabel: 'processId'
- labelAlignment: left
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'idVal'
- width: 45
- type: number
- model: processId
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Id'
+ id: id
+ activeHelpKeyForLabel: 'processId'
+ labelAlignment: left
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'idVal'
+ width: 45
+ type: number
+ model: processId
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Group'
- id: group
- activeHelpKeyForLabel: 'processGroup'
- labelAlignment: left
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'groupVal'
- width: 45
- model: processGroup
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Group'
+ id: group
+ activeHelpKeyForLabel: 'processGroup'
+ labelAlignment: left
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'groupVal'
+ width: 45
+ model: processGroup
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Name'
- id: name
- activeHelpKeyForLabel: 'processName'
- labelAlignment: left
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processName'
- width: 200
- model: processName
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Name'
+ id: name
+ activeHelpKeyForLabel: 'processName'
+ labelAlignment: left
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processName'
+ width: 200
+ model: processName
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Instr.'
- id: instrumentation
- labelAlignment: left
- width: 50
- "/ activeHelpKey: 'processInstrumentation'
- activeHelpKeyForLabel: 'processInstrumentation'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processInstrumentation'
- model: processInstrumentation
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Instr.'
+ id: instrumentation
+ labelAlignment: left
+ width: 50
+ "/ activeHelpKey: 'processInstrumentation'
+ activeHelpKeyForLabel: 'processInstrumentation'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processInstrumentation'
+ model: processInstrumentation
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: ''
- id: active
- "/ activeHelpKey: 'processWasActive'
- activeHelpKeyForLabel: 'processWasActive'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processActive'
- width: 10
- height: 5
- model: processActive
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: ''
+ id: active
+ "/ activeHelpKey: 'processWasActive'
+ activeHelpKeyForLabel: 'processWasActive'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processActive'
+ width: 10
+ height: 5
+ model: processActive
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'State'
- id: state
- labelAlignment: left
- "/ activeHelpKey: 'processState'
- activeHelpKeyForLabel: 'processState'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processState'
- width: 100
- model: processState
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'State'
+ id: state
+ labelAlignment: left
+ "/ activeHelpKey: 'processState'
+ activeHelpKeyForLabel: 'processState'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processState'
+ width: 100
+ model: processState
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Prio'
- id: prio
- labelAlignment: left
- "/ activeHelpKey: 'processPriority'
- activeHelpKeyForLabel: 'processPriority'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'prioVal'
- width: 40
- model: processPrio
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Prio'
+ id: prio
+ labelAlignment: left
+ "/ activeHelpKey: 'processPriority'
+ activeHelpKeyForLabel: 'processPriority'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'prioVal'
+ width: 40
+ model: processPrio
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Used Stack'
- id: usedStack
- labelAlignment: left
- "/ activeHelpKey: 'processUsedStack'
- activeHelpKeyForLabel: 'processUsedStack'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processUsedStack'
- columnAlignment: right
- width: 75
- type: number
- model: processUsedStack
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Used Stack'
+ id: usedStack
+ labelAlignment: left
+ "/ activeHelpKey: 'processUsedStack'
+ activeHelpKeyForLabel: 'processUsedStack'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processUsedStack'
+ columnAlignment: right
+ width: 75
+ type: number
+ model: processUsedStack
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Total Stack'
- id: totalStack
- labelAlignment: left
- "/ activeHelpKey: 'processTotalStack'
- activeHelpKeyForLabel: 'processTotalStack'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processTotalStack'
- columnAlignment: right
- width: 75
- model: processTotalStack
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Total Stack'
+ id: totalStack
+ labelAlignment: left
+ "/ activeHelpKey: 'processTotalStack'
+ activeHelpKeyForLabel: 'processTotalStack'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processTotalStack'
+ columnAlignment: right
+ width: 75
+ model: processTotalStack
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Current-Segment'
- id: currentSegment
- activeHelpKeyForLabel: 'processCurrentSegment'
- labelAlignment: left
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processCurrentSegment'
- width: 110
- model: processCurrentSegment
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Current-Segment'
+ id: currentSegment
+ activeHelpKeyForLabel: 'processCurrentSegment'
+ labelAlignment: left
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processCurrentSegment'
+ width: 110
+ model: processCurrentSegment
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Switch'
- id: switch
- activeHelpKeyForLabel: 'processSwitch'
- labelAlignment: left
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processSwitch'
- columnAlignment: right
- width: 55
- type: number
- model: processSwitch
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Switch'
+ id: switch
+ activeHelpKeyForLabel: 'processSwitch'
+ labelAlignment: left
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processSwitch'
+ columnAlignment: right
+ width: 55
+ type: number
+ model: processSwitch
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Where'
- id: where
- labelAlignment: left
- "/ activeHelpKey: 'processWhere'
- activeHelpKeyForLabel: 'processWhere'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processWhere'
- model: processWhere
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Where'
+ id: where
+ labelAlignment: left
+ "/ activeHelpKey: 'processWhere'
+ activeHelpKeyForLabel: 'processWhere'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processWhere'
+ model: processWhere
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Application'
- id: application
- labelAlignment: left
- "/ activeHelpKey: 'processApplication'
- activeHelpKeyForLabel: 'processApplication'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processApplication'
- model: processApplication
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Application'
+ id: application
+ labelAlignment: left
+ "/ activeHelpKey: 'processApplication'
+ activeHelpKeyForLabel: 'processApplication'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processApplication'
+ model: processApplication
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
(DataSetColumnSpec
- label: 'Window Title'
- id: windowTitle
- labelAlignment: left
- "/ activeHelpKey: 'processWindowTitle'
- activeHelpKeyForLabel: 'processWindowTitle'
- labelButtonType: Button
- labelActionSelector: sortProcessListBy:
- labelActionArgument: 'processWindowTitle'
- model: processWindowTitle
- menuFromApplication: false
- canSelect: false
- showRowSeparator: false
- showColSeparator: false
+ label: 'Window Title'
+ id: windowTitle
+ labelAlignment: left
+ "/ activeHelpKey: 'processWindowTitle'
+ activeHelpKeyForLabel: 'processWindowTitle'
+ labelButtonType: Button
+ labelActionSelector: sortProcessListBy:
+ labelActionArgument: 'processWindowTitle'
+ model: processWindowTitle
+ menuFromApplication: false
+ canSelect: false
+ showRowSeparator: false
+ showColSeparator: false
)
)
! !
@@ -2051,16 +2051,16 @@
| newSelection |
aSelection notNil ifTrue:[
- newSelection := OrderedCollection new.
- aSelection do:[:processItem |
- | index |
-
- index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
- index ~~ 0 ifTrue:[
- newSelection add:(processList at:index).
- ].
- ].
- self selectedProcesses value:newSelection
+ newSelection := OrderedCollection new.
+ aSelection do:[:processItem |
+ | index |
+
+ index := processList findFirst:[:anItem | (anItem processInstance == processItem processInstance)].
+ index ~~ 0 ifTrue:[
+ newSelection add:(processList at:index).
+ ].
+ ].
+ self selectedProcesses value:newSelection
].
!
@@ -2115,10 +2115,10 @@
|coll|
self showDead value ifTrue:[
- coll := Process allSubInstances asOrderedCollection.
+ coll := Process allSubInstances asOrderedCollection.
] ifFalse:[
- coll := ProcessorScheduler knownProcesses asOrderedCollection.
- coll add:Processor scheduler.
+ coll := ProcessorScheduler knownProcesses asOrderedCollection.
+ coll add:Processor scheduler.
].
^ coll
!
@@ -2270,8 +2270,8 @@
"return/create the 'showApplication' value holder (automatically generated)"
showApplication isNil ifTrue:[
- showApplication := false asValue.
- showApplication onChangeSend:#viewedColumnsChanged to:self
+ showApplication := false asValue.
+ showApplication onChangeSend:#viewedColumnsChanged to:self
].
^ showApplication
@@ -2302,8 +2302,8 @@
"return/create the 'showInstrumentation' value holder (automatically generated)"
showInstrumentation isNil ifTrue:[
- showInstrumentation := true asValue.
- showInstrumentation onChangeSend:#viewedColumnsChanged to:self
+ showInstrumentation := true asValue.
+ showInstrumentation onChangeSend:#viewedColumnsChanged to:self
].
^ showInstrumentation
@@ -2383,8 +2383,8 @@
"return/create the 'showWindowTitle' value holder (automatically generated)"
showWindowTitle isNil ifTrue:[
- showWindowTitle := false asValue.
- showWindowTitle onChangeSend:#viewedColumnsChanged to:self
+ showWindowTitle := false asValue.
+ showWindowTitle onChangeSend:#viewedColumnsChanged to:self
].
^ showWindowTitle
@@ -2403,8 +2403,8 @@
allowModificationsAndHasDebugger
^ BlockValue
- forLogical:(self allowModifications)
- and:[ Debugger notNil ]
+ forLogical:(self allowModifications)
+ and:[ Debugger notNil ]
!
enableDecreaseContentsDelayTime
@@ -2545,13 +2545,13 @@
hasSelectionHolder value:hasSelection.
hasSelection ifFalse:[
- self selectionRestartable value:false.
- hasSelectionWithStoppedProcessHolder value:false.
- hasSelectionWithApplicationProcessHolder value:false.
- hasSelectionWithGUIProcessHolder value:false.
- hasSelectionWithEnabledInstrumentationHolder value:false.
- hasSelectionWithDisabledInstrumentationHolder value:false.
- ^ self
+ self selectionRestartable value:false.
+ hasSelectionWithStoppedProcessHolder value:false.
+ hasSelectionWithApplicationProcessHolder value:false.
+ hasSelectionWithGUIProcessHolder value:false.
+ hasSelectionWithEnabledInstrumentationHolder value:false.
+ hasSelectionWithDisabledInstrumentationHolder value:false.
+ ^ self
].
hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
@@ -2562,9 +2562,9 @@
allRestartable := true.
self selectedProcessesDo:[:p |
- p isRestartable ifFalse:[
- allRestartable := false
- ].
+ p isRestartable ifFalse:[
+ allRestartable := false
+ ].
].
self selectionRestartable value:allRestartable.
^ self.
@@ -2599,59 +2599,59 @@
"/ remember the selected processes
sel := self selectedProcesses value.
sel notNil ifTrue:[
- oldSelection := OrderedCollection new.
- sel do:[:proItem|
- |process|
-
- (process := proItem processInstance) notNil ifTrue:[
- oldSelection add:process
- ].
- ].
+ oldSelection := OrderedCollection new.
+ sel do:[:proItem|
+ |process|
+
+ (process := proItem processInstance) notNil ifTrue:[
+ 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 := col id.
- id notNil ifTrue:[
- (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
- | label icon|
- label := col label.
- icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
- col label:(LabelAndIcon label:label icon:icon).
- ].
- #(
- ( #id #showProcessId)
- ( #group #showGroup)
- ( #prio #showPrio)
- ( #currentSegment #showCurrentSegment)
- ( #state #showState)
- ( #switch #showSwitch)
- ( #totalStack #showTotalStack)
- ( #usedStack #showUsedStack)
- ( #where #showWhere)
- ( #application #showApplication)
- ( #windowTitle #showWindowTitle)
- ( #instrumentation #showInstrumentation)
- ) pairsDo:[:colName :holderAccessorSelector |
- (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
- columns remove:col.
- ]
- ]
- ]
+ | id |
+ id := col id.
+ id notNil ifTrue:[
+ (col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
+ | label icon|
+ label := col label.
+ icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
+ col label:(LabelAndIcon label:label icon:icon).
+ ].
+ #(
+ ( #id #showProcessId)
+ ( #group #showGroup)
+ ( #prio #showPrio)
+ ( #currentSegment #showCurrentSegment)
+ ( #state #showState)
+ ( #switch #showSwitch)
+ ( #totalStack #showTotalStack)
+ ( #usedStack #showUsedStack)
+ ( #where #showWhere)
+ ( #application #showApplication)
+ ( #windowTitle #showWindowTitle)
+ ( #instrumentation #showInstrumentation)
+ ) pairsDo:[:colName :holderAccessorSelector |
+ (id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
+ columns remove:col.
+ ]
+ ]
+ ]
].
updateSema critical:[
- self tableColumns value:columns.
+ self tableColumns value:columns.
"/ self updateTable:nil.
"/ Transcript showCR:'oldSelection on set in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
- self changeSelectionToProcesses:oldSelection.
+ self changeSelectionToProcesses:oldSelection.
].
"Modified: / 17-08-2011 / 11:11:21 / cg"
@@ -2668,16 +2668,16 @@
|focusView key rawKey|
anEvent isKeyPressEvent ifTrue:[
- focusView := anEvent targetView.
- key := anEvent key.
- rawKey := anEvent rawKey.
-
- (focusView == processList) ifTrue:[
- key == #InspectIt ifTrue:[
- self inspectSelection.
- ^ true.
- ].
- ]
+ focusView := anEvent targetView.
+ key := anEvent key.
+ rawKey := anEvent rawKey.
+
+ (focusView == processList) ifTrue:[
+ key == #InspectIt ifTrue:[
+ self inspectSelection.
+ ^ true.
+ ].
+ ]
].
^ false
! !
@@ -2716,8 +2716,8 @@
"/ event mode is no longer used;
"/ this event support may vanish
Processor isPureEventDriven ifTrue:[
- updateBlock := [self updateStatus:nil].
- listUpdateBlock := [self updateList].
+ updateBlock := [self updateStatus:nil].
+ listUpdateBlock := [self updateList].
].
"Modified: / 17-08-2011 / 11:39:13 / cg"
@@ -2795,14 +2795,14 @@
v := Screen current viewFromUser.
v notNil ifTrue:[
- (wg := v windowGroup) notNil ifTrue:[
- (p := wg process) notNil ifTrue:[
- item := processList detect:[:i | i processId = p id] ifNone:nil.
- item notNil ifTrue:[
- self selectedProcesses value:(Array with:item)
- ]
- ].
- ]
+ (wg := v windowGroup) notNil ifTrue:[
+ (p := wg process) notNil ifTrue:[
+ item := processList detect:[:i | i processId = p id] ifNone:nil.
+ item notNil ifTrue:[
+ self selectedProcesses value:(Array with:item)
+ ]
+ ].
+ ]
].
!
@@ -2852,7 +2852,7 @@
"restarts the selected process"
self selectedProcessesDo:[:p |
- p restart.
+ p restart.
].
self updateList.
@@ -2871,13 +2871,13 @@
|rangeString range|
[
- rangeString := Dialog
- request:'Priority Range (min to: max)'
- initialAnswer:'7 to: 8'.
- rangeString isNil ifTrue:[
- ^ self "aborted"
- ].
- range := Interval readFrom:rangeString onError:nil.
+ rangeString := Dialog
+ request:'Priority Range (min to: max)'
+ initialAnswer:'7 to: 8'.
+ rangeString isNil ifTrue:[
+ ^ self "aborted"
+ ].
+ range := Interval readFrom:rangeString onError:nil.
] doWhile:[range isNil].
self selectedProcessesDo:[:p |
@@ -2888,7 +2888,7 @@
startTimeslicing
Processor isTimeSlicing ifFalse:[
- Processor startTimeSlicing.
+ Processor startTimeSlicing.
].
"Created: / 03-11-2011 / 21:26:27 / cg"
@@ -2902,7 +2902,7 @@
stopTimeslicing
Processor isTimeSlicing ifTrue:[
- Processor stopTimeSlicing.
+ Processor stopTimeSlicing.
].
"Created: / 03-11-2011 / 21:26:40 / cg"
@@ -3101,9 +3101,9 @@
wg := self windowGroupOfProcess:aProcess.
wg notNil ifTrue:[
- (app := wg application) notNil ifTrue:[
- ^ app.
- ].
+ (app := wg application) notNil ifTrue:[
+ ^ app.
+ ].
].
^ nil.
@@ -3114,7 +3114,7 @@
|app|
(app := self getApplicationFor:aProcess) notNil ifTrue:[
- ^ app class name.
+ ^ app class name.
].
^ ''.
@@ -3125,15 +3125,15 @@
| contextCount c sender|
con notNil ifTrue:[
- contextCount := 1.
- c := con.
- [(sender := c sender) notNil] whileTrue:[
- c := sender.
- contextCount := contextCount + 1.
- ].
- ^ (((ObjectMemory addressOf:con) printStringRadix:16),
- ' .. ',
- ((ObjectMemory addressOf:c) printStringRadix:16)).
+ contextCount := 1.
+ c := con.
+ [(sender := c sender) notNil] whileTrue:[
+ c := sender.
+ contextCount := contextCount + 1.
+ ].
+ ^ (((ObjectMemory addressOf:con) printStringRadix:16),
+ ' .. ',
+ ((ObjectMemory addressOf:c) printStringRadix:16)).
].
^ ''
@@ -3145,10 +3145,10 @@
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"
@@ -3156,8 +3156,8 @@
getInstrumentationStringFor:aProcess
^ (InstrumentationContext forProcess:aProcess) isNil
- ifTrue:['']
- ifFalse:['Y']
+ ifTrue:['']
+ ifFalse:['Y']
"Created: / 17-08-2011 / 11:04:14 / cg"
!
@@ -3166,16 +3166,16 @@
|prioRange|
Processor supportDynamicPriorities ifTrue:[
- (prioRange := aProcess priorityRange) isNil ifTrue:[
- ^ aProcess priority asString.
- ] ifFalse:[
- ^ (aProcess priority asString,
- ' [',
- prioRange start printString,
- '..',
- prioRange stop printString,
- ']').
- ].
+ (prioRange := aProcess priorityRange) isNil ifTrue:[
+ ^ aProcess priority asString.
+ ] ifFalse:[
+ ^ (aProcess priority asString,
+ ' [',
+ prioRange start printString,
+ '..',
+ prioRange stop printString,
+ ']').
+ ].
].
^ ''
@@ -3186,11 +3186,11 @@
| tStackSize noOfSegs |
aProcess id == 0 ifTrue:[
- ^ 'unlimited'.
+ ^ 'unlimited'.
].
- ((tStackSize := aProcess totalStackSize) notNil
+ ((tStackSize := aProcess totalStackSize) notNil
and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
- ^ (tStackSize printString),' (',(noOfSegs printString),')'
+ ^ (tStackSize printString),' (',(noOfSegs printString),')'
].
^ ''
@@ -3206,104 +3206,104 @@
|c found skipping rs rc r sel|
con notNil ifTrue:[
- c := con.
- found := false.
- isRunning ifFalse:[
- "/ search for a semaphore-wait in the top 10 contexts
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver class == Semaphore) ifTrue:[
- (sel := c selector) == #wait ifTrue:[
- found := true.
- ].
- sel == #waitWithTimeout: ifTrue:[
- found := true.
- ].
- sel == #waitWithTimeoutMs: ifTrue:[
- found := true.
- ].
- ].
- c := c sender.
- ]
- ]
- ].
- ].
- found ifFalse:[
- "/ search for a non-processor, non-process
- "/ receiver in the top 10 contexts
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
- ]
- ]
- ]
- ].
-
- "/ skip, until an interesting context is found.
- "/ This skips intermediate contexts, which lead
- "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
- found ifFalse:[
- c := con
- ].
- skipping := true.
- [ skipping ] whileTrue:[
- skipping := false.
- (c notNil and:[ (r := c receiver) == Delay or:[ r class == Delay ] ]) ifTrue:[
- c := c sender.
- skipping := true.
- ].
- (c notNil and:[ (r := c receiver) == Semaphore or:[ r class == Semaphore ] ]) ifTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c receiver isBlock
- and:[ ((sel := c selector) startsWith:'value')
- or:[ sel = 'doWhile:'
- or:[ sel = 'doUntil:'
- or:[ sel = 'ensure:' ]]]]]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c receiver == OperatingSystem
- and:[ c selector == #unblockInterrupts ] ]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c isBlockContext ]
- ] whileTrue:[
- c := c home.
- skipping := true.
- ].
- ].
- c notNil ifTrue:[
- sel := c selector.
- sel isNil ifTrue:[
- sel := '* unknown *'
- ].
- r := c receiver.
- rc := r class.
- rs := rc name.
- (rc == SharedQueue
- or:[rc == RecursionLock]) ifTrue:[
- rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
- ].
- ^ (rs , '>>' , sel).
- ]
+ c := con.
+ found := false.
+ isRunning ifFalse:[
+ "/ search for a semaphore-wait in the top 10 contexts
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver class == Semaphore) ifTrue:[
+ (sel := c selector) == #wait ifTrue:[
+ found := true.
+ ].
+ sel == #waitWithTimeout: ifTrue:[
+ found := true.
+ ].
+ sel == #waitWithTimeoutMs: ifTrue:[
+ found := true.
+ ].
+ ].
+ c := c sender.
+ ]
+ ]
+ ].
+ ].
+ found ifFalse:[
+ "/ search for a non-processor, non-process
+ "/ receiver in the top 10 contexts
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
+ ]
+ ]
+ ]
+ ]
+ ].
+
+ "/ skip, until an interesting context is found.
+ "/ This skips intermediate contexts, which lead
+ "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
+ found ifFalse:[
+ c := con
+ ].
+ skipping := true.
+ [ skipping ] whileTrue:[
+ skipping := false.
+ (c notNil and:[ (r := c receiver) == Delay or:[ r class == Delay ] ]) ifTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ (c notNil and:[ (r := c receiver) == Semaphore or:[ r class == Semaphore ] ]) ifTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c receiver isBlock
+ and:[ ((sel := c selector) startsWith:'value')
+ or:[ sel = 'doWhile:'
+ or:[ sel = 'doUntil:'
+ or:[ sel = 'ensure:' ]]]]]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c receiver == OperatingSystem
+ and:[ c selector == #unblockInterrupts ] ]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c isBlockContext ]
+ ] whileTrue:[
+ c := c home.
+ skipping := true.
+ ].
+ ].
+ c notNil ifTrue:[
+ sel := c selector.
+ sel isNil ifTrue:[
+ sel := '* unknown *'
+ ].
+ r := c receiver.
+ rc := r class.
+ rs := rc name.
+ (rc == SharedQueue
+ or:[rc == RecursionLock]) ifTrue:[
+ rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+ ].
+ ^ (rs , '>>' , sel).
+ ]
].
^ ''
@@ -3319,102 +3319,102 @@
|c found skipping rs rc r sel|
con notNil ifTrue:[
- c := con.
- found := false.
- isRunning ifFalse:[
- "/ search for a semaphore-wait in the top 10 contexts
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver class == Semaphore) ifTrue:[
- c selector == #wait ifTrue:[
- found := true.
- ].
- c selector == #waitWithTimeout: ifTrue:[
- found := true.
- ].
- c selector == #waitWithTimeoutMs: ifTrue:[
- found := true.
- ].
- ].
- c := c sender.
- ]
- ]
- ].
- ].
- found ifFalse:[
- "/ search for a non-processor, non-process
- "/ receiver in the top 10 contexts
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
- ]
- ]
- ]
- ].
-
- "/ skip, until an interesting context is found.
- "/ This skips intermediate contexts, which lead
- "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
- found ifFalse:[
- c := con
- ].
- skipping := true.
- [ skipping ] whileTrue:[
- skipping := false.
- (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
- c := c sender.
- skipping := true.
- ].
- (c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c receiver isBlock
- and:[ (c selector startsWith:'value')
- or:[ c selector = 'doWhile:'
- or:[ c selector = 'doUntil:'
- or:[ c selector = 'ensure:' ]]]]]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil
- and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
- ] whileTrue:[
- c := c sender.
- skipping := true.
- ].
- [
- c notNil and:[ c isBlockContext ]
- ] whileTrue:[
- c := c home.
- skipping := true.
- ].
- ].
- c notNil ifTrue:[
- sel := c selector.
- sel isNil ifTrue:[
- sel := '* unknown *'
- ].
- r := c receiver.
- rc := r class.
- rs := rc name.
- (rc == SharedQueue
- or:[rc == RecursionLock]) ifTrue:[
- rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
- ].
- ^ (rs , '>>' , sel).
- ]
+ c := con.
+ found := false.
+ isRunning ifFalse:[
+ "/ search for a semaphore-wait in the top 10 contexts
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver class == Semaphore) ifTrue:[
+ c selector == #wait ifTrue:[
+ found := true.
+ ].
+ c selector == #waitWithTimeout: ifTrue:[
+ found := true.
+ ].
+ c selector == #waitWithTimeoutMs: ifTrue:[
+ found := true.
+ ].
+ ].
+ c := c sender.
+ ]
+ ]
+ ].
+ ].
+ found ifFalse:[
+ "/ search for a non-processor, non-process
+ "/ receiver in the top 10 contexts
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ ((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
+ ]
+ ]
+ ]
+ ]
+ ].
+
+ "/ skip, until an interesting context is found.
+ "/ This skips intermediate contexts, which lead
+ "/ to the sema-wait (for example, unwind blocks, delay-stuff etc.)
+ found ifFalse:[
+ c := con
+ ].
+ skipping := true.
+ [ skipping ] whileTrue:[
+ skipping := false.
+ (c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ (c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c receiver isBlock
+ and:[ (c selector startsWith:'value')
+ or:[ c selector = 'doWhile:'
+ or:[ c selector = 'doUntil:'
+ or:[ c selector = 'ensure:' ]]]]]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil
+ and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
+ ] whileTrue:[
+ c := c sender.
+ skipping := true.
+ ].
+ [
+ c notNil and:[ c isBlockContext ]
+ ] whileTrue:[
+ c := c home.
+ skipping := true.
+ ].
+ ].
+ c notNil ifTrue:[
+ sel := c selector.
+ sel isNil ifTrue:[
+ sel := '* unknown *'
+ ].
+ r := c receiver.
+ rc := r class.
+ rs := rc name.
+ (rc == SharedQueue
+ or:[rc == RecursionLock]) ifTrue:[
+ rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
+ ].
+ ^ (rs , '>>' , sel).
+ ]
].
^ ''
@@ -3426,9 +3426,9 @@
wg := self windowGroupOfProcess:aProcess.
wg notNil ifTrue:[
- (topViews := wg topViews) notEmptyOrNil ifTrue:[
- ^ '"',topViews first label,'"'.
- ].
+ (topViews := wg topViews) notEmptyOrNil ifTrue:[
+ ^ '"',topViews first label,'"'.
+ ].
].
^ ''.
@@ -3493,7 +3493,7 @@
aProcess := processItem processInstance.
aProcess isNil ifTrue:[
- ^ self.
+ ^ self.
].
processItem processId:aProcess id.
@@ -3507,12 +3507,12 @@
state := aProcess state.
running := (state == #run and:[aProcess == Processor interruptedProcess]).
- stateColor := (state == #run)
- ifTrue:[ Color green darkened ]
- ifFalse:[
- (state == #debug or:[state == #stopped])
- ifTrue:[ Color red ]
- ifFalse:[ Color black ]].
+ stateColor := (state == #run)
+ ifTrue:[ Color green darkened ]
+ ifFalse:[
+ (state == #debug or:[state == #stopped])
+ ifTrue:[ Color red ]
+ ifFalse:[ Color black ]].
processItem processState:(state asString colorizeAllWith:stateColor).
processItem processActive:(self getActiveStringFor:aProcess running:running).
@@ -3526,23 +3526,23 @@
con := aProcess suspendedContext.
con isNil ifTrue:[
- aProcess == Processor activeProcess ifTrue:[
- con := thisContext
- ]
+ aProcess == Processor activeProcess ifTrue:[
+ 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"
@@ -3557,44 +3557,44 @@
startUpdateProcess
updateBlock notNil ifTrue:[
- Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
- Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+ Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
+ Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
] ifFalse:[
- "after a restart, updateProcess is a dead process"
- self assert:(updateProcess isNil or:[updateProcess isDead]).
-
- updateProcess := [
- [
- |id cnt myDelay|
-
- myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
-
- "
- every updateDelay (0.5), we look which process runs;
- every half second, the status is updated.
- every listUpdateDelay (5s), the list of processes is
- built up again
- "
- [true] whileTrue:[
- myDelay delay:self scaledUpdateContentsDelayTime * 1000.
- ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
- myDelay wait.
- self updateStatus:nil.
- ].
- myDelay wait.
- self updateList.
- ]
- ] ifCurtailed:[
- updateProcess := nil
- ]
- ] forkAt:(Processor userSchedulingPriority + 1).
- updateProcess name:'monitor [' ,
- Processor activeProcess id printString ,
- '] update'.
- "
- raise my own priority
- "
- Processor activeProcess priority:(Processor userSchedulingPriority + 2)
+ "after a restart, updateProcess is a dead process"
+ self assert:(updateProcess isNil or:[updateProcess isDead]).
+
+ updateProcess := [
+ [
+ |id cnt myDelay|
+
+ myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
+
+ "
+ every updateDelay (0.5), we look which process runs;
+ every half second, the status is updated.
+ every listUpdateDelay (5s), the list of processes is
+ built up again
+ "
+ [true] whileTrue:[
+ myDelay delay:self scaledUpdateContentsDelayTime * 1000.
+ ((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
+ myDelay wait.
+ self updateStatus:nil.
+ ].
+ myDelay wait.
+ self updateList.
+ ]
+ ] ifCurtailed:[
+ updateProcess := nil
+ ]
+ ] forkAt:(Processor userSchedulingPriority + 1).
+ updateProcess name:'monitor [' ,
+ Processor activeProcess id printString ,
+ '] update'.
+ "
+ raise my own priority
+ "
+ Processor activeProcess priority:(Processor userSchedulingPriority + 2)
].
!
@@ -3609,40 +3609,40 @@
"/ ID
oldItem processId ~= (newValue := newItem processId) ifTrue:[
- oldItem processId:newValue.
- processTable invalidateRowAt:index colAt:colIdx.
+ oldItem processId:newValue.
+ processTable invalidateRowAt:index colAt:colIdx.
].
#(
- ( showGroup processGroup processGroup: )
- ( true processName processName: )
- ( showInstrumentation processInstrumentation processInstrumentation: )
- ( true processActive processActive: )
- ( showState processState processState: )
- ( showPrio processPrio processPrio: )
- ( showUsedStack processUsedStack processUsedStack: )
- ( showTotalStack processTotalStack processTotalStack: )
- ( showCurrentSegment processCurrentSegment processCurrentSegment: )
- ( showSwitch processSwitch processSwitch: )
- ( showWhere processWhere processWhere: )
- ( showApplication processApplication processApplication: )
- ( showWindowTitle processWindowTitle processWindowTitle: )
+ ( showGroup processGroup processGroup: )
+ ( true processName processName: )
+ ( showInstrumentation processInstrumentation processInstrumentation: )
+ ( true processActive processActive: )
+ ( showState processState processState: )
+ ( showPrio processPrio processPrio: )
+ ( showUsedStack processUsedStack processUsedStack: )
+ ( showTotalStack processTotalStack processTotalStack: )
+ ( showCurrentSegment processCurrentSegment processCurrentSegment: )
+ ( showSwitch processSwitch processSwitch: )
+ ( showWhere processWhere processWhere: )
+ ( showApplication processApplication processApplication: )
+ ( showWindowTitle processWindowTitle processWindowTitle: )
) do:[:eachAspect |
- |showHolder showHolderValue colValueGetter colValueSetter|
-
- showHolder := eachAspect at:1.
- colValueGetter := eachAspect at:2.
- colValueSetter := eachAspect at:3.
-
- showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
- showHolderValue ifTrue:[
- colIdx := colIdx + 1.
- (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
- oldItem perform:colValueSetter with:newValue.
- processTable invalidateRowAt:index colAt:colIdx.
- ].
- ].
+ |showHolder showHolderValue colValueGetter colValueSetter|
+
+ showHolder := eachAspect at:1.
+ colValueGetter := eachAspect at:2.
+ colValueSetter := eachAspect at:3.
+
+ showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
+ showHolderValue ifTrue:[
+ colIdx := colIdx + 1.
+ (oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
+ oldItem perform:colValueSetter with:newValue.
+ processTable invalidateRowAt:index colAt:colIdx.
+ ].
+ ].
].
"/ "/ GROUP
@@ -3740,15 +3740,15 @@
|newList|
processTable shown ifTrue:[
- newList := self getProcessList.
- visibleBlock notNil ifTrue:[
- newList := newList select:visibleBlock
- ].
- self updateStatus:newList.
+ newList := self getProcessList.
+ visibleBlock notNil ifTrue:[
+ newList := newList select:visibleBlock
+ ].
+ self updateStatus:newList.
].
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:listUpdateBlock.
- Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
+ Processor removeTimedBlock:listUpdateBlock.
+ Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
].
!
@@ -3817,7 +3817,7 @@
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.
@@ -4071,17 +4071,17 @@
printOn:aStream
(self processName ? '') printOn:aStream.
aStream nextPut:$[.
- (self processId ? '') printOn:aStream.
+ (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$'
! !