1 files changed, 40 insertions, 0 deletions
diff --git a/packages/xforms/examples/arrowbutton.pp b/packages/xforms/examples/arrowbutton.pp
new file mode 100644
index 0000000000..5508707d5d
--- /dev/null
+++ b/packages/xforms/examples/arrowbutton.pp
@@ -0,0 +1,40 @@
+{ This demo shows the use of special symbol labels }
+program arrowbutton;
+
+uses xforms;
+
+const border : longint = FL_TRANSIENT;
+
+var
+  form : PFL_FORM;
+  obj,but : PFL_OBJECT;
+
+begin
+  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
+
+  form := fl_bgn_form(FL_UP_BOX,400,400);
+    obj := fl_add_button(FL_NORMAL_BUTTON, 50, 250,100,100,'@1');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON,150, 250,100,100,'@2');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON,250, 250,100,100,'@3');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON, 50,150,100,100,'@4');
+    fl_set_object_lcol(obj,FL_BLUE);
+    but := fl_add_button(FL_NORMAL_BUTTON,150,150,100,100,'@square');
+    fl_set_object_lcol(but,FL_GREEN);
+    fl_set_object_color(but,FL_MAGENTA,FL_RED);
+    obj := fl_add_button(FL_NORMAL_BUTTON,250,150,100,100,'@6');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON, 50, 50,100,100,'@7');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON,150, 50,100,100,'@8');
+    fl_set_object_lcol(obj,FL_BLUE);
+    obj := fl_add_button(FL_NORMAL_BUTTON,250, 50,100,100,'@9');
+    fl_set_object_lcol(obj,FL_BLUE);
+  fl_end_form();
+
+  fl_show_form(form,FL_PLACE_ASPECT,border,'Buttons');
+  while (fl_do_forms() <> but) do;
+  fl_hide_form(form);
+end.