Initial revision

git-svn-id: file:///fltk/svn/fltk/trunk@2 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

1 files changed, 205 insertions, 0 deletions

diff --git a/test/forms.cxx b/test/forms.cxx
new file mode 100644
index 000000000..1ca2c965d
--- /dev/null
+++ b/test/forms.cxx
@@ -0,0 +1,205 @@
+// This is an XForms program with very few changes.
+// Search for "fltk" to find all changes necessary to port to fltk.
+
+/* This demo show the different boxtypes. Note that some
+ * boxtypes are not appropriate for some objects
+ */
+
+#include <FL/forms.H> // changed for fltk
+
+static int border = 1; // changed from FL_TRANSIENT for fltk
+// (this is so the close box and Esc work to close the window)
+
+typedef struct { int val; char *name; } VN_struct;
+#define VN(a) {a,#a}
+
+// static VN_struct gmode[] =
+// {
+//   VN(StaticGray), VN(GrayScale), VN(StaticColor),
+//   VN(PseudoColor), VN(TrueColor), VN(DirectColor),
+// };
+
+static VN_struct btypes[]=
+{
+   {FL_NO_BOX,"no box"},
+   {FL_UP_BOX, "up box"},
+   {FL_DOWN_BOX,"down box"},
+   {FL_BORDER_BOX,"border box"},
+   {FL_SHADOW_BOX,"shadow box"},
+   {FL_FLAT_BOX,"flat box"},
+   {FL_FRAME_BOX,"frame box"},
+   {FL_EMBOSSED_BOX,"embossed box"},
+   {FL_ROUNDED_BOX,"rounded box"},
+   {FL_RFLAT_BOX,"rflat box"},
+   {FL_RSHADOW_BOX,"rshadow box"}, // renamed for fltk
+   {FL_OVAL_BOX,"oval box"},
+   {FL_ROUNDED3D_UPBOX,"rounded3d upbox"},
+   {FL_ROUNDED3D_DOWNBOX,"rounded3d downbox"},
+   {FL_OVAL3D_UPBOX,"oval3d upbox"},
+   {FL_OVAL3D_DOWNBOX,"oval3d downbox"},
+   /* sentinel */
+   {-1}
+};
+
+#include "srs.xbm"
+
+/*************** Callback **********************/
+
+FL_FORM *form;
+Fl_Widget *tobj[18], *exitob, *btypeob, *modeob;
+
+void 
+boxtype_cb (Fl_Widget * ob, long)
+{
+  int i, req_bt = fl_get_choice(ob) - 1;
+  static int lastbt = -1;
+
+  if(lastbt != req_bt)
+  {
+     fl_freeze_form (form);
+     fl_redraw_form (form);
+     for (i = 0; i < 18; i++)
+        fl_set_object_boxtype (tobj[i], (Fl_Boxtype)btypes[req_bt].val);
+     fl_unfreeze_form (form);
+     lastbt = req_bt;
+     fl_redraw_form(form); // added for fltk
+  }
+}
+
+void 
+mode_cb (Fl_Widget *, long)
+{
+//   static int lval = -1;
+//   int val = fl_get_choice (ob) -1;
+//   int  db = 0;
+
+//   if (val == lval || val < 0)
+//     return;
+
+//   fl_hide_form (form);
+//   if (!fl_mode_capable (gmode[val].val, 0))
+//   {
+//       fl_set_choice(ob, lval);
+//       val = lval;
+//   }
+
+//   fl_set_graphics_mode (gmode[val].val, db);
+//   fl_show_form (form, FL_PLACE_GEOMETRY, border, "Box types");
+
+//   lval = val;
+}
+
+/*************** Creation Routines *********************/
+
+void 
+create_form_form (void)
+{
+  Fl_Widget *obj;
+
+  form = fl_bgn_form(FL_NO_BOX, 720, 520);
+  obj = fl_add_box(FL_UP_BOX, 0, 0, 720, 520, "");
+  fl_set_object_color(obj, FL_BLUE, FL_COL1);
+  obj = fl_add_box(FL_DOWN_BOX, 10, 90, 700, 420, "");
+  fl_set_object_color(obj, FL_COL1, FL_COL1);
+  obj = fl_add_box(FL_DOWN_BOX, 10, 10, 700, 70, "");
+  fl_set_object_color(obj, FL_SLATEBLUE, FL_COL1);
+  tobj[0] = obj = fl_add_box(FL_UP_BOX, 30, 110, 110, 110, "Box");
+  tobj[1] = obj = fl_add_text(FL_NORMAL_TEXT, 30, 240, 110, 30, "Text");
+  tobj[2] = obj = fl_add_bitmap(FL_NORMAL_BITMAP, 40, 280, 90, 80, "Bitmap");
+  fl_set_object_lcol(obj, FL_BLUE);
+  tobj[3] = obj = fl_add_chart(FL_BAR_CHART, 160, 110, 160, 110, "Chart");
+  tobj[4] = obj = fl_add_clock(FL_ANALOG_CLOCK, 40, 390, 90, 90, "Clock");
+//fl_set_object_dblbuffer(tobj[4],1); // removed for fltk
+  tobj[5]=obj=fl_add_button(FL_NORMAL_BUTTON, 340, 110, 120, 30, "Button");
+  tobj[6]=obj=fl_add_lightbutton(FL_PUSH_BUTTON,340,150,120,30,"Lightbutton");
+  tobj[7]=obj=fl_add_roundbutton(FL_PUSH_BUTTON,340,190,120,30,"Roundbutton");
+  tobj[8]=obj=fl_add_slider(FL_VERT_SLIDER, 160, 250, 40, 230, "Slider");
+  tobj[9]=obj=fl_add_valslider(FL_VERT_SLIDER, 220, 250, 40, 230, "Valslider");
+  tobj[10]=obj=fl_add_dial (FL_LINE_DIAL, 280, 250, 100, 100, "Dial");
+  tobj[11]=obj=fl_add_positioner(FL_NORMAL_POSITIONER,280,380,150,100, "Positioner");
+  tobj[12]=obj=fl_add_counter (FL_NORMAL_COUNTER,480,110,210,30, "Counter");
+  tobj[13]=obj=fl_add_input (FL_NORMAL_INPUT, 520,170,170,30, "Input");
+  tobj[14]=obj=fl_add_menu (FL_PUSH_MENU, 400, 240, 100, 30, "Menu");
+  tobj[15]=obj=fl_add_choice (FL_NORMAL_CHOICE, 580, 250, 110, 30, "Choice");
+  tobj[16]=obj=fl_add_timer (FL_VALUE_TIMER, 580, 210, 110, 30, "Timer");
+//fl_set_object_dblbuffer(tobj[16], 1); // removed for fltk
+  tobj[17]=obj=fl_add_browser (FL_NORMAL_BROWSER,450,300,240, 180, "Browser");
+  exitob=obj= fl_add_button (FL_NORMAL_BUTTON, 590, 30, 100, 30, "Exit");
+  btypeob=obj= fl_add_choice (FL_NORMAL_CHOICE,110,30, 130, 30, "Boxtype");
+  fl_set_object_callback (obj, boxtype_cb, 0);
+  modeob = obj=fl_add_choice(FL_NORMAL_CHOICE,370,30,130,30,"Graphics mode");
+  fl_set_object_callback (obj, mode_cb, 0);
+  fl_end_form ();
+}
+/*---------------------------------------*/
+
+void 
+create_the_forms (void)
+{
+  create_form_form ();
+}
+
+/*************** Main Routine ***********************/
+
+char *browserlines[] = {
+   " ", "@C1@c@l@bObjects Demo",   " ",
+   "This demo shows you all",      "objects that currently",
+   "exist in the Forms Library.",  " ",
+   "You can change the boxtype",   "of the different objects",
+   "using the buttons at the",     "top of the form. Note that",
+   "some combinations might not",  "look too good. Also realize",
+   "that for all object classes",  "many different types are",
+   "available with different",     "behaviour.", " ",
+   "With this demo you can also",  "see the effect of the drawing",
+   "mode on the appearance of the","objects.",
+   0
+};
+
+
+int
+main (int argc, char *argv[])
+{
+  FL_COLOR c = FL_BLACK;
+  char **p;
+  VN_struct *vn;
+
+  fl_initialize(&argc, argv, "FormDemo", 0, 0);
+  create_the_forms ();
+  fl_set_bitmap_data (tobj[2], sorceress_width, sorceress_height, sorceress_bits);
+  fl_add_chart_value (tobj[3], 15, "item 1", c++);
+  fl_add_chart_value (tobj[3], 5, "item 2", c++);
+  fl_add_chart_value (tobj[3], -10, "item 3", c++);
+  fl_add_chart_value (tobj[3], 25, "item 4", c++);
+  fl_set_menu (tobj[14], "item 1|item 2|item 3|item 4|item 5");
+  fl_addto_choice (tobj[15], "item 1");
+  fl_addto_choice (tobj[15], "item 2");
+  fl_addto_choice (tobj[15], "item 3");
+  fl_addto_choice (tobj[15], "item 4");
+  fl_addto_choice (tobj[15], "item 5");
+  fl_set_timer (tobj[16], 1000.0);
+
+  for ( p = browserlines; *p; p++)
+     fl_add_browser_line (tobj[17], *p);
+
+  for ( vn = btypes; vn->val >= 0; vn++)
+    fl_addto_choice(btypeob, vn->name);
+
+//   {
+//     int i;
+//     VN_struct *g = gmode, *gs = g + sizeof (gmode) / sizeof (gmode[0]);
+//     for (i = 1; g < gs; g++, i++)
+//     {
+//       fl_addto_choice (modeob, g->name);
+//       if(!fl_mode_capable(g->val, 0))
+//         fl_set_choice_item_mode(modeob, i, FL_PUP_GRAY);
+//     }
+//   }
+//   fl_set_choice (modeob, fl_vmode+1);
+
+  fl_show_form (form, FL_PLACE_MOUSE, border, "Box types");
+
+  while (fl_do_forms () != exitob)
+     ;
+
+  return 0;
+}