pack .d.csr.csr.e -side left
focus .d.csr.csr.e
bind_key Return {
- binary scan [.d.csr.csr.e get] h* hex
+ binary scan [.d.csr.csr.e get] H* hex
if {[string length $hex]} {
RETURN_RESULT DEFINE "$cur_0 $cur_1 $hex"
}
set ol {}
foreach bm [array names database] {
set strh $database($bm)
- set strs [binary format h* $strh]
+ set strs [binary format H* $strh]
set strdo [format "%d %s" [expr {[string length $strh]/2}] $strh]
set o "[lindex $bm 0] $strdo\n"
append o [format "%d\n" [expr {[llength $bm]-1}]]