From d0af127fa2e9fa47f9b8376ba40de40bc93a1133 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 5 Nov 2013 09:17:28 -0700 Subject: [PATCH] gtk: Warn, do not die, if start_gtk returns 0 (failure). (load-option 'gtk) should work when DISPLAY is not set. --- src/gtk/main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gtk/main.scm b/src/gtk/main.scm index 457e149f8..b42998894 100644 --- a/src/gtk/main.scm +++ b/src/gtk/main.scm @@ -53,7 +53,7 @@ USA. (warn "DISPLAY not set")))) (define (start-gtk* name args) - ;; Call start_gtk. Signals an error if gtk_init_check returns 0. + ;; Call start_gtk. Warns if gtk_init_check returns 0. ;; Returns a list of unused ARGS. (let ((arg-count (guarantee-list-of-type->length args string? "list of commandline arguments (strings)" @@ -82,7 +82,7 @@ USA. (C->= count-var "int" (+ 1 arg-count)) (C->= vector-var "* * char" vector) (if (fix:zero? (C-call "start_gtk" count-var vector-var)) - (error "Could not start Gtk.") + (warn "Could not start Gtk.") (let ((new-argc (C-> count-var "int"))) (C-> vector-var "* * char" vector-scan) (let ((new-args -- 2.25.1