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,
weil das so ein interessantes Verhalten ist, auf das ich das erste Mal stoße, möchte ich es hier zur Diskussion stellen:
Tk::GraphItems macht aus Tk::GraphItems->TextBox(args) Tk::GraphItems::TextBox->new(args)
dient also nur der Bequemlichkeit...
Nun scheint es so zu sein, dass im Code eines Benutzers, allerdings nur wenn Tk::GraphItems per 'use' eingebunden wird, der Ausdruck
aufgelöst wird zu:
Wenn man das Modul dagegen 'require'-d , erhält man, (wie von mir eher erwartet)
Ein Fix ist auf Cpan. (Nie wieder groß geschriebene Methodennamen)
Grüße, Christoph
weil das so ein interessantes Verhalten ist, auf das ich das erste Mal stoße, möchte ich es hier zur Diskussion stellen:
Tk::GraphItems macht aus Tk::GraphItems->TextBox(args) Tk::GraphItems::TextBox->new(args)
dient also nur der Bequemlichkeit...
Nun scheint es so zu sein, dass im Code eines Benutzers, allerdings nur wenn Tk::GraphItems per 'use' eingebunden wird, der Ausdruck
Code: (dl
)
Tk::GraphItems::TextBox->new
Code: (dl
)
(Tk::GraphItems::TextBox())->new
Wenn man das Modul dagegen 'require'-d , erhält man, (wie von mir eher erwartet)
Code: (dl
)
'Tk::GraphItems::TextBox'->new
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;
use Tk;
use Tk::GraphItems;
#require 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;
Ein Fix ist auf Cpan. (Nie wieder groß geschriebene Methodennamen)
Grüße, Christoph