insert('end', $image) (Graphische Oberflächen)

[thread]4981[/thread]

insert('end', $image)

Froschpopo

2005-04-29 07:24

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

wie kann ich ein Bild in ein insert() (Tk::Text) einfügen?

Dubu

2005-04-29 11:09

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Gar nicht, insert() ist fuer Text.
...
[1 Minute suchen in man Tk::Text]
...
Die Funktion heißt imageCreate().

Froschpopo

2005-04-29 11:27

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

kannst du mir auch ein beispiel geben? ich hab bei google und alltheweb gesucht, aber es gibt nicht einen einzigen Beispiel-Code bei dem suchbegriff: imageCreate "Tk::Text"
Mein Code:

Code: (dl )

1
2

    my $pic = $config{MainWindow}->Photo(-file => 'mainBackground.bmp');
    $config{"pane".$nickname}->imageCreate('end',-image => $pic);

\n\n

renee

2005-04-29 11:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Und was funktioniert an Deinem Code nicht??

Wahrscheinlich finden sich in den Newsgroups mehr Codebeispiele

http://groups.google.de/groups?q=perl+tk::text+imagecreate&hl=de&lr=&selm=82ld04%24jd4%40fidoii.cc.Lehigh.EDU&rnum=1
http://groups.google.de/groups?q=perl+tk::text+imagecreate&hl=de&lr=&selm=7ckseo%24d6j%241%40daffy.anet.uwrf.edu&rnum=7

http://aspn.activestate.com/ASPN....xt.html

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Froschpopo

2005-04-29 11:53

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

achso dann liegt das garnicht an imageCreate sondern an Photo... thx !

ich lach mich schief, Getimage('Camel') gibts wirklich :D\n\n

Froschpopo

2005-04-29 12:36

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

jetzt muss ich aber doch mal fragen... wozu gibt es in insert() die Option: -itemtype ?

Dubu

2005-04-29 13:51

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=Froschpopo,29.04.2005, 10:36]jetzt muss ich aber doch mal fragen... wozu gibt es in insert() die Option: -itemtype ?[/quote]
Hm, da musst du eine andere Tk-Version haben als ich (800.025). In meinem Tk::Text ist insert() so definiert:
[quote=man Tk::Text,WIDGET METHODS]$text->insert(index, chars, ?tagList, chars, tagList, ...?)
Inserts all of the chars arguments just before the character at index. If index refers to the end of the text (the character after the last newline) then the new text is inserted just before the last newline instead. If there is a single chars argument and no tagList, then the new text will receive [...]
[/quote]
Da gibt's gar keine Optionen, und nur die angegebenen Parameter.

Crian

2005-04-29 18:27

User since
2003-08-04
5870 Artikel
ModeratorIn

Code: (dl )

        elsif ($part->{type} eq 'emoticon') {
            my $p = $textwidget[-1]->Animation('-format' => 'gif', -file => $part->{text});
            $textwidget[-1]->imageCreate('end', -image => $p);
        }

vielleicht sollte ich Dir mal mein Programm zukommen lassen?\n\n

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

View all threads created 2005-04-29 07:24.