equal
deleted
inserted
replaced
1898 Returns nil otherwise." |
1898 Returns nil otherwise." |
1899 |
1899 |
1900 ^ self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil |
1900 ^ self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil |
1901 ! |
1901 ! |
1902 |
1902 |
|
1903 hasImageResource |
|
1904 "return true, if this method is an image-resource method. |
|
1905 This is done by looking for a #image key in the methods resources." |
|
1906 |
|
1907 |resources| |
|
1908 |
|
1909 resources := self resources. |
|
1910 ^ resources notNil and:[ resources includesKey:#image ]. |
|
1911 ! |
|
1912 |
1903 hasPrimitiveCode |
1913 hasPrimitiveCode |
1904 "return true, if the method contains primitive code; false if not. |
1914 "return true, if the method contains primitive code; false if not. |
1905 Uses Parser to parse methods source and get the information." |
1915 Uses Parser to parse methods source and get the information." |
1906 |
1916 |
1907 |src| |
1917 |src| |
2900 ! ! |
2910 ! ! |
2901 |
2911 |
2902 !Method class methodsFor:'documentation'! |
2912 !Method class methodsFor:'documentation'! |
2903 |
2913 |
2904 version |
2914 version |
2905 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.337 2009-11-06 10:23:52 cg Exp $' |
2915 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.338 2009-11-07 20:12:07 cg Exp $' |
2906 ! |
2916 ! |
2907 |
2917 |
2908 version_CVS |
2918 version_CVS |
2909 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.337 2009-11-06 10:23:52 cg Exp $' |
2919 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.338 2009-11-07 20:12:07 cg Exp $' |
2910 ! ! |
2920 ! ! |
2911 |
2921 |
2912 Method initialize! |
2922 Method initialize! |