//
// "$Id: browserop.cxx,v 1.4.2.3 2001/01/22 15:13:41 easysw Exp $"
//
// Browser operation test program for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2001 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@fltk.org".
//

#include "forms.h"

FL_FORM *form;
FL_OBJECT *browserobj, *inputobj, *exitobj;

void addit(FL_OBJECT *, long)
{
  /* append and show the last line. Don't use this if you just want
   * to add some lines. use fl_add_browser_line
   */
  fl_addto_browser(browserobj,fl_get_input(inputobj));
}

void insertit(FL_OBJECT *, long)
{
  int n;
  if (! ( n = fl_get_browser(browserobj))) return;
  fl_insert_browser_line(browserobj,n,fl_get_input(inputobj));
}

void replaceit(FL_OBJECT *, long)
{
  int n;
  if (! (n=fl_get_browser(browserobj))) return;
  fl_replace_browser_line(browserobj,n,fl_get_input(inputobj));
}

void deleteit(FL_OBJECT *, long)
{
  int n;
  if (! (n = fl_get_browser(browserobj))) return;
  fl_delete_browser_line(browserobj,n);
}

void clearit(FL_OBJECT *, long)
{
  fl_clear_browser(browserobj);
}

/*---------------------------------------*/

void create_form(void)
{
  FL_OBJECT *obj;

  form = fl_bgn_form(FL_UP_BOX,390,420);
  browserobj = fl_add_browser(FL_HOLD_BROWSER,20,20,210,330,"");
//  fl_set_object_dblbuffer(browserobj, 1);
  inputobj = obj = fl_add_input(FL_NORMAL_INPUT,20,370,210,30,"");
    fl_set_object_callback(obj,addit,0);
    obj->when(FL_WHEN_ENTER_KEY|FL_WHEN_NOT_CHANGED);
  obj = fl_add_button(FL_NORMAL_BUTTON,250,20,120,30,"Add");
    fl_set_object_callback(obj,addit,0);
  obj = fl_add_button(FL_NORMAL_BUTTON,250,60,120,30,"Insert");
    fl_set_object_callback(obj,insertit,0);
  obj = fl_add_button(FL_NORMAL_BUTTON,250,100,120,30,"Replace");
    fl_set_object_callback(obj,replaceit,0);
  obj = fl_add_button(FL_NORMAL_BUTTON,250,160,120,30,"Delete");
    fl_set_object_callback(obj,deleteit,0);
  obj = fl_add_button(FL_NORMAL_BUTTON,250,200,120,30,"Clear");
    fl_set_object_callback(obj,clearit,0);
  exitobj = fl_add_button(FL_NORMAL_BUTTON,250,370,120,30,"Exit");
  fl_end_form();
}

/*---------------------------------------*/

int
main(int argc, char *argv[])
{
  FL_OBJECT *obj;

  fl_initialize(&argc, argv, "FormDemo", 0, 0);
  create_form();
  fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,"Browser Op");
  do obj = fl_do_forms(); while (obj != exitobj);
  fl_hide_form(form);
  return 0;
}

//
// End of "$Id: browserop.cxx,v 1.4.2.3 2001/01/22 15:13:41 easysw Exp $".
//