1118 by the MenuEditor of ST/X." |
1118 by the MenuEditor of ST/X." |
1119 |
1119 |
1120 "Do not manually edit this!! If it is corrupted, |
1120 "Do not manually edit this!! If it is corrupted, |
1121 the MenuEditor may not be able to read the specification." |
1121 the MenuEditor may not be able to read the specification." |
1122 |
1122 |
|
1123 |
1123 " |
1124 " |
1124 MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu |
1125 MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu |
1125 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp |
1126 (Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp |
1126 " |
1127 " |
1127 |
1128 |
1128 <resource: #menu> |
1129 <resource: #menu> |
1129 |
1130 |
1130 ^ |
1131 ^ |
1131 #(Menu |
1132 #(Menu |
1132 ( |
1133 ( |
1133 (MenuItem |
1134 (MenuItem |
1134 enabled: hasSelectionWithStoppedProcessHolder |
1135 enabled: hasSelectionWithStoppedProcessHolder |
1135 label: 'Resume' |
1136 label: 'Resume' |
1136 itemValue: resumeProcess |
1137 itemValue: resumeProcess |
1137 translateLabel: true |
1138 ) |
1138 ) |
1139 (MenuItem |
1139 (MenuItem |
1140 enabled: hasSelectionHolder |
1140 enabled: hasSelectionHolder |
1141 label: 'Suspend' |
1141 label: 'Suspend' |
1142 itemValue: suspendProcess |
1142 itemValue: suspendProcess |
1143 ) |
1143 translateLabel: true |
1144 (MenuItem |
1144 ) |
1145 enabled: hasSelectionHolder |
1145 (MenuItem |
1146 label: 'Stop' |
1146 enabled: hasSelectionHolder |
1147 itemValue: stopProcess |
1147 label: 'Stop' |
1148 ) |
1148 itemValue: stopProcess |
1149 (MenuItem |
1149 translateLabel: true |
1150 label: '-' |
1150 ) |
1151 ) |
1151 (MenuItem |
1152 (MenuItem |
1152 label: '-' |
1153 enabled: hasSelectionHolder |
1153 ) |
1154 label: 'Abort' |
1154 (MenuItem |
1155 itemValue: abortProcess |
1155 enabled: hasSelectionHolder |
1156 ) |
1156 label: 'Abort' |
1157 (MenuItem |
1157 itemValue: abortProcess |
1158 enabled: hasSelectionHolder |
1158 translateLabel: true |
1159 label: 'Terminate' |
1159 ) |
1160 itemValue: terminateProcess |
1160 (MenuItem |
1161 ) |
1161 enabled: hasSelectionHolder |
1162 (MenuItem |
1162 label: 'Terminate' |
1163 enabled: hasSelectionHolder |
1163 itemValue: terminateProcess |
1164 label: 'Hard Terminate' |
1164 translateLabel: true |
1165 itemValue: hardTerminateProcess |
1165 ) |
1166 ) |
1166 (MenuItem |
1167 (MenuItem |
1167 enabled: hasSelectionHolder |
1168 enabled: hasSelectionHolder |
1168 label: 'Hard Terminate' |
1169 label: 'Terminate Group' |
1169 itemValue: hardTerminateProcess |
1170 itemValue: terminateProcessGroup |
1170 translateLabel: true |
1171 ) |
1171 ) |
1172 (MenuItem |
1172 (MenuItem |
1173 enabled: selectionRestartable |
1173 enabled: hasSelectionHolder |
1174 label: 'Restart' |
1174 label: 'Terminate Group' |
1175 itemValue: restartProcess |
1175 itemValue: terminateProcessGroup |
1176 ) |
1176 translateLabel: true |
1177 (MenuItem |
1177 ) |
1178 label: '-' |
1178 (MenuItem |
1179 ) |
1179 enabled: selectionRestartable |
1180 (MenuItem |
1180 label: 'Restart' |
1181 enabled: hasSelectionHolder |
1181 itemValue: restartProcess |
1182 label: 'Raise Prio' |
1182 translateLabel: true |
1183 itemValue: raisePrio |
1183 ) |
1184 ) |
1184 (MenuItem |
1185 (MenuItem |
1185 label: '-' |
1186 enabled: hasSelectionHolder |
1186 ) |
1187 label: 'Lower Prio' |
1187 (MenuItem |
1188 itemValue: lowerPrio |
1188 enabled: hasSelectionHolder |
1189 ) |
1189 label: 'Raise Prio' |
1190 (MenuItem |
1190 itemValue: raisePrio |
1191 enabled: hasSelectionHolder |
1191 translateLabel: true |
1192 label: 'Set Prio Range...' |
1192 ) |
1193 itemValue: setPrioRange |
1193 (MenuItem |
1194 ) |
1194 enabled: hasSelectionHolder |
1195 ) |
1195 label: 'Lower Prio' |
1196 nil |
1196 itemValue: lowerPrio |
1197 nil |
1197 translateLabel: true |
|
1198 ) |
|
1199 ) |
|
1200 nil |
|
1201 nil |
|
1202 ) |
1198 ) |
1203 ! |
1199 ! |
1204 |
1200 |
1205 tableMenu |
1201 tableMenu |
1206 "This resource specification was automatically generated |
1202 "This resource specification was automatically generated |
2630 "resume the selected process (i.e. let it run) " |
2626 "resume the selected process (i.e. let it run) " |
2631 |
2627 |
2632 self selectedProcessesSend:#resume |
2628 self selectedProcessesSend:#resume |
2633 ! |
2629 ! |
2634 |
2630 |
|
2631 setPrioRange |
|
2632 "set a prio-range the selected processes priority" |
|
2633 |
|
2634 |rangeString range| |
|
2635 |
|
2636 rangeString := Dialog |
|
2637 request:'Priority Range (min to: max)' |
|
2638 initialAnswer:'7 to: 8'. |
|
2639 rangeString notEmptyOrNil ifTrue:[ |
|
2640 range := Interval readFrom:rangeString onError:nil. |
|
2641 range isNil ifTrue:[ thisContext restart ]. |
|
2642 ]. |
|
2643 range isNil ifTrue:[ |
|
2644 ^ self |
|
2645 ]. |
|
2646 self selectedProcessesDo:[:p | |
|
2647 p priorityRange:range |
|
2648 ]. |
|
2649 self updateList. |
|
2650 ! |
|
2651 |
2635 startTimeslicing |
2652 startTimeslicing |
2636 Processor isTimeSlicing ifFalse:[ |
2653 Processor isTimeSlicing ifFalse:[ |
2637 Processor startTimeSlicing. |
2654 Processor startTimeSlicing. |
2638 ]. |
2655 ]. |
2639 |
2656 |