$entry->configure( -state => $Tk::VERSION >= 804 ? 'readonly' : 'disabled' );