From 3fbb4389df3ddeecd4fcd645591a3d90a47de373 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 22 Nov 1999 01:56:47 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 45f3cea66..a71f27197 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -38,6 +38,17 @@ sub new($) {
     bless {}, ref $type || $type;
 }
 
+sub vnew {
+    if (c::Xtest($ENV{DISPLAY} ||= ":0")) {
+	require 'interactive_gtk.pm';
+	interactive_gtk->new;
+    } else {
+	undef *log::l;
+	*log::l = sub {}; # otherwise, it will bother us :(
+	require 'interactive_newt.pm';
+	interactive_newt->new;
+    }
+}
 
 #-######################################################################################
 #- Interactive functions
-- 
cgit v1.2.1