equal
deleted
inserted
replaced
20 |
20 |
21 Behavior comment:' |
21 Behavior comment:' |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.44 1995-07-28 02:35:49 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.45 1995-08-08 00:45:54 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !Behavior class methodsFor:'documentation'! |
28 !Behavior class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.44 1995-07-28 02:35:49 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.45 1995-08-08 00:45:54 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
1980 |theClass| |
1980 |theClass| |
1981 |
1981 |
1982 theClass := superclass. |
1982 theClass := superclass. |
1983 [theClass notNil] whileTrue:[ |
1983 [theClass notNil] whileTrue:[ |
1984 (theClass == aClass) ifTrue:[^ true]. |
1984 (theClass == aClass) ifTrue:[^ true]. |
1985 theClass := theClass superclass |
1985 %{ |
|
1986 if (__isBehaviorLike(theClass)) { |
|
1987 theClass = __ClassInstPtr(theClass)->c_superclass; |
|
1988 } else { |
|
1989 theClass = nil; |
|
1990 } |
|
1991 %}. |
|
1992 "/ theClass := theClass superclass. |
1986 ]. |
1993 ]. |
1987 ^ false |
1994 ^ false |
1988 |
1995 |
1989 " |
1996 " |
1990 String isSubclassOf:Collection |
1997 String isSubclassOf:Collection |