--- a/Tools_SearchDialog.st	Wed Sep 23 19:27:20 2009 +0200
+++ b/Tools_SearchDialog.st	Wed Sep 23 19:36:27 2009 +0200
@@ -17,7 +17,7 @@
 	instanceVariableNames:'openHow classes methods selectedClasses selectedCategories
 		selectedMethods selectedPackages currentClass currentNamespace
 		currentClassCategory currentPackage browser whereRadioGroup
-		verticalPanel searchAreas caseHolder matchHolder isMethodHolder
+		currentPanel searchAreas caseHolder matchHolder isMethodHolder
 		codeField selectorHolder defaultOpenHow withTextEntry allowFind
 		allowBuffer allowBrowser isSelector searchClassProtocolHolder
 		searchInstanceProtocolHolder selectorOrCode'
@@ -281,7 +281,7 @@
     hPanel verticalLayout:#top.
     hPanel horizontalLayout:#left.
 
-    leftVerticalPanel := verticalPanel := VerticalPanelView new.
+    leftVerticalPanel := currentPanel := VerticalPanelView new.
     leftVerticalPanel verticalLayout:#topSpace.
     leftVerticalPanel horizontalLayout:#fitSpace.
 
@@ -417,7 +417,7 @@
 
     hPanel add:leftVerticalPanel.
 
-    rightVerticalPanel := verticalPanel := VerticalPanelView new.
+    rightVerticalPanel := currentPanel := VerticalPanelView new.
     rightVerticalPanel verticalLayout:#topSpace.
     rightVerticalPanel horizontalLayout:#fitSpace.
 
@@ -447,7 +447,7 @@
 !SearchDialog methodsFor:'setup'!
 
 addCheckBox:b forSearchArea:area 
-    verticalPanel add:b.
+    currentPanel add:b.
     whereRadioGroup add:b value:area.
     searchAreas add:area.
     self makeTabable:b.
@@ -480,7 +480,7 @@
 
     b := CheckBox label:(resources string:'Class Protocol').
     b model:(self searchClassProtocolHolder).
-    verticalPanel add:b.
+    currentPanel add:b.
     ^ b.
 !
 
@@ -550,7 +550,7 @@
 
     b := CheckBox label:(resources string:'Instance Protocol').
     b model:(self searchInstanceProtocolHolder).
-    verticalPanel add:b.
+    currentPanel add:b.
     ^ b.
 !
 
@@ -751,7 +751,7 @@
     b turnOn.
     b disable.
 
-    verticalPanel add:b.
+    currentPanel add:b.
 !
 
 addInputFieldForSelectorOrNameOrString
@@ -1122,5 +1122,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.34 2009-09-22 11:25:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.35 2009-09-23 17:36:27 cg Exp $'
 ! !