//// "$Id: fl_set_font.cxx,v 1.1.1.1 2003/08/07 21:18:41 jasonk Exp $"//// Font utilities for the Fast Light Tool Kit (FLTK).//// Copyright 1998-1999 by Bill Spitzak and others.//// This library is free software; you can redistribute it and/or// modify it under the terms of the GNU Library General Public// License as published by the Free Software Foundation; either// version 2 of the License, or (at your option) any later version.//// This library is distributed in the hope that it will be useful,// but WITHOUT ANY WARRANTY; without even the implied warranty of// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU// Library General Public License for more details.//// You should have received a copy of the GNU Library General Public// License along with this library; if not, write to the Free Software// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307// USA.//// Please report all bugs and problems to "fltk-bugs@easysw.com".//// Add a font to the internal table.// Also see fl_set_fonts.C which adds all possible fonts.#include <config.h>#include <FL/Fl.H>#include <FL/x.H>#include "Fl_Font.H"#include <stdlib.h>#include <string.h>static int table_size;void Fl::set_font(Fl_Font fnum, const char* name) {  if (fnum >= table_size) {    int i = table_size;    if (!i) {	// don't realloc the built-in table      table_size = 2*FL_FREE_FONT;      i = FL_FREE_FONT;      Fl_Fontdesc* t = (Fl_Fontdesc*)malloc(table_size*sizeof(Fl_Fontdesc));      memcpy(t, fl_fonts, FL_FREE_FONT*sizeof(Fl_Fontdesc));      fl_fonts = t;    } else {      table_size = 2*table_size;      fl_fonts=(Fl_Fontdesc*)realloc(fl_fonts, table_size*sizeof(Fl_Fontdesc));    }    for (; i < table_size; i++) fl_fonts[i].name = 0;  }  Fl_Fontdesc* s = fl_fonts+fnum;  if (s->name) {    if (!strcmp(s->name, name)) {s->name = name; return;}#ifndef WIN32
#ifndef NANO_X //tanghao    if (s->xlist && s->n >= 0) XFreeFontNames(s->xlist);
#endif #endif    for (Fl_FontSize* f = s->first; f;) {      Fl_FontSize* n = f->next; delete f; f = n;    }    s->first = 0;  }  s->name = name;#ifndef WIN32  s->xlist = 0;#endif  s->first = 0;}const char* Fl::get_font(Fl_Font fnum) {return fl_fonts[fnum].name;}//// End of "$Id: fl_set_font.cxx,v 1.1.1.1 2003/08/07 21:18:41 jasonk Exp $".//