1234567891011121314151617 use Test::More tests=>1;use strict;use Tcl::Tk;my $int = new Tcl::Tk;use Tcl::Tk::Tkwidget::treectrl;$int->SetVar('::treectrl_library','library');Tcl::Tk::Tkwidget::treectrl::Treectrl_Init($int);#print "ret=".$int->packageRequireTreectrl('2.4.2') . ".\n";$int->source('../tests/all.tcl');ok(1);done_testing();
use
Test::More
tests
=>1;
strict;
Tcl::Tk;
my
$int
= new Tcl::Tk;
Tcl::Tk::Tkwidget::treectrl;
->SetVar(
'::treectrl_library'
,
'library'
);
Tcl::Tk::Tkwidget::treectrl::Treectrl_Init(
#print "ret=".$int->packageRequireTreectrl('2.4.2') . ".\n";
->source(
'../tests/all.tcl'
ok(1);
done_testing();