/*  call-seq:
 *    underline  ->  Bool
 *
 *  True if underlining is enabled for the font.
 */
VALUE rbgm_ttf_getunderline(VALUE self)
{
        TTF_Font *font;
        int style;

        Data_Get_Struct(self,TTF_Font,font);
        style = TTF_GetFontStyle(font);
        if((style & TTF_STYLE_UNDERLINE) == TTF_STYLE_UNDERLINE)
                return Qtrue;
        else
                return Qfalse;
}