equal
deleted
inserted
replaced
1590 s storeBinaryOn:stream manager:manager. |
1590 s storeBinaryOn:stream manager:manager. |
1591 sig storeBinaryOn:stream manager:manager. |
1591 sig storeBinaryOn:stream manager:manager. |
1592 |
1592 |
1593 name storeBinaryOn:stream manager:manager. |
1593 name storeBinaryOn:stream manager:manager. |
1594 flags storeBinaryOn:stream manager:manager. |
1594 flags storeBinaryOn:stream manager:manager. |
1595 (instvars isNil or:[instvars isEmpty]) ifTrue:[ |
1595 (instvars isEmptyOrNil) ifTrue:[ |
1596 s := nil |
1596 s := nil |
1597 ] ifFalse:[ |
1597 ] ifFalse:[ |
1598 s := self instanceVariableString |
1598 s := self instanceVariableString |
1599 ]. |
1599 ]. |
1600 s storeBinaryOn:stream manager:manager. |
1600 s storeBinaryOn:stream manager:manager. |
1601 |
1601 |
1602 (classvars isNil or:[classvars isEmpty]) ifTrue:[ |
1602 (classvars isEmptyOrNil) ifTrue:[ |
1603 s := nil |
1603 s := nil |
1604 ] ifFalse:[ |
1604 ] ifFalse:[ |
1605 s := self classVariableString |
1605 s := self classVariableString |
1606 ]. |
1606 ]. |
1607 s storeBinaryOn:stream manager:manager. |
1607 s storeBinaryOn:stream manager:manager. |
4719 aStream position1Based:pos. |
4719 aStream position1Based:pos. |
4720 ]. |
4720 ]. |
4721 src := aStream nextChunk. |
4721 src := aStream nextChunk. |
4722 aStream position:oldPos. |
4722 aStream position:oldPos. |
4723 |
4723 |
4724 (src isNil or:[src isEmpty]) ifTrue:[ |
4724 (src isEmptyOrNil) ifTrue:[ |
4725 'Class [info]: empty source for version-method' infoPrintCR. |
4725 'Class [info]: empty source for version-method' infoPrintCR. |
4726 ^ false |
4726 ^ false |
4727 ]. |
4727 ]. |
4728 |
4728 |
4729 versionFromSource := Class revisionStringFromSource:src. |
4729 versionFromSource := Class revisionStringFromSource:src. |
4918 ! ! |
4918 ! ! |
4919 |
4919 |
4920 !Class class methodsFor:'documentation'! |
4920 !Class class methodsFor:'documentation'! |
4921 |
4921 |
4922 version |
4922 version |
4923 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.488 2005-09-30 18:52:07 cg Exp $' |
4923 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.489 2006-01-17 12:18:40 cg Exp $' |
4924 ! ! |
4924 ! ! |