'From Smalltalk/X, Version:3.3.1 on 14-jan-1998 at 12:04:33 am'                 !

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


!JavaProcess methodsFor:'accessing'!

suspendedContext
    |con|

    suspendedContext notNil ifTrue:[^ suspendedContext].

    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: / 13.1.1998 / 09:40:07 / 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.9 1998/01/16 16:12:38 cg Exp $'
! !