--- a/InspectorView.st Tue May 15 20:10:45 2012 +0200
+++ b/InspectorView.st Wed May 16 18:52:29 2012 +0200
@@ -344,6 +344,261 @@
"Created: / 23-10-2007 / 19:10:02 / cg"
! !
+!InspectorView class methodsFor:'image specs'!
+
+imageFor_characters
+ "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 imageFor_characters inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_characters
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_characters'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTDIOC-FQ@@@@@@@@@A@MP$IBP$I
+Q$U@@@@@@@@@L@%SOP%HRP$>M@@@@@@@@D4<BP$IS#MEP4H@@@@@@@AMNUP9BP$IP3)B@@@@@@@@L@$3R0%EP0%GLP@@@@@@@D@>BP$IBP%RQ2<@@@@@@@@@
+K$1LBT]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82 231 0 66]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_classes
+ "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 imageFor_classes inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_classes
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_classes'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_G1<_G1<_
+G1<@@@@@@@@@G28.K"8.K"8.@@@@@@@@@A<.K"8.K"8.K @@@@@@@@@_K"8.K"8.K"8@@@@@@@@@G28.K"8.K"8.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 0 206 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A?8G? _>A?8G? _>@@@@@@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_false
+ "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 imageFor_false inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_false
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_false'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(MB@ MB @@@@@@@@@@@@:K#@0F2(\N @@@@@@@@@-H3@IBP$I
+A18-@@@@@@@@MC@+BRP$IBP9HP@@@@@@@B@[J0$$N20^K3 @@@@@@@@ MRTIBP$GK1<8@@@@@@@@MB0,BRP$IB\"JP@@@@@@@B49G $$L1<]H#H@@@@@@@@@
+M#LGIBH"H#\@@@@@@@@@@@@-JS 8JSH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 8 0 255 7 0 198 6 0 74 8 0 156 7 0 99 19 16 206 20 16 132 0 0 74 7 0 206 142 131 128 8 0 231 9 0 189 0 1 90 129 123 198 16 16 115 8 0 239 16 8 255 3 0 189 123 123 198 4 0 214 2 0 132 0 0 255 49 52 255 75 74 156 4 0 115 71 66 206 7 0 222 101 99 206 42 33 139 4 0 90 5 0 148 108 99 206 15 8 214]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_floats
+ "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 imageFor_floats inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_floats
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_floats'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MP$2L#\7
+BTY@@@@@@@@@L@$IL#H2BP$1M@@@@@@@@D4<BSH2NT8ILTH@@@@@@@AMNP$9NS$>BSEB@@@@@@@@LCLINS$9QP$1LP@@@@@@@D@>BS$IQT\IQ2<@@@@@@@@@
+K$01Q4]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_fractions
+ "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 imageFor_fractions inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_fractions
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_fractions'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEABS-FQ@@@@@@@@@A@MSH2BP$7
+LTY@@@@@@@@@LCH2L#HIS#D1M@@@@@@@@D4<B (JB (JB$H@@@@@@@AMNS$9BP$ILSEB@@@@@@@@LCL3NP$9BT\1LP@@@@@@@D@>L3$9BT]GQ2<@@@@@@@@@
+K$09BP$IQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_integers
+ "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 imageFor_integers inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_integers
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_integers'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MP$2M0$I
+Q$U@@@@@@@@@L@$IOP%HRP$>M@@@@@@@@D4<BS\8S#LIP4H@@@@@@@AMNP$9MP$IP3)B@@@@@@@@LCLIR0%EP4)GLP@@@@@@@D@>BS8IBP$IQ2<@@@@@@@@@
+K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_nil
+ "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 imageFor_nil inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_nil
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_nil'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KEP4MEP,@@@@@@@@@@@@GEA$YAP4OA0@@@@@@@@@JEA$WF!!HM
+C1 J@@@@@@@@EQ$R@@ CEAXDDP@@@@@@@@4ED!!(ACQXXC@X@@@@@@@@ME@4TEAXXCALF@@@@@@@@EQXVE HXC@XNF@@@@@@@@@(DF@PLCALNC!!@@@@@@@@@@
+A1LSA 8NC 4@@@@@@@@@@@@JF@XFFA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_others
+ "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 imageFor_others inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_others
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_others'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_G1<_G1<@@@@@@@@@@@@_BP$IBP HF0@@@@@@@@@_BP$HH@ \
+BA8[@@@@@@@@G0$HH ,BB$(F0@@@@@@@A<IJ0 $BB$HGQ,@@@@@@@@_BP #BBDHJRX[@@@@@@@@G0 )BB4HHQ<%F0@@@@@@@A<HBB4HKQ<''IQ,@@@@@@@@@
+F2\''J"T%IQ,@@@@@@@@@@@@[F1,[F1,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_strings
+ "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 imageFor_strings inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_strings
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_strings'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MTDIM5LI
+BTU@@@@@@@@@LDDIM3]HBP$>M@@@@@@@@D4<BP$8S#LIP4H@@@@@@@AMNP$IMUDIP3)B@@@@@@@@LCL3R4=EP4)GLP@@@@@@@D@>QS9CTC)RQ2<@@@@@@@@@
+K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_symbols
+ "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 imageFor_symbols inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_symbols
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_symbols'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MTDIM5LI
+Q$U@@@@@@@@@LDDIBP$IBP$>M@@@@@@@@D4<NP$8S $>P4H@@@@@@@AMNS$IMUDIP3)B@@@@@@@@LCLIBP$IBP%GLP@@@@@@@D@>QP%CT@%RQ2<@@@@@@@@@
+K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+!
+
+imageFor_true
+ "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 imageFor_true inspect
+ ImageEditor openOnClass:self andSelector:#imageFor_true
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'InspectorView class imageFor_true'
+ ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(MB@ MB @@@@@@@@@@@@:K#@0F2(\N @@@@@@@@@-H0$IBP$I
+A18-@@@@@@@@MC@GI@$$IBP9HP@@@@@@@B@[J3DIIB0^K3 @@@@@@@@ MRT5BRP^K1<8@@@@@@@@MB0,I $$K2\"JP@@@@@@@B49G#$GIA<]H#H@@@@@@@@@
+M#L3NBH"H#\@@@@@@@@@@@@-JS 8JSH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 8 0 255 7 0 198 6 0 74 8 0 156 7 0 99 19 16 206 20 16 132 0 0 74 7 0 206 142 131 128 8 0 231 9 0 189 0 1 90 129 123 198 16 16 115 8 0 239 16 8 255 3 0 189 123 123 198 4 0 214 2 0 132 0 0 255 49 52 255 75 74 156 4 0 115 71 66 206 7 0 222 101 99 206 42 33 139 4 0 90 5 0 148 108 99 206]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
+! !
+
!InspectorView class methodsFor:'queries-plugin'!
aspectSelectors
@@ -1602,7 +1857,7 @@
idx := self theSingleSelectionIndex.
idx notNil ifTrue:[
- sel := listView at:idx.
+ sel := self listEntryAt:idx.
extraAttributes := object inspectorExtraAttributes.
(extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[
@@ -1627,7 +1882,70 @@
].
^ self basicDisplayStringForValue:someValue
- "Modified: / 17-11-2010 / 19:20:47 / cg"
+ "Modified: / 16-05-2012 / 17:55:05 / cg"
+!
+
+iconForValue: anObject
+ anObject isNil ifTrue:[
+ ^ self class imageFor_nil
+ ].
+ anObject isNumber ifTrue:[
+ anObject isInteger ifTrue:[
+ ^ self class imageFor_integers
+ ].
+ anObject isFloat ifTrue:[
+ ^ self class imageFor_floats
+ ].
+ anObject isFraction ifTrue:[
+ ^ self class imageFor_fractions
+ ].
+ ].
+ anObject isString ifTrue:[
+ anObject isSymbol ifTrue:[
+ ^ self class imageFor_symbols
+ ].
+ ^ self class imageFor_strings
+ ].
+ anObject == true ifTrue:[
+ ^ self class imageFor_true
+ ].
+ anObject == false ifTrue:[
+ ^ self class imageFor_false
+ ].
+ anObject isCharacter ifTrue:[
+ ^ self class imageFor_characters
+ ].
+ anObject isBehavior ifTrue:[
+ ^ self class imageFor_classes
+ ].
+ ^ self class imageFor_others
+
+ "Created: / 16-05-2012 / 17:58:20 / cg"
+!
+
+listEntryForName:nameString value:value
+ |valString|
+
+ value isNumber ifTrue:[
+ valString := value printString
+ ] ifFalse:[
+ (value isSymbol or:[value isCharacter]) ifTrue:[
+ valString := value storeString
+ ] ifFalse:[
+ value isString ifTrue:[
+ |s|
+
+ valString := value contractTo:30.
+ ]
+ ]
+ ].
+
+ valString notNil ifTrue:[
+ ^ LabelAndIcon string:(nameString allBold,' <',valString,'>') image:(self iconForValue:value)
+ ].
+ ^ LabelAndIcon string:nameString allBold image:(self iconForValue:value)
+
+ "Created: / 16-05-2012 / 18:42:28 / cg"
!
stringWithAllIndexedVarValues
@@ -1839,7 +2157,7 @@
firstRealIndex := 2.
].
- [line := listView at:firstRealIndex.
+ [line := self listEntryAt:firstRealIndex.
(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
firstRealIndex := firstRealIndex + 1.
idx := idx - 1.
@@ -1868,7 +2186,7 @@
^ nil "/ indexed instvar or other selected
"Created: / 03-08-2006 / 13:45:14 / cg"
- "Modified: / 04-08-2006 / 11:45:29 / cg"
+ "Modified: / 16-05-2012 / 17:54:52 / cg"
!
fieldList
@@ -1919,7 +2237,7 @@
"return a list of indexes usable to access the object's indexed slots.
Set hasMore to true, if a '...' entry should be added."
- |objSz n cls sz|
+ |objSz n cls list|
cls := object class.
@@ -1930,9 +2248,13 @@
n := nShown.
hasMore := true.
].
- ^ (1 to:n)
-
- "Modified: / 24-08-2010 / 17:56:23 / cg"
+ list := (1 to:n).
+ ^ list
+"/ keysAndValuesCollect:[:idx :nm |
+"/ LabelAndIcon string:nm image:(self iconForValue:(object basicAt:idx))
+"/ ].
+
+ "Modified: / 16-05-2012 / 18:34:35 / cg"
!
indexOfFirstNamedInstvarInList
@@ -1949,19 +2271,21 @@
[
|line|
- line := listView at:firstRealIndex.
+ line := self listEntryAt:firstRealIndex.
(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]
] whileTrue:[
firstRealIndex := firstRealIndex + 1.
].
^ firstRealIndex
+
+ "Modified: / 16-05-2012 / 17:54:46 / cg"
!
indexedFieldList
"return a list of indexed-variable names to show in the selectionList.
Set hasMore to true, if a '...' entry should be added."
- |l maxIndex sz|
+ |l maxIndex sz list|
l := self indexList.
l isEmptyOrNil ifTrue:[^ nil ].
@@ -1973,18 +2297,26 @@
] ifFalse:[
sz := 0
].
- ^ l collect:[:i |
- i isInteger ifTrue:[
- (i printStringRadix:integerDisplayRadix size:sz fill:$0)
- ] ifFalse:[
- i printString
- ]
+ list := l collect:
+ [:i |
+ i isInteger ifTrue:[
+ (i printStringRadix:integerDisplayRadix size:sz fill:$0)
+ ] ifFalse:[
+ i printString
+ ]
]
] ifFalse:[
- ^ l collect:[:i | i printString].
+ list := l collect:[:i | i printString].
].
- "Modified: / 14-11-2011 / 12:56:12 / cg"
+ ^ list
+ keysAndValuesCollect:[:idx :nm |
+ self listEntryForName:nm value:(object basicAt:idx)
+ ].
+
+ ^ list.
+
+ "Modified: / 16-05-2012 / 18:43:10 / cg"
!
indexedValueAtIndex:idx
@@ -2021,7 +2353,7 @@
firstRealIndex := 2.
].
- [line := listView at:firstRealIndex.
+ [line :=self listEntryAt:firstRealIndex.
(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
firstRealIndex := firstRealIndex + 1.
idx := idx - 1.
@@ -2042,7 +2374,7 @@
].
^ nil "/ indexed instvar or other selected
- "Modified: / 31.10.2001 / 09:20:20 / cg"
+ "Modified: / 16-05-2012 / 17:54:41 / cg"
!
keyIndexForLine:lineNr
@@ -2063,7 +2395,7 @@
firstRealIndex := firstRealIndex + 1.
].
- [line := listView at:firstRealIndex.
+ [line := self listEntryAt:firstRealIndex.
line notNil
and:[(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]]
] whileTrue:[
@@ -2087,7 +2419,13 @@
].
^ idx - (nNamedInstvarsShown+nExtraNamedInstvarsShown).
- "Modified: / 04-08-2006 / 11:45:42 / cg"
+ "Modified: / 16-05-2012 / 17:54:34 / cg"
+!
+
+listEntryAt:lineNr
+ ^ (listView at:lineNr) string
+
+ "Created: / 16-05-2012 / 17:53:39 / cg"
!
namedFieldAt:idx
@@ -2113,10 +2451,14 @@
"/ hide some stuff
aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
].
+ ^ aList
+ keysAndValuesCollect:[:idx :nm |
+ self listEntryForName:nm value:(object instVarAt:idx)
+ ].
^ aList
- "Modified: / 18-09-2006 / 21:35:30 / cg"
+ "Modified: / 16-05-2012 / 18:43:23 / cg"
!
pseudoFieldNames
@@ -2193,7 +2535,7 @@
ifTrue:[
acceptAction := nil.
] ifFalse:[
- sel := listView at:idx.
+ sel := self listEntryAt:idx.
(sel startsWith:'-all') ifTrue:[
acceptAction := nil.
@@ -2213,6 +2555,8 @@
].
workspace acceptAction:acceptAction.
+
+ "Modified: / 16-05-2012 / 17:54:16 / cg"
!
setDoItAction
@@ -2288,9 +2632,9 @@
^ object
].
- ((l := listView at:lineNr) startsWith:$-) ifTrue:[
+ ((l := self listEntryAt:lineNr) startsWith:$-) ifTrue:[
(l ~= '-' and:[(l at:2) isDigit not "negative number"]) ifTrue:[
- ^ self valueForSpecialLine:(listView at:lineNr)
+ ^ self valueForSpecialLine:l
].
].
@@ -2323,7 +2667,7 @@
"/ nope
^ nil
- "Modified: / 03-08-2006 / 14:05:30 / cg"
+ "Modified: / 16-05-2012 / 17:54:06 / cg"
!
valueAtLine:lineNr put:newValue
@@ -2536,7 +2880,7 @@
doAccept:theText
|sel newValue|
- sel := listView at:(self theSingleSelectionIndex).
+ sel := self listEntryAt:(self theSingleSelectionIndex).
(sel startsWith:'-all') ifTrue:[
workspace flash.
^ self.
@@ -2556,6 +2900,8 @@
self valueAtLine:selectionIndex put:newValue.
]
]
+
+ "Modified: / 16-05-2012 / 17:54:57 / cg"
!
doCopyKey
@@ -2713,9 +3059,9 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.249 2012-03-13 07:26:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.250 2012-05-16 16:52:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.249 2012-03-13 07:26:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.250 2012-05-16 16:52:29 cg Exp $'
! !