D349.diff
No OneTemporary
Actions

Size

411 B

Referenced Files

None

Subscribers

None

D349.diff
View Options

	diff --git a/Core.tcl b/Core.tcl
	--- a/Core.tcl
	+++ b/Core.tcl
	@@ -226,8 +226,15 @@
	}

	"incr" {
	+ if {$value == ""} {
	+ set term 1
	+ } elseif {[string is integer $value]} {
	+ set term $value
	+ } {
	+ error "The increment term must be an integer."
	+ }
	+
	set current [registry get $key]
	- if {$value == ""} {set term 1}
	if {$current == ""} {
	registry set $key $term
	} {