X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk%2Flablgtk_20001129-0.1.0%2Fexamples%2Fentry.ml;fp=helm%2FDEVEL%2Flablgtk%2Flablgtk_20001129-0.1.0%2Fexamples%2Fentry.ml;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=30f3c3dd868db510cc23c378d31884557ebb17c5;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

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
index 30f3c3dd8..000000000
--- 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 ()