equal
deleted
inserted
replaced
255 for:aBlock priority:aPrio |
255 for:aBlock priority:aPrio |
256 "create a new (unscheduled) process which will execute aBlock at |
256 "create a new (unscheduled) process which will execute aBlock at |
257 a given priority, once scheduled. The process will start execution once |
257 a given priority, once scheduled. The process will start execution once |
258 it gets a #resume-message." |
258 it gets a #resume-message." |
259 |
259 |
260 ^ self new for:aBlock priority:aPrio |
260 ^ self basicNew for:aBlock priority:aPrio |
|
261 |
|
262 "Modified: 25.1.1997 / 01:23:12 / cg" |
|
263 ! |
|
264 |
|
265 new |
|
266 "create a new (unscheduled) process which will execute the start |
|
267 method, when scheduled. The process will start execution once |
|
268 it gets a #resume-message." |
|
269 |
|
270 ^ self basicNew for:nil priority:(Processor activePriority). |
|
271 |
|
272 "Created: 25.1.1997 / 01:31:05 / cg" |
261 ! ! |
273 ! ! |
262 |
274 |
263 !Process class methodsFor:'Signal constants'! |
275 !Process class methodsFor:'Signal constants'! |
264 |
276 |
265 restartSignal |
277 restartSignal |
859 |
871 |
860 " |
872 " |
861 give me a user-friendly name |
873 give me a user-friendly name |
862 " |
874 " |
863 active := Processor activeProcess. |
875 active := Processor activeProcess. |
864 (nm := active name) notNil ifTrue:[ |
876 (nm := active name) notNil ifTrue:[ |
865 " |
877 " |
866 avoid name inflation |
878 avoid name inflation |
867 " |
879 " |
868 (nm endsWith:' sub') ifFalse:[ |
880 (nm endsWith:' sub') ifFalse:[ |
869 nm := nm , ' [' , active id printString , '] sub' |
881 nm := nm , ' [' , active id printString , '] sub' |
870 ]. |
882 ]. |
871 name := nm |
883 name := nm |
872 ]. |
884 ]. |
873 processGroupId := creatorId := active id |
885 processGroupId := creatorId := active id |
874 |
886 |
875 "Modified: 8.7.1996 / 13:46:24 / cg" |
887 "Modified: 25.1.1997 / 01:28:54 / cg" |
876 ! ! |
888 ! ! |
877 |
889 |
878 !Process methodsFor:'private scheduler access'! |
890 !Process methodsFor:'private scheduler access'! |
879 |
891 |
880 setId:idNumber state:stateSymbol |
892 setId:idNumber state:stateSymbol |
1311 ! ! |
1323 ! ! |
1312 |
1324 |
1313 !Process class methodsFor:'documentation'! |
1325 !Process class methodsFor:'documentation'! |
1314 |
1326 |
1315 version |
1327 version |
1316 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.73 1997-01-24 22:10:56 cg Exp $' |
1328 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.74 1997-01-25 00:35:17 cg Exp $' |
1317 ! ! |
1329 ! ! |
1318 Process initialize! |
1330 Process initialize! |