equal
deleted
inserted
replaced
32 |
32 |
33 ProcessorScheduler comment:' |
33 ProcessorScheduler comment:' |
34 COPYRIGHT (c) 1993 by Claus Gittinger |
34 COPYRIGHT (c) 1993 by Claus Gittinger |
35 All Rights Reserved |
35 All Rights Reserved |
36 |
36 |
37 $Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.34 1995-03-26 14:51:15 claus Exp $ |
37 $Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.35 1995-04-11 14:51:07 claus Exp $ |
38 '! |
38 '! |
39 |
39 |
40 Smalltalk at:#Processor put:nil! |
40 Smalltalk at:#Processor put:nil! |
41 |
41 |
42 !ProcessorScheduler class methodsFor:'documentation'! |
42 !ProcessorScheduler class methodsFor:'documentation'! |
55 " |
55 " |
56 ! |
56 ! |
57 |
57 |
58 version |
58 version |
59 " |
59 " |
60 $Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.34 1995-03-26 14:51:15 claus Exp $ |
60 $Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.35 1995-04-11 14:51:07 claus Exp $ |
61 " |
61 " |
62 ! |
62 ! |
63 |
63 |
64 documentation |
64 documentation |
65 " |
65 " |
361 id := aProcess id. |
361 id := aProcess id. |
362 self class threadInterrupt:id. |
362 self class threadInterrupt:id. |
363 " |
363 " |
364 and, make the process runnable |
364 and, make the process runnable |
365 " |
365 " |
366 aProcess resume |
366 aProcess state ~~ #stopped ifTrue:[ |
|
367 " |
|
368 and, make the process runnable |
|
369 " |
|
370 aProcess resume |
|
371 ] |
367 ! ! |
372 ! ! |
368 |
373 |
369 !ProcessorScheduler methodsFor:'constants'! |
374 !ProcessorScheduler methodsFor:'constants'! |
370 |
375 |
371 lowestPriority |
376 lowestPriority |