2839 "return false, if this context is to be skipped. |
2839 "return false, if this context is to be skipped. |
2840 Here, we hide some wellKnown methods, which are usually |
2840 Here, we hide some wellKnown methods, which are usually |
2841 not too interesting; the set of methods which are suppressed |
2841 not too interesting; the set of methods which are suppressed |
2842 is my (claus's) own choice." |
2842 is my (claus's) own choice." |
2843 |
2843 |
2844 |sel rec mClass| |
2844 |sel rec mClass |
|
2845 sender senderReceiver senderSelector senderReceiverClass| |
2845 |
2846 |
2846 verboseBacktrace ifTrue:[^ true]. |
2847 verboseBacktrace ifTrue:[^ true]. |
2847 |
2848 |
2848 rec := aContext receiver. |
2849 rec := aContext receiver. |
2849 sel := aContext selector. |
2850 sel := aContext selector. |
2850 mClass := aContext methodClass. |
2851 mClass := aContext methodClass. |
2851 |
2852 |
|
2853 sender := aContext sender. |
|
2854 sender notNil ifTrue:[ |
|
2855 senderSelector := sender selector. |
|
2856 senderReceiver := sender receiver. |
|
2857 senderReceiverClass := senderReceiver class. |
|
2858 ]. |
|
2859 |
2852 sel == #withCursor:do: ifTrue:[ |
2860 sel == #withCursor:do: ifTrue:[ |
2853 (mClass == WindowGroup) ifTrue:[^ false]. |
2861 (mClass == WindowGroup) ifTrue:[^ false]. |
2854 (mClass == TopView) ifTrue:[^ false]. |
2862 (mClass == TopView) ifTrue:[^ false]. |
2855 ]. |
2863 ]. |
2856 (sel == #withExecuteCursorDo: |
2864 (sel == #withExecuteCursorDo: |
2857 or:[sel == #withWaitCursorDo:]) ifTrue:[ |
2865 or:[sel == #withWaitCursorDo:]) ifTrue:[ |
2858 (mClass == DisplaySurface) ifTrue:[^ false]. |
2866 (mClass == DisplaySurface) ifTrue:[^ false]. |
2859 ]. |
2867 ]. |
|
2868 |
|
2869 sel == #do: ifTrue:[ |
|
2870 mClass == Array ifTrue:[^ false]. |
|
2871 mClass == OrderedCollection ifTrue:[^ false]. |
|
2872 ]. |
|
2873 (sel == #perform: |
|
2874 or:[sel == #perform:with: |
|
2875 or:[sel == #perform:with:with: |
|
2876 or:[sel == #perform:with:with:with: |
|
2877 or:[sel == #perform:with:with:with:with:]]]]) |
|
2878 ifTrue:[ |
|
2879 mClass == Array ifTrue:[^ false]. |
|
2880 mClass == OrderedCollection ifTrue:[^ false]. |
|
2881 ]. |
|
2882 |
|
2883 sel == #valueWithReceiver:arguments:selector:search:sender: ifTrue:[^ false]. |
2860 |
2884 |
2861 (mClass == Object) ifTrue:[ |
2885 (mClass == Object) ifTrue:[ |
2862 (sel startsWith:'perform:') ifTrue:[^ false] |
2886 (sel startsWith:'perform:') ifTrue:[^ false] |
2863 ]. |
2887 ]. |
2864 |
2888 |
2882 sel == #value:value:value:value: ifTrue:[^ false]. |
2906 sel == #value:value:value:value: ifTrue:[^ false]. |
2883 sel == #value:value:value:value:Value: ifTrue:[^ false]. |
2907 sel == #value:value:value:value:Value: ifTrue:[^ false]. |
2884 sel == #value:value:value:value:value:value: ifTrue:[^ false]. |
2908 sel == #value:value:value:value:value:value: ifTrue:[^ false]. |
2885 ]. |
2909 ]. |
2886 |
2910 |
2887 "/ aContext isBlockContext ifTrue:[ |
2911 aContext isBlockContext ifTrue:[ |
2888 "/ sel == #value ifTrue:[^ false]. |
2912 "/ sel == #value ifTrue:[^ false]. |
2889 "/ sel == #value: ifTrue:[^ false]. |
2913 "/ sel == #value: ifTrue:[^ false]. |
2890 "/ sel == #value:value: ifTrue:[^ false]. |
2914 "/ sel == #value:value: ifTrue:[^ false]. |
2891 "/ sel == #value:value:value: ifTrue:[^ false]. |
2915 "/ sel == #value:value:value: ifTrue:[^ false]. |
2892 "/ sel == #value:value:value:value: ifTrue:[^ false]. |
2916 "/ sel == #value:value:value:value: ifTrue:[^ false]. |
2893 "/ sel == #value:value:value:value:Value: ifTrue:[^ false]. |
2917 "/ sel == #value:value:value:value:Value: ifTrue:[^ false]. |
2894 "/ sel == #value:value:value:value:value:value: ifTrue:[^ false]. |
2918 "/ sel == #value:value:value:value:value:value: ifTrue:[^ false]. |
2895 "/ ]. |
2919 |
|
2920 "/ (senderSelector == #answer:do:) ifTrue:[ |
|
2921 "/ senderReceiverClass == QuerySignal ifTrue:[ |
|
2922 "/ ^ false |
|
2923 "/ ] |
|
2924 "/ ] |
|
2925 ]. |
2896 |
2926 |
2897 ((mClass == Signal) |
2927 ((mClass == Signal) |
2898 or:[(mClass == QuerySignal) |
2928 or:[(mClass == QuerySignal) |
2899 or:[mClass == SignalSet]] |
2929 or:[mClass == SignalSet]] |
2900 ) ifTrue:[ |
2930 ) ifTrue:[ |
2901 sel == #handle:do: ifTrue:[^ false]. |
2931 sel == #handle:do: ifTrue:[^ false]. |
2902 ]. |
2932 ]. |
|
2933 (mClass == QuerySignal) ifTrue:[ |
|
2934 sel == #answer:do: ifTrue:[^ false]. |
|
2935 ]. |
2903 |
2936 |
2904 ^ true. |
2937 ^ true. |
2905 |
2938 |
2906 "Created: / 10.1.1997 / 21:01:39 / cg" |
2939 "Created: / 10.1.1997 / 21:01:39 / cg" |
2907 "Modified: / 4.1.1998 / 21:20:20 / cg" |
2940 "Modified: / 7.1.1998 / 11:04:01 / cg" |
2908 ! |
2941 ! |
2909 |
2942 |
2910 stepping |
2943 stepping |
2911 ^ stepping |
2944 ^ stepping |
2912 ! |
2945 ! |