--- a/AboutBox.st Thu May 12 08:33:55 2016 +0200
+++ b/AboutBox.st Thu May 12 09:16:06 2016 +0200
@@ -172,15 +172,17 @@
^Icon
constantNamed:'AboutBox class stxIconTemplate'
- ifAbsentPut:[(Depth1Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ ifAbsentPut:[(Depth1Image width:48 height:48) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0]; mask:((ImageMask new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@')
+ colorMapFromArray:#[0 0 0]
+ mask:((ImageMask width:48 height:48) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@A @@O @@C@@@O @@F@@@O @@L@@@O0@@\@@@O0@@8@@@G0@A0@@@G8@C @@@C8@G@@@@C<@N@@
@@A<@\@@@@A>@8@@@@@>A0@@@@@_C @@@@@_G @@@@@O/@@@@@@O>@@@@@@G<@@@@@@G8@@@@@@C8@@@@@@G8@@@@@@O<@@@@@@_<@@@@@@>^@@@@@A<N@@@
@@C8O@@@@@O0G @@@@_ C @@@@?@A0@@@A>@A0@@@C<@@8@@@O8@@\@@@_0@@L@@@? @@N@@@? @@F@@@?@@@C@@@^@@@A@@@@@@@@ @@@@@@@@@@@@@@@@@
-@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
+@@@@@@@@@@@@@@@@@@@@@@@@'); yourself); yourself]
! !
!AboutBox methodsFor:'initialization'!
--- a/AbstractSettingsApplication.st Thu May 12 08:33:55 2016 +0200
+++ b/AbstractSettingsApplication.st Thu May 12 09:16:06 2016 +0200
@@ -3495,22 +3495,21 @@
the ImageEditor may not be able to read the specification."
"
- self defaultIcon inspect
- ImageEditor openOnClass:self andSelector:#defaultIcon
+ self defaultIcon1 inspect
+ ImageEditor openOnClass:self andSelector:#defaultIcon1
Icon flushCachedIcons
"
<resource: #image>
^Icon
- constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon1'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ECP4MCP4MCP4MCP4MCP4@@A @F@@CAPHB@ HB@ HB@ HBB (E@@@X@A @@0TB@ HB@ HB@ HB@ (JAP@@@@@@@@LE
-@ 4MCP4MCPHB@ (JB T@@@@@@@@CAPHB@ HB@ HB@ HJB (E@@@@@@@@@0TBCP4MCP4M@ HBB (JAP@@@@@@@@LE@ HB@ HB@ HB@ (JB T@@@@@@@@CAPHM
-CP4MCP4B@ (JB (E@@@@@@@@@0TB@ HB@ HB@ HJB (JAP@@@@@@@@LE@ 4MCP4MCPHBB (JB T@@A(XF@@CAPHB@ HB@ HB@ (JB (E@ @@@@@@@0TB@ HB
-@ HB@ HJB (JAPH@@A @@@LE@ 4MCP4MCPHBB (JB T@@@@X@@@CAPHB@ HB@ HB@ (JB (E@@@@F@@@@0TBCP4MCP4M@ (JB (JAP@@F!!(X@@LE@ HB@ HB
-@ HBB (JB T@@A(XF@@CAPHB@ HB@ HBB (JB (E@@@ZFA @@0TEAPTEAPTEAPTEAPTEAP@@F!! X@@LC@0LC@0LC@0LC@0LC@0@@@A(ZF@@@@@@@@@@@@@@@
-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112 100 100 100 127 127 127 255 255 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?<8??<8??<P??<P??<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
+ constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
+ ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@GY&Y&Y&Y&Y @0LB]UUUUUUUQG@C@0I5UUUUUUUD\@@@@''U&Y&YUUDQ0@@@B]UUUUUUTQG@@@@I5Y&Y&UUQD\@@@@''UUUUUUUDQ0@@@B]V
+Y&Y%UDQG@@@@I5UUUUUTQD\@@@@''U&Y&YUQDQ0@SLB]UUUUUUDQGT@@@I5UUUUUTQD]P@0@''U&Y&YUQDQ0@C@B]UUUUUUDQG@@L@I5Y&Y&UDQD\@DS@''UUUU
+UUQDQ0@SLB]UUUUUQDQG@AL0I7]7]7]7]7\@D3@"H"H"H"H"H@@QL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
+ colorMapFromArray:#[0 0 0 255 255 0 192 192 192 100 100 100 224 224 224 240 240 240 0 80 128 80 80 80]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@_?<8??<8??<P??<P??<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@'); yourself); yourself]
!
defaultIcon2
@@ -5672,14 +5671,16 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
+ ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@DB@0PC@0HBAP@@@@@@@@@@@@@@@@TFA0 IB ,KB00E@@@@@@@@@@@@@@4NC1@QD!!LKB08KE@T@@@@@@@@@@@TUE!!\PDA@XFQ(NF10]AP@@@@@@@@DF
BQ8PDA@PDAH_E $HE"@@@@@@@@@BHP$VDA@PB00"H2P$IRX''J@@@@@@@JR(WG!!@PB2,+J2,+J2,+J2,+@@@@@@P,DA@PDB,-K"4-K2</K24(L@@@@@@1L#L3
DQ@+K"8.K"84MR86AS@@@@@@M3 IBP 9J28:N3,<OC4(O T0@@@@@C<*BP$IPB,6O#8>O#8>O#XEL@@@@@@APSHIBQ\+K"8.K"8.KR >AS@@@@@@K!!P2BQ8P
J28.K"8.K" (M T0@@@@@@@-EDHQDB-CP4MCP4MCP4PEL@@@@@@@@B9EQ!!@+KT\:N#(:N"4.AS@@@@@@@@@@K$!!IJ29JK2</K2<-M T0@@@@@@@@@@@@K",.
K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
-JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
+JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
+ colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@'); yourself); yourself]
! !
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
@@ -8618,11 +8619,13 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BGFBUG !!DWQPH@@B@Q]HD \QFA] @@A1DXE6X"DQ]VY&Y"HQE5I&@ ]QHD@FHBAED"TG
]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH
-P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @O?@@W>@@K @@D@@') ; yourself); yourself]
+P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
+ colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @O?@@W>@@K @@D@@'); yourself); yourself]
! !
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
@@ -9290,14 +9293,16 @@
<resource: #image>
^Icon
- constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
-B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
+B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
+ colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@'); yourself); yourself]
! !
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
@@ -12321,11 +12326,13 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
-DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @@?<@A?>@C??@G?? O??0O??0O??0_??8_??8_??8_??8O??0O??0O??0G?? C??@A?>@@?<@@G @@@@@') ; yourself); yourself]
+DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
+ colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@@G @@?<@A?>@C??@G?? O??0O??0O??0_??8_??8_??8_??8O??0O??0O??0G?? C??@A?>@@?<@@G @@@@@'); yourself); yourself]
! !
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
@@ -12507,11 +12514,13 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&Y&Y&Y&Y&Y3@@@BY&Y&Y&Y&Y''L@@@I$[]7_]7]6,1P@@&QL3L>:1GZ3E@@BY83L3L>D]+LT@@I
''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV
-!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@O?@@O?@@G>@@A0@@@@@') ; yourself); yourself]
+!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
+ colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@O?@@O?@@G>@@A0@@@@@'); yourself); yourself]
! !
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
@@ -13735,10 +13744,12 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
- ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
+ ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(*''CCZ"*(*''@CV(J(*WKCV*"(*W@CU""()WJCU(J()W@CUZ**%W@CUZ**%WACUV(JUW@CUV""UWDCUU")UWI
-CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
+CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
+ colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@'); yourself); yourself]
!
defaultIcon2
@@ -15621,14 +15632,16 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
-EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]
+EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
+ colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@'); yourself); yourself]
! !
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
@@ -19013,14 +19026,16 @@
<resource: #image>
^Icon
- constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
- ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl defaultIcon'
+ ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_
-F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@') ; yourself); yourself]
+F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
+ colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]
+ mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@'); yourself); yourself]
! !
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
--- a/ClassInspectorView.st Thu May 12 08:33:55 2016 +0200
+++ b/ClassInspectorView.st Thu May 12 09:16:06 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -60,13 +58,14 @@
aList := super fieldList.
"/
- "/ add class variables
+ "/ add class variables (always sorted)
"/
inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass |
|varNames|
varNames := aClass classVarNames.
varNames notEmpty ifTrue:[
+ varNames sort.
aList add:('--- classvariables from ' , aClass name allBold, ' ---').
varNames do:[:classVarName |
aList add:classVarName
@@ -106,6 +105,6 @@
!ClassInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.15 2015-03-25 14:11:59 cg Exp $'
+ ^ '$Header$'
! !
--- a/DictionaryInspectorView.st Thu May 12 08:33:55 2016 +0200
+++ b/DictionaryInspectorView.st Thu May 12 09:16:06 2016 +0200
@@ -618,7 +618,7 @@
]
].
- sortOrder == #alphabetical ifTrue:[
+ sortOrder == SortOrderAlphabetical ifTrue:[
keyList sort:[:a :b | a string < b string].
].
^ keyList
--- a/DirectoryContentsBrowser.st Thu May 12 08:33:55 2016 +0200
+++ b/DirectoryContentsBrowser.st Thu May 12 09:16:06 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -145,33 +143,25 @@
!
detailsMenuIconR
- <resource: #image>
"This resource specification was automatically generated
by the ImageEditor of ST/X."
+
"Do not manually edit this!! If it is corrupted,
the ImageEditor may not be able to read the specification."
+
"
self detailsMenuIconR inspect
ImageEditor openOnClass:self andSelector:#detailsMenuIconR
- Icon flushCachedIcons"
-
- ^ Icon constantNamed:#'DirectoryContentsBrowser class detailsMenuIconR'
- ifAbsentPut:[
- (Depth1Image new)
- width:5;
- height:7;
- photometric:(#palette);
- bitsPerSample:(#( 1 ));
- samplesPerPixel:(1);
- bits:(ByteArray fromPackedString:'@@@@@@@@@@@a');
- colorMapFromArray:#[ 0 0 0 255 255 255 ];
- mask:((ImageMask new)
- width:5;
- height:7;
- bits:(ByteArray fromPackedString:' DB TJA@ @@a');
- yourself);
- yourself
- ]
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'DirectoryContentsBrowser detailsMenuIconR'
+ ifAbsentPut:[(Depth1Image width:5 height:7) bits:(ByteArray fromPackedString:'@@@@@@@@@@@a')
+ colorMapFromArray:#[0 0 0]
+ mask:((ImageMask width:5 height:7) bits:(ByteArray fromPackedString:' DB TJA@ @@a'); yourself); yourself]
!
detailsMenuIconUp
--- a/InspectorView.st Thu May 12 08:33:55 2016 +0200
+++ b/InspectorView.st Thu May 12 09:16:06 2016 +0200
@@ -20,9 +20,10 @@
object inspectedObjectHolder displayStringMessage
suppressPseudoSlots dereferenceValueHolders suppressHeadline
headLineLabel sortOrder hideMessages hideHashes
- holderChangeInterest'
- classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent
- DefaultIntegerDisplayRadix ExpandArraysInAllLists'
+ holderChangeInterest sortOrderHolder'
+ classVariableNames:'DefaultIcon DefaultIntegerDisplayRadix ExpandArraysInAllLists
+ IdDictionary LastExtent NextSequentialID SortOrderAlphabetical
+ SortOrderInstvarOrder'
poolDictionaries:''
category:'Interface-Inspector'
!
@@ -106,6 +107,13 @@
"
! !
+!InspectorView class methodsFor:'initialization'!
+
+initialize
+ SortOrderAlphabetical := #alphabetical.
+ SortOrderInstvarOrder := #instvarOrder
+! !
+
!InspectorView class methodsFor:'instance creation'!
for:anObject
@@ -335,6 +343,10 @@
"Created: / 10-02-2012 / 19:51:38 / cg"
!
+defaultSortOrder
+ ^ SortOrderInstvarOrder
+!
+
defaultTopViewExtent
|def|
@@ -364,6 +376,14 @@
LastExtent := anExtent
"Created: / 23-10-2007 / 19:10:02 / cg"
+!
+
+sortOrderAlphabetical
+ ^ SortOrderAlphabetical
+!
+
+sortOrderInstvarOrder
+ ^ SortOrderInstvarOrder
! !
!InspectorView class methodsFor:'image specs'!
@@ -1520,6 +1540,21 @@
].
"Created: / 10.2.2000 / 13:34:53 / cg"
+!
+
+sortOrderHolder
+ ^ sortOrderHolder
+!
+
+sortOrderHolder:aValueHolder
+ self assert:aValueHolder notNil.
+
+ sortOrderHolder notNil ifTrue:[
+ sortOrderHolder removeDependent:self.
+ ].
+ sortOrderHolder := aValueHolder.
+ sortOrderHolder addDependent:self.
+ self sortOrderHolderChanged.
! !
!InspectorView methodsFor:'change & update'!
@@ -1537,6 +1572,16 @@
self halt:'ValueHolder has changed - please proceed'.
!
+sortOrderHolderChanged
+ |newOrder|
+
+ newOrder := sortOrderHolder value.
+ sortOrder ~~ newOrder ifTrue:[
+ sortOrder := newOrder.
+ self reinspect.
+ ].
+!
+
update:something with:aParameter from:changedObject
"Invoked when one of my dependees sends a change notification."
@@ -1547,11 +1592,17 @@
self inspect:object.
oldSelection notNil ifTrue:[
self showSelection:oldSelection
- ]
+ ].
+ ^ self
].
changedObject == inspectedObjectHolder ifTrue:[
- self inspect:(inspectedObjectHolder value)
+ self inspect:(inspectedObjectHolder value).
+ ^ self
+ ].
+ changedObject == sortOrderHolder ifTrue:[
+ self sortOrderHolderChanged.
+ ^ self.
].
super update:something with:aParameter from:changedObject
@@ -1649,7 +1700,9 @@
displayStringMessage := #displayString.
hideReceiver := hideMessages := hideHashes := false.
integerDisplayRadix := (DefaultIntegerDisplayRadix ? 10).
- sortOrder := #instvarOrder.
+ sortOrder := SortOrderInstvarOrder.
+ sortOrderHolder := sortOrder asValue.
+ sortOrderHolder addDependent:self.
allowFollow := false.
isStandaloneInspector := false.
@@ -2163,9 +2216,9 @@
object class instSize == 0 ifTrue:[ ^ #() ].
^ {
#('-') .
- (sortOrder == #instvarOrder)
+ (sortOrder == SortOrderInstvarOrder)
ifFalse:[ #('Instvar Order' #setSortOrderToInstvarOrder ) ] .
- (sortOrder == #alphabetical)
+ (sortOrder == SortOrderAlphabetical)
ifFalse:[ #('Alphabetical' #setSortOrderToAlphabetical ) ] .
} select:[:el | el notNil].
@@ -2637,14 +2690,14 @@
!
setSortOrderTo:aSymbol
- sortOrder := aSymbol.
- self reinspect.
-
- "Created: / 20-07-2012 / 10:59:30 / cg"
+ "aSymbol must be one of #alphabetical or #instvarOrder"
+
+ self assert:((aSymbol == SortOrderAlphabetical) | (aSymbol == SortOrderInstvarOrder)).
+ sortOrderHolder value:aSymbol.
!
setSortOrderToAlphabetical
- self setSortOrderTo:#alphabetical
+ self setSortOrderTo:SortOrderAlphabetical
"Created: / 20-07-2012 / 10:59:52 / cg"
!
@@ -2961,7 +3014,7 @@
s := CharacterWriteStream on:''.
names := anObject allClassVarNames.
- true "sortOrder == #alphabetical" ifTrue:[
+ true "sortOrder == SortOrderAlphabetical" ifTrue:[
names := names copy sort
].
maxLen := (names collect:[:eachName | eachName size]) max.
@@ -3049,7 +3102,7 @@
s := CharacterWriteStream on:''.
names := anObject class allInstVarNames.
instVarOffsets := 1 to:names size.
- sortOrder == #alphabetical ifTrue:[
+ sortOrder == SortOrderAlphabetical ifTrue:[
instVarOffsets := instVarOffsets asArray.
names := names copy sortWith:instVarOffsets
].
@@ -3565,7 +3618,8 @@
].
self listEntryForName:nm value:val
].
- sortOrder == #alphabetical ifTrue:[
+
+ sortOrder == SortOrderAlphabetical ifTrue:[
aList sort:[:a :b | a string < b string].
].
^ aList
@@ -4197,3 +4251,5 @@
^ '$Header$'
! !
+
+InspectorView initialize!
--- a/SmalltalkCodeGeneratorTool.st Thu May 12 08:33:55 2016 +0200
+++ b/SmalltalkCodeGeneratorTool.st Thu May 12 09:16:06 2016 +0200
@@ -2055,7 +2055,7 @@
category := mthd category.
].
- imageKey := aClass theNonMetaclass name, ' ', sel.
+ imageKey := aClass "theNonMetaclass" name, ' ', sel.
Icon constantNamed: imageKey put:nil.
self
compile: ((sel,
--- a/Tools__CodeView2.st Thu May 12 08:33:55 2016 +0200
+++ b/Tools__CodeView2.st Thu May 12 09:16:06 2016 +0200
@@ -2668,51 +2668,34 @@
!CodeView2::GutterView methodsFor:'help'!
flyByHelpTextAt:aPointOrNil
- |lineNr bpntService servicesWithAnnotations serviceToShowHelpFor text|
+ |lineNr textCollector services|
codeView isNil ifTrue:[^ nil].
- bpntService := codeView breakpointService.
-
- aPointOrNil notNil ifTrue:[
- lineNr := codeView lineAtY:aPointOrNil y.
- lineNr notNil ifTrue:[
- "/ which service has an annotation for that line
- servicesWithAnnotations := OrderedCollection new.
- codeView servicesDo:[:eachService |
- (eachService flyByHelpTextAtLine:lineNr) notNil ifTrue:[
- servicesWithAnnotations add:eachService.
- ].
- ].
- "/ Transcript showCR:servicesWithAnnotations.
+ aPointOrNil isNil ifTrue:[^ nil].
+
+ lineNr := codeView lineAtY:aPointOrNil y.
+ lineNr isNil ifTrue:[^ nil].
+
+ textCollector := TextStream new.
+
+ "/ which service has an annotation for that line
+ services := codeView services.
+ "/ show lintservice-help first
+ services := (services select:[:s | s isLintService])
+ ,(services reject:[:s | s isLintService]).
+
+ services do:[:eachService |
+ |tooltip|
+
+ tooltip := eachService flyByHelpTextAtLine:lineNr.
+ tooltip notEmptyOrNil ifTrue:[
+ textCollector notEmpty ifTrue:[ textCollector cr].
+ textCollector nextPutAllText:tooltip.
+ tooltip last == Character cr ifFalse:[textCollector cr].
].
].
- servicesWithAnnotations isNil ifTrue:[ ^ nil ].
-
-"/ "/ if there is either ONLY a breakpoint service which has an annotation
-"/ "/ or none has an annotation, return the breakpoint service's message
-"/ (servicesWithAnnotations isEmptyOrNil
-"/ or:[ servicesWithAnnotations size == 1 and:[servicesWithAnnotations first == bpntService]]) ifTrue:[
-"/ (bpntService notNil and:[ bpntService isEnabled ]) ifTrue:[
-"/ serviceToShowHelpFor := bpntService
-"/ ].
-"/ ] ifFalse:[
-"/ serviceToShowHelpFor := servicesWithAnnotations detect:[:service | service ~= bpntService] ifNone:nil.
-"/ serviceToShowHelpFor := serviceToShowHelpFor ? servicesWithAnnotations first.
-"/ ].
-"/ serviceToShowHelpFor notNil ifTrue:[
-"/ ^ serviceToShowHelpFor flyByHelpTextAtLine:lineNr
-"/ ].
-
- text := servicesWithAnnotations
- inject:(OrderedCollection new)
- into:[:text :service |
- text notEmpty ifTrue:[ text add:''].
- text addAll:(service flyByHelpTextAtLine:lineNr) asString asCollectionOfLines.
- text
- ].
- ^ text asStringCollection asString.
-
- "Modified: / 11-05-2015 / 15:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ textCollector isEmpty ifTrue:[ ^ nil ].
+ ^ textCollector contents.
! !
!CodeView2::GutterView methodsFor:'initialize & release'!
--- a/Tools__CodeViewService.st Thu May 12 08:33:55 2016 +0200
+++ b/Tools__CodeViewService.st Thu May 12 09:16:06 2016 +0200
@@ -483,6 +483,10 @@
^enabled == true
"Created: / 07-03-2010 / 13:47:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isLintService
+ ^ false
! !
!CodeViewService class methodsFor:'documentation'!
--- a/Tools__Inspector2.st Thu May 12 08:33:55 2016 +0200
+++ b/Tools__Inspector2.st Thu May 12 09:16:06 2016 +0200
@@ -24,7 +24,7 @@
!
Model subclass:#NavigationState
- instanceVariableNames:'theObject index tabs selectionIndex'
+ instanceVariableNames:'application theObject index tabs selectionIndex displayString'
classVariableNames:''
poolDictionaries:''
privateIn:Inspector2
@@ -914,6 +914,12 @@
^ builder booleanValueAspectFor:#showAlphabeticalHolder
!
+sortOrderHolder
+ ^ builder
+ valueAspectFor:#sortOrderHolder
+ initialValue:(InspectorView defaultSortOrder)
+!
+
tabLabelsAspect
^ (AspectAdaptor forAspect:#tabLabels)
subjectChannel:self navigationStateAspect
@@ -1043,14 +1049,6 @@
! !
-!Inspector2 methodsFor:'hooks'!
-
-postBuildEvaluationLanguageCombo: aComboBoxView
-"/ aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded)
-
- "Modified: / 26-10-2013 / 01:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!Inspector2 methodsFor:'menu'!
backButtonMenuChannel
@@ -1211,6 +1209,7 @@
!
openOn: anObject
+ self createBuilder.
self inspect: anObject.
self openWithExtent:LastExtent.
@@ -1218,6 +1217,12 @@
"Modified: / 11-07-2011 / 22:31:42 / cg"
!
+postBuildEvaluationLanguageCombo: aComboBoxView
+"/ aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded)
+
+ "Modified: / 26-10-2013 / 01:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
postBuildWith:aBuilder
super postBuildWith:aBuilder.
self updateWindowLabel.
@@ -1256,6 +1261,7 @@
| current new |
new := NavigationState for: anObject.
+ new application:self.
current := self currentState.
(current notNil "and:[anObject isKindOf: current theObject class]") ifTrue:[
| currentTabLabel newSelectionIndex |
@@ -1278,28 +1284,24 @@
!
setDoItActionForLanguage: language
-
-
self currentState tabViews do:[:view |
(view respondsTo: #workspace) ifTrue:[
- view workspace editedLanguage: language.
- view workspace doItAction:
- [:theCode |
- |evaluator|
+ view workspace
+ editedLanguage: language;
+ doItAction:
+ [:theCode |
+ |evaluator|
- (evaluator := language evaluatorClass)
- notNil ifTrue:[
- evaluator
- evaluate:theCode
- in:nil
- receiver:self currentObject
- notifying:view workspace
- logged:true
- ifFail:nil
- ] ifFalse:[
- 'object''s class provides no evaluator'
- ]
- ].
+ (evaluator := language evaluatorClass) notNil ifTrue:[
+ evaluator
+ evaluate:theCode in:nil
+ receiver:self currentObject
+ notifying:view workspace
+ logged:true ifFail:nil
+ ] ifFalse:[
+ 'object''s class provides no evaluator'
+ ]
+ ].
].
]
@@ -1331,6 +1333,14 @@
!Inspector2::NavigationState methodsFor:'accessing'!
+application
+ ^ application
+!
+
+application:anInspectorApp
+ application := anInspectorApp.
+!
+
index
^ index
!
@@ -1430,20 +1440,25 @@
| tab |
- tab := [ theObject perform: selector ]
- on: Error
- do:[:ex|
- "/ for debugging:
- "/ ex reject.
- Transcript show:'error in inspector setup: ',ex description.
- Tools::Inspector2Tab new
- label: selector;
- text:
- (ex description, Character cr, Character cr,
- ex suspendedContext fullPrintAllString)
- ].
+ tab :=
+ [ theObject perform: selector ]
+ on: Error
+ do:[:ex|
+ "/ for debugging:
+ "/ ex reject.
+ Transcript show:'error in inspector setup: ',ex description.
+ Tools::Inspector2Tab new
+ application:application;
+ label: selector;
+ text:
+ (ex description, Character cr, Character cr,
+ ex suspendedContext fullPrintAllString)
+ ].
(tab notNil and:[tab isKindOf: Tools::Inspector2Tab]) ifTrue:[
- tabs add: tab
+ tabs add: tab.
+ (tab view respondsTo:#sortOrderHolder) ifTrue:[
+ tab view sortOrderHolder:(application sortOrderHolder)
+ ].
]
"Created: / 03-02-2015 / 11:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
--- a/Tools__LintAnnotation.st Thu May 12 08:33:55 2016 +0200
+++ b/Tools__LintAnnotation.st Thu May 12 09:16:06 2016 +0200
@@ -72,25 +72,27 @@
!LintAnnotation methodsFor:'help'!
helpTextFor:aView
- |info|
+ |info resources|
- rule notNil ifTrue:[
- rule isComposite ifTrue:[
- info := rule rules
- collect:[:each | (aView resources string:each infoInToolTip)] as:Set.
- info size > 1 ifTrue:[
- info := info collect:[:each | '- ',each].
- ].
- info := info asStringCollection asStringWith:Character cr.
- ] ifFalse:[
- info := aView resources string:rule infoInToolTip
+ rule isNil ifTrue:[^ nil].
+
+ resources := self class classResources.
+ rule isComposite ifTrue:[
+ info := rule rules
+ collect:[:each |
+ (resources string:each infoInToolTip)
+ ] as:Set.
+ info size > 1 ifTrue:[
+ info := info collect:[:each | '- ',each].
].
-
- ^ aView resources
- stringWithCRs:'Lint says (click on icon for details):\%1' "/ 'Lint says: %1\Click for more info.'
- with:info.
+ info := info asStringCollection asStringWith:Character cr.
+ ] ifFalse:[
+ info := resources string:rule infoInToolTip
].
- ^ nil
+ info isEmptyOrNil ifTrue:[^ nil].
+ ^ resources
+ stringWithCRs:(('Lint says (click on icon for details):' withColor:#gray),'\%1') "/ 'Lint says: %1\Click for more info.'
+ with:info.
! !
!LintAnnotation methodsFor:'printing & storing'!
--- a/Tools__LintService.st Thu May 12 08:33:55 2016 +0200
+++ b/Tools__LintService.st Thu May 12 09:16:06 2016 +0200
@@ -290,13 +290,19 @@
"Modified: / 08-03-2012 / 01:16:51 / cg"
! !
+!LintService methodsFor:'testing'!
+
+isLintService
+ ^ true
+! !
+
!LintService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.16 2015-02-14 02:44:20 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.16 2015-02-14 02:44:20 cg Exp $'
+ ^ '$Header$'
! !
--- a/VersionDiffBrowser.st Thu May 12 08:33:55 2016 +0200
+++ b/VersionDiffBrowser.st Thu May 12 09:16:06 2016 +0200
@@ -2515,19 +2515,19 @@
|changeSet|
aClass isNil ifTrue:[
- changeSet := nil
+ changeSet := nil
] ifFalse:[
- aClass isNameSpace ifFalse:[
- aClass isLoaded ifTrue:[
- changeSet := (ClassChangeSet newForClass:aClass againstVersion:aVersionA).
- ]
- ].
+ (aClass isRealNameSpace) ifFalse:[
+ aClass isLoaded ifTrue:[
+ changeSet := (ClassChangeSet newForClass:aClass againstVersion:aVersionA).
+ ]
+ ].
].
self classChangeSet:changeSet.
aVersionA isNil ifTrue:[
- self class:aClass versionA:'Repository' versionB:'Current'.
+ self class:aClass versionA:'Repository' versionB:'Current'.
] ifFalse:[
- self class:aClass versionA:aVersionA versionB:(aVersionA , 'm').
+ self class:aClass versionA:aVersionA versionB:(aVersionA , 'm').
]
!