240 |
224 |
241 ^ self imageIcon |
225 ^ self imageIcon |
242 |
226 |
243 "Created: / 29.10.1997 / 03:32:43 / cg" |
227 "Created: / 29.10.1997 / 03:32:43 / cg" |
244 ! ! |
228 ! ! |
245 |
|
246 !BrowserView class methodsFor:'image specs'! |
|
247 |
|
248 canvasIcon |
|
249 "This resource specification was automatically generated |
|
250 by the ImageEditor of ST/X." |
|
251 |
|
252 "Do not manually edit this!! If it is corrupted, |
|
253 the ImageEditor may not be able to read the specification." |
|
254 |
|
255 " |
|
256 ImageEditor openOnClass:self andSelector:#canvasIcon |
|
257 " |
|
258 |
|
259 <resource: #image> |
|
260 |
|
261 ^Icon |
|
262 constantNamed:#'BrowserView canvasIcon' |
|
263 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]! |
|
264 |
|
265 helpIcon |
|
266 "This resource specification was automatically generated |
|
267 by the ImageEditor of ST/X." |
|
268 |
|
269 "Do not manually edit this!! If it is corrupted, |
|
270 the ImageEditor may not be able to read the specification." |
|
271 |
|
272 " |
|
273 ImageEditor openOnClass:self andSelector:#helpIcon |
|
274 " |
|
275 |
|
276 <resource: #image> |
|
277 |
|
278 ^Icon |
|
279 constantNamed:#'BrowserView helpIcon' |
|
280 ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@AUUUP@UZ%T@EYVU@AUU%S UU%T@EU%U@AUUUP@UVUT@EUUUN@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 0 127 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]! |
|
281 |
|
282 hierarchicalListIcon |
|
283 "This resource specification was automatically generated |
|
284 by the ImageEditor of ST/X." |
|
285 |
|
286 "Do not manually edit this!! If it is corrupted, |
|
287 the ImageEditor may not be able to read the specification." |
|
288 |
|
289 " |
|
290 ImageEditor openOnClass:self andSelector:#hierarchicalListIcon |
|
291 " |
|
292 |
|
293 <resource: #image> |
|
294 |
|
295 ^Icon |
|
296 constantNamed:#'BrowserView hierarchicalListIcon' |
|
297 ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@NAUUU0@R??8@GO?>@A0@C @\??88G@@N@A3?? @^@@8@N***@@@@@C b') ; colorMapFromArray:#[0 0 0 255 255 255 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]! |
|
298 |
|
299 imageIcon |
|
300 "This resource specification was automatically generated |
|
301 by the ImageEditor of ST/X." |
|
302 |
|
303 "Do not manually edit this!! If it is corrupted, |
|
304 the ImageEditor may not be able to read the specification." |
|
305 |
|
306 " |
|
307 self imageIcon inspect |
|
308 ImageEditor openOnClass:self andSelector:#imageIcon |
|
309 " |
|
310 |
|
311 <resource: #image> |
|
312 |
|
313 ^Icon |
|
314 constantNamed:#'BrowserView imageIcon' |
|
315 ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@CPUUUUUUUP@EDUUTQUTHAQEUUDUU@@UUUUQDUP@EUUUDP%T@AUUUQBUU@@L3L3P#L0@CL3L4H3L@@3L3L3L3@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 0 0 127 0 255 153 0 51 153 153 51 255 255 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127]; 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] |
|
316 |
|
317 ! |
|
318 |
|
319 menuIcon |
|
320 "This resource specification was automatically generated |
|
321 by the ImageEditor of ST/X." |
|
322 |
|
323 "Do not manually edit this!! If it is corrupted, |
|
324 the ImageEditor may not be able to read the specification." |
|
325 |
|
326 " |
|
327 ImageEditor openOnClass:self andSelector:#menuIcon |
|
328 " |
|
329 |
|
330 <resource: #image> |
|
331 |
|
332 ^Icon |
|
333 constantNamed:#'BrowserView menuIcon' |
|
334 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]! |
|
335 |
|
336 programMenuIcon |
|
337 "This resource specification was automatically generated |
|
338 by the ImageEditor of ST/X." |
|
339 |
|
340 "Do not manually edit this!! If it is corrupted, |
|
341 the ImageEditor may not be able to read the specification." |
|
342 |
|
343 " |
|
344 self programMenuIcon inspect |
|
345 ImageEditor openOnClass:self andSelector:#programMenuIcon |
|
346 " |
|
347 |
|
348 <resource: #image> |
|
349 |
|
350 ^ Icon |
|
351 constantNamed:#'BrowserView programMenuIcon' |
|
352 ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B*** D***(@@@@@@B*** @***(8@@@@@B*** @***(@@@@@@@@@@@@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] |
|
353 ! |
|
354 |
|
355 stopIcon |
|
356 "This resource specification was automatically generated |
|
357 by the ImageEditor of ST/X." |
|
358 |
|
359 "Do not manually edit this!! If it is corrupted, |
|
360 the ImageEditor may not be able to read the specification." |
|
361 |
|
362 " |
|
363 ImageEditor openOnClass:self andSelector:#stopIcon |
|
364 " |
|
365 |
|
366 <resource: #image> |
|
367 |
|
368 ^Icon |
|
369 constantNamed:#'BrowserView stopIcon' |
|
370 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]! |
|
371 |
|
372 tabListIcon |
|
373 "This resource specification was automatically generated |
|
374 by the ImageEditor of ST/X." |
|
375 |
|
376 "Do not manually edit this!! If it is corrupted, |
|
377 the ImageEditor may not be able to read the specification." |
|
378 |
|
379 " |
|
380 ImageEditor openOnClass:self andSelector:#tabListIcon |
|
381 " |
|
382 |
|
383 <resource: #image> |
|
384 |
|
385 ^Icon |
|
386 constantNamed:#'BrowserView tabListIcon' |
|
387 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]! |
|
388 |
|
389 tableColumnsIcon |
|
390 "This resource specification was automatically generated |
|
391 by the ImageEditor of ST/X." |
|
392 |
|
393 "Do not manually edit this!! If it is corrupted, |
|
394 the ImageEditor may not be able to read the specification." |
|
395 |
|
396 " |
|
397 ImageEditor openOnClass:self andSelector:#tableColumnsIcon |
|
398 " |
|
399 |
|
400 <resource: #image> |
|
401 |
|
402 ^Icon |
|
403 constantNamed:#'BrowserView tableColumnsIcon' |
|
404 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]! |
|
405 |
|
406 timeIcon |
|
407 "This resource specification was automatically generated |
|
408 by the ImageEditor of ST/X." |
|
409 |
|
410 "Do not manually edit this!! If it is corrupted, |
|
411 the ImageEditor may not be able to read the specification." |
|
412 |
|
413 " |
|
414 ImageEditor openOnClass:self andSelector:#timeIcon |
|
415 " |
|
416 |
|
417 <resource: #image> |
|
418 |
|
419 ^Icon |
|
420 constantNamed:#'BrowserView timeIcon' |
|
421 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]! |
|
422 |
|
423 traceIcon |
|
424 "This resource specification was automatically generated |
|
425 by the ImageEditor of ST/X." |
|
426 |
|
427 "Do not manually edit this!! If it is corrupted, |
|
428 the ImageEditor may not be able to read the specification." |
|
429 |
|
430 " |
|
431 ImageEditor openOnClass:self andSelector:#traceIcon |
|
432 " |
|
433 |
|
434 <resource: #image> |
|
435 |
|
436 ^Icon |
|
437 constantNamed:#'BrowserView traceIcon' |
|
438 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]! ! |
|
439 |
229 |
440 !BrowserView class methodsFor:'interface specs'! |
230 !BrowserView class methodsFor:'interface specs'! |
441 |
231 |
442 methodFilterSpec |
232 methodFilterSpec |
443 "This resource specification was automatically generated |
233 "This resource specification was automatically generated |
12850 !BrowserView methodsFor:'private - defaults'! |
12642 !BrowserView methodsFor:'private - defaults'! |
12851 |
12643 |
12852 canvasIcon |
12644 canvasIcon |
12853 "answer an icon to mark canvas (windowSpec) methods" |
12645 "answer an icon to mark canvas (windowSpec) methods" |
12854 |
12646 |
|
12647 ^ self fetchIcon:#canvas selector:#canvasIcon |
|
12648 ! |
|
12649 |
|
12650 fetchIcon:name selector:fetchSelector |
|
12651 "answer an icon" |
|
12652 |
12855 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12653 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12856 |
12654 Icons isNil ifTrue:[Icons := IdentityDictionary new]. |
12857 ^ icons at:#canvas ifAbsentPut:[ |
12655 |
12858 |fh| |
12656 ^ icons at:name ifAbsentPut:[ |
12859 |
12657 |fh icn h| |
12860 CanvasIcon isNil ifTrue: [ |
12658 |
12861 CanvasIcon := self class canvasIcon onDevice:Display. |
12659 (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [ |
12862 CanvasIcon clearMaskedPixels. |
12660 Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display). |
12863 ]. |
12661 icn clearMaskedPixels. |
12864 CanvasIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
12662 ]. |
12865 (CanvasIcon magnifiedBy:(fh / CanvasIcon height)) onDevice:device |
12663 h := icn height. |
12866 ] ifFalse:[ |
12664 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
12867 CanvasIcon onDevice:device. |
12665 icn := icn magnifiedBy:(fh / h) |
12868 ]. |
12666 ]. |
|
12667 icn onDevice:device |
12869 ] |
12668 ] |
12870 |
12669 |
12871 "Modified: / 26.7.1998 / 14:04:10 / cg" |
12670 " |
|
12671 Icons := nil |
|
12672 " |
12872 ! |
12673 ! |
12873 |
12674 |
12874 fileImageIcon |
12675 fileImageIcon |
12875 "answer an icon to mark fileImage methods" |
12676 "answer an icon to mark fileImage methods" |
12876 |
12677 |
12877 ^ self imageIcon |
12678 ^ self fetchIcon:#fileImage selector:#fileImageIcon |
12878 |
12679 |
12879 "Modified: / 7.4.1997 / 17:31:40 / cg" |
12680 "Modified: / 7.4.1997 / 17:31:40 / cg" |
12880 "Created: / 29.10.1997 / 03:32:05 / cg" |
12681 "Created: / 29.10.1997 / 03:32:05 / cg" |
12881 ! |
12682 ! |
12882 |
12683 |
12890 ! |
12691 ! |
12891 |
12692 |
12892 helpIcon |
12693 helpIcon |
12893 "answer an icon to mark help spec methods" |
12694 "answer an icon to mark help spec methods" |
12894 |
12695 |
12895 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12696 ^ self fetchIcon:#help selector:#helpIcon |
12896 |
|
12897 ^ icons at:#help ifAbsentPut:[ |
|
12898 |fh| |
|
12899 |
|
12900 HelpIcon isNil ifTrue: [ |
|
12901 HelpIcon := self class helpIcon onDevice:Display. |
|
12902 HelpIcon clearMaskedPixels. |
|
12903 ]. |
|
12904 HelpIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
12905 (HelpIcon magnifiedBy:(fh / HelpIcon height)) onDevice:device |
|
12906 ] ifFalse:[ |
|
12907 HelpIcon onDevice:device. |
|
12908 ]. |
|
12909 ] |
|
12910 |
|
12911 "Modified: / 26.7.1998 / 14:03:50 / cg" |
|
12912 ! |
12697 ! |
12913 |
12698 |
12914 hierarchicalListIcon |
12699 hierarchicalListIcon |
12915 "answer an icon to mark hierarchicalList spec methods" |
12700 "answer an icon to mark hierarchicalList spec methods" |
12916 |
12701 |
12917 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12702 ^ self fetchIcon:#hierarchicalList selector:#hierarchicalListIcon |
12918 |
|
12919 ^ icons at:#hierarchicalList ifAbsentPut:[ |
|
12920 |fh| |
|
12921 |
|
12922 HierarchicalListIcon isNil ifTrue: [ |
|
12923 HierarchicalListIcon := self class hierarchicalListIcon onDevice:Display. |
|
12924 HierarchicalListIcon clearMaskedPixels. |
|
12925 ]. |
|
12926 HierarchicalListIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
12927 (HierarchicalListIcon magnifiedBy:(fh / ImageIcon height)) onDevice:device |
|
12928 ] ifFalse:[ |
|
12929 HierarchicalListIcon onDevice:device. |
|
12930 ]. |
|
12931 ] |
|
12932 |
|
12933 "Modified: / 26.7.1998 / 14:03:31 / cg" |
|
12934 ! |
12703 ! |
12935 |
12704 |
12936 imageIcon |
12705 imageIcon |
12937 "answer an icon to mark image spec methods" |
12706 "answer an icon to mark image spec methods" |
12938 |
12707 |
12939 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12708 ^ self fetchIcon:#image selector:#imageIcon |
12940 |
|
12941 ^ icons at:#image ifAbsentPut:[ |
|
12942 |fh| |
|
12943 |
|
12944 ImageIcon isNil ifTrue: [ |
|
12945 ImageIcon := self class imageIcon onDevice:Display. |
|
12946 ImageIcon clearMaskedPixels. |
|
12947 ]. |
|
12948 ImageIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
12949 (ImageIcon magnifiedBy:(fh / ImageIcon height)) onDevice:device |
|
12950 ] ifFalse:[ |
|
12951 ImageIcon onDevice:device. |
|
12952 ]. |
|
12953 ] |
|
12954 |
|
12955 "Modified: / 26.7.1998 / 14:02:58 / cg" |
|
12956 ! |
12709 ! |
12957 |
12710 |
12958 menuIcon |
12711 menuIcon |
12959 "answer an icon to mark menu spec methods" |
12712 "answer an icon to mark menu spec methods" |
12960 |
12713 |
12961 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12714 ^ self fetchIcon:#menu selector:#menuIcon |
12962 |
|
12963 ^ icons at:#menu ifAbsentPut:[ |
|
12964 |fh| |
|
12965 |
|
12966 MenuIcon isNil ifTrue: [ |
|
12967 MenuIcon := self class menuIcon onDevice:Display. |
|
12968 MenuIcon clearMaskedPixels. |
|
12969 ]. |
|
12970 MenuIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
12971 (MenuIcon magnifiedBy:(fh / MenuIcon height)) onDevice:device |
|
12972 ] ifFalse:[ |
|
12973 MenuIcon onDevice:device. |
|
12974 ]. |
|
12975 ] |
|
12976 |
|
12977 "Modified: / 26.7.1998 / 14:02:40 / cg" |
|
12978 ! |
12715 ! |
12979 |
12716 |
12980 programImageIcon |
12717 programImageIcon |
12981 "answer an icon to mark program-image spec methods" |
12718 "answer an icon to mark program-image spec methods" |
12982 |
12719 |
12983 ^ self imageIcon |
12720 ^ self fetchIcon:#programImage selector:#programImageIcon |
12984 |
|
12985 "Created: / 24.8.1998 / 21:37:38 / cg" |
|
12986 ! |
12721 ! |
12987 |
12722 |
12988 programMenuIcon |
12723 programMenuIcon |
12989 "answer an icon to mark menu spec methods" |
12724 "answer an icon to mark menu spec methods" |
12990 |
12725 |
12991 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12726 ^ self fetchIcon:#programMenu selector:#programMenuIcon |
12992 |
|
12993 ^ icons at:#programMenu ifAbsentPut:[ |
|
12994 |fh m| |
|
12995 |
|
12996 m := self class programMenuIcon onDevice:Display. |
|
12997 m clearMaskedPixels. |
|
12998 |
|
12999 m height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13000 (m magnifiedBy:(fh / m height)) onDevice:device |
|
13001 ] ifFalse:[ |
|
13002 m onDevice:device. |
|
13003 ]. |
|
13004 ] |
|
13005 |
|
13006 ! |
12727 ! |
13007 |
12728 |
13008 stopIcon |
12729 stopIcon |
13009 "answer an icon to mark breakPointed methods" |
12730 "answer an icon to mark breakPointed methods" |
13010 |
12731 |
13011 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12732 ^ self fetchIcon:#stop selector:#stopIcon |
13012 |
|
13013 ^ icons at:#stop ifAbsentPut:[ |
|
13014 |fh| |
|
13015 |
|
13016 StopIcon isNil ifTrue: [ |
|
13017 StopIcon := self class stopIcon onDevice:Display. |
|
13018 StopIcon clearMaskedPixels. |
|
13019 ]. |
|
13020 StopIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13021 (StopIcon magnifiedBy:(fh / StopIcon height)) onDevice:device |
|
13022 ] ifFalse:[ |
|
13023 StopIcon onDevice:device. |
|
13024 ]. |
|
13025 ] |
|
13026 |
|
13027 "Modified: / 26.7.1998 / 13:58:00 / cg" |
|
13028 ! |
12733 ! |
13029 |
12734 |
13030 tabListIcon |
12735 tabListIcon |
13031 "answer an icon to mark tabList spec methods" |
12736 "answer an icon to mark tabList spec methods" |
13032 |
12737 |
13033 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12738 ^ self fetchIcon:#tabList selector:#tabListIcon |
13034 |
|
13035 ^ icons at:#tabList ifAbsentPut:[ |
|
13036 |fh| |
|
13037 |
|
13038 TabListIcon isNil ifTrue: [ |
|
13039 TabListIcon := self class tabListIcon onDevice:Display. |
|
13040 TabListIcon clearMaskedPixels. |
|
13041 ]. |
|
13042 TabListIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13043 (TabListIcon magnifiedBy:(fh / TabListIcon height)) onDevice:device |
|
13044 ] ifFalse:[ |
|
13045 TabListIcon onDevice:device. |
|
13046 ]. |
|
13047 ] |
|
13048 |
|
13049 "Modified: / 26.7.1998 / 14:02:11 / cg" |
|
13050 ! |
12739 ! |
13051 |
12740 |
13052 tableColumnsIcon |
12741 tableColumnsIcon |
13053 "answer an icon to mark tableColumns spec methods" |
12742 "answer an icon to mark tableColumns spec methods" |
13054 |
12743 |
13055 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12744 ^ self fetchIcon:#tableColumns selector:#tableColumnsIcon |
13056 |
|
13057 ^ icons at:#tableColumns ifAbsentPut:[ |
|
13058 |fh| |
|
13059 |
|
13060 TableColumnsIcon isNil ifTrue: [ |
|
13061 TableColumnsIcon := self class tableColumnsIcon onDevice:Display. |
|
13062 TableColumnsIcon clearMaskedPixels. |
|
13063 ]. |
|
13064 TableColumnsIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13065 (TableColumnsIcon magnifiedBy:(fh / TableColumnsIcon height)) onDevice:device |
|
13066 ] ifFalse:[ |
|
13067 TableColumnsIcon onDevice:device. |
|
13068 ]. |
|
13069 ] |
|
13070 |
|
13071 "Modified: / 26.7.1998 / 14:01:41 / cg" |
|
13072 ! |
12745 ! |
13073 |
12746 |
13074 timeIcon |
12747 timeIcon |
13075 "answer an icon to mark timed methods" |
12748 "answer an icon to mark timed methods" |
13076 |
12749 |
13077 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12750 ^ self fetchIcon:#time selector:#timeIcon |
13078 |
|
13079 ^ icons at:#time ifAbsentPut:[ |
|
13080 |fh| |
|
13081 |
|
13082 TimeIcon isNil ifTrue: [ |
|
13083 TimeIcon := self class timeIcon onDevice:Display. |
|
13084 TimeIcon clearMaskedPixels. |
|
13085 ]. |
|
13086 TimeIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13087 (TimeIcon magnifiedBy:(fh / TimeIcon height)) onDevice:device |
|
13088 ] ifFalse:[ |
|
13089 TimeIcon onDevice:device. |
|
13090 ]. |
|
13091 ] |
|
13092 |
|
13093 "Modified: / 26.7.1998 / 14:00:34 / cg" |
|
13094 ! |
12751 ! |
13095 |
12752 |
13096 traceIcon |
12753 traceIcon |
13097 "answer an icon to mark traced methods" |
12754 "answer an icon to mark traced methods" |
13098 |
12755 |
13099 icons isNil ifTrue:[icons := IdentityDictionary new]. |
12756 ^ self fetchIcon:#trace selector:#traceIcon |
13100 |
|
13101 ^ icons at:#trace ifAbsentPut:[ |
|
13102 |fh| |
|
13103 |
|
13104 TraceIcon isNil ifTrue: [ |
|
13105 TraceIcon := self class traceIcon onDevice:Display. |
|
13106 TraceIcon clearMaskedPixels. |
|
13107 ]. |
|
13108 TraceIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
13109 (TraceIcon magnifiedBy:(fh / TraceIcon height)) onDevice:device |
|
13110 ] ifFalse:[ |
|
13111 TraceIcon onDevice:device. |
|
13112 ]. |
|
13113 ] |
|
13114 |
|
13115 "Modified: / 26.7.1998 / 14:01:02 / cg" |
|
13116 ! ! |
12757 ! ! |
13117 |
12758 |
13118 !BrowserView methodsFor:'syntax coloring'! |
12759 !BrowserView methodsFor:'syntax coloring'! |
13119 |
12760 |
13120 startSyntaxHighlightProcess |
12761 startSyntaxHighlightProcess |