File: fix-own-master-error

package info (click to toggle)
libtk-filedialog-perl 1.3-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 268 kB
  • sloc: perl: 2,656; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 538 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Description: Fix ``can't make ".filedialog" its own master'' error.
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=12726
Bug-Debian: https://bugs.debian.org/544894
Origin: http://rt.cpan.org/Ticket/Attachment/131163/34704/
Author: Lee Goddard <lgoddard@cpan.org>

--- a/FileDialog.pm
+++ b/FileDialog.pm
@@ -467,7 +467,7 @@
 	    $FDialog->{'Can'}->invoke;
 	}
     });
-    $FDialog->transient($FDialog->toplevel);
+    $FDialog->transient($FDialog->parent->toplevel);
 
     foreach (@TabOrder) {
 	$FDialog->{'TabSel'}->{$_} = 1;