halshow: fix error on right click "Set to .."

hansu · hansu · commit 86cdee2be862 · 2024-11-18T23:51:32.000+01:00
Error introduced in c0b5666
diff --git a/tcl/bin/halshow.tcl b/tcl/bin/halshow.tcl
@@ -956,7 +956,7 @@ proc popupmenu_watch {vartype label index writable which x y} {
     # add entries
     $m add command -label [msgcat::mc "Copy"] -command [list copyName $label]
     if {$writable} {
-        $m add command -label [msgcat::mc "Set to .."] -command [list setValue $label]
+        $m add command -label [msgcat::mc "Set to .."] -command [list setpValue $label]
     }
     if {$writable == -1} {
         $m add command -label [msgcat::mc "Unlink pin"] -command [list unlinkp $label $index]

Original file line number	Diff line number	Diff line change
`@@ -956,7 +956,7 @@ proc popupmenu_watch {vartype label index writable which x y} {`
`956`	`956`	`# add entries`
`957`	`957`	`$m add command -label [msgcat::mc "Copy"] -command [list copyName $label]`
`958`	`958`	`if {$writable} {`
`959`		`- $m add command -label [msgcat::mc "Set to .."] -command [list setValue $label]`
	`959`	`+ $m add command -label [msgcat::mc "Set to .."] -command [list setpValue $label]`
`960`	`960`	`}`
`961`	`961`	`if {$writable == -1} {`
`962`	`962`	`$m add command -label [msgcat::mc "Unlink pin"] -command [list unlinkp $label $index]`