2000-09-18 Fernando Nasser <fnasser@cygnus.com>

	* watch.tcl (build_win): Use code when setting callback.

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 775b198..5209d50 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-18  Fernando Nasser  <fnasser@cygnus.com>
+
+       * watch.tcl (build_win): Use code when setting callback.
+
 2000-08-10  Fernando Nasser  <fnasser@cygnus.com>
 
        * targetselection.itb (change_baud): Fix typo (ETH, not ETX).

diff --git a/gdb/gdbtk/library/watch.tcl b/gdb/gdbtk/library/watch.tcl
index 0c227d1..8b15948 100644 (file)
--- a/gdb/gdbtk/library/watch.tcl
+++ b/gdb/gdbtk/library/watch.tcl
@@ -52,7 +52,7 @@ class WatchWin {
     set entryFrame [frame $f.expr]
     VariableWin::build_win $treeFrame
     set Entry [entry $entryFrame.ent -font src-font]
-    button $entryFrame.but -text "Add Watch" -command "$this validateEntry"
+    button $entryFrame.but -text "Add Watch" -command [code $this validateEntry]
     pack $f -fill both -expand yes
     grid $entryFrame.ent -row 0 -column 0 -sticky news -padx 2
     grid $entryFrame.but -row 0 -column 1 -padx 2