Problem mit Tk::Optionmenu (Graphische Oberflächen)

[thread]16226[/thread]

Problem mit Tk::Optionmenu

Tags: perl5 GUI Tk Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

Subtree:
Problem mit Tk::Optionmenu (6 articles) 2011-05-01 19:39

+7 replies
use_Tk

2011-05-01 17:32
User since
2011-03-31
15 articles
BenutzerIn
Folgender Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

$listbox = $mw -> Listbox (-selectmode => "single") -> pack(); $optionmenu = $mw -> Optionmenu (-options => [qw/foo bar bla blubb/] -variable => \$var, -command => \&subfunktion ) -> pack(); sub subfunktion{ opendir (FOO, "/usr/share/$var") || die "öffnen: $!"; @foo = readdir FOO; closedir FOO || die "schließen: $!"; foreach $bar (@foo){ $listbox -> insert ('end', '$bar'); } }
Folgendes Problem: beim Starten kommt der Fehler:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

XS_Tk__Callback_Call error:Can't call method "insert" on an undefined value at /etc/perl/chefkoch/list.pm line 30. Tk::Error: Can't set -options to `ARRAY(0x9d8bd88)' for Tk::Optionmenu=HASH(0x9dcffe0): Can't call method "insert" on an undefined value at /etc/perl/chefkoch/list.pm line 30. at /usr/lib/perl5/Tk/Derived.pm line 294 at /usr/lib/perl5/Tk/Derived.pm line 306 Tk callback for .frame2 Tk::Derived::configure at /usr/lib/perl5/Tk/Derived.pm line 306 Tk::Widget::new at /usr/lib/perl5/Tk/Widget.pm line 205 Tk::Widget::__ANON__ at /usr/lib/perl5/Tk/Widget.pm line 256 main::list_1 at /etc/perl/chefkoch/list.pm line 15 main::list at ck1.3_main.plx line 61 Tk callback for .frame1.button1 Tk::__ANON__ at /usr/lib/perl5/Tk.pm line 250 Tk::Button::butUp at /usr/lib/perl5/Tk/Button.pm line 175 <ButtonRelease-1> (command bound to event)
Woran ligt das bzw was kann ich dagegen machen?

modedit Editiert von pq: teilbaum "Problem mit Tk::Optionmenu"
Last edited: 2011-05-01 18:42:45 +0200 (CEST)
- +6 replies
- pq
  
  2011-05-01 18:16
  User since
  2003-08-04
  12208 articles
  Admin1
  also der erste fehler liegt schonmal in zeile 2. ein hash wird so definiert:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my %hash = ( foo => 1, bar => 2, );
  
  du schreibst:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my %hash = ( foo => 1 bar => 2, );
  
  da muss ein komma hinter die -options arrayref.
  
  zeile 12 sieht auch komisch aus. du möchtest den string '$bar' übergeben? also dollar b a r?
  oder warum setzt du das in einfache anführungszeichen?
  
  ausserdem fällt mir auf, dass du die variablen nirgendo mit my() deklarierst. lies dir doch mal use strict genau durch.
  Last edited: 2011-05-01 18:17:58 +0200 (CEST)
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +5 replies
  - use_Tk
    
    2011-05-01 18:26
    User since
    2011-03-31
    15 articles
    BenutzerIn
    
    ouch, das war ein fehler mit dem ', ich hab schon " verwendet daran lags also nicht, ich hab den code nicht kopiert sondern nochmal getippt, selbes beim komma hinter der optionsliste.
    
    use strict ist mir bekannt aber ich hatte das problem das, wenn ich in verschiedene Module unterteile, die variable $mw nicht übergeben wird was zu diversen Problemen führt.
    
    Das mit den optionen hab ich irgendwo gelesen und übernommen, wenn ich das
    
    Code (perl): (dl )
    
    -command => \&subfunktion
    
    rausnehme beschwert er sich auch nicht drüber
    
    edit: die schreibweise die auf CPAN verwendet wird also
    
    Code (perl): (dl )
    
    (-options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]])
    
    hab ich auch versucht, klappt auch nicht
    Last edited: 2011-05-01 18:33:15 +0200 (CEST)
    - +4 replies
    - pq
      
      2011-05-01 18:39
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      und was möchtest du jetzt?
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - use_Tk
        
        2011-05-01 19:02
        
        User since
        2011-03-31
        15 articles
        BenutzerIn
        
        das es funktioniert ;)
        
        Ich bin mir noch nichtmal sicher wo genau der fehler liegt, weißt du was das sein könnte?
        
        +2 replies
        
        pq
        
        2011-05-01 19:16
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        wie sollte ich es wissen, wenn ich nicht mal den korrekten code vorliegen habe? die 2. fehlermeldung passte für mich zum vergessenen komma.
        schau dir doch mal unsere FAQ an. wenn du hilfe möchtest, ist ein kleines beispielskript, was den fehler reproduziert, ein ansatzpunkt für die helfer.
        
        use strict: nur weil strict angefangen hat zu meckern, ist es kein grund, es wegzulassen. strict hilft dir sauber zu programmieren. braucht man skriptübergreifende variablen, schaltet man nicht einfach strict ab. man übergibt variablen als parameter an subroutinen oder deklariert sie anders.
        
        ich habe mal ein halbes jahr code anpassen müssen, der hunderte globaler variablen benutzt hat. das war der horror, weil man einfach keinen überblick mehr hatte, welches modul/welche sub wann wo welche variable angefasst hat.
        ein programm, welches nicht mit strict läuft, ist in den meisten fällen falsch konzipiert.
        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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        use_Tk
        
        2011-05-01 19:39
        
        User since
        2011-03-31
        15 articles
        BenutzerIn
        
        zu 1:
        Ich schwöre dir das ich im code ein komma habe, ein skript das einfach nur den fehler ausspuckt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        #!/usr/bin/perl use Tk; use strict; my ($var, $datei); my $mw = new MainWindow; $mw -> Label (-text => "nur ein kleines Beispiel") -> pack(); my $optionmenu = $mw -> Optionmenu (-options => [qw/perl perl5 php5/], -variable => \$var, -command => \&subfunktion) -> pack(); my $listbox => $mw -> Listbox (-selectmode => "single", -height => 5) -> pack(); MainLoop; sub subfunktion{ opendir (VAR, "/usr/share/$var") || die "öffnen fehlgeschlagen: $!"; my @inhalt = readdir VAR; closedir VAR; foreach $datei (@inhalt){$listbox -> insert ('end', "$datei");} }
        
        Ich hab keine methode gefunden wie ich $mw also das hauptfenster(Tk) an ein externes modul übergeben kann ohne eine globale variable, strict hat also nicht gemeckert sondern die funktion blockiert da $mw nur im Hauptskript als hauptfenster gezählt hat.

View all threads created 2011-04-26 19:47.