Select Code to Download

open3: Can't call method "close" on an undefined value at C:/perl/lib/
+IPC/Open3.pm line 368.

...
    invoked from within
".b instate {pressed !disabled} { .b state !pressed; .b invoke } "
    (command bound to event)

use strict;

...
Tkx::pack( $bt );

Tkx::MainLoop;