gtk: Only warn if DISPLAY not set.

Some of the Gtk libraries are useful without a DISPLAY.

diff --git a/src/gtk/main.scm b/src/gtk/main.scm
index 21165d9fb26e8df8e7c36acc248fdf39f187ee67..dd494175a9a91119ee46ded7b3b18c9a44cf4dcc 100644 (file)
--- a/src/gtk/main.scm
+++ b/src/gtk/main.scm
@@ -44,16 +44,14 @@ USA.
                       line)
                     (list->vector val)))))))))
 
- (define (start-gtk name args)
-   (if (let ((s (get-environment-variable "DISPLAY")))
-        (and (string? s) (not (string-null? s))))
-       (let ((path (system-library-pathname "gtk-shim.so" #f)))
-        (if path
-            (if (file-loadable? path)
-                (start-gtk* name args)
-                (error "Gtk shim not loadable."))
-            (error "No Gtk shim")))
-       (error "DISPLAY not set")))
+(define (start-gtk name args)
+  (if (let ((path (system-library-pathname "gtk-shim.so" #f)))
+       (and path (file-loadable? path)))
+      (if (let ((s (get-environment-variable "DISPLAY")))
+           (and (string? s) (not (string-null? s))))
+         (start-gtk* name args)
+         (warn "DISPLAY not set"))
+      (error "Gtk shim not loadable.")))
 
 (define (start-gtk* name args)
   ;; Call start_gtk.  Signals an error if gtk_init_check returns 0.