--- a/Tools_SearchDialog.st	Thu Apr 24 14:14:43 2008 +0200
+++ b/Tools_SearchDialog.st	Fri Apr 25 15:24:49 2008 +0200
@@ -376,6 +376,11 @@
             ].
         ].
     ].
+    searchAreas size == 0 ifTrue:[
+        self addCheckBoxForEverywhere.
+    ].
+    self addCheckBoxForChangedClassesList.
+
     (withMethodList and:[ browser isMethodListBrowser ]) ifTrue:[
         searchAreas size == 0 ifTrue:[
             self addCheckBoxForEverywhere.
@@ -384,6 +389,11 @@
         browser selectedMethods value size > 1 ifTrue:[
             self addCheckBoxForSelectedMethods.
         ].
+    ] ifFalse:[
+        searchAreas size == 0 ifTrue:[
+            self addCheckBoxForEverywhere.
+        ].
+        self addCheckBoxForChangedMethodList.
     ].
 
     searchAreas size == 0 ifTrue:[
@@ -440,6 +450,28 @@
     self makeTabable:b.
 !
 
+addCheckBoxForChangedClassesList
+    |b|
+
+    b := CheckBox label:(resources string:'Changed Classes').
+    self addCheckBox:b forSearchArea:#listOfChangedClasses.
+    ChangeSet current changedClasses isEmpty ifTrue:[
+        b disable
+    ].
+    ^ b.
+!
+
+addCheckBoxForChangedMethodList
+    |b|
+
+    b := CheckBox label:(resources string:'Changed Methods').
+    self addCheckBox:b forSearchArea:#listOfChangedMethods.
+    ChangeSet current changeSelectors isEmpty ifTrue:[
+        b disable
+    ].
+    ^ b.
+!
+
 addCheckBoxForClassMethodSearch
     |b|
 
@@ -936,7 +968,31 @@
         methods := browser selectedMethods value.
         ^ self.
     ].
-"/    self halt.
+    (where == #listOfChangedClasses) ifTrue:[ 
+        classes := ChangeSet current changedClasses.
+        methods := nil.
+        ^ self.
+    ].
+    (where == #listOfChangedMethods) ifTrue:[ 
+        classes := nil.
+        methods := Set new.
+        ChangeSet current do:[:chg |
+            |mthd|
+
+            chg notNil ifTrue:[
+                chg isMethodChange ifTrue:[
+                    mthd := chg changeMethod.
+                    mthd notNil ifTrue:[
+                        methods add:mthd
+                    ]
+                ]
+            ]
+        ].
+        methods := methods asOrderedCollection.
+        ^ self.
+    ].
+
+    self halt:'inumplemented search'.
 
     "Modified: / 09-10-2006 / 12:34:40 / cg"
 !
@@ -1028,5 +1084,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.24 2008-04-14 16:50:20 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.25 2008-04-25 13:24:49 cg Exp $'
 ! !