File susevbox-msgbox.diff of Package susevbox

Overview Repositories Revisions Requests Users Attributes Meta

File susevbox-msgbox.diff of Package susevbox

--- SuSEVbox
+++ SuSEVbox
@@ -746,9 +746,9 @@
 #-----------------------------------------------------------------------#
 sub errwin {
     ($text,$icon,$type,$title) = @_;
-    $result_button = $top->MsgBox(-icon =>$icon, -type => $type,
+    $result_button = $top->messageBox(-icon =>$icon, -type => $type,
 				  -message => $text,
-				  -title => $title)->Show;
+				  -title => $title);
 }
 #-----------------------------------------------------------------------#
 #-------------------------- well, exit ---------------------------------#
--- SuSEVboxConf
+++ SuSEVboxConf
@@ -18,7 +18,6 @@
 syscall (&SYS_setuid, 0);
 use Tk;
 use Tk::BrowseEntry;
-use Tk::MsgBox;
 use Tk::Dialog;
 use File::Copy;
 use POSIX;
@@ -1286,9 +1285,9 @@
 sub errwin {
     ($text,$icon,$type,$title) = @_;
     
-    $result_button = $top->MsgBox(-icon =>$icon, -type => $type,
+    $result_button = $top->messageBox(-icon =>$icon, -type => $type,
 				  -message => $text,
-				  -title => $title)->Show;
+				  -title => $title);
 }
 #-----------------------------------------------------------------------#
 #----------------------- final hints -----------------------------------#

Places

File susevbox-msgbox.diff of Package susevbox

Places