equal
deleted
inserted
replaced
|
1 "{ Package: 'stx:libbasic' }" |
|
2 |
1 OSHandle subclass:#OSFileHandle |
3 OSHandle subclass:#OSFileHandle |
2 instanceVariableNames:'' |
4 instanceVariableNames:'' |
3 classVariableNames:'ConcreteClass' |
5 classVariableNames:'ConcreteClass' |
4 poolDictionaries:'' |
6 poolDictionaries:'' |
5 category:'System-Support' |
7 category:'System-Support' |
57 |
59 |
58 ! ! |
60 ! ! |
59 |
61 |
60 !OSFileHandle methodsFor:'finalization'! |
62 !OSFileHandle methodsFor:'finalization'! |
61 |
63 |
|
64 closeFile |
|
65 "close the underlying file" |
|
66 |
|
67 self subclassResponsibility |
|
68 |
|
69 ! |
|
70 |
62 disposed |
71 disposed |
|
72 "a filedescriptor was garbage collected - close the underlying file" |
63 |
73 |
|
74 self closeFile |
|
75 |
|
76 ! ! |
|
77 |
|
78 !OSFileHandle methodsFor:'release'! |
|
79 |
|
80 close |
|
81 "close the file" |
|
82 |
|
83 self closeFile. |
|
84 self unregisterForFinalization. |
64 |
85 |
65 |
86 |
66 ! ! |
87 ! ! |
67 |
88 |
68 !OSFileHandle class methodsFor:'documentation'! |
89 !OSFileHandle class methodsFor:'documentation'! |
69 |
90 |
70 version |
91 version |
71 ^ '$Header: /cvs/stx/stx/libbasic/OSFileHandle.st,v 1.1 1999-09-18 11:14:52 cg Exp $' |
92 ^ '$Header: /cvs/stx/stx/libbasic/OSFileHandle.st,v 1.2 2000-06-23 18:54:00 cg Exp $' |
72 ! ! |
93 ! ! |
73 OSFileHandle initialize! |
94 OSFileHandle initialize! |