aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-05-05 16:42:30 +0200
committerAngelo Naselli <anaselli@linux.it>2015-05-05 16:42:30 +0200
commit138a40048107e5aac97b61201c801091bc559aa0 (patch)
tree11aca575661eeba7850d4a2bed977222b91ab789
parentd21ad1026d9a3545be89bd7d714c3b6a74bb4bf2 (diff)
downloadmanatools-138a40048107e5aac97b61201c801091bc559aa0.tar
manatools-138a40048107e5aac97b61201c801091bc559aa0.tar.gz
manatools-138a40048107e5aac97b61201c801091bc559aa0.tar.bz2
manatools-138a40048107e5aac97b61201c801091bc559aa0.tar.xz
manatools-138a40048107e5aac97b61201c801091bc559aa0.zip
Set icon and title into Module base class, to avoid doing that for any
modules
-rw-r--r--lib/ManaTools/Module.pm23
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/ManaTools/Module.pm b/lib/ManaTools/Module.pm
index 678b6a9a..22887009 100644
--- a/lib/ManaTools/Module.pm
+++ b/lib/ManaTools/Module.pm
@@ -179,7 +179,30 @@ sub create {
return $obj;
}
+#=============================================================
+
+=head2 BUILD
+
+=head3 INPUT
+
+ $self: this object
+
+=head3 DESCRIPTION
+ The BUILD method is called after a Moose object is created,
+ base Module class sets title and icon
+
+=cut
+
+#=============================================================
+sub BUILD {
+ my $self = shift;
+
+ ## set title
+ yui::YUI::app()->setApplicationTitle($self->name) if $self->name;
+ ## set icon
+ yui::YUI::app()->setApplicationIcon($self->icon) if $self->icon;
+}
#=============================================================