Process subclass:#JavaProcess
	instanceVariableNames:'suspendedContext'
	classVariableNames:''
	poolDictionaries:''
	category:'Java-Classes'
!


!JavaProcess methodsFor:'accessing'!

suspendedContext
    |con|

    suspendedContext notNil ifTrue:[^ suspendedContext].
    state ~~ #debug ifTrue:[
        "/ hide non-JAVA contexts ...
        con := super suspendedContext.
        [con notNil] whileTrue:[
            (con isMemberOf:JavaContext) ifTrue:[^ con].
            con := con sender.
        ].
    ].
    ^ super suspendedContext

    "Created: / 7.5.1996 / 09:02:03 / cg"
    "Modified: / 17.1.1998 / 12:53:57 / cg"
!

suspendedContext:aContext
    suspendedContext := aContext

    "Created: 7.5.1996 / 09:02:12 / cg"
! !

!JavaProcess methodsFor:'interrupts'!

clearInterruptActions
    interruptActions := nil

    "Created: 14.8.1997 / 17:27:22 / cg"
!

isInterrupted
    ^ interruptActions notNil

    "Created: 14.8.1997 / 17:26:40 / cg"
! !

!JavaProcess class methodsFor:'documentation'!

version
    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaProcess.st,v 1.10 1998/01/17 14:38:28 cg Exp $'
! !