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

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml
deleted file mode 100644
index c27ca9fbb..000000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-class multibox ~rows ~columns ?(row_view = rows) ?(col_view = columns)
-    ?packing ?show () =
-  let sw =
-    GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC
-      ?show ?packing () in
-  let vp = GBin.viewport ~shadow_type:`NONE ~packing:sw#add in
-  let table =
-    GPack.table ~columns ~rows ~homogeneous:true ~packing:vp#add () in
-  let buttons =
-    Array.init ~len:columns
-      ~f:(fun left -> Array.init ~len:rows
-	  ~f:(fun top -> GButton.button
-              ~packing:(table#attach ~top ~left ~expand:`BOTH)))
-  in
-  object (self)
-    inherit widget sw#as_widget
-    method cell ~col ~row = buttons.(col).(row)
-    initializer
-      let id = ref None in
-      id := Some
-	  (sw#event#connect#expose ~after:true ~callback:
-	     begin fun _ ->
-	       may !id ~f:sw#connect#disconnect;
-	       let height = table#misc#allocation.height * row_view / rows
-	       and width = table#misc#allocation.width * col_view / columns in
-	       vp#misc#set_size ~height ~width;
-	       false
-	     end);
-      table#focus#set_vadjustment vp#vadjustment
-  end