1234567891011 use strict;use Tcl::Tk;my $int = new Tcl::Tk;use Tcl::Tk::Tkwidget::treectrl;Tcl::Tk::Tkwidget::treectrl::init($int);$int->source('../demos/demo.tcl');$int->focus('.');$int->MainLoop;
use
strict;
Tcl::Tk;
my
$int
= new Tcl::Tk;
Tcl::Tk::Tkwidget::treectrl;
Tcl::Tk::Tkwidget::treectrl::init(
);
->source(
'../demos/demo.tcl'
->focus(
'.'
->MainLoop;