From 24011d3c489115853fa81339d3b395db1a829733 Mon Sep 17 00:00:00 2001
From: ribet
Date: Fri, 26 Jun 2009 09:50:18 +0000
Subject: Prise en compte de la variable DISPLAY

---
 src/MTools.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/MTools.pm')

diff --git a/src/MTools.pm b/src/MTools.pm
index aa8d94e..043975d 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -120,7 +120,13 @@ sub new {
 
 	if (!defined $Zinc)
 	{
-	$screen = ":0.0" if (!defined $screen);
+	if (!defined $screen) {
+	    if (defined $ENV{DISPLAY}) {
+		$screen = $ENV{DISPLAY};
+	    } else {
+		$screen = ":0.0";
+	    }
+	}	    
 	$self -> {window} = my $mw = MainWindow -> new ('-screen' => $screen);
 	$mw -> title($title);
 
-- 
cgit v1.1