1 --- demos/widget.orig 2008-01-02 13:24:14.000000000 +0100
2 +++ demos/widget 2008-01-02 13:27:10.000000000 +0100
7 -use lib Tk->findINC( 'demos/widget_lib' );
8 +#use lib Tk->findINC( 'demos/widget_lib' );
9 +use lib "@demopath@/widget_lib";
10 use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
17 -my $widget_lib = Tk->findINC('demos/widget_lib');
18 +#my $widget_lib = Tk->findINC('demos/widget_lib');
19 +my $widget_lib = "@demopath@/widget_lib";
20 my $wd = "$widget_lib/WidgetDemo.pm";
21 -$WIDTRIB = Tk->findINC('demos/widtrib');
22 +#$WIDTRIB = Tk->findINC('demos/widtrib');
23 +$WIDTRIB = "@demopath@/widtrib";
24 unless (Tk::tainting) {
25 $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};
26 $WIDTRIB = $ARGV[0] if defined $ARGV[0];