24 lines
790 B
Diff
24 lines
790 B
Diff
|
--- demos/widget.orig 2005-06-16 22:57:11.000000000 +0200
|
||
|
|
+++ demos/widget 2005-06-16 23:43:23.000000000 +0200
|
||
|
|
@@ -6,7 +6,7 @@
|
||
|
|
use 5.008;
|
||
|
|
use Config;
|
||
|
|
use Tk 804.000;
|
||
|
|
-use lib Tk->findINC( 'demos/widget_lib' );
|
||
|
|
+use lib "@demopath@/widget_lib";
|
||
|
|
use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
|
||
|
|
use WidgetDemo;
|
||
|
|
use subs qw/
|
||
|
|
@@ -44,9 +44,9 @@
|
||
|
|
$MW->title('Perl/Tk Widget Demonstration');
|
||
|
|
$MW->iconname('widget');
|
||
|
|
$FONT = 'Helvetica 12';
|
||
|
|
-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 = "@demopath@/widtrib";
|
||
|
|
unless (Tk::tainting) {
|
||
|
|
$WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};
|
||
|
|
$WIDTRIB = $ARGV[0] if defined $ARGV[0];
|