Help for this page

Select Code to Download


  1. or download this
    eval { require 'sys/ioctl.ph' };
$Tcl::pTk::_FE_unavailable = $@;
...
if ($Tcl::pTk::_FE_unavailable) {
...
  2. or download this
    eval {
    require 'sys/ioctl.ph';
1 } or do {
    $Tcl::pTk::_FE_unavailable = $@||'unknown error';
};