some gtk2 bug fix

1 files changed, 10 insertions, 8 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index 866ea8a2..69846a2c 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -30,20 +30,21 @@ use common;
 #- I18N.
 push @::textdomains, 'drakwizard';
 
+$::isWizard = 1;
 my $in = 'interactive'->vnew('su', 'default');
 $::direct = /-direct/;
 $::Wizard_no_previous = 1;
 $::Wizard_title = "Drakwizard";
 my $standalone = 1;
 
-! -r '/etc/sysconfig/network-scripts/drakconnect_conf' &&
-  ( -r '/etc/sysconfig/network-scripts/draknet_conf' || 
-    die "no drakconnect conf file found, install drakconnect and try again") &&
-  MDK::Common::cp_af('/etc/sysconfig/network-scripts/draknet_conf',
-		     '/etc/sysconfig/network-scripts/drakconnect_conf');
+# ! -r '/etc/sysconfig/network-scripts/drakconnect_conf' &&
+#   ( -r '/etc/sysconfig/network-scripts/draknet_conf' || 
+#     die "no drakconnect conf file found, install drakconnect and try again") &&
+#   MDK::Common::cp_af('/etc/sysconfig/network-scripts/draknet_conf',
+# 		     '/etc/sysconfig/network-scripts/drakconnect_conf');
 
 if (!defined($ARGV[0])) {
-    my $prefix = "/usr/share/wizards/";
+    my $prefix = "__WIZ_HOME__/";
     my %wiz = (
 	       1 => [$prefix."web_wizard/web.wiz", "Apache"],
 	       2 => [$prefix."dhcp_wizard/dhcp.wiz", "Dhcp"],
@@ -235,8 +236,8 @@ sub get_parameter {
 	} elsif (ref($leaf) eq 'HASH') {
 	    my $common_freetext_chooser;
 	    my %actions = (
-			   Wizard => sub { 
-			       load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}) },,
+			   Wizard => sub {
+			       load_wizard(@{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}) },
 			   Variable => sub {
 			       $variable{$leaf->{name}} = $leaf->{shellVariable};
 			       $ENV{$variable{$leaf->{name}}} = $leaf->{defaultValue};
@@ -405,6 +406,7 @@ sub	is_disabled_summary {
     is_disabled_summary($widget, $page->{next_page}) if $page->{next_page};
 }
 
+# find in the page which widget to disable from "is" dependance key.
 sub	is_disabled {
     my	($widget, $page) = @_;
     my	$ret;