proc sheetWin {t} {

#	get parent frame of sheet

#        puts stderr "Got t $t"
        set wl [split $t .] 
        set ll [llength $wl]
        set ti [expr $ll - 2]
        set win [join [lrange $wl 0 $ti] .]

	return $win
}
