--- old/demos/widget.orig	2008-01-02 13:24:14.000000000 +0100
+++ new/demos/widget	2008-01-02 13:27:10.000000000 +0100
@@ -3,7 +3,8 @@
 use 5.008;
 use Config;
 use Tk 804.000;
-use lib Tk->findINC( 'demos/widget_lib' );
+#use lib Tk->findINC( 'demos/widget_lib' );
+use lib "@demopath@/widget_lib";
 use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
 use Tk::Config ();
 use WidgetDemo;
@@ -62,9 +63,11 @@
     $l->destroy;
 }
 
-my $widget_lib = Tk->findINC('demos/widget_lib');
+#my $widget_lib = Tk->findINC('demos/widget_lib');
+my $widget_lib = "@demopath@/widget_lib";
 my $wd = "$widget_lib/WidgetDemo.pm";
-$WIDTRIB = Tk->findINC('demos/widtrib');
+#$WIDTRIB = Tk->findINC('demos/widtrib');
+$WIDTRIB = "@demopath@/widtrib";
 unless (Tk::tainting) {
     $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};
     $WIDTRIB = $ARGV[0] if defined $ARGV[0];
