Lines Matching defs:getword
367 proc ::ico::getword {fh} {
704 if {"[getword $fh] [getword $fh]" ne "0 1"} {
707 set num [getword $fh]
717 lappend info [getword $fh]
786 if {"[getword $fh] [getword $fh]" ne "0 1"} {
790 if {$index < 0 || $index >= [getword $fh]} {
880 if {[file size $file] > 4 && "[getword $fh] [getword $fh]" ne "0 1"} {
884 set num [getword $fh]
1012 seek $fh [getword $fh] start
1030 seek $fh [expr {[getword $fh] - 38}] current