Tools_SearchDialog.st
changeset 9519 e02cc8f995ec
parent 9506 757e644f44f6
child 9600 301631add7e9
--- a/Tools_SearchDialog.st	Sun Jul 11 16:46:46 2010 +0200
+++ b/Tools_SearchDialog.st	Sun Jul 11 17:09:55 2010 +0200
@@ -917,15 +917,15 @@
 
     metaBox := HorizontalPanelView new.
     metaBox horizontalLayout:#leftMax.
-    b := Button label:'+Lit' action:[ codeField paste:'`#n' ] in:metaBox.
+    b := Button label:'+Lit' action:[ codeField pasteOrReplace:'`#n' ] in:metaBox.
     b helpKey:#matchAnyLiteral.
-    b := Button label:'+Var' action:[ codeField paste:'`v' ] in:metaBox.
+    b := Button label:'+Var' action:[ codeField pasteOrReplace:'`v' ] in:metaBox.
     b helpKey:#matchAnyVariable.
-    b := Button label:'+Expr' action:[ codeField paste:'`@e' ] in:metaBox.
+    b := Button label:'+Expr' action:[ codeField pasteOrReplace:'`@e' ] in:metaBox.
     b helpKey:#matchAnyExpression.
-    b := Button label:'+Msg' action:[ codeField paste:'`@m:' ] in:metaBox.
+    b := Button label:'+Msg' action:[ codeField pasteOrReplace:'`@m:' ] in:metaBox.
     b helpKey:#matchAnyMessage.
-    b := Button label:'+Node' action:[ codeField paste:'`{:node | node isLiteral and:[node value isSymbol] }' ] in:metaBox.
+    b := Button label:'+Node' action:[ codeField pasteOrReplace:'`{:node | node isLiteral and:[node value isSymbol] }' ] in:metaBox.
     b helpKey:#matchAnyNode.
     self addComponent:metaBox.
 
@@ -945,7 +945,7 @@
     codeField contents:initial.
     checkCodeAction value.
 
-    "Modified: / 26-04-2010 / 15:39:40 / cg"
+    "Modified: / 11-07-2010 / 10:26:41 / cg"
 !
 
 checkCodeIn:codeField notifying:errMessageField
@@ -1216,9 +1216,9 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.53 2010-07-04 14:30:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.54 2010-07-11 15:09:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.53 2010-07-04 14:30:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.54 2010-07-11 15:09:55 cg Exp $'
 ! !