--- a/Tools_ProjectList.st	Tue Feb 25 11:39:59 2014 +0100
+++ b/Tools_ProjectList.st	Tue Feb 25 11:40:06 2014 +0100
@@ -150,22 +150,24 @@
 
 aspectSelectors
     ^ #( 
-	#(#doubleClickChannel #action )
-	immediateUpdate 
-	selectedProjects 
-	menuHolder 
-	outGeneratorHolder 
-	inGeneratorHolder 
-	selectionChangeCondition
-	updateTrigger
-	forceGeneratorTrigger
-	hideUnloadedClasses
-	organizerMode
-	slaveMode
+        environmentHolder
+        #(#doubleClickChannel #action )
+        immediateUpdate 
+        selectedProjects 
+        menuHolder 
+        outGeneratorHolder 
+        inGeneratorHolder 
+        selectionChangeCondition
+        updateTrigger
+        forceGeneratorTrigger
+        hideUnloadedClasses
+        organizerMode
+        slaveMode
        )
 
-    "Created: / 17.2.2000 / 23:46:18 / cg"
-    "Modified: / 25.2.2000 / 22:32:10 / cg"
+    "Created: / 17-02-2000 / 23:46:18 / cg"
+    "Modified: / 25-02-2000 / 22:32:10 / cg"
+    "Modified: / 24-02-2014 / 10:37:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ProjectList methodsFor:'accessing'!
@@ -367,6 +369,12 @@
 !
 
 update:something with:aParameter from:changedObject
+
+    changedObject == environmentHolder ifTrue:[
+        self environmentChanged.
+        ^ self.
+    ].  
+
     (self builder isNil or:[self window topView realized not]) ifTrue:[
         "/ ignore those changes while I am invisible
         "/ self makeIndependent.
@@ -401,6 +409,7 @@
     super update:something with:aParameter from:changedObject
 
     "Modified: / 20-07-2011 / 18:54:39 / cg"
+    "Modified: / 25-02-2014 / 10:07:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateSelectionIndexFromSelection
@@ -776,7 +785,7 @@
 !
 
 initialOrganizerMode
-    ^ OrganizerCanvas organizerModeProject
+    ^ OrganizerCanvas organizerModeProject       
 !
 
 listOfProjects
@@ -1015,10 +1024,10 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.67 2014-02-05 18:56:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.68 2014-02-25 10:40:06 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.67 2014-02-05 18:56:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.68 2014-02-25 10:40:06 vrany Exp $'
 ! !