diff options
Diffstat (limited to 'control-center3')
| -rwxr-xr-x | control-center3 | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/control-center3 b/control-center3 index 42026dd0..e7558ca3 100755 --- a/control-center3 +++ b/control-center3 @@ -222,6 +222,7 @@ sub gtkcreate_png { $im->render($im->rgb_width, $im->rgb_height); ($im->move_image(), $im->move_mask); } + sub gtkpng { new Gtk::Pixmap(gtkcreate_png(@_)) } sub quit_global @@ -254,11 +255,33 @@ sub about_mdk_cc $window_about->set_modal(1); } +sub splash_warning +{ + my ($label) = @_; + my $window_about = new Gtk::Dialog(); + $window_about->set_position(1); + my $button = new Gtk::Button(_("Close")); + $button->signal_connect_object("clicked",$window_about => 'destroy'); + $window_about->action_area->pack_start($button,$true,$true,0); + + my $lab = new Gtk::Label($label); + my $style1 = new Gtk::Style; + $style1->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*"))); + $lab->set_style($style1); + $window_about->vbox->pack_start( $lab, $true, $true, 0 ); + + $window_about->show_all(); + $window_about->set_modal(1); +} + sub connect_to_site { my ($link)=@_; my $browser="netscape"; - system("$browser -geometry 600x800+10+10 -no-about-splash $link &"); + if (system("$browser -geometry 600x800+10+10 -no-about-splash $link ") == 127) + { + splash_warning(_("You seems to not have Netscape installed")); + } } sub connect_exp_site |