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

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml
deleted file mode 100644
index e9c0cf34f..000000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml
+++ /dev/null
@@ -1,13 +0,0 @@
-(* $Id$ *)
-
-let dialog ~title ~callback ?filename () =
-  let sel =
-    GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()