--- 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 $'
! !