--- a/Tools_SearchDialog.st	Mon Apr 26 10:44:52 2010 +0200
+++ b/Tools_SearchDialog.st	Mon Apr 26 15:37:14 2010 +0200
@@ -878,7 +878,7 @@
 !
 
 addTextEntryFieldForCode
-    |initial box panel infoLabel helpButton errMessageField checkCodeAction
+    |initial box panel patternInfoBox infoLabel helpButton errMessageField checkCodeAction
      metaBox b|
 
     box := View new.
@@ -891,15 +891,19 @@
     codeField canTab:true.
 "/    codeField origin:0.0@0.0 corner:(0.75@1.0).
 
-    infoLabel := Label in:panel.
-"/    infoLabel origin:0.75@0.0 corner:(1.0@1.0).
+    patternInfoBox := View in:panel.
+
+    infoLabel := Label in:patternInfoBox.
+    infoLabel geometryLayout:(LayoutFrame bottomInset:30).
+
     infoLabel font:(codeField font asSize:(codeField font size - 2)).
     infoLabel adjust:#left.
     infoLabel label:(self helpTextForMetaPatterns).
 
     panel relativeCorners:#(0.6 1.0).
+    panel showHandle:true.
 
-    helpButton := Button label:(resources string:'Pattern Help') in:infoLabel.
+    helpButton := Button label:(resources string:'Pattern Help') in:patternInfoBox.
     helpButton layout:((AlignmentOrigin fractionalFromPoint:0.5@1.0) 
                             leftOffset:2
                             topOffset:helpButton preferredHeight negated;
@@ -938,7 +942,7 @@
     codeField contents:initial.
     checkCodeAction value.
 
-    "Modified: / 15-03-2007 / 16:27:11 / cg"
+    "Modified: / 26-04-2010 / 15:08:48 / cg"
 !
 
 checkCodeIn:codeField notifying:errMessageField
@@ -1106,18 +1110,20 @@
 
 helpTextForMetaPatterns
     ^ 'MetaPatterns:
-' , '`' allBold , ' = meta 
-
-' , '@' allBold , ' = list/any
-' , '.' allBold , ' = statement
-' , '`' allBold , ' = recurse
+    ' , '`' allBold , ' = meta 
+    ' , '@' allBold , ' = list/any
+    ' , '.' allBold , ' = statement
+    ' , '`' allBold , ' = recurse
 
-' , '`#n' allBold , ' any lit
-' , '`v' allBold , '  any var
-' , '`@e' allBold , ' any expr
-' , '`m' allBold , ' any unary message
-' , '`@m:' allBold , ' any message
+    ' , '`#n' allBold , ' any lit
+    ' , '`v' allBold , '  any var
+    ' , '`@e' allBold , ' any expr
+    ' , '`m' allBold , ' any unary message
+    ' , '`@m:' allBold , ' any message
+    ' , '`{:n|...}' allBold , ' node pattern
 '.
+
+    "Modified: / 26-04-2010 / 15:37:08 / cg"
 !
 
 isMethodHolder
@@ -1207,9 +1213,9 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.50 2010-04-09 10:00:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.51 2010-04-26 13:37:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.50 2010-04-09 10:00:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.51 2010-04-26 13:37:14 cg Exp $'
 ! !