c29723a2c4
- version upgrade - fix #210718 SIGSEGV on exit from texdoctk - fix #234404 Cannot manage big listboxes - fix #235666 Segfault occurs when using Perl-Tk on FC6
27 lines
864 B
Diff
27 lines
864 B
Diff
--- demos/widget.orig 2008-01-02 13:24:14.000000000 +0100
|
|
+++ 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];
|