+ set type [z39.$sno type $no]
+ if {$hflag} {
+ if {[tk colormodel .] == "color"} {
+ $w tag bind r$no <Any-Enter> \
+ [list $w tag configure r$no -background gray80]
+ $w tag bind r$no <Any-Leave> \
+ [list $w tag configure r$no -background {}]
+ } else {
+ $w tag bind r$no <Any-Enter> \
+ [list $w tag configure r$no -background black -foreground white]
+ $w tag bind r$no <Any-Leave> \
+ [list $w tag configure r$no -background {} -foreground {}]
+ }
+ } else {