BrowserView.st
changeset 1511 45832de7f112
parent 1510 ec5dd071b570
child 1512 ed3ac00a74c0
equal deleted inserted replaced
1510:ec5dd071b570 1511:45832de7f112
    21 		lastCategory lastModule lastPackage lastMethodMoveClass
    21 		lastCategory lastModule lastPackage lastMethodMoveClass
    22 		namespaceList allNamespaces gotClassList classList selectorList
    22 		namespaceList allNamespaces gotClassList classList selectorList
    23 		showAllNamespaces classInstVarsInVarList'
    23 		showAllNamespaces classInstVarsInVarList'
    24 	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
    24 	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
    25 		StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon
    25 		StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon
       
    26 		TabListIcon HierarchicalListIcon TableColumnsIcon
    26 		ShowResourceIcons'
    27 		ShowResourceIcons'
    27 	poolDictionaries:''
    28 	poolDictionaries:''
    28 	category:'Interface-Browsers'
    29 	category:'Interface-Browsers'
    29 !
    30 !
    30 
    31 
   111 lowSpaceCleanup
   112 lowSpaceCleanup
   112     DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil
   113     DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil
   113 
   114 
   114     "Created: / 18.4.1996 / 16:46:40 / cg"
   115     "Created: / 18.4.1996 / 16:46:40 / cg"
   115     "Modified: / 25.10.1997 / 19:30:32 / cg"
   116     "Modified: / 25.10.1997 / 19:30:32 / cg"
       
   117 !
       
   118 
       
   119 preSnapshot
       
   120 
       
   121     StopIcon := 
       
   122     TraceIcon := 
       
   123     TimeIcon := 
       
   124     CanvasIcon := 
       
   125     MenuIcon := 
       
   126     ImageIcon := 
       
   127     TabListIcon := 
       
   128     HierarchicalListIcon := 
       
   129     TableColumnsIcon :=
       
   130     nil
       
   131 
   116 ! !
   132 ! !
   117 
   133 
   118 !BrowserView class methodsFor:'defaults'!
   134 !BrowserView class methodsFor:'defaults'!
   119 
       
   120 canvasIcon
       
   121     "answer an icon to mark canvas (windowSpec) methods"
       
   122 
       
   123     |canvasIcon|
       
   124 
       
   125     CanvasIcon notNil ifTrue:[^ CanvasIcon].
       
   126 
       
   127     canvasIcon := Depth1Image
       
   128                      width:10
       
   129                      height:10
       
   130                      fromArray:#(
       
   131                                    2r11111111 2r11000000
       
   132                                    2r11111111 2r11000000
       
   133                                    2r10000000 2r01000000
       
   134                                    2r10000000 2r01000000
       
   135                                    2r10000000 2r01000000
       
   136                                    2r10000000 2r01000000
       
   137                                    2r10000000 2r01000000
       
   138                                    2r10000000 2r01000000
       
   139                                    2r11111111 2r11000000
       
   140                                 ).
       
   141     canvasIcon mask:(ImageMask
       
   142                      width:10
       
   143                      height:10
       
   144                      fromArray:#(
       
   145                                    2r11111111 2r11000000
       
   146                                    2r11111111 2r11000000
       
   147                                    2r11111111 2r11000000
       
   148                                    2r11111111 2r11000000
       
   149                                    2r11111111 2r11000000
       
   150                                    2r11111111 2r11000000
       
   151                                    2r11111111 2r11000000
       
   152                                    2r11111111 2r11000000
       
   153                                    2r11111111 2r11000000
       
   154                                 )).
       
   155     canvasIcon maskedPixelsAre0:true.
       
   156     canvasIcon colorMap:(Array with:Color white with:Color black).
       
   157     CanvasIcon := canvasIcon.
       
   158     ^ canvasIcon
       
   159 
       
   160     "
       
   161      CanvasIcon := nil
       
   162     "
       
   163 
       
   164     "Modified: / 28.10.1997 / 12:47:18 / cg"
       
   165 !
       
   166 
   135 
   167 defaultIcon
   136 defaultIcon
   168     "return the browsers default window icon"
   137     "return the browsers default window icon"
   169 
   138 
   170     <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
   139     <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
   199     ^ self imageIcon
   168     ^ self imageIcon
   200 
   169 
   201     "Created: / 29.10.1997 / 03:32:43 / cg"
   170     "Created: / 29.10.1997 / 03:32:43 / cg"
   202 !
   171 !
   203 
   172 
   204 imageIcon
       
   205     "answer an icon to mark image (menuSpec) methods"
       
   206 
       
   207     |imageIcon|
       
   208 
       
   209     ImageIcon notNil ifTrue:[^ ImageIcon].
       
   210 
       
   211     imageIcon := Depth2Image
       
   212                      width:10
       
   213                      height:10
       
   214                      fromArray:#(
       
   215                                    4r0000 4r0000 4r0000
       
   216                                    4r0111 4r1111 4r1000
       
   217                                    4r0111 4r2221 4r1000
       
   218                                    4r0112 4r2222 4r1000
       
   219                                    4r0111 4r2221 4r1000
       
   220                                    4r0111 4r1311 4r1000
       
   221                                    4r0111 4r1311 4r1000
       
   222                                    4r0111 4r1311 4r1000
       
   223                                    4r0222 4r2222 4r1000
       
   224                                    4r0000 4r0000 4r0000
       
   225                                 ).
       
   226 
       
   227     imageIcon colorMap:(Array 
       
   228                                 with:Color black
       
   229                                 with:(Color rgbValue:16radd8e6)
       
   230                                 with:(Color rgbValue:16r00cd00)
       
   231                                 with:(Color rgbValue:16r853e26)
       
   232                        ).
       
   233     ImageIcon := imageIcon.
       
   234     ^ imageIcon
       
   235 
       
   236     "
       
   237      ImageIcon := nil.
       
   238      self imageIcon inspect
       
   239     "
       
   240 
       
   241     "Created: / 28.10.1997 / 13:42:54 / cg"
       
   242     "Modified: / 28.10.1997 / 14:09:39 / cg"
       
   243 !
       
   244 
       
   245 menuIcon
       
   246     "answer an icon to mark menu (menuSpec) methods"
       
   247 
       
   248     |menuIcon|
       
   249 
       
   250     MenuIcon notNil ifTrue:[^ MenuIcon].
       
   251 
       
   252     menuIcon := Depth1Image
       
   253                      width:10
       
   254                      height:10
       
   255                      fromArray:#(
       
   256                                    2r11111111 2r11000000
       
   257                                    2r10000000 2r01000000
       
   258                                    2r10000000 2r01000000
       
   259                                    2r11111111 2r11000000
       
   260                                    2r10000000 2r01000000
       
   261                                    2r10000000 2r01000000
       
   262                                    2r11111111 2r11000000
       
   263                                    2r10000000 2r01000000
       
   264                                    2r10000000 2r01000000
       
   265                                    2r11111111 2r11000000
       
   266                                 ).
       
   267     menuIcon mask:(ImageMask
       
   268                      width:10
       
   269                      height:10
       
   270                      fromArray:#(
       
   271                                    2r11111111 2r11000000
       
   272                                    2r11111111 2r11000000
       
   273                                    2r11111111 2r11000000
       
   274                                    2r11111111 2r11000000
       
   275                                    2r11111111 2r11000000
       
   276                                    2r11111111 2r11000000
       
   277                                    2r11111111 2r11000000
       
   278                                    2r11111111 2r11000000
       
   279                                    2r11111111 2r11000000
       
   280                                    2r11111111 2r11000000
       
   281                                 )).
       
   282     menuIcon maskedPixelsAre0:true.
       
   283     menuIcon colorMap:(Array with:Color white with:Color black).
       
   284     MenuIcon := menuIcon.
       
   285     ^ menuIcon
       
   286 
       
   287     "
       
   288      MenuIcon := nil
       
   289     "
       
   290 
       
   291     "Created: / 27.10.1997 / 00:38:06 / cg"
       
   292     "Modified: / 27.10.1997 / 00:45:45 / cg"
       
   293 !
       
   294 
       
   295 programMenuIcon
   173 programMenuIcon
   296     "answer an icon to mark programmed-menu (menuSpec) methods"
   174     "answer an icon to mark programmed-menu (menuSpec) methods"
   297 
   175 
   298     ^ self menuIcon
   176     ^ self menuIcon
   299 
   177 
   300     "Created: / 28.10.1997 / 13:40:49 / cg"
   178     "Created: / 28.10.1997 / 13:40:49 / cg"
   301 !
   179 ! !
       
   180 
       
   181 !BrowserView class methodsFor:'image specs'!
       
   182 
       
   183 canvasIcon
       
   184     "Generated by the Image Editor"
       
   185     "
       
   186     ImageEditor openOnClass:self andSelector:#canvasIcon
       
   187     "
       
   188 
       
   189     <resource: #image>
       
   190 
       
   191     ^Icon
       
   192         constantNamed:#'BrowserView canvasIcon'
       
   193         ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;/C.;/@@9&XP9&XP@NY&DNY&D@C&Y!!C&Y!!@@9&XP9&XP@NY&DNY&D@C1DQC1DQ@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!
       
   194 
       
   195 hierarchicalListIcon
       
   196     "Generated by the Image Editor"
       
   197     "
       
   198     ImageEditor openOnClass:self andSelector:#hierarchicalListIcon
       
   199     "
       
   200 
       
   201     <resource: #image>
       
   202 
       
   203     ^Icon
       
   204         constantNamed:#'BrowserView hierarchicalListIcon'
       
   205         ifAbsentPut:[(Depth8Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDAD@@@@P@BDA@PDA@PD@H@@@DP@A@PDA@PDA@B@@@AD@@@@@@@@@@P@ @@@Q@@DA@PDA@PD@H@@@DP@@@@@@@@@A@B@@@AD@@PDA@PDA@P@ @@@Q@B@@@@@@@@D@H@@A@B@ HB@ HB@ HB@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 0 0 51 0 0 102 0 0 153 0 0 204 0 51 0 0 51 51 0 51 102 0 51 153 0 51 204 0 51 255 0 102 0 0 102 51 0 102 102 0 102 153 0 102 204 0 102 255 0 153 0 0 153 51 0 153 102 0 153 153 0 153 204 0 153 255 0 204 0 0 204 51 0 204 102 0 204 153 0 204 204 0 204 255 0 255 51 0 255 102 0 255 153 0 255 204 51 0 0 51 0 51 51 0 102 51 0 153 51 0 204 51 0 255 51 51 0 51 51 51 51 51 102 51 51 153 51 51 204 51 51 255 51 102 0 51 102 51 51 102 102 51 102 153 51 102 204 51 102 255 51 153 0 51 153 51 51 153 102 51 153 153 51 153 204 51 153 255 51 204 0 51 204 51 51 204 102 51 204 153 51 204 204 51 204 255 51 255 0 51 255 51 51 255 102 51 255 153 51 255 204 51 255 255 102 0 0 102 0 51 102 0 102 102 0 153 102 0 204 102 0 255 102 51 0 102 51 51 102 51 102 102 51 153 102 51 204 102 51 255 102 102 0 102 102 51 102 102 102 102 102 153 102 102 204 102 102 255 102 153 0 102 153 51 102 153 102 102 153 153 102 153 204 102 153 255 102 204 0 102 204 51 102 204 102 102 204 153 102 204 204 102 204 255 102 255 0 102 255 51 102 255 102 102 255 153 102 255 204 102 255 255 153 0 0 153 0 51 153 0 102 153 0 153 153 0 204 153 0 255 153 51 0 153 51 51 153 51 102 153 51 153 153 51 204 153 51 255 153 102 0 153 102 51 153 102 102 153 102 153 153 102 204 153 102 255 153 153 0 153 153 51 153 153 102 153 153 153 153 153 204 153 153 255 153 204 0 153 204 51 153 204 102 153 204 153 153 204 204 153 204 255 153 255 0 153 255 51 153 255 102 153 255 153 153 255 204 153 255 255 204 0 0 204 0 51 204 0 102 204 0 153 204 0 204 204 0 255 204 51 0 204 51 51 204 51 102 204 51 153 204 51 204 204 51 255 204 102 0 204 102 51 204 102 102 204 102 153 204 102 204 204 102 255 204 153 0 204 153 51 204 153 102 204 153 153 204 153 204 204 153 255 204 204 0 204 204 51 204 204 102 204 204 153 204 204 204 204 204 255 204 255 0 204 255 51 204 255 102 204 255 153 204 255 204 204 255 255 255 0 51 255 0 102 255 0 153 255 0 204 255 51 0 255 51 51 255 51 102 255 51 153 255 51 204 255 51 255 255 102 0 255 102 51 255 102 102 255 102 153 255 102 204 255 102 255 255 153 0 255 153 51 255 153 102 255 153 153 255 153 204 255 153 255 255 204 0 255 204 51 255 204 102 255 204 153 255 204 204 255 204 255 255 255 51 255 255 102 255 255 153 255 255 204 7 7 7 17 17 17 28 28 28 38 38 38 48 48 48 58 58 58 66 66 66 76 76 76 86 86 86 96 96 96 107 107 107 117 117 117 135 135 135 145 145 145 155 155 155 165 165 165 175 175 175 186 186 186 193 193 193 214 214 214 224 224 224 234 234 234 244 244 244]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!
       
   206 
       
   207 imageIcon
       
   208     "Generated by the Image Editor"
       
   209     "
       
   210     ImageEditor openOnClass:self andSelector:#imageIcon
       
   211     "
       
   212 
       
   213     <resource: #image>
       
   214 
       
   215     ^Icon
       
   216         constantNamed:#'BrowserView imageIcon'
       
   217         ifAbsentPut:[(Depth8Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@AYVU%YVU%YVU%YVP@@VPDAVU%YAPUYVU$@@E$A@U%YVPTEVU%Y@@AYVU%YVU$EAPUYVP@@VU%YVU$EAPTBVU$@@E%YVU%YAPTBVU%Y@@@C@0LC@0LE@ LC@0@@@0LC@0LCAPHC@0L@@@LC@0LC@0LC@0LC@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 0 0 127 0 255 153 0 204 255 255 51 153 153 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 0 127 0 127 127 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 0 0 51 0 0 102 0 0 153 0 0 204 0 51 0 0 51 51 0 51 102 0 51 153 0 51 204 0 51 255 0 102 0 0 102 51 0 102 102 0 102 153 0 102 204 0 102 255 0 153 0 0 153 51 0 153 102 0 153 153 0 153 204 0 153 255 0 204 0 0 204 51 0 204 102 0 204 153 0 204 204 0 204 255 0 255 51 0 255 102 0 255 153 0 255 204 51 0 0 51 0 51 51 0 102 51 0 153 51 0 204 51 0 255 51 51 0 51 51 51 51 51 102 51 51 153 51 51 204 51 51 255 51 102 0 51 102 51 51 102 102 51 102 153 51 102 204 51 102 255 51 153 0 51 153 51 51 153 102 51 153 204 51 153 255 51 204 0 51 204 51 51 204 102 51 204 153 51 204 204 51 204 255 51 255 0 51 255 51 51 255 102 51 255 153 51 255 204 51 255 255 102 0 0 102 0 51 102 0 102 102 0 153 102 0 204 102 0 255 102 51 0 102 51 51 102 51 102 102 51 153 102 51 204 102 51 255 102 102 0 102 102 51 102 102 102 102 102 153 102 102 204 102 102 255 102 153 0 102 153 51 102 153 102 102 153 153 102 153 204 102 153 255 102 204 0 102 204 51 102 204 102 102 204 153 102 204 204 102 204 255 102 255 0 102 255 51 102 255 102 102 255 153 102 255 204 102 255 255 153 0 0 153 0 51 153 0 102 153 0 153 153 0 204 153 0 255 153 51 0 153 51 51 153 51 102 153 51 153 153 51 204 153 51 255 153 102 0 153 102 51 153 102 102 153 102 153 153 102 204 153 102 255 153 153 0 153 153 51 153 153 102 153 153 153 153 153 204 153 153 255 153 204 0 153 204 51 153 204 102 153 204 153 153 204 204 153 204 255 153 255 0 153 255 51 153 255 102 153 255 153 153 255 204 153 255 255 204 0 0 204 0 51 204 0 102 204 0 153 204 0 204 204 0 255 204 51 0 204 51 51 204 51 102 204 51 153 204 51 204 204 51 255 204 102 0 204 102 51 204 102 102 204 102 153 204 102 204 204 102 255 204 153 0 204 153 51 204 153 102 204 153 153 204 153 204 204 153 255 204 204 0 204 204 51 204 204 102 204 204 153 204 204 204 204 204 255 204 255 0 204 255 51 204 255 102 204 255 153 204 255 204 255 0 51 255 0 102 255 0 153 255 0 204 255 51 0 255 51 51 255 51 102 255 51 153 255 51 204 255 51 255 255 102 0 255 102 51 255 102 102 255 102 153 255 102 204 255 102 255 255 153 51 255 153 102 255 153 153 255 153 204 255 153 255 255 204 0 255 204 51 255 204 102 255 204 153 255 204 204 255 204 255 255 255 51 255 255 102 255 255 153 255 255 204 7 7 7 17 17 17 28 28 28 38 38 38 48 48 48 58 58 58 66 66 66 76 76 76 86 86 86 96 96 96 107 107 107 117 117 117 135 135 135 145 145 145 155 155 155 165 165 165 175 175 175 186 186 186 193 193 193 214 214 214 224 224 224 234 234 234 244 244 244]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!
       
   218 
       
   219 menuIcon
       
   220     "Generated by the Image Editor"
       
   221     "
       
   222     ImageEditor openOnClass:self andSelector:#menuIcon
       
   223     "
       
   224 
       
   225     <resource: #image>
       
   226 
       
   227     ^Icon
       
   228         constantNamed:#'BrowserView menuIcon'
       
   229         ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@AUUU DZ**(@@@@@@AUUU @Z**(8@@@@@AUUU @Z**(@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]!
   302 
   230 
   303 stopIcon
   231 stopIcon
   304     "answer an icon to mark breakPointed methods"
   232     "Generated by the Image Editor"
   305 
   233     "
   306     |stopIcon|
   234     ImageEditor openOnClass:self andSelector:#stopIcon
   307 
   235     "
   308     StopIcon notNil ifTrue:[^ StopIcon].
   236 
   309 
   237     <resource: #image>
   310     stopIcon := Depth1Image 
   238 
   311 		     width:16
   239     ^Icon
   312 		     height:16
   240         constantNamed:#'BrowserView stopIcon'
   313 		     fromArray:#(
   241         ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@B*(@@J**(@J*V* J*%**B*)Z*"**V****%****)Z****V****%*******(****(J*%**@*)Z*@B***@@B*(@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A>@_>C?<_?9??/???????????????7?>_?8??A?8A>@b') ; yourself); yourself]!
   314 				   2r00000000 2r00000000
   242 
   315 				   2r00000111 2r11100000
   243 tabListIcon
   316 				   2r00001111 2r11110000
   244     "Generated by the Image Editor"
   317 				   2r00011111 2r11111000
   245     "
   318 				   2r00111110 2r01111100
   246     ImageEditor openOnClass:self andSelector:#tabListIcon
   319 				   2r01111110 2r01111110
   247     "
   320 				   2r01111110 2r01111110
   248 
   321 				   2r01111110 2r01111110
   249     <resource: #image>
   322 				   2r01111110 2r01111110
   250 
   323 				   2r01111110 2r01111110
   251     ^Icon
   324 				   2r01111111 2r11111110
   252         constantNamed:#'BrowserView tabListIcon'
   325 				   2r00111110 2r01111100
   253         ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@G0; ; @@@A<@@@@@@A@_??????@@G?????? DA??????8@@_?????>C@G?????? @A??????8OC>;.;.;.@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?8C?0O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!
   326 				   2r00011110 2r01111000
   254 
   327 				   2r00001111 2r11110000
   255 tableColumnsIcon
   328 				   2r00000111 2r11100000
   256     "Generated by the Image Editor"
   329 				   2r00000000 2r00000000
   257     "
   330 				).
   258     ImageEditor openOnClass:self andSelector:#tableColumnsIcon
   331     stopIcon mask:(ImageMask 
   259     "
   332 		     width:16
   260 
   333 		     height:16
   261     <resource: #image>
   334 		     fromArray:#(
   262 
   335 				   2r00000000 2r00000000
   263     ^Icon
   336 				   2r00000111 2r11100000
   264         constantNamed:#'BrowserView tableColumnsIcon'
   337 				   2r00001111 2r11110000
   265         ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@DQDQDQG0@A<O<O<O8A@P@@@@@N@@G0?0?0? DA@@@@@@8@@_C?C?C>C@D@@@@@C @A<O<O<O8OC>;.;.;.@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]!
   338 				   2r00011111 2r11111000
       
   339 				   2r00111111 2r11111100
       
   340 				   2r01111111 2r11111110
       
   341 				   2r01111111 2r11111110
       
   342 				   2r01111111 2r11111110
       
   343 				   2r01111111 2r11111110
       
   344 				   2r01111111 2r11111110
       
   345 				   2r01111111 2r11111110
       
   346 				   2r00111111 2r11111100
       
   347 				   2r00011111 2r11111000
       
   348 				   2r00001111 2r11110000
       
   349 				   2r00000111 2r11100000
       
   350 				   2r00000000 2r00000000
       
   351 				)).
       
   352     stopIcon maskedPixelsAre0:true.
       
   353     stopIcon colorMap:(Array with:Color white with:Color red).
       
   354     StopIcon := stopIcon.
       
   355     ^ stopIcon
       
   356 
       
   357     "Created: 7.4.1997 / 17:31:23 / cg"
       
   358     "Modified: 22.4.1997 / 14:18:23 / cg"
       
   359 !
       
   360 
   266 
   361 timeIcon
   267 timeIcon
   362     "answer an icon to mark timed methods"
   268     "Generated by the Image Editor"
   363 
   269     "
   364     |timeIcon|
   270     ImageEditor openOnClass:self andSelector:#timeIcon
   365 
   271     "
   366     TimeIcon notNil ifTrue:[^ TimeIcon].
   272 
   367 
   273     <resource: #image>
   368     timeIcon := Depth1Image 
   274 
   369 		     width:16
   275     ^Icon
   370 		     height:16
   276         constantNamed:#'BrowserView timeIcon'
   371 		     fromArray:#(
   277         ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@FXA?8O''0>_G9>_''8>AC8D_?9??#?<O?0_>@Y @@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A>@_>C?<_?9??/???????????????7?>_?8??A?8A>@b') ; yourself); yourself]!
   372 				   2r00000000 2r00000000
       
   373 				   2r00000000 2r00000000
       
   374 				   2r00000111 2r11100000
       
   375 				   2r00001111 2r11110000
       
   376 				   2r00011110 2r01111000
       
   377 				   2r00111110 2r01111100
       
   378 				   2r00111110 2r01111100
       
   379 				   2r00111110 2r00000100
       
   380 				   2r00111110 2r00000100
       
   381 				   2r00111111 2r11111100
       
   382 				   2r00111111 2r11111100
       
   383 				   2r00011111 2r11111000
       
   384 				   2r00001111 2r11110000
       
   385 				   2r00000111 2r11100000
       
   386 				   2r00000000 2r00000000
       
   387 				   2r00000000 2r00000000
       
   388 				).
       
   389 
       
   390     timeIcon mask:(ImageMask 
       
   391 		     width:16
       
   392 		     height:16
       
   393 		     fromArray:#(
       
   394 				   2r00000000 2r00000000
       
   395 				   2r00000111 2r11100000
       
   396 				   2r00001111 2r11110000
       
   397 				   2r00011111 2r11111000
       
   398 				   2r00111111 2r11111100
       
   399 				   2r01111111 2r11111110
       
   400 				   2r01111111 2r11111110
       
   401 				   2r01111111 2r11111110
       
   402 				   2r01111111 2r11111110
       
   403 				   2r01111111 2r11111110
       
   404 				   2r01111111 2r11111110
       
   405 				   2r00111111 2r11111100
       
   406 				   2r00011111 2r11111000
       
   407 				   2r00001111 2r11110000
       
   408 				   2r00000111 2r11100000
       
   409 				   2r00000000 2r00000000
       
   410 				)).
       
   411     timeIcon maskedPixelsAre0:true.
       
   412     timeIcon colorMap:(Array with:Color black with:Color white).
       
   413     TimeIcon := timeIcon.
       
   414     ^ timeIcon
       
   415 
       
   416     "Created: 11.4.1997 / 17:01:55 / cg"
       
   417     "Modified: 22.4.1997 / 14:18:28 / cg"
       
   418 !
       
   419 
   278 
   420 traceIcon
   279 traceIcon
   421     "answer an icon to mark traced methods"
   280     "Generated by the Image Editor"
   422 
   281     "
   423     |traceIcon|
   282     ImageEditor openOnClass:self andSelector:#traceIcon
   424 
   283     "
   425     TraceIcon notNil ifTrue:[^ TraceIcon].
   284 
   426 
   285     <resource: #image>
   427     traceIcon := Depth1Image
   286 
   428 		     width:16
   287     ^Icon
   429 		     height:16
   288         constantNamed:#'BrowserView traceIcon'
   430 		     fromArray:#(
   289         ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B**** ****(B%UU(@)UUZ@B%UZ@@)UV @B%V @@)U(@@B%(@@@)Z@@@B*@@@@* @@@B @@@@(@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A??''?>O?0??A?8G? O<@?0A>@G8@O@@<@A @F@@@@b') ; yourself); yourself]! !
   431 				   2r00000000 2r00000000
       
   432 				   2r01111111 2r11111110
       
   433 				   2r01111111 2r11111110
       
   434 				   2r00110000 2r00001100
       
   435 				   2r00110000 2r00001100
       
   436 				   2r00011000 2r00011000
       
   437 				   2r00011000 2r00011000
       
   438 				   2r00001100 2r00110000
       
   439 				   2r00001100 2r00110000
       
   440 				   2r00000110 2r01100000
       
   441 				   2r00000110 2r01100000
       
   442 				   2r00000011 2r11000000
       
   443 				   2r00000011 2r11000000
       
   444 				   2r00000001 2r10000000
       
   445 				   2r00000001 2r10000000
       
   446 				   2r00000000 2r00000000
       
   447 				).
       
   448     traceIcon mask:(ImageMask
       
   449 		     width:16
       
   450 		     height:16
       
   451 		     fromArray:#(
       
   452 				   2r00000000 2r00000000
       
   453 				   2r01111111 2r11111110
       
   454 				   2r01111111 2r11111110
       
   455 				   2r00111111 2r11111100
       
   456 				   2r00111111 2r11111100
       
   457 				   2r00011111 2r11111000
       
   458 				   2r00011111 2r11111000
       
   459 				   2r00001111 2r11110000
       
   460 				   2r00001111 2r11110000
       
   461 				   2r00000111 2r11100000
       
   462 				   2r00000111 2r11100000
       
   463 				   2r00000011 2r11000000
       
   464 				   2r00000011 2r11000000
       
   465 				   2r00000001 2r10000000
       
   466 				   2r00000001 2r10000000
       
   467 				   2r00000000 2r00000000
       
   468 				)).
       
   469     traceIcon maskedPixelsAre0:true.
       
   470     traceIcon colorMap:(Array with:Color white with:Color red).
       
   471     TraceIcon := traceIcon.
       
   472     ^ traceIcon
       
   473 
       
   474     "Created: 7.4.1997 / 17:31:58 / cg"
       
   475     "Modified: 22.4.1997 / 14:18:33 / cg"
       
   476 ! !
       
   477 
   290 
   478 !BrowserView methodsFor:'change & update'!
   291 !BrowserView methodsFor:'change & update'!
   479 
   292 
   480 delayedUpdate:something with:someArgument from:changedObject
   293 delayedUpdate:something with:someArgument from:changedObject
   481     |list selector oldMethod|
   294     |list selector oldMethod|
  8347                             (resources includesKey:#fileImage) ifTrue:[
  8160                             (resources includesKey:#fileImage) ifTrue:[
  8348                                 icn := self fileImageIcon
  8161                                 icn := self fileImageIcon
  8349                             ] ifFalse:[
  8162                             ] ifFalse:[
  8350                                 (resources includesKey:#programMenu) ifTrue:[
  8163                                 (resources includesKey:#programMenu) ifTrue:[
  8351                                     icn := self programMenuIcon
  8164                                     icn := self programMenuIcon
       
  8165                                 ] ifFalse:[
       
  8166                                     (resources includesKey:#tableColumns) ifTrue:[
       
  8167                                         icn := self tableColumnsIcon 
       
  8168                                     ] ifFalse:[
       
  8169                                         (resources includesKey:#tabList) ifTrue:[
       
  8170                                             icn := self tabListIcon 
       
  8171                                         ] ifFalse:[
       
  8172                                             (resources includesKey:#hierarchicalList) ifTrue:[
       
  8173                                                 icn := self hierarchicalListIcon 
       
  8174                                             ]
       
  8175                                         ]
       
  8176                                     ]
  8352                                 ]
  8177                                 ]
  8353                             ]
  8178                             ]
  8354                         ]
  8179                         ]
  8355                     ]
  8180                     ]
  8356                 ]
  8181                 ]
  8530                 MenuEditor openOnClass:currentClass andSelector:currentSelector.
  8355                 MenuEditor openOnClass:currentClass andSelector:currentSelector.
  8531                 ^ self
  8356                 ^ self
  8532             ].
  8357             ].
  8533             ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
  8358             ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
  8534                 ImageEditor openOnClass:currentClass andSelector:currentSelector.
  8359                 ImageEditor openOnClass:currentClass andSelector:currentSelector.
       
  8360                 ^ self
       
  8361             ].
       
  8362             (resources includesKey:#tableColumns) ifTrue:[
       
  8363                 DataSetBuilder openOnClass:currentClass andSelector:currentSelector.
       
  8364                 ^ self
       
  8365             ].
       
  8366             (resources includesKey:#tabList) ifTrue:[
       
  8367                 TabItemEditor openOnClass:currentClass andSelector:currentSelector.
       
  8368                 ^ self
       
  8369             ].
       
  8370             (resources includesKey:#hierarchicalList) ifTrue:[
       
  8371                 HierarchicalListEditor openOnClass:currentClass andSelector:currentSelector.
  8535                 ^ self
  8372                 ^ self
  8536             ].
  8373             ].
  8537         ]
  8374         ]
  8538     ]
  8375     ]
  8539 
  8376 
 10460 !BrowserView methodsFor:'private - defaults'!
 10297 !BrowserView methodsFor:'private - defaults'!
 10461 
 10298 
 10462 canvasIcon
 10299 canvasIcon
 10463     "answer an icon to mark canvas (windowSpec) methods"
 10300     "answer an icon to mark canvas (windowSpec) methods"
 10464 
 10301 
 10465     ^ self class canvasIcon
 10302     CanvasIcon isNil ifTrue: [
 10466 
 10303         CanvasIcon := self class canvasIcon onDevice: device.
 10467     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10304         CanvasIcon clearMaskedPixels
 10468     "Created: / 26.10.1997 / 16:25:54 / cg"
 10305     ].
       
 10306     ^CanvasIcon
 10469 !
 10307 !
 10470 
 10308 
 10471 commentEmphasis
 10309 commentEmphasis
 10472     ^ (#color -> (Color red:0 green:0 blue:25))
 10310     ^ (#color -> (Color red:0 green:0 blue:25))
 10473 
 10311 
 10475 !
 10313 !
 10476 
 10314 
 10477 fileImageIcon
 10315 fileImageIcon
 10478     "answer an icon to mark fileImage methods"
 10316     "answer an icon to mark fileImage methods"
 10479 
 10317 
 10480     ^ self class fileImageIcon
 10318     ^ self imageIcon
 10481 
 10319 
 10482     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10320     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10483     "Created: / 29.10.1997 / 03:32:05 / cg"
 10321     "Created: / 29.10.1997 / 03:32:05 / cg"
 10484 !
 10322 !
 10485 
 10323 
       
 10324 hierarchicalListIcon
       
 10325     "answer an icon to mark hierarchicalList spec methods"
       
 10326 
       
 10327     HierarchicalListIcon isNil ifTrue: [
       
 10328         HierarchicalListIcon := self class hierarchicalListIcon onDevice: device.
       
 10329         HierarchicalListIcon clearMaskedPixels
       
 10330     ].
       
 10331     ^HierarchicalListIcon
       
 10332    
       
 10333 !
       
 10334 
 10486 imageIcon
 10335 imageIcon
 10487     "answer an icon to mark image methods"
 10336     "answer an icon to mark image methods"
 10488 
 10337 
 10489     ^ self class imageIcon
 10338     ImageIcon isNil ifTrue: [
 10490 
 10339         ImageIcon := self class imageIcon onDevice: device.
 10491     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10340         ImageIcon clearMaskedPixels
 10492     "Created: / 28.10.1997 / 13:35:35 / cg"
 10341     ].
       
 10342     ^ImageIcon
 10493 !
 10343 !
 10494 
 10344 
 10495 menuIcon
 10345 menuIcon
 10496     "answer an icon to mark menu (menuSpec) methods"
 10346     "answer an icon to mark menu spec methods"
 10497 
 10347 
 10498     ^ self class menuIcon
 10348     MenuIcon isNil ifTrue: [
 10499 
 10349         MenuIcon := self class menuIcon onDevice: device.
 10500     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10350         MenuIcon clearMaskedPixels
 10501     "Created: / 27.10.1997 / 00:41:04 / cg"
 10351     ].
       
 10352     ^MenuIcon
 10502 !
 10353 !
 10503 
 10354 
 10504 programMenuIcon
 10355 programMenuIcon
 10505     "answer an icon to mark programmed-menu (menuSpec) methods"
 10356     "answer an icon to mark programmed-menu (menuSpec) methods"
 10506 
 10357 
 10507     ^ self class programMenuIcon
 10358     ^ self menuIcon
 10508 
 10359 
 10509     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10360     "Modified: / 7.4.1997 / 17:31:40 / cg"
 10510     "Created: / 28.10.1997 / 13:35:16 / cg"
 10361     "Created: / 28.10.1997 / 13:35:16 / cg"
 10511 !
 10362 !
 10512 
 10363 
 10513 stopIcon
 10364 stopIcon
 10514     "answer an icon to mark breakPointed methods"
 10365     "answer an icon to mark breakPointed methods"
 10515 
 10366 
 10516     ^ self class stopIcon
 10367     StopIcon isNil ifTrue: [
 10517 
 10368         StopIcon := self class stopIcon onDevice: device.
 10518     "Modified: 7.4.1997 / 17:31:40 / cg"
 10369         StopIcon clearMaskedPixels
       
 10370     ].
       
 10371     ^StopIcon
       
 10372 !
       
 10373 
       
 10374 tabListIcon
       
 10375     "answer an icon to mark tabList spec methods"
       
 10376 
       
 10377     TabListIcon isNil ifTrue: [
       
 10378         TabListIcon := self class tabListIcon onDevice: device.
       
 10379         TabListIcon clearMaskedPixels
       
 10380     ].
       
 10381     ^TabListIcon
       
 10382 !
       
 10383 
       
 10384 tableColumnsIcon
       
 10385     "answer an icon to mark tableColumns spec methods"
       
 10386 
       
 10387     TableColumnsIcon isNil ifTrue: [
       
 10388         TableColumnsIcon := self class tableColumnsIcon onDevice: device.
       
 10389         TableColumnsIcon clearMaskedPixels
       
 10390     ].
       
 10391     ^TableColumnsIcon
 10519 !
 10392 !
 10520 
 10393 
 10521 timeIcon
 10394 timeIcon
 10522     "answer an icon to mark timed methods"
 10395     "answer an icon to mark timed methods"
 10523 
 10396 
 10524     ^ self class timeIcon
 10397     TimeIcon isNil ifTrue: [
 10525 
 10398         TimeIcon := self class timeIcon onDevice: device.
 10526     "Modified: 7.4.1997 / 17:31:40 / cg"
 10399         TimeIcon clearMaskedPixels
 10527     "Created: 11.4.1997 / 17:02:55 / cg"
 10400     ].
       
 10401     ^TimeIcon
 10528 !
 10402 !
 10529 
 10403 
 10530 traceIcon
 10404 traceIcon
 10531     "answer an icon to mark traced methods"
 10405     "answer an icon to mark traced methods"
 10532 
 10406 
 10533     ^ self class traceIcon
 10407     TraceIcon isNil ifTrue: [
 10534 
 10408         TraceIcon := self class traceIcon onDevice: device.
 10535     "Modified: 7.4.1997 / 17:32:14 / cg"
 10409         TraceIcon clearMaskedPixels
       
 10410     ].
       
 10411     ^TraceIcon
 10536 ! !
 10412 ! !
 10537 
 10413 
 10538 !BrowserView methodsFor:'unused'!
 10414 !BrowserView methodsFor:'unused'!
 10539 
 10415 
 10540 listOfAllMethodCategoriesInHierarchy:aClass
 10416 listOfAllMethodCategoriesInHierarchy:aClass
 11381 ! !
 11257 ! !
 11382 
 11258 
 11383 !BrowserView class methodsFor:'documentation'!
 11259 !BrowserView class methodsFor:'documentation'!
 11384 
 11260 
 11385 version
 11261 version
 11386     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.373 1998-03-13 15:30:44 cg Exp $'
 11262     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.374 1998-03-13 21:07:42 tz Exp $'
 11387 ! !
 11263 ! !
 11388 BrowserView initialize!
 11264 BrowserView initialize!