Select Code to Download

use Tcl::Tk;
my $mw = Tcl::Tk::tkinit;
...
$mw->Button(-text=>'test')->tooltip("test button\npress to see the res
+ult")->pack;

Tcl::Tk::MainLoop;