This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / DEVEL / lablgtk / lablgtk_20001129-0.1.0 / examples / entry.ml

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml
deleted file mode 100644 (file)
index 30f3c3d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-
-open Printf
-open GMain
-
-let enter_callback entry =
-  printf "Entry contents: %s\n" entry#text;
-  flush stdout
-
-let entry_toggle_editable button entry =
-  entry#set_editable button#active
-
-let entry_toggle_visibility button entry =
-  entry#set_visibility button#active
-
-let main () =
-
-  let window = GWindow.window ~title: "GTK Entry" ~width: 200 ~height: 100 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~packing: window#add () in
-
-  let entry = GEdit.entry ~max_length: 50 ~packing: vbox#add () in
-  entry#connect#activate ~callback:(fun () -> enter_callback entry);
-  entry#set_text "Hello";
-  entry#append_text " world";
-  entry#select_region ~start:0 ~stop:entry#text_length;
-
-  let hbox = GPack.hbox ~packing: vbox#add () in
-
-  let check = GButton.check_button ~label: "Editable" ~active: true
-      ~packing: hbox#add () in
-  check#connect#toggled ~callback:(fun () -> entry_toggle_editable check entry);
-
-  let check =
-    GButton.check_button ~label:"Visible" ~active:true ~packing:hbox#add () in
-  check#connect#toggled
-    ~callback:(fun () -> entry_toggle_visibility check entry);
-
-  let button = GButton.button ~label: "Close" ~packing: vbox#add () in
-  button#connect#clicked ~callback:window#destroy;
-  button#grab_default ();
-
-  window#show ();
-
-  Main.main ()
-
-let _ = main ()