equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:47:46 am' ! |
13 'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 12:06:42 am' ! |
14 |
14 |
15 ClassDescription subclass:#Class |
15 ClassDescription subclass:#Class |
16 instanceVariableNames:'name category classvars comment subclasses classFilename package |
16 instanceVariableNames:'name category classvars comment subclasses classFilename package |
17 revision primitiveSpec environment signature hook' |
17 revision primitiveSpec environment signature hook' |
18 classVariableNames:'OldMethods' |
18 classVariableNames:'OldMethods' |
3150 (owner := self owningClass) notNil ifTrue:[^ owner binaryRevision]. |
3150 (owner := self owningClass) notNil ifTrue:[^ owner binaryRevision]. |
3151 revision notNil ifTrue:[ |
3151 revision notNil ifTrue:[ |
3152 c := revision first. |
3152 c := revision first. |
3153 c == $$ ifTrue:[ |
3153 c == $$ ifTrue:[ |
3154 info := Class revisionInfoFromString:revision. |
3154 info := Class revisionInfoFromString:revision. |
3155 info isNil ifTrue:[^ 0]. |
3155 info isNil ifTrue:[^ '0']. |
3156 ^ info at:#revision ifAbsent:0. |
3156 ^ info at:#revision ifAbsent:'0'. |
3157 ]. |
3157 ]. |
3158 c isDigit ifFalse:[ |
3158 c isDigit ifFalse:[ |
3159 ^ 0 |
3159 ^ '0' |
3160 ]. |
3160 ]. |
3161 ]. |
3161 ]. |
3162 |
3162 |
3163 ^ revision |
3163 ^ revision |
3164 |
3164 |
3177 SystemBrowser browseClasses:classes title:'classes which are not up-to-date' |
3177 SystemBrowser browseClasses:classes title:'classes which are not up-to-date' |
3178 " |
3178 " |
3179 |
3179 |
3180 "Created: 7.12.1995 / 10:58:47 / cg" |
3180 "Created: 7.12.1995 / 10:58:47 / cg" |
3181 "Modified: 1.4.1997 / 23:33:01 / stefan" |
3181 "Modified: 1.4.1997 / 23:33:01 / stefan" |
3182 "Modified: 23.5.1997 / 09:09:14 / cg" |
3182 "Modified: 9.9.1997 / 12:05:41 / cg" |
3183 ! |
3183 ! |
3184 |
3184 |
3185 packageSourceCodeInfo |
3185 packageSourceCodeInfo |
3186 "{ Pragma: +optSpace }" |
3186 "{ Pragma: +optSpace }" |
3187 |
3187 |
3818 ! ! |
3818 ! ! |
3819 |
3819 |
3820 !Class class methodsFor:'documentation'! |
3820 !Class class methodsFor:'documentation'! |
3821 |
3821 |
3822 version |
3822 version |
3823 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.290 1997-09-08 18:05:32 cg Exp $' |
3823 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.291 1997-09-09 17:26:58 cg Exp $' |
3824 ! ! |
3824 ! ! |