equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Block subclass:#CheapBlock |
13 Block subclass:#CheapBlock |
14 instanceVariableNames:'selfValue method' |
14 instanceVariableNames:'selfValue method' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Kernel-Methods' |
17 category:'Kernel-Methods' |
18 ! |
18 ! |
19 |
19 |
20 !CheapBlock class methodsFor:'documentation'! |
20 !CheapBlock class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
47 |
47 |
48 method <Method> method where block was created |
48 method <Method> method where block was created |
49 |
49 |
50 NOTICE: layout known by runtime system and compiler - do not change |
50 NOTICE: layout known by runtime system and compiler - do not change |
51 " |
51 " |
52 ! |
52 ! ! |
53 |
53 |
54 version |
54 !CheapBlock class methodsFor:'queries'! |
55 ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.10 1996-02-01 19:44:13 cg Exp $' |
55 |
|
56 isBuiltInClass |
|
57 "this class is known by the run-time-system" |
|
58 |
|
59 ^ self == CheapBlock |
|
60 |
|
61 "Created: 16.4.1996 / 11:25:23 / cg" |
56 ! ! |
62 ! ! |
57 |
63 |
58 !CheapBlock methodsFor:'accessing'! |
64 !CheapBlock methodsFor:'accessing'! |
59 |
65 |
60 method |
66 method |
99 currently, some cheap blocks don't know where they have been created |
105 currently, some cheap blocks don't know where they have been created |
100 " |
106 " |
101 aStream nextPutAll:' ??? (optimized)'. |
107 aStream nextPutAll:' ??? (optimized)'. |
102 ^ self |
108 ^ self |
103 ! ! |
109 ! ! |
|
110 |
|
111 !CheapBlock class methodsFor:'documentation'! |
|
112 |
|
113 version |
|
114 ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.11 1996-04-16 09:27:45 cg Exp $' |
|
115 ! ! |