1 files changed, 47 insertions, 0 deletions
diff --git a/packages/xforms/examples/flclock.pp b/packages/xforms/examples/flclock.pp
new file mode 100644
index 0000000000..bdb3f30fc9
--- /dev/null
+++ b/packages/xforms/examples/flclock.pp
@@ -0,0 +1,47 @@
+{ Form definition file generated with fdesign. }
+program flclock;
+
+uses xforms;
+
+var
+ fclock : PFL_FORM;
+
+procedure exit_cb (ob : PFL_OBJECT; q : longint);cdecl;
+begin
+   halt(0);
+end;
+
+procedure create_form_clock;
+var
+  obj : PFL_OBJECT;
+
+begin
+  if (fclock<>nil) then exit;
+
+  fclock := fl_bgn_form(FL_NO_BOX,500,350);
+  obj := fl_add_box(FL_UP_BOX,0,0,500,350,'');
+
+  obj := fl_add_clock(FL_DIGITAL_CLOCK,190,20,140,30,'');
+  fl_set_object_boxtype(obj,FL_ROUNDED_BOX);
+  fl_set_object_color(obj,FL_COL1,FL_BLACK);
+  fl_set_object_lsize(obj,FL_MEDIUM_SIZE);
+  fl_set_object_lstyle(obj,FL_BOLD_STYLE);
+
+  obj := fl_add_clock(FL_ANALOG_CLOCK,30,70,220,200,'');
+  fl_set_object_boxtype(obj,FL_UP_BOX);
+
+  obj := fl_add_clock(FL_ANALOG_CLOCK,260,70,220,200,'');
+  fl_set_object_boxtype(obj,FL_OVAL_BOX);
+  obj := fl_add_button(FL_NORMAL_BUTTON,380,300,100,30,'Exit');
+  fl_set_object_callback(obj, PFL_CALLBACKPTR(@exit_cb), 0);
+  fl_end_form;
+end;
+
+begin
+    fl_initialize(@argc, argv, 'FormDemo', nil, 0);
+
+    create_form_clock();
+    fl_set_form_dblbuffer(fclock, 1);
+    fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks');
+    fl_do_forms();
+end.