--- a/VersionDiffBrowser.st	Tue Mar 06 15:28:18 2012 +0100
+++ b/VersionDiffBrowser.st	Tue Mar 06 15:43:53 2012 +0100
@@ -19,8 +19,7 @@
 		methodsOnlyInA methodsOnlyInASelection methodsOnlyInB
 		methodsOnlyInBSelection onlyInALabelHolder onlyInBLabelHolder
 		classHolder versionAHolder versionBHolder infoHolder
-		includeExtensionsHolder canIncludeExtensionsHolder
-		ignoreExtensions'
+		includeExtensionsHolder canIncludeExtensionsHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers'
@@ -827,7 +826,7 @@
      as opposed to extension-checking, where extensions should not be ignored.
      the default is false"
 
-    ^ ignoreExtensions ? false.
+    ^ self includeExtensions not
 
     "Created: / 12-09-2011 / 11:54:11 / cg"
 !
@@ -838,9 +837,9 @@
      as opposed to extension-checking, where extensions should not be ignored.
      the default is false"
 
-    ignoreExtensions := aBoolean.
+    self includeExtensions:aBoolean not
 
-    "Modified (comment): / 12-09-2011 / 11:53:04 / cg"
+    "Modified: / 06-03-2012 / 15:37:32 / cg"
 !
 
 selectedChangeInA
@@ -1167,13 +1166,13 @@
 !
 
 includeExtensions
-    ^ self ignoreExtensions not
+    ^ self includeExtensionsHolder value
 
     "Created: / 13-09-2011 / 11:48:51 / cg"
 !
 
 includeExtensions:aBoolean
-    self ignoreExtensions:aBoolean not
+    self includeExtensionsHolder value:aBoolean
 
     "Created: / 13-09-2011 / 11:48:41 / cg"
 !
@@ -1183,9 +1182,11 @@
 
     includeExtensionsHolder isNil ifTrue:[
         includeExtensionsHolder := false asValue.
-        includeExtensionsHolder onChangeSend:#updateLists to:self.
+        includeExtensionsHolder addDependent:self.
     ].
     ^ includeExtensionsHolder.
+
+    "Modified: / 06-03-2012 / 15:36:52 / cg"
 !
 
 infoHolder
@@ -1368,16 +1369,20 @@
 !VersionDiffBrowser methodsFor:'change & update'!
 
 update:something with:parameter from:changedObject
+    changedObject == includeExtensionsHolder ifTrue:[ 
+        self updateLists.
+         ^ self
+    ].
+
     (changedObject == classHolder 
     or:[changedObject == versionAHolder
-    or:[changedObject == versionBHolder
-    or:[changedObject == includeExtensionsHolder]]]) ifTrue:[ 
-        self setupForClass:(classHolder value) versionA:(versionAHolder value) versionB:(versionBHolder value)
-.        ^ self
+    or:[changedObject == versionBHolder]]) ifTrue:[ 
+        self setupForClass:(classHolder value) versionA:(versionAHolder value) versionB:(versionBHolder value).
+        ^ self
     ].
     super update:something with:parameter from:changedObject
 
-    "Modified: / 13-09-2011 / 11:50:35 / cg"
+    "Modified: / 06-03-2012 / 15:42:38 / cg"
 ! !
 
 !VersionDiffBrowser methodsFor:'initialization & release'!
@@ -2290,9 +2295,9 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.101 2011-11-24 12:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.102 2012-03-06 14:43:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.101 2011-11-24 12:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.102 2012-03-06 14:43:53 cg Exp $'
 ! !