diff -r 5dfe43fb5704 -r 18439573e87f ProcessMonitorV2.st
--- 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 $'
 ! !