Problem mit Tk-Icon (Graphische Oberflächen)

[thread]15848[/thread]

Problem mit Tk-Icon

Tags: Tk Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+8 replies
Kean

2011-01-14 14:18
User since
2004-08-18
463 Artikel
BenutzerIn
Ich nutze unter Windows das Modul Tk-Icon um transparente Icons für meine Fenster zu laden.
Dazu verwende ich folgenden Code:
Code (perl): (dl )

1 2 3 4

if ( -e 'res\icon.ico' ) { $mw->setIcon(-file => 'res\icon.ico'); }
Bei jedem Toplevel Fenster, welches ich generiere kommt dieser Code zum Einsatz und jedes mal greift er auf die icon.ico Datei zu.

Leider kommt es öfters mal vor, dass er beim generieren eines Fenster die Fehlermeldung
Code: (dl )

1 2 3

Tk::Icon: Can't load Icon (2): 'Das System kann die angegebene Datei nicht finde n. '
bringt und das Tk Logo oben im Fenster erscheint.

Ich denke mir wenn ich die Datei icon.ico beim Programmstart irgendwie einlesen könnte, müsste er nicht jedes mal auf das Dateisystem zugreifen. Ist das irgendwie möglich?
- +6 replies
- Crian
  
  2011-01-14 14:28
  
  User since
  2003-08-04
  5866 Artikel
  ModeratorIn
  
  Vieleicht so?
  
  http://www.duehl.de/christian/perl/perlmain.html#t...
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
  - +5 replies
  - Kean
    
    2011-01-14 14:45
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Ich glaube das gibt es keine transparenz oder? Und wie kann man bestehende .ico Dateien umwandeln?
    
    Ich habe zwischenzeitlich gemerkt, das es wohl daran liegt, dass ich nicht den absoluten Pfad zu der Icon Datei angebe.
    Ist der aktuelle Programmpfad in einer Variable gespeichert? Evtl. erledigt sich das Problem mit Tk-Icon dann schon.
    
    Seltsam finde ich nur, dass ich mit -e oder open und dem relativen Pfad keine Probleme habe, aber das Modul Tk-Icon. Allerdings auch nicht von Anfang an. Ich muss mal debuggen was das auslöst...
    - +4 replies
    - Kean
      
      2011-01-14 14:49
      
      User since
      2004-08-18
      463 Artikel
      BenutzerIn
      
      Durch Zufall hab ich den bösen Auslöser schnell gefunden.
      
      Sobald ich einen Pfad über "OpenDialog();" (Win32::FileOp) einlese, kommt ab diesem Zeitpunkt die Fehlermeldung. Kann sich das jemand erklären??
      - +3 replies
      - #Kein Kommentar
        
        2011-01-14 21:19
        
        User since
        2007-06-09
        575 Artikel
        HausmeisterIn
        
        vielleicht wird dadurch das aktuelle arbeitsverzeichnis verändert?
        ich mache es immer so, dass ich am anfang meines programmes das aktuelle verzeichnis durch das Modul CWD auslese und es in eine variable speichere, dieses verzeichnis benutze ich dann bei allen weiteren zugriffen auf programmdateien.
        Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
        
        +2 replies
        
        GwenDragon
        
        2011-01-15 10:48
        
        User since
        2005-01-17
        14563 Artikel
        Admin1
        
        Du meinst wohl das Modul Cwd, CWD kenne ich gar nicht.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        #Kein Kommentar
        
        2011-01-21 21:18
        
        User since
        2007-06-09
        575 Artikel
        HausmeisterIn
        
        mein ich doch =)
        Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
- pq
  
  2011-01-14 15:00
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Move from Fragen zu Perl-Modulen to Graphische Oberflächen
  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

View all threads created 2011-01-14 14:18.