Aus dem Label herausfinden in welcher Zeile ich bin (solved) (Fragen zu Perl-Modulen)

[thread]18972[/thread]

Aus dem Label herausfinden in welcher Zeile ich bin [solved]

Tags: perl5 Tk module Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+6 replies
DarAvanger05

2014-03-17 13:37

User since
2014-03-03
44 articles
BenutzerIn

Hallo zusammen,
ich habe jetzt ein Skript geschrieben mit dem es mir möglich ist mehrere Datein auszuwählen.
So, nach dem öffnen Auswählen der Datei habe ich dass so möglich gemacht, dass der ausgwählte Datei Name neben dem Button für die DateiAuswahl steht. Bei einer Datei funktioniert das auch noch.
Wenn ich aber mein Konzept auf mehrer Button erweitere, schreibt er den Dateinamen immer nur an die letzte Position. Mir ist klar das es mit meinem Label zusammenhängt nur weiß ich nicht genau wie ich das ändere. Ich poste einfach mal noch nebenbei den Code:

more (6.3kb)

modedit Editiert von pq: more-tag hinzugefügt
Last edited: 2014-03-17 18:27:03 +0100 (CET)
- Raubtier
  
  2014-03-17 14:21
  
  User since
  2012-05-04
  1075 articles
  BenutzerIn
  
  Dein Grundproblem ist, dass du viel zu viele globale Variablen hast. Das ist schlecht, weil die Funktionen viel zu stark von globalem State abhängen und du daher genau aufpassen müsstest.
  
  Insbesondere solltest du dir mal deine Variable $variable ansehen. Nicht nur, dass der Name schlecht gewählt ist, ihr wird auch - für jedes i -
  - zunächst ein String zugewiesen, der nie benutzt wird
  - dann das Label zugewiesen.
  
  Da du das Label in der Loop zuweist, wird am Ende natürlich nur das letzte Label in der Variable stehen. Du musst die also alle Labels merken.
  
  Kurz: datei_auswaehlen und bilddaten_sammeln sollten Parameter bekommen.
  
  Und: "Wählen sie ein Bild aus, dass sie einfügen möchten" --> "Wählen Sie ein Bild aus, das Sie einfügen möchten"
- +4 replies
- GUIfreund
  
  2014-03-17 15:35
  User since
  2011-08-08
  559 articles
  BenutzerIn
  In Ergänzung zu den Erläuterungen von Raubtier:
  
  Was Raubtier über $variable gesagt hat, gilt übrigens nicht auch für $button. Weil du my davor stehen hast, wird diese Variable bei jedem Durchlauf neu angelegt. Und ausgerechnet diese Variable benötigst du im Pogramm nicht. Lass sie weg.
  
  Um das Label an datei_auswaehlen zu übergeben, solltest du es vor dem Button erzeugen, etwa so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $bild_lb = $mw->Label(-text => ... $mw->Button(-text => "Wählen sie ... -command => [ \&datei_auswaehlen, $bild_lb ], )->grid(-row=>$i, -column =>0);
  
  Und vergiss bitte nicht, den Parameter in datei_auswaehlen auch entgegenzunehmen.
  Gruß
  GUIfreund
  - +3 replies
  - DarAvanger05
    
    2014-03-17 18:08
    
    User since
    2014-03-03
    44 articles
    BenutzerIn
    
    Okay die $variable war nur eine Idee die ich aber schon wieder verworfen hatte.
    Ich habe jetzt den Code angeändert und versuche das Label zu übergeben.
    Jetzt allerdings kann ruft sich der Dateidialog direkt auf und nich erst nach einem Buttonklich..
    
    more (6.1kb)
    
    modedit Editiert von pq: more-tag hinzugefügt
    Last edited: 2014-03-17 18:27:42 +0100 (CET)
    - +2 replies
    - GUIfreund
      
      2014-03-17 19:19
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      Du hast falsch abgeschrieben. Statt
      
      Code (perl): (dl )
      
      -command => [ \&datei_auswaehlen, $bild_lb ],
      
      steht bei dir
      
      Code (perl): (dl )
      
      -command => \&datei_auswaehlen($label))
      
      .
      Mit copy&paste wäre das nicht passiert.
      Gruß
      GUIfreund
      - DarAvanger05
        
        2014-03-17 23:27
        
        User since
        2014-03-03
        44 articles
        BenutzerIn
        
        Du hast Recht tut mir leid, dachte das ginge auch so.
        Danke für die Hilfe es läuft!

View all threads created 2014-03-17 13:37.