# getprop and putprop..

proc getprop_curr {w name} {
    foreach tag [$w gettags current] {
	if {[regexp "^$name:(.*)$" $tag xx tagval]} {
	    return $tagval
	}
    }
}

proc putprop_curr {w name value} {
    foreach tag [$w gettags current] {
	if {[regexp "^$name:(.*)$" $tag xx]} {
	    $w dtag current $xx
	}
    }
    $w addtag "$name:$value" withtag current
}