summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-31 15:44:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-31 15:44:48 +0000
commit4bd5eca6ecabccce88559ea34f73154188df792c (patch)
treef3d3f79e42d630ae9a82f6714e14b9a38a37d943 /perl-install/mygtk2.pm
parent518949ba7f1adfd8357870b0983fdb65059b0d40 (diff)
downloaddrakx-4bd5eca6ecabccce88559ea34f73154188df792c.tar
drakx-4bd5eca6ecabccce88559ea34f73154188df792c.tar.gz
drakx-4bd5eca6ecabccce88559ea34f73154188df792c.tar.bz2
drakx-4bd5eca6ecabccce88559ea34f73154188df792c.tar.xz
drakx-4bd5eca6ecabccce88559ea34f73154188df792c.zip
add Label_Left
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index eaf63fc85..b5717f6b7 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -303,6 +303,12 @@ sub _gtk__WrappedLabel {
_gtk__Label($w, $opts);
}
+sub _gtk__Label_Left {
+ my ($w, $opts) = @_;
+
+ gtknew('HBox', children_tight => [ _gtk__Label($w, $opts) ]);
+}
+
sub _gtk__Label {
my ($w, $opts) = @_;