--- a/Tools__SearchDialog.st	Thu Apr 11 14:44:59 2013 +0200
+++ b/Tools__SearchDialog.st	Thu Apr 11 15:10:21 2013 +0200
@@ -113,6 +113,10 @@
     ^ openHow.
 !
 
+searchAreaSelected
+    ^ whereRadioGroup value.
+!
+
 searchIgnoringCase
     ^ self searchIsCaseSensitive not
 !