changeset 2878 | 6a88c8ffeb14 |
parent 2850 | 4e58a7e9c323 |
child 2921 | 1e8c394e895e |
2877:6f7df547445b | 2878:6a88c8ffeb14 |
---|---|
1011 finishAction value |
1011 finishAction value |
1012 ] |
1012 ] |
1013 ] newProcess. |
1013 ] newProcess. |
1014 |
1014 |
1015 Processor activeProcess |
1015 Processor activeProcess |
1016 withPriority:(Processor activePriority + 1) |
1016 withHigherPriorityDo: |
1017 do:[ |
1017 [ |
1018 p resume. |
1018 p resume. |
1019 self topView show. |
1019 self topView show. |
1020 ]. |
1020 ]. |
1021 p notNil ifTrue:[p terminate]. |
1021 p notNil ifTrue:[p terminate]. |
1022 |
1022 |
1023 " |
1023 " |
1024 |p| |
1024 |p| |
1025 |
1025 |
1097 finishAction value |
1097 finishAction value |
1098 ] |
1098 ] |
1099 ] newProcess. |
1099 ] newProcess. |
1100 |
1100 |
1101 Processor activeProcess |
1101 Processor activeProcess |
1102 withPriority:(Processor activePriority + 1) |
1102 withHigherPriorityDo:[ |
1103 do:[ |
|
1104 p resume. |
1103 p resume. |
1105 self topView show. |
1104 self topView show. |
1106 ]. |
1105 ]. |
1107 p notNil ifTrue:[p terminate]. |
1106 p notNil ifTrue:[p terminate]. |
1108 |
1107 |
1135 ! ! |
1134 ! ! |
1136 |
1135 |
1137 !ProgressIndicator class methodsFor:'documentation'! |
1136 !ProgressIndicator class methodsFor:'documentation'! |
1138 |
1137 |
1139 version |
1138 version |
1140 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.49 2005-10-04 19:57:58 cg Exp $' |
1139 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.50 2006-01-09 08:56:10 cg Exp $' |
1141 ! ! |
1140 ! ! |