OSHandle.st
author Claus Gittinger <cg@exept.de>
Thu, 23 Aug 2001 23:07:35 +0200
changeset 5935 f7e334a3fdbb
parent 5740 a634006d10be
child 5966 f0a8b760adf4
permissions -rw-r--r--
chech exception/signal against nil, to avoid recursive error in handler, if it is asked via #accepts:

"{ Package: 'stx:libbasic' }"

ExternalAddress subclass:#OSHandle
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Compatibility-ST80'
!


!OSHandle class methodsFor:'Compatibility - ST80'!

currentOS
    "ST-80 compatibility."

    "/ mhmh what does ST80/VW returned here ?

    OperatingSystem isUNIXlike ifTrue:[^ #unix].
    OperatingSystem isOS2like  ifTrue:[^ #os2].
    OperatingSystem isMSWINDOWSlike  ifTrue:[^ #windows].
    ^ #unknown
! !

!OSHandle methodsFor:'finalization'!

disposed
    self subclassResponsibility
! !

!OSHandle class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.3 2000-12-08 17:08:59 cg Exp $'
! !