TkCatScan

Michael Jacobson: A quick little GUI for the CueCat library

 wm title . {TkCatScan}
 wm iconname . {CatScan}
 package require CueCat

 proc Decode {} {
    set cat_str [.tx.entry get] 
    if {$cat_str != "" } {
            .tx.entry delete 0 end
            set cat_decode "SCAN# [CueCat::DecodeNOID $cat_str]"
            append cat_decode "\n"
            if {[regexp ^IB [lindex $cat_decode 1]]} {
                       append cat_decode "ISBN# [CueCat::ISBN $cat_decode] [CueCat::BookCost $cat_decode] \n"
            }
                .tx.text insert 1.0 $cat_decode
    }
    grab release .tx.entry
 }

 proc PlaceData {} {
    grab .tx.entry
    focus .tx.entry
 }


 set I1 "Scan the Data"
 frame .tx
 label .tx.label -textvariable I1
 entry .tx.entry -width 60 -relief sunken
 text .tx.text  -yscrollcommand ".tx.scroll set"
 scrollbar .tx.scroll -command ".tx.text yview"
 pack .tx.label -side top
 pack .tx.entry -side top
 pack .tx.scroll -side left -fill y
 pack .tx.text -side left
 pack .tx -side top
 bind .tx.entry <Return> {Decode}
 bind all <Alt-F10> {PlaceData}
 focus .tx.entry