X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2Fexamples%2Fold%2Fhello.ml;fp=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2Fexamples%2Fold%2Fhello.ml;h=0000000000000000000000000000000000000000;hp=60506e3cb9454c594be186a4977e7282c4ce3291;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml
deleted file mode 100644
index 60506e3cb..000000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* $Id$ *)
-
-open GtkBase
-open GtkButton
-open GtkWindow
-open GtkMain
-
-let window = Window.create `TOPLEVEL
-
-let button = Button.create label:"Hello World"
-
-let main () =
-  GtkSignal.connect sig:Widget.Signals.Event.delete window
-    callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  GtkSignal.connect sig:Object.Signals.destroy window callback:Main.quit;
-  Container.set_border_width window 10;
-  GtkSignal.connect sig:Button.Signals.clicked button
-    callback:(fun () -> prerr_endline "Hello World"; Object.destroy window);
-  Container.add window button;
-  Widget.show_all window;
-  Main.main ()
-
-let _ = Printexc.print main ()