19 lastMethodCategory aspect variableListView fullProtocol |
19 lastMethodCategory aspect variableListView fullProtocol |
20 lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage |
20 lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage |
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 coloringProcess |
23 showAllNamespaces classInstVarsInVarList coloringProcess |
24 codeModified autoSearchIgnoreCase' |
24 codeModified autoSearchIgnoreCase icons' |
25 classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon |
25 classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon |
26 StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon |
26 StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon |
27 TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon |
27 TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon |
28 ShowResourceIcons ClassHistory' |
28 ShowResourceIcons ClassHistory' |
29 poolDictionaries:'' |
29 poolDictionaries:'' |
270 |
275 |
271 "Do not manually edit this!! If it is corrupted, |
276 "Do not manually edit this!! If it is corrupted, |
272 the ImageEditor may not be able to read the specification." |
277 the ImageEditor may not be able to read the specification." |
273 |
278 |
274 " |
279 " |
|
280 self imageIcon inspect |
275 ImageEditor openOnClass:self andSelector:#imageIcon |
281 ImageEditor openOnClass:self andSelector:#imageIcon |
276 " |
282 " |
277 |
283 |
278 <resource: #image> |
284 <resource: #image> |
279 |
285 |
280 ^Icon |
286 ^Icon |
281 constantNamed:#'BrowserView imageIcon' |
287 constantNamed:#'BrowserView imageIcon' |
282 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]! |
288 ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHB@ HB@ HB@ HB@@@@@@DB@ HB@ HB@ HB@ @@@@@A@@@@@@@@@@@@@@D@@@@@@PLC@0LC@0LC@0LC@@@@@@DC@0LC@0LC@0LC@0@@@@@A@0LC@0LC@0LC@0L@@@@@@PLC@0LC@0LC@0LC@@@@@@DC@0LC@0LC@0LC@0@@@@@A@0LC@0LC@0LC@0L@@@@@@PLC@0LC@0LC@0LC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 174 218 230 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@O?8??#?>O?8??#?>O?8??#?>O?8??#?>@@@@@@b') ; yourself); yourself] |
|
289 |
|
290 "Modified: / 26.7.1998 / 21:30:55 / cg" |
|
291 ! |
283 |
292 |
284 menuIcon |
293 menuIcon |
285 "This resource specification was automatically generated |
294 "This resource specification was automatically generated |
286 by the ImageEditor of ST/X." |
295 by the ImageEditor of ST/X." |
287 |
296 |
10707 !BrowserView methodsFor:'private - defaults'! |
10719 !BrowserView methodsFor:'private - defaults'! |
10708 |
10720 |
10709 canvasIcon |
10721 canvasIcon |
10710 "answer an icon to mark canvas (windowSpec) methods" |
10722 "answer an icon to mark canvas (windowSpec) methods" |
10711 |
10723 |
10712 CanvasIcon isNil ifTrue: [ |
10724 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10713 CanvasIcon := self class canvasIcon onDevice: device. |
10725 |
10714 CanvasIcon clearMaskedPixels |
10726 ^ icons at:#canvas ifAbsentPut:[ |
10715 ]. |
10727 |fh| |
10716 ^CanvasIcon |
10728 |
|
10729 CanvasIcon isNil ifTrue: [ |
|
10730 CanvasIcon := self class canvasIcon onDevice:Display. |
|
10731 CanvasIcon clearMaskedPixels. |
|
10732 ]. |
|
10733 CanvasIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10734 (CanvasIcon magnifiedBy:(fh / CanvasIcon height)) onDevice:device |
|
10735 ] ifFalse:[ |
|
10736 CanvasIcon onDevice:device. |
|
10737 ]. |
|
10738 ] |
|
10739 |
|
10740 "Modified: / 26.7.1998 / 14:04:10 / cg" |
10717 ! |
10741 ! |
10718 |
10742 |
10719 commentEmphasis |
10743 commentEmphasis |
10720 ^ Text |
10744 ^ Text |
10721 addEmphasis:(UserPreferences current commentEmphasis) |
10745 addEmphasis:(UserPreferences current commentEmphasis) |
10737 ! |
10761 ! |
10738 |
10762 |
10739 helpIcon |
10763 helpIcon |
10740 "answer an icon to mark help spec methods" |
10764 "answer an icon to mark help spec methods" |
10741 |
10765 |
10742 HelpIcon isNil ifTrue: [ |
10766 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10743 HelpIcon := self class helpIcon onDevice: device. |
10767 |
10744 HelpIcon clearMaskedPixels |
10768 ^ icons at:#help ifAbsentPut:[ |
10745 ]. |
10769 |fh| |
10746 ^HelpIcon |
10770 |
|
10771 HelpIcon isNil ifTrue: [ |
|
10772 HelpIcon := self class helpIcon onDevice:Display. |
|
10773 HelpIcon clearMaskedPixels. |
|
10774 ]. |
|
10775 HelpIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10776 (HelpIcon magnifiedBy:(fh / HelpIcon height)) onDevice:device |
|
10777 ] ifFalse:[ |
|
10778 HelpIcon onDevice:device. |
|
10779 ]. |
|
10780 ] |
|
10781 |
|
10782 "Modified: / 26.7.1998 / 14:03:50 / cg" |
10747 ! |
10783 ! |
10748 |
10784 |
10749 hierarchicalListIcon |
10785 hierarchicalListIcon |
10750 "answer an icon to mark hierarchicalList spec methods" |
10786 "answer an icon to mark hierarchicalList spec methods" |
10751 |
10787 |
10752 HierarchicalListIcon isNil ifTrue: [ |
10788 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10753 HierarchicalListIcon := self class hierarchicalListIcon onDevice: device. |
10789 |
10754 HierarchicalListIcon clearMaskedPixels |
10790 ^ icons at:#hierarchicalList ifAbsentPut:[ |
10755 ]. |
10791 |fh| |
10756 ^HierarchicalListIcon |
10792 |
10757 |
10793 HierarchicalListIcon isNil ifTrue: [ |
|
10794 HierarchicalListIcon := self class hierarchicalListIcon onDevice:Display. |
|
10795 HierarchicalListIcon clearMaskedPixels. |
|
10796 ]. |
|
10797 HierarchicalListIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10798 (HierarchicalListIcon magnifiedBy:(fh / ImageIcon height)) onDevice:device |
|
10799 ] ifFalse:[ |
|
10800 HierarchicalListIcon onDevice:device. |
|
10801 ]. |
|
10802 ] |
|
10803 |
|
10804 "Modified: / 26.7.1998 / 14:03:31 / cg" |
10758 ! |
10805 ! |
10759 |
10806 |
10760 imageIcon |
10807 imageIcon |
10761 "answer an icon to mark image spec methods" |
10808 "answer an icon to mark image spec methods" |
10762 |
10809 |
10763 ImageIcon isNil ifTrue: [ |
10810 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10764 ImageIcon := self class imageIcon onDevice: device. |
10811 |
10765 ImageIcon clearMaskedPixels |
10812 ^ icons at:#image ifAbsentPut:[ |
10766 ]. |
10813 |fh| |
10767 ^ImageIcon |
10814 |
|
10815 ImageIcon isNil ifTrue: [ |
|
10816 ImageIcon := self class imageIcon onDevice:Display. |
|
10817 ImageIcon clearMaskedPixels. |
|
10818 ]. |
|
10819 ImageIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10820 (ImageIcon magnifiedBy:(fh / ImageIcon height)) onDevice:device |
|
10821 ] ifFalse:[ |
|
10822 ImageIcon onDevice:device. |
|
10823 ]. |
|
10824 ] |
|
10825 |
|
10826 "Modified: / 26.7.1998 / 14:02:58 / cg" |
10768 ! |
10827 ! |
10769 |
10828 |
10770 menuIcon |
10829 menuIcon |
10771 "answer an icon to mark menu spec methods" |
10830 "answer an icon to mark menu spec methods" |
10772 |
10831 |
10773 MenuIcon isNil ifTrue: [ |
10832 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10774 MenuIcon := self class menuIcon onDevice: device. |
10833 |
10775 MenuIcon clearMaskedPixels |
10834 ^ icons at:#menu ifAbsentPut:[ |
10776 ]. |
10835 |fh| |
10777 ^MenuIcon |
10836 |
|
10837 MenuIcon isNil ifTrue: [ |
|
10838 MenuIcon := self class menuIcon onDevice:Display. |
|
10839 MenuIcon clearMaskedPixels. |
|
10840 ]. |
|
10841 MenuIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10842 (MenuIcon magnifiedBy:(fh / MenuIcon height)) onDevice:device |
|
10843 ] ifFalse:[ |
|
10844 MenuIcon onDevice:device. |
|
10845 ]. |
|
10846 ] |
|
10847 |
|
10848 "Modified: / 26.7.1998 / 14:02:40 / cg" |
10778 ! |
10849 ! |
10779 |
10850 |
10780 programMenuIcon |
10851 programMenuIcon |
10781 "answer an icon to mark programmed-menu (menuSpec) methods" |
10852 "answer an icon to mark programmed-menu (menuSpec) methods" |
10782 |
10853 |
10787 ! |
10858 ! |
10788 |
10859 |
10789 stopIcon |
10860 stopIcon |
10790 "answer an icon to mark breakPointed methods" |
10861 "answer an icon to mark breakPointed methods" |
10791 |
10862 |
10792 StopIcon isNil ifTrue: [ |
10863 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10793 StopIcon := self class stopIcon onDevice: device. |
10864 |
10794 StopIcon clearMaskedPixels |
10865 ^ icons at:#stop ifAbsentPut:[ |
10795 ]. |
10866 |fh| |
10796 ^StopIcon |
10867 |
|
10868 StopIcon isNil ifTrue: [ |
|
10869 StopIcon := self class stopIcon onDevice:Display. |
|
10870 StopIcon clearMaskedPixels. |
|
10871 ]. |
|
10872 StopIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10873 (StopIcon magnifiedBy:(fh / StopIcon height)) onDevice:device |
|
10874 ] ifFalse:[ |
|
10875 StopIcon onDevice:device. |
|
10876 ]. |
|
10877 ] |
|
10878 |
|
10879 "Modified: / 26.7.1998 / 13:58:00 / cg" |
10797 ! |
10880 ! |
10798 |
10881 |
10799 tabListIcon |
10882 tabListIcon |
10800 "answer an icon to mark tabList spec methods" |
10883 "answer an icon to mark tabList spec methods" |
10801 |
10884 |
10802 TabListIcon isNil ifTrue: [ |
10885 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10803 TabListIcon := self class tabListIcon onDevice: device. |
10886 |
10804 TabListIcon clearMaskedPixels |
10887 ^ icons at:#tabList ifAbsentPut:[ |
10805 ]. |
10888 |fh| |
10806 ^TabListIcon |
10889 |
|
10890 TabListIcon isNil ifTrue: [ |
|
10891 TabListIcon := self class tabListIcon onDevice:Display. |
|
10892 TabListIcon clearMaskedPixels. |
|
10893 ]. |
|
10894 TabListIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10895 (TabListIcon magnifiedBy:(fh / TabListIcon height)) onDevice:device |
|
10896 ] ifFalse:[ |
|
10897 TabListIcon onDevice:device. |
|
10898 ]. |
|
10899 ] |
|
10900 |
|
10901 "Modified: / 26.7.1998 / 14:02:11 / cg" |
10807 ! |
10902 ! |
10808 |
10903 |
10809 tableColumnsIcon |
10904 tableColumnsIcon |
10810 "answer an icon to mark tableColumns spec methods" |
10905 "answer an icon to mark tableColumns spec methods" |
10811 |
10906 |
10812 TableColumnsIcon isNil ifTrue: [ |
10907 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10813 TableColumnsIcon := self class tableColumnsIcon onDevice: device. |
10908 |
10814 TableColumnsIcon clearMaskedPixels |
10909 ^ icons at:#tableColumns ifAbsentPut:[ |
10815 ]. |
10910 |fh| |
10816 ^TableColumnsIcon |
10911 |
|
10912 TableColumnsIcon isNil ifTrue: [ |
|
10913 TableColumnsIcon := self class tableColumnsIcon onDevice:Display. |
|
10914 TableColumnsIcon clearMaskedPixels. |
|
10915 ]. |
|
10916 TableColumnsIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10917 (TableColumnsIcon magnifiedBy:(fh / TableColumnsIcon height)) onDevice:device |
|
10918 ] ifFalse:[ |
|
10919 TableColumnsIcon onDevice:device. |
|
10920 ]. |
|
10921 ] |
|
10922 |
|
10923 "Modified: / 26.7.1998 / 14:01:41 / cg" |
10817 ! |
10924 ! |
10818 |
10925 |
10819 timeIcon |
10926 timeIcon |
10820 "answer an icon to mark timed methods" |
10927 "answer an icon to mark timed methods" |
10821 |
10928 |
10822 TimeIcon isNil ifTrue: [ |
10929 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10823 TimeIcon := self class timeIcon onDevice: device. |
10930 |
10824 TimeIcon clearMaskedPixels |
10931 ^ icons at:#time ifAbsentPut:[ |
10825 ]. |
10932 |fh| |
10826 ^TimeIcon |
10933 |
|
10934 TimeIcon isNil ifTrue: [ |
|
10935 TimeIcon := self class timeIcon onDevice:Display. |
|
10936 TimeIcon clearMaskedPixels. |
|
10937 ]. |
|
10938 TimeIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10939 (TimeIcon magnifiedBy:(fh / TimeIcon height)) onDevice:device |
|
10940 ] ifFalse:[ |
|
10941 TimeIcon onDevice:device. |
|
10942 ]. |
|
10943 ] |
|
10944 |
|
10945 "Modified: / 26.7.1998 / 14:00:34 / cg" |
10827 ! |
10946 ! |
10828 |
10947 |
10829 traceIcon |
10948 traceIcon |
10830 "answer an icon to mark traced methods" |
10949 "answer an icon to mark traced methods" |
10831 |
10950 |
10832 TraceIcon isNil ifTrue: [ |
10951 icons isNil ifTrue:[icons := IdentityDictionary new]. |
10833 TraceIcon := self class traceIcon onDevice: device. |
10952 |
10834 TraceIcon clearMaskedPixels |
10953 ^ icons at:#trace ifAbsentPut:[ |
10835 ]. |
10954 |fh| |
10836 ^TraceIcon |
10955 |
|
10956 TraceIcon isNil ifTrue: [ |
|
10957 TraceIcon := self class traceIcon onDevice:Display. |
|
10958 TraceIcon clearMaskedPixels. |
|
10959 ]. |
|
10960 TraceIcon height > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
|
10961 (TraceIcon magnifiedBy:(fh / TraceIcon height)) onDevice:device |
|
10962 ] ifFalse:[ |
|
10963 TraceIcon onDevice:device. |
|
10964 ]. |
|
10965 ] |
|
10966 |
|
10967 "Modified: / 26.7.1998 / 14:01:02 / cg" |
10837 ! ! |
10968 ! ! |
10838 |
10969 |
10839 !BrowserView methodsFor:'syntax coloring'! |
10970 !BrowserView methodsFor:'syntax coloring'! |
10840 |
10971 |
10841 startSyntaxHighlightProcess |
10972 startSyntaxHighlightProcess |