diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 15:44:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 15:44:48 +0000 |
| commit | 4bd5eca6ecabccce88559ea34f73154188df792c (patch) | |
| tree | f3d3f79e42d630ae9a82f6714e14b9a38a37d943 /perl-install/mygtk2.pm | |
| parent | 518949ba7f1adfd8357870b0983fdb65059b0d40 (diff) | |
| download | drakx-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.pm | 6 |
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) = @_; |