Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Object.pm Window.pm
Log Message:
+ remove compiler warnings by casting to correct types
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Object.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -3 -r1.5 -r1.6
--- Object.pm 11 Jun 2006 00:26:32 -0000 1.5
+++ Object.pm 18 Jun 2006 15:29:50 -0000 1.6
@@ -12,13 +12,13 @@
sub SignalConnect
{
my $self = shift;
- my ($type, $mem) = split /=/, "$self->{WIDGET}";
+ my ($type, $mem) = split /=/, $self->{WIDGET};
my $signal_name = shift;
my $callback = shift;
my $data = undef;
$data = shift if (@_ > 0);
Etk::etk_signal_connect($signal_name,
- bless($self->{WIDGET}, "Etk_WidgetPtr"), $callback, $data);
+ bless($self->{WIDGET}, "Etk_WidgetPtr"), $callback, $data);
bless($self->{WIDGET}, $type);
}
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Window.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Window.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Window.pm 18 Jun 2006 15:29:50 -0000 1.2
@@ -32,6 +32,12 @@
Etk::etk_window_title_set($self->{WIDGET}, $title);
}
+sub TitleGet
+{
+ my $self = shift;
+ return Etk::etk_window_title_get($self->{WIDGET});
+}
+
1;
__END__
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
