Tk - Funktion transient (Graphische Oberflächen)

[thread]11540[/thread]

Tk - Funktion transient

Leser: 1

2008-03-28 20:23

User since
2003-08-04
12208 Artikel
Admin1

hi,

ich bin bisher noch nicht so bewandert in Tk und habe leichtsinnigerweise CPAN:

Tk::ColourChooser
übernommen. es ist seit einigen jahren nicht weiterentwickelt worden und es hat einen fehler.
ich vermute, weil es in Tk änderungen gab.
der fehlerhafte code lautet:

Code (perl): (dl )

    my( $win, $args ) = @_ ;

    $win->SUPER::Populate( $args ) ;
    
    $win->withdraw ;
    $win->iconname( $args->{-title} ) ;
    $win->protocol( 'WM_DELETE_WINDOW' => sub { } ) ;
    # Tk/ColourChooser Zeile 50:
    $win->transient( $win->toplevel ) ;

in der letzten zeile gibt es folgenden fehler:

Code: (dl )

1
2

can't make ".colourchooser1" its own master at /usr/lib/perl5/Tk/Submethods.pm line 37.
 at blib/lib/Tk/ColourChooser.pm line 50

ich habe das nun in ein eval {} gepackt, und damit "läuft es", je nachdem, in was für eine
umgebung man das fenster lädt. ich bin aber nicht sicher, was die funktion machen sollte.
kann mir da jemand einen tip geben?
die aktuelle version mit dem eval ist auf cpan.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

#Kein Kommentar

2008-03-28 20:45

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

versuch mal

Code: (dl )

9:     $win->transient( $win->toplevel ) ;

gegen

Code: (dl )

9:     $win->transient( $win->parent) ;

zu tauschen. transient braucht als argument das eltern-fenster von $win

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

2008-03-28 20:55

User since
2003-08-04
12208 Artikel
Admin1

juchu, $win->parent klappt. danke!

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

View all threads created 2008-03-28 20:23.