--- a/Tools_SearchDialog.st	Mon Aug 20 12:00:47 2012 +0200
+++ b/Tools_SearchDialog.st	Mon Aug 20 13:35:48 2012 +0200
@@ -21,7 +21,8 @@
 		codeField selectorHolder defaultOpenHow withTextEntry allowFind
 		allowBuffer allowBrowser searchWhat searchClassProtocolHolder
 		searchInstanceProtocolHolder selectorOrCode selectionList
-		listHolder matchProcess inputField'
+		listHolder matchProcess inputField showMetaFilter
+		metaclassesOnlyHolder classesOnlyHolder'
 	classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched
 		LastStringSearched LastSearchWasMatch LastSearchWasCaseSensitive
 		LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS
@@ -72,8 +73,20 @@
     ^ LastStringSearchArea
 ! !
 
+!SearchDialog methodsFor:'accessing'!
+
+showMetaFilter:something
+    showMetaFilter := something.
+! !
+
 !SearchDialog methodsFor:'accessing-entered values'!
 
+classesOnly
+    ^ (classesOnlyHolder ? false) value
+
+    "Created: / 20-08-2012 / 13:25:26 / cg"
+!
+
 classesToSearch
     ^ classes.
 !
@@ -86,6 +99,12 @@
     ^ isMethodHolder value ? false.
 !
 
+metaclassesOnly
+    ^ (metaclassesOnlyHolder ? false) value
+
+    "Created: / 20-08-2012 / 13:17:12 / cg"
+!
+
 methodsToSearch
     ^ methods.
 !
@@ -370,6 +389,12 @@
     self addHorizontalLine.
     "/ self addVerticalSpace.
 
+    (showMetaFilter ? false) ifTrue:[
+        currentPanel := self.
+        self addCheckBoxForMetaClassesOnly.
+    ].
+
+
     hPanel := HorizontalPanelView "SimpleView" new.
     hPanel verticalLayout:#top.
     hPanel horizontalLayout:#left.
@@ -379,6 +404,7 @@
     leftVerticalPanel horizontalLayout:#fitSpace.
 
     (self addTextLabel:(resources string:'Search in:')) adjust:#left.
+
     whereRadioGroup := RadioButtonGroup new.
 
     (selectedCategories size > 0 or:[ selectedClasses size > 0 ]) ifTrue:[
@@ -554,7 +580,7 @@
 
     self label:(resources string:'Search').
 
-    "Modified: / 20-07-2012 / 11:37:57 / cg"
+    "Modified: / 20-08-2012 / 13:25:03 / cg"
 ! !
 
 !SearchDialog methodsFor:'setup'!
@@ -649,6 +675,28 @@
     ^ b.
 !
 
+addCheckBoxForMetaClassesOnly
+    |p b|
+
+    p := View new.
+    
+    b := CheckBox label:(resources string:'Metaclasses Only') in:p.
+    b model:(metaclassesOnlyHolder := false asValue).
+    metaclassesOnlyHolder onChangeEvaluate:[metaclassesOnlyHolder value ifTrue:[classesOnlyHolder value:false]].
+    self makeTabable:b.
+
+    b := CheckBox label:(resources string:'Classes Only') in:p.
+    b left:0.5.
+    b model:(classesOnlyHolder := false asValue).
+    classesOnlyHolder onChangeEvaluate:[classesOnlyHolder value ifTrue:[metaclassesOnlyHolder value:false]].
+    self makeTabable:b.
+
+    currentPanel add:p.
+    ^ nil.
+
+    "Created: / 20-08-2012 / 11:32:15 / cg"
+!
+
 addCheckBoxForMethodList
     |b|
 
@@ -1339,7 +1387,7 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.70 2012-07-20 09:42:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.71 2012-08-20 11:35:48 cg Exp $'
 ! !
 
 SearchDialog initialize!