1 files changed, 29 insertions, 0 deletions
diff --git a/packages/xforms/examples/secretinput.pp b/packages/xforms/examples/secretinput.pp
new file mode 100644
index 0000000000..d88d323c26
--- /dev/null
+++ b/packages/xforms/examples/secretinput.pp
@@ -0,0 +1,29 @@
+program secretinput;
+{ Demo showing secret input fields }
+
+uses xforms,strings;
+
+var form : PFL_FORM;
+   but, password1, password2, info, ret : PFL_OBJECT;
+   str : string;
+
+begin
+
+  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
+
+  form := fl_bgn_form( FL_FLAT_BOX,400,300);
+    password1 := fl_add_input(FL_SECRET_INPUT,140,40,160,40,'Password 1:');
+    password2 := fl_add_input(FL_SECRET_INPUT,140,100,160,40,'Password 2:');
+    info := fl_add_box(FL_SHADOW_BOX,20,160,360,40,'');
+    but := fl_add_button( FL_NORMAL_BUTTON,280,240,100,40,'Quit');
+  fl_end_form;
+
+  fl_show_form(form, FL_PLACE_MOUSE,FL_NOBORDER,nil);
+  repeat
+    ret := fl_do_forms;
+    str:='Password 1 is: '+strpas(fl_get_input(password1));
+    str:=str+' , Password 2 is: '+strpas(fl_get_input(password2))+#0;
+    fl_set_object_label(info,@str[1]);
+  until (ret = but);
+  fl_hide_form(form);
+end.