diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-02 16:35:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-02 16:35:23 +0000 |
| commit | 8d901d9fbca6686495c059151757aea193066995 (patch) | |
| tree | d2c1c17676ded1a2b2e438eafc00c8fc6bc32cc1 /perl-install | |
| parent | 9549ab49a648a65782805bd0b5f1453bc89671a4 (diff) | |
| download | drakx-backup-do-not-use-8d901d9fbca6686495c059151757aea193066995.tar drakx-backup-do-not-use-8d901d9fbca6686495c059151757aea193066995.tar.gz drakx-backup-do-not-use-8d901d9fbca6686495c059151757aea193066995.tar.bz2 drakx-backup-do-not-use-8d901d9fbca6686495c059151757aea193066995.tar.xz drakx-backup-do-not-use-8d901d9fbca6686495c059151757aea193066995.zip | |
(gtkcreate_xpm): error handling with error message
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/my_gtk.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 0b4d42923..73d989a5b 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -19,7 +19,7 @@ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; use Gtk; use c; use log; -use common qw(:common :functional); +use common qw(:common :functional :file); my $forgetTime = 1000; #- in milli-seconds $border = 5; @@ -63,7 +63,7 @@ sub new { $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0); $::WizardTable->attach($draw3, 1, 2, 0, 1, 'fill', 'fill', 0, 0); $::WizardWindow->show_all; - my_gtk::flush(); + flush(); } $::WizardTable->attach($o->{window}, 1, 2, 1, 2, {'fill', 'expand'}, {'fill', 'expand'}, 0, 0); } @@ -73,7 +73,7 @@ sub new { $o->{rwindow} = $o->{window}; defined($::Plug) or $::Plug = new Gtk::Plug ($::XID); $::Plug->show; - my_gtk::flush(); + flush(); $::Plug->add($o->{window}); $o; } @@ -262,7 +262,10 @@ sub gtkctree_children { @l; } -sub gtkcreate_xpm { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm($w->window, $w->style->bg('normal'), @_) } +sub gtkcreate_xpm { + my ($w, $f) = @_; + Gtk::Gdk::Pixmap->create_from_xpm($w->window, $w->style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f"; +} sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) } sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) } |