hg/stx-libbasic: OSHandle.st@a634006d10be (annotated)

5409 9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	1	"{ Package: 'stx:libbasic' }"
9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	2
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	ExternalAddress subclass:#OSHandle
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
5409 9b5890348f9c * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	5	classVariableNames:''
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	7	category:'Compatibility-ST80'
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	11	!OSHandle class methodsFor:'Compatibility - ST80'!
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	12
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	13	currentOS
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	14	"ST-80 compatibility."
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	15
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	16	"/ mhmh what does ST80/VW returned here ?
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	17
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	18	OperatingSystem isUNIXlike ifTrue:[^ #unix].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	19	OperatingSystem isOS2like ifTrue:[^ #os2].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	20	OperatingSystem isMSWINDOWSlike ifTrue:[^ #windows].
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	21	^ #unknown
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	22	! !
a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	23
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!OSHandle methodsFor:'finalization'!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	disposed
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	self subclassResponsibility
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	! !
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!OSHandle class methodsFor:'documentation'!
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	version
5740 a634006d10be checkin from browser Claus Gittinger <cg@exept.de> parents: 5409 diff changeset	33	^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.3 2000-12-08 17:08:59 cg Exp $'
4763 d15c41a66ec4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 08 Dec 2000 18:08:59 +0100
changeset 5740	a634006d10be
parent 5409	9b5890348f9c
child 5966	f0a8b760adf4
permissions	-rw-r--r--