--- a/ProcessMonitorV2.st Sat May 04 17:33:09 2013 +0200
+++ b/ProcessMonitorV2.st Mon May 06 13:47:17 2013 +0200
@@ -1120,6 +1120,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu
(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
@@ -1127,78 +1128,73 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- enabled: hasSelectionWithStoppedProcessHolder
- label: 'Resume'
- itemValue: resumeProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Suspend'
- itemValue: suspendProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Stop'
- itemValue: stopProcess
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Abort'
- itemValue: abortProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate'
- itemValue: terminateProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Hard Terminate'
- itemValue: hardTerminateProcess
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Terminate Group'
- itemValue: terminateProcessGroup
- translateLabel: true
- )
- (MenuItem
- enabled: selectionRestartable
- label: 'Restart'
- itemValue: restartProcess
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Raise Prio'
- itemValue: raisePrio
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelectionHolder
- label: 'Lower Prio'
- itemValue: lowerPrio
- translateLabel: true
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: hasSelectionWithStoppedProcessHolder
+ label: 'Resume'
+ itemValue: resumeProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Suspend'
+ itemValue: suspendProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Stop'
+ itemValue: stopProcess
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Abort'
+ itemValue: abortProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate'
+ itemValue: terminateProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Hard Terminate'
+ itemValue: hardTerminateProcess
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Terminate Group'
+ itemValue: terminateProcessGroup
+ )
+ (MenuItem
+ enabled: selectionRestartable
+ label: 'Restart'
+ itemValue: restartProcess
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Raise Prio'
+ itemValue: raisePrio
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Lower Prio'
+ itemValue: lowerPrio
+ )
+ (MenuItem
+ enabled: hasSelectionHolder
+ label: 'Set Prio Range...'
+ itemValue: setPrioRange
+ )
+ )
+ nil
+ nil
)
!
@@ -2632,6 +2628,27 @@
self selectedProcessesSend:#resume
!
+setPrioRange
+ "set a prio-range the selected processes priority"
+
+ |rangeString range|
+
+ rangeString := Dialog
+ request:'Priority Range (min to: max)'
+ initialAnswer:'7 to: 8'.
+ rangeString notEmptyOrNil ifTrue:[
+ range := Interval readFrom:rangeString onError:nil.
+ range isNil ifTrue:[ thisContext restart ].
+ ].
+ range isNil ifTrue:[
+ ^ self
+ ].
+ self selectedProcessesDo:[:p |
+ p priorityRange:range
+ ].
+ self updateList.
+!
+
startTimeslicing
Processor isTimeSlicing ifFalse:[
Processor startTimeSlicing.
@@ -3824,10 +3841,10 @@
!ProcessMonitorV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.65 2013-03-23 11:38:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.66 2013-05-06 11:47:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.65 2013-03-23 11:38:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.66 2013-05-06 11:47:17 cg Exp $'
! !