diff options
| author | Jonathan Gotti <jgotti@mandriva.com> | 2002-09-05 11:56:04 +0000 |
|---|---|---|
| committer | Jonathan Gotti <jgotti@mandriva.com> | 2002-09-05 11:56:04 +0000 |
| commit | 10736a99c1fd00894835ccbd4130a29fa8a5937a (patch) | |
| tree | 1b09310827c40b5e080822a55a7c8b6cb69025b5 /perl-install/standalone | |
| parent | 8939e2aacce709a35bba2b827c8d720b3e8d89dd (diff) | |
| download | drakx-backup-do-not-use-10736a99c1fd00894835ccbd4130a29fa8a5937a.tar drakx-backup-do-not-use-10736a99c1fd00894835ccbd4130a29fa8a5937a.tar.gz drakx-backup-do-not-use-10736a99c1fd00894835ccbd4130a29fa8a5937a.tar.bz2 drakx-backup-do-not-use-10736a99c1fd00894835ccbd4130a29fa8a5937a.tar.xz drakx-backup-do-not-use-10736a99c1fd00894835ccbd4130a29fa8a5937a.zip | |
preview window bug correction
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksplash | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 22731a004..9ec9b4318 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -4,7 +4,8 @@ use lib qw(/usr/lib/libDrakX); use MDK::Common; use Gtk; use interactive; -use my_gtk ; +#use my_gtk ; +use ugtk qw(:helpers :wrappers); init Gtk; #- convenience variables for true and false @@ -78,11 +79,11 @@ my %first = ('frame'=>new Gtk::Frame(_("first step creation")), 'file'=>_("choose image file"), 'name'=>_("Theme name") }, - 'button'=>{ 'boot_conf'=>_("make bootsplash step 2"), - 'lilo_conf'=>_("go to lilosplash configuration"), - 'kill'=>_("quit"), - 'save'=>_("save theme"), - 'file'=>_("browse"), + 'button'=>{ 'boot_conf'=>_("Make bootsplash step 2"), + 'lilo_conf'=>_("Go to lilosplash configuration"), + 'kill'=>_("Quit"), + 'save'=>_("Save theme"), + 'file'=>_("Browse"), }, 'combo'=> {'res'=>['800x600', '1024x768', '1280x1024'], 'name'=>[ $theme{'name'} , &giv_exist_thm] @@ -116,9 +117,9 @@ my %boot_conf_frame = ('frame' => new Gtk::Frame( _("Configure bootsplash pictur 'pw'=> 1, 'ph'=> 1, }, - 'button' => { 'annul'=> _("go back"), - 'prev'=>_("preview"), - 'pc'=> _("choose color"), + 'button' => { 'annul'=> _("Go back"), + 'prev'=>_("Preview"), + 'pc'=> _("Choose color"), }, 'check' => { 'logo' => _("Display logo on Console" ), @@ -230,7 +231,7 @@ sub write_boot_thm{ system('/usr/share/bootsplash/scripts/rewritejpeg '.$thm_path.$theme{'name'}.'/images/bootsplash-'.$theme{'res'}{'res'}.'.jpg'); #- write conf files my $cfg_cont = '# This is the configuration file for the '.$theme{'res'}{'res'}.' bootsplash picture - # this file is necessary to specify the coordinates of the text box on the +# this file is necessary to specify the coordinates of the text box on the # splash screen. # tx is the x coordinate of the text window in characters. default is 24 @@ -489,14 +490,15 @@ sub set_thm_values{ #- Args => $file (str) full path to preview file sub show_prev{ my ($file) = @_; - $prev_window + $prev_window or ($prev_window = new Gtk::Window('toplevel') and $prev_window->set_policy( 0, 1, 1 ) ); #- must destroy and recreate or get a bug on refreshing the preview window! $pix and $pix->destroy; - $pix = new Gtk::Pixmap(my_gtk::gtkcreate_png($file)); + my $pic = gtkcreate_png_pixbuf($file); + $pix = new Gtk::Pixmap($pic->render_pixmap_and_mask($pic),''); $prev_window->add($pix); - $prev_window ->signal_connect(delete_event => sub{$prev_window->destroy} ); + $prev_window ->signal_connect(delete_event => sub{$prev_window->destroy ; undef($prev_window);} ); $prev_window->show_all; } |