[Tk] Icons und Images in externe Datei auslagern (XPM-Format) (Graphische Oberflächen)

[thread]19229[/thread]

[Tk] Icons und Images in externe Datei auslagern (XPM-Format)

Tags: perl5 GUI Tk Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+12 replies
Kean

2014-08-07 13:43

User since
2004-08-18
463 articles
BenutzerIn

Ich lade momentan meine ganzen Grafiken für Buttons oder Images aus JPG oder PNG Dateien.
Diese Dateien würde ich gerne als globale Variablen im Format XPM einbinden.

Damit möchte ich die Anzahl Dateien verkleinern, ich muss also nicht mehr 20+ Dateien verteilen sondern nur eine Datei mit den Grafiken im XPM Format als Variablen.

Gibt es hierfür einen idealen Perl(/Tk) weg?
Oder muss ich einfach eine .pm Datei anlegen und diese einbinden?
Und wie mache ich es dass diese dann automatisch global gültig sind?
- +3 replies
- GwenDragon
  
  2014-08-07 14:40
  User since
  2005-01-17
  14227 articles
  Admin1
  XPM-Bilder sind über Tk::Pixmap zu laden, die Daten können als Skalar vorliegen.
  
  Eine Lösung gibt es nicht. ;)
  
  Mein Vorschlag:
  Du könntest ein eigens Modul erstellen, die XPM-Bilder dort in Skalare speichern und diese Variablen dann importieren.
  
  Oder du packst alle XPM-Bilder mit einer Namenskennzeichnung in eine INI-Datei und lies diese ein.
  Vorgeschlagenes Format:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  [Button-123-1] ! XPM2 16 7 2 1 * c #000000 . c #ffffff **..*........... *.*.*........... **..*..**.**..** *.*.*.*.*.*..*.* **..*..**.*...** ...............* .............**. [Button-0815-42] ! XPM2 16 7 2 1 * c #002200 . c #ffff00 **..*........... *.*.*........... **..*..**.**..** *.*.*.*.*.*..*.* **..*..**.*...** ...............* .............**.
  
  Last edited: 2014-08-07 14:41:31 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Kean
    
    2014-08-07 15:55
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Ich habe mal mit einem eigenen Modul getestet. Der Code sieht wie folgt aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
    
    package Icons; our $arrow_small_green = <<'END'; /* XPM */ static char *arrow_small[] = { /* columns rows colors chars-per-pixel */ "19 17 37 1", " c #04B04F", ". c #0BB04F", "X c #16B24F", "o c #1AB24F", "O c #04AF50", "+ c #00AF5D", "@ c #00B050", "# c #01B050", "$ c #02B050", "% c #00B052", "& c #01B052", "* c #04B050", "= c #00B056", "- c #00B157", "; c #0AB150", ": c #02B15B", "> c #00B25D", ", c #04B35F", "< c #16B250", "1 c #1DB553", "2 c #20B44F", "3 c #21B452", "4 c #21B55F", "5 c #3CB955", "6 c #00B061", "7 c #00B46F", "8 c #08B569", "9 c #0AB66E", "0 c #1FB968", "q c #00B470", "w c #07B670", "e c #00B677", "r c #0EB87A", "t c #4AB955", "y c #17BC92", "u c #1EC197", "i c None", /* pixels */ "iiiiiiiiiiiiiiiii<y", "iiiiiiiiiiiiiii5@>i", "iiiiiiiiiiiiii1@7ii", "iiiiiiiiiiiii.@qiii", "iiiiiiiiiiii @6iiii", "iiiiiiiiiiiO@8iiiii", "iiiiiiiiii*@:iiiiii", "iiiiiiiii;@=iiiiiii", "iiiiiiiiO@@uiiiiiii", "i<@@iiio@@wiiiiiiii", "i@@@,it@@6iiiiiiiii", "ii@@@0@ @iiiiiiiiii", "iio@@@@ riiiiiiiiii", "iii*@@@:iiiiiiiiiii", "iii3@@@eiiiiiiiiiii", "iiii@@9iiiiiiiiiiii", "iiii4iiiiiiiiiiiiii" }; END 1;
    
    Und eingebunden habe ich ihn ganz normal mit:
    
    Code: (dl )
    
    use Icons;
    
    Darauf zugreifen tue ich über:
    
    Code: (dl )
    
    $hlist->itemCget($y, $x, -widget)->Photo(-data => $Icons::arrow_small_green, -format => 'xpm');
    
    Wenn in dem Modul noch mehr Images hinzu kommen, werden diese dann alle beim Programmstart geladen? Sind also die ganze Zeit im Ramspeicher? Oder nur wenn ich eins lade?
    - GwenDragon
      
      2014-08-08 10:11
      
      User since
      2005-01-17
      14227 articles
      Admin1
      
      2014-08-07T13:55:26 Kean
      Wenn in dem Modul noch mehr Images hinzu kommen, werden diese dann alle beim Programmstart geladen? Sind also die ganze Zeit im Ramspeicher? Oder nur wenn ich eins lade?
      Wenn du das Modul lädst, dann sind die alle im Speicher, weil es ja Variablen sind.
      
      Wenn du die nur bei Bedarf laden willst, kannst du die Grafiken in einzelne Dateien packen und diese dann mit perlfunc do laden.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +8 replies
- rosti
  
  2014-08-07 19:56
  
  User since
  2011-03-19
  2765 articles
  BenutzerIn
  
  Dafür gibt es im Core einen Serializer: Storable. Egal ob viele oder weniger viele jpeg, png oder xpm zu speichern sind, mit Storable kriegst Du das alles schön verpackt in eine einzige Datei. API: Hash rein, Hash raus. Möglicherweise schreibst Du eine eigene API, ganz genau zugeschnitten auf Deine Bedürfnisse.
  - +7 replies
  - GwenDragon
    
    2014-08-08 10:06
    
    User since
    2005-01-17
    14227 articles
    Admin1
    
    Warum keine Textdatei?
    Die lässt sich sogar schön editieren, das ist doch der Vorteil an den XPM-Grafikformat, es ist Text.
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +6 replies
    - rosti
      
      2014-08-08 11:08
      
      User since
      2011-03-19
      2765 articles
      BenutzerIn
      
      2014-08-08T08:06:49 GwenDragon
      Warum keine Textdatei?
      Die lässt sich sogar schön editieren, das ist doch der Vorteil an den XPM-Grafikformat, es ist Text.
      
      Natürlich müssen Daten irgendwo editierbar sein wenn sie nicht komplett maschinell erstellt werden können sondern auf Benutzereingaben basieren. Da ist eine INI-Datei schon die richtige Wahl.
      
      Dem Programm jedoch ists egal wo die Daten herkommen, so sind INI-Dateien, welche die MB-Grenzen überschreiten zwar immer noch editierbar aber nicht besonders performant, was auf jeden Fall geprüft werden sollte. Idealerweise gibt es einen Data-Abstraktion-Layer welcher austauschbar ist per Konfiguration und im Deployment einen Zwischenschritt. Schließlich arbeitet ein Programm abstrakt gesehen nicht mit Text- oder Binärdateien sondern mit Daten in Form von Arrays oder Hashes. Dieses Prinzip ist nicht neu, Niklas Wirth schrieb darüber im Jahr 1980.
      - +5 replies
      - GwenDragon
        
        2014-08-08 11:21
        
        User since
        2005-01-17
        14227 articles
        Admin1
        
        Ich denke, dass das Tk-Programm selbst nicht unbedingt schnell ist, da wird die Performanz bei den Grafiken wegen eienr INI-Datei kaum ins Gewicht fallen.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +4 replies
        
        rosti
        
        2014-08-08 18:04
        
        User since
        2011-03-19
        2765 articles
        BenutzerIn
        
        Von Hand editierte Dateien sind immer eine Fehlerquelle. Deswegen schrieb ich ja von einem Zwischenschritt im Deployment-Prozess wo auch geprüft wird, ob die Daten aus einer von Hand geschriebenen Datei wiederhergestellt werden können.
        
        Wer oft auf Linux & co unterwegs ist, hat's bestimmt schon oft gelesen:
        Do not edit this file... ;)
        
        --rosti
        
        +3 replies
        
        Kean
        
        2014-08-08 19:14
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Ich hatte eine Perlmodul Datei gewählt, da ich das ganze am Ende compiliere und er die Datei so automatisch mit einpackt, da ich sie mit use einbinde.
        Gibt es keine Möglichkeit die variablen in dem Modul nur bei Aufruf in den Speicher zu laden?
        
        GwenDragon
        
        2014-08-08 19:20
        
        User since
        2005-01-17
        14227 articles
        Admin1
        
        Wie bei Aufruf?
        Hast du msg #176774 gesehen?
        
        Wie willst du denn vom TK-programm entscheiden lassen, was geladen werden muss?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        rosti
        
        2014-08-08 22:14
        
        User since
        2011-03-19
        2765 articles
        BenutzerIn
        
        Quote
        Gibt es keine Möglichkeit die variablen in dem Modul nur bei Aufruf in den Speicher zu laden?
        
        Das kann bereits require erledigen, require gibt beim ersten Aufruf die in der Datei notierte letzte Anweisung zurück.
        
        Gewöhnlich wird dort eine 1; notiert, Du kannst da aber auch eine Hash-Referenz hinterlegen. Beachte jedoch, dass beim zweiten und jedem weiteren Aufruf mit require in diesem Fall der Rückgabewert nur noch ein wahrer Wert ist.
        
        Auf diese Art und Weise kannst Du auch unterhalb des __DATA__ Token beliebige Daten/Sequenzen hinterlegen, wobei eine oberhalb von __DATA__ hinterlegte Funktionsreferenz aus der Sequenz eine Hash-Referenz macht, die beim Aufruf der Funktion zurückgegeben wird. Und wenn Du da einen typeglob verwendest, kannst Du diese Funktion dann beliebig oft aufrufen, also immer dann, wenn ein wahlfreier Zugriff auf die Daten erforderlich ist.
        
        Mehr dazu: http://rolfrost.de/reqauto.html und http://rolfrost.de/klassenmethoden.html
        
        Edit, Beispiel einer Config, die mit require eingebunden wird.
        
        Config Datei Images.pm
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        use strict; use warnings; use Config::IniFiles; do{ my $href = tie my %data, 'Config::IniFiles', -file => *DATA; \%data; }; __DATA__ [foo] bar=123 dog=boo [bar] person=me group=fuzzies
        
        Verwendung in der main:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $data = require Images; print Dumper $data;
        
        Ausgabe der Daten:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        $VAR1 = { 'foo' => { 'bar' => '123', 'dog' => 'boo' }, 'bar' => { 'person' => 'me', 'group' => 'fuzzies' } };
        
        Last edited: 2014-08-09 10:36:43 +0200 (CEST)

View all threads created 2014-08-07 13:43.