summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 3705de154..17e497c44 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -27,12 +27,13 @@ use POSIX;
use Locale::GetText;
use lib qw(/usr/lib/libDrakX);
use interactive;
+use standalone;
use common qw(:common :file :functional :system);
use my_gtk qw(:helpers :wrappers);
use any;
-my $path_to_pixmaps = "/usr/share/libDrakX/pixmaps";
-#my $path_to_pixmaps = ".";
+#my $path_to_pixmaps = "/usr/share/libDrakX/pixmaps";
+my $path_to_pixmaps = "";
setlocale (LC_ALL, "");
Locale::GetText::textdomain ("Bootlookdrake");
@@ -69,10 +70,10 @@ $window->border_width(10);
$window->realize;
# drakX mode
-my ($t_pixmap, $t_mask) = gtkcreate_xpm($window, "$path_to_pixmaps/tradi.xpm");
-my ($h_pixmap, $h_mask) = gtkcreate_xpm($window, "$path_to_pixmaps/hori.xpm");
-my ($v_pixmap, $v_mask) = gtkcreate_xpm($window, "$path_to_pixmaps/verti.xpm");
-my ($g_pixmap, $g_mask) = gtkcreate_xpm($window, "$path_to_pixmaps/gmon.xpm");
+my ($t_pixmap, $t_mask) = gtkcreate_png("tradi.png");
+my ($h_pixmap, $h_mask) = gtkcreate_png("hori.png");
+my ($v_pixmap, $v_mask) = gtkcreate_png("verti.png");
+my ($g_pixmap, $g_mask) = gtkcreate_png("gmon.png");
# a pixmap widget to contain the pixmap
my $pixmap = new Gtk::Pixmap( $h_pixmap, $h_mask );
@@ -221,9 +222,9 @@ if ($a_mode) {
$pixmap->set($t_pixmap, $t_mask);
}
-$a_h_button->hide() if !(-e "/lib/aurora/Monitors/NewStyle-WsLib");
-$a_v_button->hide() if !(-e "/lib/aurora/Monitors/Traditional-WsLib");
-$a_g_button->hide() if !(-e "/lib/aurora/Monitors/Traditional-Gtk+");
+#$a_h_button->hide() if !(-e "/lib/aurora/Monitors/NewStyle-WsLib");
+#$a_v_button->hide() if !(-e "/lib/aurora/Monitors/Traditional-WsLib");
+#$a_g_button->hide() if !(-e "/lib/aurora/Monitors/Traditional-Gtk+");
$inmain=1;
main Gtk;