Opened by Gast at 2007-11-26 16:07
User since
2007-09-24
70 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-09-24
70 Artikel
BenutzerIn
Hallo,
das folgende Beispiel funktioniert bei mir mit Tk::GraphItems 0.8.
Könntest du das bei dir auch mal versuchen? Falls es nicht funktioniert, könntest du probieren, ob t/GraphItems.t durchläuft?
Möglicherweise verhält sich Test::More::use_ok() ein bisschen anders als ein echtes use, dann müsste ich einen besseren Test finden.
Grüsse, Christoph
das folgende Beispiel funktioniert bei mir mit Tk::GraphItems 0.8.
Könntest du das bei dir auch mal versuchen? Falls es nicht funktioniert, könntest du probieren, ob t/GraphItems.t durchläuft?
Möglicherweise verhält sich Test::More::use_ok() ein bisschen anders als ein echtes use, dann müsste ich einen besseren Test finden.
Grüsse, Christoph
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings;
use Tk;
use Tk::GraphItems;
use Tk::GraphItems::TextBox;
my $mw = tkinit;
my $c = $mw->Canvas->pack;
my $tb = Tk::GraphItems::TextBox->new(canvas => $c,
x => 10,
y => 20,
text => 'test');
MainLoop;