Text::insert() und Newline - #43820 (Graphische Oberflächen)

Crian

2005-04-29 16:28

User since
2003-08-04
5873 Artikel
ModeratorIn

Nein, so nicht, ich denke Du kannst Dir vermutlich eine Funktion ungefähr so schreiben:

Code: (dl )

sub insert_line {
    my ($widget, $pos, $text) = @_;

    $widget->insert('end', "\n") unless $text->index("end") eq "1.0";
    $widget->insert('end', $text);
}

>>> ungetestet <<<
(Ok, man kann auch einen Aufruf aus den beiden machen etc. pp, aber teste doch mal, ob das so funktioniert.)

Edit: Falls das so nicht geht, probier mal

Code: (dl )

... unless $text->index("end") eq $text->index("1.0");

Edit2: Allerdings:

Code: (dl )

1
2

...>perl -MTk -e "$w = new MainWindow;$t = $w->Text()->pack; print '[' . $t->index('1.0') . '] [' . $t->index('end') . ']';"
[1.0] [2.0]

?\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