diff options
| author | damien <damien@mandriva.com> | 2001-02-15 13:16:33 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-02-15 13:16:33 +0000 |
| commit | d12097f79cc1e6f6714b0f3dba612a2dc57de0a8 (patch) | |
| tree | 1f8079575cc7c4f04109fe02049f0c1e552981ea /perl-install/my_gtk.pm | |
| parent | 047975970256916fc31f75b52a2a707976a0baa4 (diff) | |
| download | drakx-backup-do-not-use-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar drakx-backup-do-not-use-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.gz drakx-backup-do-not-use-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.bz2 drakx-backup-do-not-use-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.xz drakx-backup-do-not-use-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.zip | |
added png support. Need to test the faces2xpm stuff.
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 1f878e52d..69c0d1b95 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -10,13 +10,14 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border); @ISA = qw(Exporter); %EXPORT_TAGS = ( helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ], - wrappers => [ qw(gtksignal_connect gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkappend gtkadd gtkput gtktext_insert gtkset_usize gtkset_justify gtkset_active gtkshow gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkcreate_xpm) ], + wrappers => [ qw(gtksignal_connect gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkappend gtkadd gtkput gtktext_insert gtkset_usize gtkset_justify gtkset_active gtkshow gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; use Gtk; +use Gtk::Gdk::ImlibImage; use c; use log; use common qw(:common :functional :file); @@ -33,6 +34,7 @@ sub new { my ($type, $title, %opts) = @_; Gtk->init; + init Gtk::Gdk::ImlibImage; Gtk->set_locale; my $o = bless { %opts }, $type; $o->_create_window($title); @@ -262,14 +264,20 @@ sub gtkctree_children { @l; } -sub gtkcreate_xpm { - my ($w, $f) = @_; +sub gtkcreate_xpm { + my ($w, $f) = @_; my @l = Gtk::Gdk::Pixmap->create_from_xpm($w->window, $w->style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f"; @l; } +sub gtkcreate_png { + my ($f) = @_; + my $im = load_image Gtk::Gdk::ImlibImage("$f"); + $im->render($im->rgb_width, $im->rgb_height); + ($im->move_image(), $im->move_mask); +} sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) } sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) } - +sub gtkpng { new Gtk::Pixmap (gtkcreate_png(@_)) } #-############################################################################### #- createXXX functions |