equal
deleted
inserted
replaced
1562 writingChangeDo:aBlock |
1562 writingChangeDo:aBlock |
1563 "{ Pragma: +optSpace }" |
1563 "{ Pragma: +optSpace }" |
1564 |
1564 |
1565 "common helper to write a change record. |
1565 "common helper to write a change record. |
1566 Opens the changefile and executes aBlock passing the stream |
1566 Opens the changefile and executes aBlock passing the stream |
1567 as argument. WriteErrors are cought and will lead to a warning. |
1567 as argument. WriteErrors are caught and will lead to a warning. |
1568 The changefile is not kept open, to force the change to go to disk |
1568 The changefile is not kept open, to force the change to go to disk |
1569 as soon as possible - thus, in case of a crash, no changes should |
1569 as soon as possible - thus, in case of a crash, no changes should |
1570 be lost due to buffering." |
1570 be lost due to buffering." |
1571 |
1571 |
1572 self writingChangeWithTimeStamp:true do:aBlock |
1572 self writingChangeWithTimeStamp:true do:aBlock |
1587 writingChangeWithTimeStamp:doStampIt do:aBlock |
1587 writingChangeWithTimeStamp:doStampIt do:aBlock |
1588 "{ Pragma: +optSpace }" |
1588 "{ Pragma: +optSpace }" |
1589 |
1589 |
1590 "common helper to write a change record. |
1590 "common helper to write a change record. |
1591 Opens the changefile and executes aBlock passing the stream |
1591 Opens the changefile and executes aBlock passing the stream |
1592 as argument. WriteErrors are cought and will lead to a warning. |
1592 as argument. WriteErrors are caught and will lead to a warning. |
1593 The changefile is not kept open, to force the change to go to disk |
1593 The changefile is not kept open, to force the change to go to disk |
1594 as soon as possible - thus, in case of a crash, no changes should |
1594 as soon as possible - thus, in case of a crash, no changes should |
1595 be lost due to buffering. |
1595 be lost due to buffering. |
1596 Access to the change file is serialized via the accessLock; |
1596 Access to the change file is serialized via the accessLock; |
1597 this prevents the changefile to be corrupted when multiple users |
1597 this prevents the changefile to be corrupted when multiple users |
2473 ! ! |
2473 ! ! |
2474 |
2474 |
2475 !ClassDescription class methodsFor:'documentation'! |
2475 !ClassDescription class methodsFor:'documentation'! |
2476 |
2476 |
2477 version |
2477 version |
2478 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.47 1997-06-04 12:58:18 cg Exp $' |
2478 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.48 1997-06-16 18:20:26 cg Exp $' |
2479 ! ! |
2479 ! ! |
2480 ClassDescription initialize! |
2480 ClassDescription initialize! |