equal
deleted
inserted
replaced
12 |
12 |
13 "{ Package: 'stx:libbasic' }" |
13 "{ Package: 'stx:libbasic' }" |
14 |
14 |
15 ExternalAddress subclass:#OSHandle |
15 ExternalAddress subclass:#OSHandle |
16 instanceVariableNames:'' |
16 instanceVariableNames:'' |
17 classVariableNames:'' |
17 classVariableNames:'Lobby' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Compatibility-ST80' |
19 category:'Compatibility-ST80' |
20 ! |
20 ! |
21 |
21 |
22 !OSHandle class methodsFor:'documentation'! |
22 !OSHandle class methodsFor:'documentation'! |
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 documentation |
38 documentation |
39 " |
39 " |
40 ST-80 compatibility class. |
40 Ongoing work: |
41 This may be required when existing code has to be ported to ST/X; |
41 extract handle specific operations and rewrite Streams, Sockets etc. |
42 however, it may not be complete and more protocol may be added in the future. |
42 to pass all work to these handles. |
43 The code here was created when public domain code (Manchester) had to |
|
44 be ported to ST/X and missing classes/methods were encountered, and code added |
|
45 by reasoning 'what the original class could probably do there'. |
|
46 |
43 |
47 [author:] |
44 [author:] |
48 Claus Gittinger |
45 Claus Gittinger |
49 " |
46 " |
|
47 ! ! |
|
48 |
|
49 !OSHandle class methodsFor:'initialization'! |
|
50 |
|
51 initialize |
|
52 Lobby := Registry new. |
50 ! ! |
53 ! ! |
51 |
54 |
52 !OSHandle class methodsFor:'Compatibility-VW'! |
55 !OSHandle class methodsFor:'Compatibility-VW'! |
53 |
56 |
54 currentOS |
57 currentOS |
78 "Created: / 30.10.2001 / 17:31:55 / cg" |
81 "Created: / 30.10.2001 / 17:31:55 / cg" |
79 ! ! |
82 ! ! |
80 |
83 |
81 !OSHandle methodsFor:'finalization'! |
84 !OSHandle methodsFor:'finalization'! |
82 |
85 |
|
86 finalizationLobby |
|
87 "answer a Registry used for finalization." |
|
88 |
|
89 ^ Lobby |
|
90 ! |
|
91 |
83 finalize |
92 finalize |
84 self subclassResponsibility |
93 self subclassResponsibility |
|
94 ! ! |
|
95 |
|
96 !OSHandle methodsFor:'queries'! |
|
97 |
|
98 isValid |
|
99 ^ self address ~~0 |
85 ! ! |
100 ! ! |
86 |
101 |
87 !OSHandle class methodsFor:'documentation'! |
102 !OSHandle class methodsFor:'documentation'! |
88 |
103 |
89 version |
104 version |
90 ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.10 2003-08-30 12:32:18 cg Exp $' |
105 ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.11 2006-02-08 18:27:36 cg Exp $' |
91 ! ! |
106 ! ! |
|
107 |
|
108 OSHandle initialize! |