1 files changed, 89 insertions, 0 deletions
diff --git a/packages/xforms/examples/browserop.pp b/packages/xforms/examples/browserop.pp
new file mode 100644
index 0000000000..06eee232d0
--- /dev/null
+++ b/packages/xforms/examples/browserop.pp
@@ -0,0 +1,89 @@
+{ This demo shows the different routines on browsers }
+program browserop;
+
+uses xforms;
+
+var
+form : PFL_FORM;
+browserobj, inputobj, exitobj : PFL_OBJECT;
+
+procedure addit(ob : PFL_OBJECT; arg : longint);cdecl;
+begin
+  { 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));
+end;
+
+procedure insertit(ob : PFL_OBJECT ; arg : longint);cdecl;
+var
+  n :  integer;
+begin
+  n:=fl_get_browser(browserobj);
+  if (n=0) then exit;
+  fl_insert_browser_line(browserobj,n,fl_get_input(inputobj));
+end;
+
+procedure replaceit(obj : PFL_OBJECT; arg : longint);cdecl;
+var
+  n :  integer;
+begin
+  n:=fl_get_browser(browserobj);
+  if (n=0) then exit;
+  fl_replace_browser_line(browserobj,n,fl_get_input(inputobj));
+end;
+
+
+procedure deleteit(ob : PFL_OBJECT; arg : Longint);cdecl;
+var
+  n :  integer;
+begin
+  n:=fl_get_browser(browserobj);
+  if (n=0) then exit;
+  fl_delete_browser_line(browserobj,n);
+end;
+
+procedure clearit(ob : PFL_OBJECT; arg : longint);cdecl;
+begin
+  fl_clear_browser(browserobj);
+end;
+
+
+procedure create_form;
+var
+  obj : PFL_OBJECT;
+
+begin
+  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);
+  obj:= fl_add_input(FL_NORMAL_INPUT,20,370,210,30,'');
+  inputobj := obj ;
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@addit),0);
+  obj := fl_add_button(FL_NORMAL_BUTTON,250,20,120,30,'Add');
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@addit),0);
+  obj := fl_add_button(FL_NORMAL_BUTTON,250,60,120,30,'Insert');
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@insertit),0);
+  obj := fl_add_button(FL_NORMAL_BUTTON,250,100,120,30,'Replace');
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@replaceit),0);
+  obj := fl_add_button(FL_NORMAL_BUTTON,250,160,120,30,'Delete');
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@deleteit),0);
+  obj := fl_add_button(FL_NORMAL_BUTTON,250,200,120,30,'Clear');
+    fl_set_object_callback(obj,PFL_CALLBACKPTR(@clearit),0);
+  exitobj := fl_add_button(FL_NORMAL_BUTTON,250,370,120,30,'Exit');
+  fl_end_form();
+end;
+
+{---------------------------------------}
+
+var obj : PFL_OBJECT;
+
+begin
+  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
+  create_form;
+  fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'Browser Op');
+  repeat
+    obj := fl_do_forms
+  until obj = exitobj;
+  fl_hide_form(form);
+end.