From 56718d979868a198725843d8f35319db03e55151 Mon Sep 17 00:00:00 2001
From: jsalmon3 <>
Date: Sun, 2 Feb 2003 05:07:44 +0000
Subject: [PATCH] Fixed warning
---
src/ui/script_ui.cpp | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/ui/script_ui.cpp b/src/ui/script_ui.cpp
index 28f0fe576..f252aea2b 100644
--- a/src/ui/script_ui.cpp
+++ b/src/ui/script_ui.cpp
@@ -2438,6 +2438,11 @@ local int scm2style(SCM value)
id=MI_STYLE_SC_VSLIDER;
} else if ( gh_eq_p(value, gh_symbol2scm("sc-hslider")) ) {
id=MI_STYLE_SC_HSLIDER;
+ } else {
+ char *s1=gh_scm2newstr(value, NULL);
+ fprintf(stderr, "Unsupported style %s\n", s1);
+ free(s1);
+ return 0;
}
return id;
}