editor in perl 0.3.n: hurra - #97796 (Projekte)

pktm

2007-08-08 23:18

User since
2003-08-07
2921 Artikel
BenutzerIn

So, ich habe mir das jetzt mal eine Weile angeschaut und mir stellen sich einige Fragen:

1. Kann mir das jemand mal in WxPerl machen? Ich bräuchte das zum Testen.
Wichtig ist mir, dass das Textfeld Skalierbar ist und Scrollbalken hat. Mein Testprogramm ist nämlich ziemlich öde.

Code (perl): (dl )

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

use Tk::Text;

my $mw = tkinit;
my $text = $mw->Scrolled('Text', -scrollbars => 'se',)->pack(-fill => 'both', -expand => 1);

$text->insert('end',"Dies ist ein roter Test\n");
$text->tagAdd('red_text',"1.13","1.18");

$text->insert('end',"Dies ist ein blauer Test\n");
$text->tagAdd('blue_text','end -1 lines','end -1 lines');

$text->tagConfigure('red_text', -foreground => 'red');
$text->tagConfigure('blue_text', -foreground => 'blue');

$mw->Button(-text => 'Button')->pack();

$mw->MainLoop();

2. Wenn man in Wx etwas drucken möchte, so muss man, so zumindest die WxDemos, eine allgemeine Repräsentation dessen anfertigen, was man ausdrucken möchte. Das nennt sich dann Printout und ist eine coole Sache, wenn man es beherrscht. Leider habe ich bislang nur Python-Beispiel dazu gefunden, wie man ein Printout für das Wx-Text-Widget, aka Wx::TextCtrl anfertigt.
Meins ist jetzt so weit:

http://www.intergastro-service.de (mein erstes CMS :) )

Antworten mit Zitat