Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]4983[/thread]

Liste mit Smilies laden ?



<< >> 5 Einträge, 1 Seite
Froschpopo
 2005-04-29 14:06
#43836 #43836
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
ich hab ca 50 Smilies die ich jetzt alle in meinem Tk-Programm unterbringen muss.
Muss ich da jetzt für jedes Smilie nen eigenen Photo()-Aufruf machen oder gibts auch irgendeine Funktion mit der man z.b. nen array mit Dateinamen einlesen kann? Ich bin zu kaputt zum perldoc lesen offen gestanden... ich hab die ganze nacht gebastelt und 4 flaschen cola verdrückt und jetzt is mir spei-übel weil ich heut zum ersten mal diese vanilla-cola getrunken hab... und ich mein, man darf ja heutzutage nichts wegschmeißen...
außerdem hab ich heut schon was soziales gemacht und nen wiki-artikel erstellt ...\n\n

<!--EDIT|Froschpopo|1114769246-->
Crian
 2005-04-29 14:07
#43837 #43837
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Armer Froschpopo... ich les die Dinger in einer Schleife ein und erzeuge auch in einer Schleife die Photo (oder Animation) Objekte. Ich such den Code gerade mal raus ...
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
Crian
 2005-04-29 14:10
#43838 #43838
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Hier ist der ganze Abschnitt mit den Icons:

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
    #--------------------------------------------------------------------------
    # Iconbar:
    #--------------------------------------------------------------------------
    my $fr = $mw->Frame(
    )->pack(
        -side   => 'right',
        -expand => 0,
        -fill   => 'y',
    );
    my $fff = $fr->Frame()->pack(-side => 'top');
    my $c = 0;
    for my $icon (@Icon) {
        if ($c % 3 == 0) {
            $fff = $fr->Frame()->pack(-side => 'top');
        }
        ++$c;

        #my $ph = $mw->Animation(
        #    -format => 'gif',
        #    -file   => "$FindBin::RealBin/icons/" . $icon->{file},
        #);

        my $ph = $mw->Photo(
            -file   => "$FindBin::RealBin/icons/" . $icon->{file},
            -width  => 40,
            -height => 30,
        );

        $fff->Button(
            -command => sub {
                print "Button zum Bild ", $icon->{file}, " -> '", $icon->{short},"'\n";
                $Config{text_widget}->Insert(' ' . $icon->{short} . ' ');
                $Config{changed}      = 1;
                $Config{changed_save} = 1;
            },
            -image   => $ph,
            -relief  => 'flat',
        )->pack(
            -side    => 'left',
        );
    }
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
Froschpopo
 2005-04-29 20:31
#43839 #43839
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
irgendwie greift die cola auch meine psyche ann... nagut dann muss ich mir halt die arbeit machen... dankeschön !
Crian
 2005-05-02 21:26
#43840 #43840
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Wieso ist eine Schleife denn Arbeit?
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 Einträge, 1 Seite



View all threads created 2005-04-29 14:06.