Techwizz/Gobligine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixed warning

Browse source
This commit is contained in:
jsalmon3 2003-02-02 05:07:44 +00:00
parent 454f9fd62c
commit 56718d9798
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ui/script_ui.cpp
View file

@ -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;
}