equal
deleted
inserted
replaced
27 |
27 |
28 Object comment:' |
28 Object comment:' |
29 COPYRIGHT (c) 1988 by Claus Gittinger |
29 COPYRIGHT (c) 1988 by Claus Gittinger |
30 All Rights Reserved |
30 All Rights Reserved |
31 |
31 |
32 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.43 1995-05-02 18:16:56 claus Exp $ |
32 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.44 1995-05-08 03:30:12 claus Exp $ |
33 '! |
33 '! |
34 |
34 |
35 !Object class methodsFor:'documentation'! |
35 !Object class methodsFor:'documentation'! |
36 |
36 |
37 copyright |
37 copyright |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 version |
51 version |
52 " |
52 " |
53 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.43 1995-05-02 18:16:56 claus Exp $ |
53 $Header: /cvs/stx/stx/libbasic/Object.st,v 1.44 1995-05-08 03:30:12 claus Exp $ |
54 " |
54 " |
55 ! |
55 ! |
56 |
56 |
57 documentation |
57 documentation |
58 " |
58 " |
678 false is returned here - the method is only redefined in Rectangle." |
678 false is returned here - the method is only redefined in Rectangle." |
679 |
679 |
680 ^ false |
680 ^ false |
681 ! |
681 ! |
682 |
682 |
|
683 isLayout |
|
684 "return true, if the receiver is some kind of layout; |
|
685 false is returned here - the method is only redefined in Layout." |
|
686 |
|
687 ^ false |
|
688 ! |
|
689 |
683 isForm |
690 isForm |
684 "return true, if the receiver is some kind of form; |
691 "return true, if the receiver is some kind of form; |
685 false is returned here - the method is only redefined in Form." |
692 false is returned here - the method is only redefined in Form." |
686 |
693 |
687 ^ false |
694 ^ false |
2118 } else if (n == WORDARRAY) { |
2125 } else if (n == WORDARRAY) { |
2119 if (__isSmallInteger(anObject)) { |
2126 if (__isSmallInteger(anObject)) { |
2120 val = _intVal(anObject); |
2127 val = _intVal(anObject); |
2121 if ((val >= 0) && (val <= 0xFFFF)) { |
2128 if ((val >= 0) && (val <= 0xFFFF)) { |
2122 if ((indx >= 0) && (indx < (nbytes / sizeof(short)))) { |
2129 if ((indx >= 0) && (indx < (nbytes / sizeof(short)))) { |
2123 sp = (short *)pFirst + indx; |
2130 sp = (short *)pFirst + indx; |
2124 *sp = val; |
2131 *sp = val; |
2125 RETURN ( anObject ); |
2132 RETURN ( anObject ); |
2126 } |
2133 } |
2127 } |
2134 } |
2128 } |
2135 } |
2129 } |
2136 } |
2130 } |
2137 } |
2723 nargs = _intVal(numberOfArgs); |
2730 nargs = _intVal(numberOfArgs); |
2724 if (nargs == 0) { |
2731 if (nargs == 0) { |
2725 if (aSelector != last0) { |
2732 if (aSelector != last0) { |
2726 ilc0.ilc_func = _SEND0; |
2733 ilc0.ilc_func = _SEND0; |
2727 if (ilc0.ilc_poly) { |
2734 if (ilc0.ilc_poly) { |
2728 __flushPolyCache(ilc0.ilc_poly); |
2735 __flushPolyCache(ilc0.ilc_poly); |
2729 ilc0.ilc_poly = 0; |
2736 ilc0.ilc_poly = 0; |
2730 } |
2737 } |
2731 last0 = aSelector; |
2738 last0 = aSelector; |
2732 } |
2739 } |
2733 #ifdef xxTHIS_CONTEXT |
2740 #ifdef xxTHIS_CONTEXT |
2734 ilc0.ilc_lineNo = __pilc->ilc_lineNo; |
2741 ilc0.ilc_lineNo = __pilc->ilc_lineNo; |
2735 #endif |
2742 #endif |
2747 switch (nargs) { |
2754 switch (nargs) { |
2748 case 1: |
2755 case 1: |
2749 if (aSelector != last1) { |
2756 if (aSelector != last1) { |
2750 ilc1.ilc_func = _SEND1; |
2757 ilc1.ilc_func = _SEND1; |
2751 if (ilc1.ilc_poly) { |
2758 if (ilc1.ilc_poly) { |
2752 __flushPolyCache(ilc1.ilc_poly); |
2759 __flushPolyCache(ilc1.ilc_poly); |
2753 ilc1.ilc_poly = 0; |
2760 ilc1.ilc_poly = 0; |
2754 } |
2761 } |
2755 last1 = aSelector; |
2762 last1 = aSelector; |
2756 } |
2763 } |
2757 #ifdef xxTHIS_CONTEXT |
2764 #ifdef xxTHIS_CONTEXT |
2758 ilc1.ilc_lineNo = __pilc->ilc_lineNo; |
2765 ilc1.ilc_lineNo = __pilc->ilc_lineNo; |
2759 #endif |
2766 #endif |
2761 |
2768 |
2762 case 2: |
2769 case 2: |
2763 if (aSelector != last2) { |
2770 if (aSelector != last2) { |
2764 ilc2.ilc_func = _SEND2; |
2771 ilc2.ilc_func = _SEND2; |
2765 if (ilc2.ilc_poly) { |
2772 if (ilc2.ilc_poly) { |
2766 __flushPolyCache(ilc2.ilc_poly); |
2773 __flushPolyCache(ilc2.ilc_poly); |
2767 ilc2.ilc_poly = 0; |
2774 ilc2.ilc_poly = 0; |
2768 } |
2775 } |
2769 last2 = aSelector; |
2776 last2 = aSelector; |
2770 } |
2777 } |
2771 #ifdef xxTHIS_CONTEXT |
2778 #ifdef xxTHIS_CONTEXT |
2772 ilc2.ilc_lineNo = __pilc->ilc_lineNo; |
2779 ilc2.ilc_lineNo = __pilc->ilc_lineNo; |
2773 #endif |
2780 #endif |
2776 |
2783 |
2777 case 3: |
2784 case 3: |
2778 if (aSelector != last3) { |
2785 if (aSelector != last3) { |
2779 ilc3.ilc_func = _SEND3; |
2786 ilc3.ilc_func = _SEND3; |
2780 if (ilc3.ilc_poly) { |
2787 if (ilc3.ilc_poly) { |
2781 __flushPolyCache(ilc3.ilc_poly); |
2788 __flushPolyCache(ilc3.ilc_poly); |
2782 ilc3.ilc_poly = 0; |
2789 ilc3.ilc_poly = 0; |
2783 } |
2790 } |
2784 last3 = aSelector; |
2791 last3 = aSelector; |
2785 } |
2792 } |
2786 #ifdef xxTHIS_CONTEXT |
2793 #ifdef xxTHIS_CONTEXT |
2787 ilc3.ilc_lineNo = __pilc->ilc_lineNo; |
2794 ilc3.ilc_lineNo = __pilc->ilc_lineNo; |
2788 #endif |
2795 #endif |
2791 |
2798 |
2792 case 4: |
2799 case 4: |
2793 if (aSelector != last4) { |
2800 if (aSelector != last4) { |
2794 ilc4.ilc_func = _SEND4; |
2801 ilc4.ilc_func = _SEND4; |
2795 if (ilc4.ilc_poly) { |
2802 if (ilc4.ilc_poly) { |
2796 __flushPolyCache(ilc4.ilc_poly); |
2803 __flushPolyCache(ilc4.ilc_poly); |
2797 ilc4.ilc_poly = 0; |
2804 ilc4.ilc_poly = 0; |
2798 } |
2805 } |
2799 last4 = aSelector; |
2806 last4 = aSelector; |
2800 } |
2807 } |
2801 #ifdef xxTHIS_CONTEXT |
2808 #ifdef xxTHIS_CONTEXT |
2802 ilc4.ilc_lineNo = __pilc->ilc_lineNo; |
2809 ilc4.ilc_lineNo = __pilc->ilc_lineNo; |
2803 #endif |
2810 #endif |
2806 |
2813 |
2807 case 5: |
2814 case 5: |
2808 if (aSelector != last5) { |
2815 if (aSelector != last5) { |
2809 ilc5.ilc_func = _SEND5; |
2816 ilc5.ilc_func = _SEND5; |
2810 if (ilc5.ilc_poly) { |
2817 if (ilc5.ilc_poly) { |
2811 __flushPolyCache(ilc5.ilc_poly); |
2818 __flushPolyCache(ilc5.ilc_poly); |
2812 ilc5.ilc_poly = 0; |
2819 ilc5.ilc_poly = 0; |
2813 } |
2820 } |
2814 last5 = aSelector; |
2821 last5 = aSelector; |
2815 } |
2822 } |
2816 #ifdef xxTHIS_CONTEXT |
2823 #ifdef xxTHIS_CONTEXT |
2817 ilc5.ilc_lineNo = __pilc->ilc_lineNo; |
2824 ilc5.ilc_lineNo = __pilc->ilc_lineNo; |
2818 #endif |
2825 #endif |
2821 |
2828 |
2822 case 6: |
2829 case 6: |
2823 if (aSelector != last6) { |
2830 if (aSelector != last6) { |
2824 ilc6.ilc_func = _SEND6; |
2831 ilc6.ilc_func = _SEND6; |
2825 if (ilc6.ilc_poly) { |
2832 if (ilc6.ilc_poly) { |
2826 __flushPolyCache(ilc6.ilc_poly); |
2833 __flushPolyCache(ilc6.ilc_poly); |
2827 ilc6.ilc_poly = 0; |
2834 ilc6.ilc_poly = 0; |
2828 } |
2835 } |
2829 last6 = aSelector; |
2836 last6 = aSelector; |
2830 } |
2837 } |
2831 #ifdef xxTHIS_CONTEXT |
2838 #ifdef xxTHIS_CONTEXT |
2832 ilc6.ilc_lineNo = __pilc->ilc_lineNo; |
2839 ilc6.ilc_lineNo = __pilc->ilc_lineNo; |
2833 #endif |
2840 #endif |
2837 |
2844 |
2838 case 7: |
2845 case 7: |
2839 if (aSelector != last7) { |
2846 if (aSelector != last7) { |
2840 ilc7.ilc_func = _SEND7; |
2847 ilc7.ilc_func = _SEND7; |
2841 if (ilc7.ilc_poly) { |
2848 if (ilc7.ilc_poly) { |
2842 __flushPolyCache(ilc7.ilc_poly); |
2849 __flushPolyCache(ilc7.ilc_poly); |
2843 ilc7.ilc_poly = 0; |
2850 ilc7.ilc_poly = 0; |
2844 } |
2851 } |
2845 last7 = aSelector; |
2852 last7 = aSelector; |
2846 } |
2853 } |
2847 #ifdef xxTHIS_CONTEXT |
2854 #ifdef xxTHIS_CONTEXT |
2848 ilc7.ilc_lineNo = __pilc->ilc_lineNo; |
2855 ilc7.ilc_lineNo = __pilc->ilc_lineNo; |
2849 #endif |
2856 #endif |