Add deprecation warning to Commit, alias for Hold

cwervo · cwervo · commit 3ef972747761 · 2024-07-23T17:47:17.000-04:00
diff --git a/main.tcl b/main.tcl
@@ -217,6 +217,14 @@ proc Hold {args} {
     }
 }
 
+proc Commit {args} {
+    set this [uplevel {expr {[info exists this] ? $this : "<unknown>"}}]
+    set w "Commit was deprecated in July 2024; use Hold instead"
+    Claim $this has warning $w with info $w
+
+    uplevel [list Hold {*}$args]
+}
+
 set ::stepCount 0
 set ::stepTime -1
 source "lib/peer.tcl"

Original file line number	Diff line number	Diff line change
`@@ -217,6 +217,14 @@ proc Hold {args} {`
`217`	`217`	`}`
`218`	`218`	`}`
`219`	`219`
	`220`	`+proc Commit {args} {`
	`221`	`+ set this [uplevel {expr {[info exists this] ? $this : "<unknown>"}}]`
	`222`	`+ set w "Commit was deprecated in July 2024; use Hold instead"`
	`223`	`+ Claim $this has warning $w with info $w`
	`224`	`+`
	`225`	`+ uplevel [list Hold {*}$args]`
	`226`	`+}`
	`227`	`+`
`220`	`228`	`set ::stepCount 0`
`221`	`229`	`set ::stepTime -1`
`222`	`230`	`source "lib/peer.tcl"`