--- a/Tools__NewSystemBrowser.st	Tue Mar 06 18:31:11 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Mar 06 18:57:26 2012 +0100
@@ -17294,10 +17294,11 @@
         categories:subjects;
         label:(subjects size = 1 
                     ifTrue:[ 'class category' , subjects anyOne ]
-                    ifFalse:[ subjects size printString , ' class categories' ])
+                    ifFalse:[ subjects size printString , ' class categories' ]);
+        yourself
 
     "Created: / 17-04-2010 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 04-08-2011 / 23:13:24 / cg"
+    "Modified: / 06-03-2012 / 18:54:41 / cg"
 !
 
 selectedClassesAsEnvironment
@@ -17308,8 +17309,11 @@
         classes:subjects;
         label:(subjects size = 1 
                     ifTrue:[ 'class ' , subjects anyOne fullName ]
-                    ifFalse:[ subjects size printString , ' classes' ])
-                 "Created: / 24-02-2009 / 11:08:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+                    ifFalse:[ subjects size printString , ' classes' ]);
+        yourself
+
+    "Created: / 24-02-2009 / 11:08:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 06-03-2012 / 18:54:49 / cg"
 !
 
 selectedCodeComponentsAsEnvironment
@@ -17367,9 +17371,11 @@
         protocols: protocols;
         label:(protocols size = 1 
                     ifTrue:[ 'protocol' , protocols anyOne , ' in ' , classes anyOne name ]
-                    ifFalse:[ protocols size printString , ' protocols in ' , classes anyOne name ])
+                    ifFalse:[ protocols size printString , ' protocols in ' , classes anyOne name ]);
+        yourself
 
     "Created: / 17-04-2010 / 10:57:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-03-2012 / 18:55:00 / cg"
 !
 
 selectedSelectorsAsEnvironment
@@ -25395,7 +25401,7 @@
     self loadSmalllint.
     dlg := Tools::LintRuleSelectionDialog new.
     dlg selection: (LastLintRules ifNil:[nil"self smalllintRulesAll flattened"] ifNotNil:[LastLintRules flattened]).
-    ^(dlg open; accepted) 
+    ^ (dlg open; accepted) 
             ifTrue:[ LastLintRules := dlg selectionAsRule ] 
             ifFalse:[ nil ].
 
@@ -25406,6 +25412,7 @@
 
     "Created: / 17-04-2010 / 09:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-08-2010 / 15:35:16 / Jan Vrany <enter your email here>"
+    "Modified (format): / 06-03-2012 / 18:55:09 / cg"
 !
 
 smalllintRulesOrAll
@@ -36233,7 +36240,8 @@
         Transcript topView raise.
     ].
 
-    projectBuilder := Tools::ProjectBuilder new
+    projectBuilder := Tools::ProjectBuilder new.
+    projectBuilder 
         makeExeOnly:exeOnly;
         package:projectToBuild;
         "/ build
@@ -52077,11 +52085,12 @@
     firstComment := comments first.
     firstComment string withoutSeparators isEmpty ifTrue:[
         firstComment isEndOfLineComment ifFalse:[
-            Dialog
-                warn:'Useless (empty) Method-Comment. Please add flesh or remove it !!'.
+            Dialog warn:'Useless (empty) Method-Comment. Please add flesh or remove it !!'.
             ^ self
         ]
     ].
+
+    "Modified (format): / 06-03-2012 / 18:38:55 / cg"
 !
 
 checkIfSameSemanticsRedefinedWith:methodHere inClass:aClass
@@ -56028,11 +56037,15 @@
     "Created: / 28-08-2010 / 11:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-showMessage:message while:block 
-    |state workerBlock worker|
+showMessage:message while:block
+    "used for long-during lint operations: show a progressbar and a message in the top pane,
+     execute block in another (background-) thread"
+
+    |state worker|
 
     state := self navigationState.
-    workerBlock := [
+    worker := 
+        [
             self showMessagePane:#progressInfoSpec in:state.
             block on:UserNotification
                 do:[:notification | 
@@ -56042,13 +56055,14 @@
                     ].
                     notification proceed
                 ]
-        ].
-    worker := workerBlock newProcess 
-                addExitAction:[ self hideMessagePaneIn:state ].
+        ] newProcess. 
+    worker addExitAction:[ self hideMessagePaneIn:state ].
+    worker priorityRange:(4 to:8).
     state worker:worker.
     worker resume.
 
     "Created: / 28-08-2010 / 20:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-03-2012 / 18:37:40 / cg"
 !
 
 showMessagePane: spec 
@@ -56111,11 +56125,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1726 2012-03-06 17:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1727 2012-03-06 17:57:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1726 2012-03-06 17:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1727 2012-03-06 17:57:26 cg Exp $'
 !
 
 version_SVN