Thread Grafikprogramm in Perl (8 answers)
Opened by [E|B] at 2005-08-21 23:33

[E|B]
 2005-08-23 01:06
#44403 #44403
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Hab noch ein kleines Problem:
1. Ich habe ein Text-Widget erzeugt:

Code: (dl )
$mw->Text->pack(-side => 'top', -anchor => 'n', -expand => 1, -fill => 'both');


Das Problem ist nun, dass das Widget nicht bis zum obersten Rand hin ('y') ausgefüllt wird, sondern immer nur auf seiner Standartgröße von 24 Zeilen bleibt. Erst wenn ich eine fixe Höhe eingebe vergrößert es sich. Was kann da falsch laufen?

2. Wieso kann ich mit dem folgenden Snippet in der Textarea nicht horizontal scrollen??

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use Tk;

$mw = MainWindow->new();
$frame = $mw->Frame();
$scrollx = $frame->Scrollbar(-orient => 'horizontal');
$scrolly = $frame->Scrollbar();
$text = $frame->Text(-xscrollcommand => ['set' => $scrollx], -yscrollcommand => ['set' => $scrolly]);

$scrollx->configure(-command => ['xview' => $text]);
$scrolly->configure(-command => ['yview' => $text]);
$scrollx->pack(-side => 'bottom', -fill => 'x');
$scrolly->pack(-side => 'right', -fill => 'y');
$text->pack(-side => 'top', -expand => 1, -fill => 'both');

MainLoop;
\n\n

<!--EDIT|[E|B]|1124748700-->
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View full thread Grafikprogramm in Perl