JavaProcess.st
author Claus Gittinger <cg@exept.de>
Thu, 22 Dec 2005 18:00:03 +0100
changeset 2125 cfa7b540ebf1
parent 2107 f4509f6767fa
child 2151 c0b6570c6f9b
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     1
"
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
     3
              All Rights Reserved
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     4
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     5
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     6
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     8
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
     9
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    10
 hereby transferred.
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    11
"
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    12
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    13
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    14
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    15
56
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    16
Process subclass:#JavaProcess
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    17
	instanceVariableNames:'suspendedContext'
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    18
	classVariableNames:''
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    19
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    20
	category:'Languages-Java-Classes'
56
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    21
!
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    22
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    23
!JavaProcess class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    24
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    25
copyright
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    26
"
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    27
 COPYRIGHT (c) 1997 by eXept Software AG
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    28
              All Rights Reserved
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    29
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    30
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    31
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    33
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    34
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    35
 hereby transferred.
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    36
"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents: 748
diff changeset
    37
454
38f590639d65 *** empty log message ***
cg
parents: 338
diff changeset
    38
! !
56
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    39
58
799961717413 checkin from browser
cg
parents: 56
diff changeset
    40
!JavaProcess methodsFor:'accessing'!
799961717413 checkin from browser
cg
parents: 56
diff changeset
    41
799961717413 checkin from browser
cg
parents: 56
diff changeset
    42
suspendedContext
261
d95d5a3cc475 lots of new stuff
cg
parents: 221
diff changeset
    43
    |con|
d95d5a3cc475 lots of new stuff
cg
parents: 221
diff changeset
    44
313
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    45
"/    suspendedContext notNil ifTrue:[^ suspendedContext].
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    46
"/    state ~~ #debug ifTrue:[
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    47
"/        "/ hide non-JAVA contexts ...
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    48
"/        con := super suspendedContext.
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    49
"/        [con notNil] whileTrue:[
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    50
"/            (con isMemberOf:JavaContext) ifTrue:[^ con].
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    51
"/            con := con sender.
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    52
"/        ].
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    53
"/    ].
261
d95d5a3cc475 lots of new stuff
cg
parents: 221
diff changeset
    54
    ^ super suspendedContext
58
799961717413 checkin from browser
cg
parents: 56
diff changeset
    55
261
d95d5a3cc475 lots of new stuff
cg
parents: 221
diff changeset
    56
    "Created: / 7.5.1996 / 09:02:03 / cg"
313
e2488feeb885 *** empty log message ***
cg
parents: 263
diff changeset
    57
    "Modified: / 4.2.1998 / 20:44:31 / cg"
58
799961717413 checkin from browser
cg
parents: 56
diff changeset
    58
!
799961717413 checkin from browser
cg
parents: 56
diff changeset
    59
799961717413 checkin from browser
cg
parents: 56
diff changeset
    60
suspendedContext:aContext
799961717413 checkin from browser
cg
parents: 56
diff changeset
    61
    suspendedContext := aContext
799961717413 checkin from browser
cg
parents: 56
diff changeset
    62
799961717413 checkin from browser
cg
parents: 56
diff changeset
    63
    "Created: 7.5.1996 / 09:02:12 / cg"
799961717413 checkin from browser
cg
parents: 56
diff changeset
    64
! !
799961717413 checkin from browser
cg
parents: 56
diff changeset
    65
221
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    66
!JavaProcess methodsFor:'interrupts'!
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    67
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    68
clearInterruptActions
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    69
    interruptActions := nil
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    70
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    71
    "Created: 14.8.1997 / 17:27:22 / cg"
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    72
!
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    73
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    74
isInterrupted
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    75
    ^ interruptActions notNil
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    76
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    77
    "Created: 14.8.1997 / 17:26:40 / cg"
338
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    78
!
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    79
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    80
markInterrupted
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    81
    super interruptWith:[]
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    82
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    83
    "Modified: / 10.4.1998 / 15:20:58 / cg"
34bf48e76cea checkin from browser
cg
parents: 313
diff changeset
    84
    "Created: / 10.4.1998 / 15:21:15 / cg"
221
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    85
! !
dc79f7c5c352 checkin from browser
cg
parents: 206
diff changeset
    86
133
adaf7cad0bc2 checkin from browser
cg
parents: 91
diff changeset
    87
!JavaProcess class methodsFor:'documentation'!
56
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    88
dfa8d757ccea intitial checkin
cg
parents:
diff changeset
    89
version
2107
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    90
    ^ '$Header: /cvs/stx/stx/libjava/JavaProcess.st,v 1.14 2002-11-22 20:09:21 cg Exp $'
f4509f6767fa category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
    91
! !