X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2FgObj.mli;fp=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2FgObj.mli;h=0000000000000000000000000000000000000000;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hp=7c37cf1249ae2ad4bcedaf86513885d402cddfcd;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli
deleted file mode 100644
index 7c37cf124..000000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli
+++ /dev/null
@@ -1,267 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-(* Object *)
-
-class gtkobj :
-  'a obj ->
-  object
-    val obj : 'a obj
-    method destroy : unit -> unit
-    method get_id : int
-  end
-
-class gtkobj_signals :
-  ?after:bool -> 'a obj ->
-  object ('b)
-    val obj : 'a obj
-    val after : bool
-    method after : 'b
-    method destroy : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class gtkobj_misc : 'a obj ->
-  object
-    method get_type : string
-    method disconnect : GtkSignal.id -> unit
-    method handler_block : GtkSignal.id -> unit
-    method handler_unblock : GtkSignal.id -> unit
-  end
-
-(* Widget *)
-
-class event_signals :
-  ?after:bool -> [>`widget] obj ->
-  object ('a)
-    method after : 'a
-    method any :
-	callback:(Gdk.Tags.event_type Gdk.event -> bool) -> GtkSignal.id
-    method button_press : callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method button_release :
-	callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method configure : callback:(GdkEvent.Configure.t -> bool) -> GtkSignal.id
-    method delete : callback:([`DELETE] Gdk.event -> bool) -> GtkSignal.id
-    method destroy : callback:([`DESTROY] Gdk.event -> bool) -> GtkSignal.id
-    method enter_notify :
-	callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method expose : callback:(GdkEvent.Expose.t -> bool) -> GtkSignal.id
-    method focus_in : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method focus_out : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method key_press : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method key_release : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method leave_notify :
-	callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method map : callback:([`MAP] Gdk.event -> bool) -> GtkSignal.id
-    method motion_notify :
-	callback:(GdkEvent.Motion.t -> bool) -> GtkSignal.id
-    method property_notify :
-	callback:(GdkEvent.Property.t -> bool) -> GtkSignal.id
-    method proximity_in :
-	callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method proximity_out :
-	callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method selection_clear :
-	callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_notify :
-	callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_request :
-	callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method unmap : callback:([`UNMAP] Gdk.event -> bool) -> GtkSignal.id
-  end
-
-class event_ops : [>`widget] obj ->
-  object
-    method add : Gdk.Tags.event_mask list -> unit
-    method connect : event_signals
-    method send : Gdk.Tags.event_type Gdk.event -> bool
-    method set_extensions : Gdk.Tags.extension_events -> unit
-  end
-
-class style : Gtk.style ->
-  object ('a)
-    val style : Gtk.style
-    method as_style : Gtk.style
-    method bg : Tags.state_type -> Gdk.Color.t
-    method colormap : Gdk.colormap
-    method copy : 'a
-    method font : Gdk.font
-    method set_background : Gdk.window -> Tags.state_type -> unit
-    method set_bg : (Tags.state_type * GDraw.color) list -> unit
-    method set_font : Gdk.font -> unit
-  end
-
-class selection_data :
-  GtkData.Selection.t ->
-  object
-    val sel : GtkData.Selection.t
-    method data : string	(* May raise Null_pointer *)
-    method format : int
-    method selection : Gdk.atom
-    method seltype : Gdk.atom
-    method target : Gdk.atom
-    method set : typ:Gdk.atom -> format:int -> ?data:string -> unit
-  end
-
-class drag_ops : [>`widget] obj ->
-  object
-    method connect : drag_signals
-    method dest_set :
-      ?flags:Tags.dest_defaults list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method dest_unset : unit -> unit
-    method get_data : ?time:int -> context:drag_context -> Gdk.atom ->unit
-    method highlight : unit -> unit
-    method source_set :
-      ?modi:Gdk.Tags.modifier list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method source_set_icon : ?colormap:Gdk.colormap -> GDraw.pixmap -> unit
-    method source_unset : unit -> unit
-    method unhighlight : unit -> unit
-  end
-
-and misc_ops :
-  [>`widget] obj ->
-  object
-    inherit gtkobj_misc
-    val obj : Gtk.widget obj
-    method activate : unit -> bool
-    method add_accelerator :
-      sgn:(Gtk.widget, unit -> unit) GtkSignal.t ->
-      group:accel_group -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:Tags.accel_flag list -> Gdk.keysym -> unit
-    method allocation : rectangle
-    method colormap : Gdk.colormap
-    method connect : misc_signals
-    method draw : Gdk.Rectangle.t option -> unit
-    method grab_default : unit -> unit
-    method grab_focus : unit -> unit
-    method has_focus : bool
-    method hide : unit -> unit
-    method hide_all : unit -> unit
-    method intersect : Gdk.Rectangle.t -> Gdk.Rectangle.t option
-    method is_ancestor : widget -> bool
-    method lock_accelerators : unit -> unit
-    method map : unit -> unit
-    method name : string
-    method parent : widget option
-    method pointer : int * int
-    method popup : x:int -> y:int -> unit
-    method realize : unit -> unit
-    method remove_accelerator :
-      group:accel_group -> ?modi:Gdk.Tags.modifier list -> Gdk.keysym -> unit
-    method reparent : widget -> unit
-    method set_app_paintable : bool -> unit
-    method set_can_default : bool -> unit
-    method set_can_focus : bool -> unit
-    method set_name : string -> unit
-    method set_sensitive : bool -> unit
-    method set_state : Tags.state_type -> unit
-    method set_style : style -> unit
-    method set_geometry :
-      ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-    method show : unit -> unit
-    method show_all : unit -> unit
-    method style : style
-    method toplevel : widget option
-    method unmap : unit -> unit
-    method unparent : unit -> unit
-    method unrealize : unit -> unit
-    method visible : bool
-    method visual : Gdk.visual
-    method visual_depth : int
-    method window : Gdk.window
-  end
-
-and widget :
-  'a obj ->
-  object
-    inherit gtkobj
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method as_widget : Gtk.widget obj
-    method coerce : widget
-    method drag : drag_ops
-    method misc : misc_ops
-  end
-
-and misc_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('b)
-    inherit gtkobj_signals 
-    val obj : Gtk.widget obj
-    method after : 'b
-    method draw : callback:(Gtk.rectangle -> unit) -> GtkSignal.id
-    method hide : callback:(unit -> unit) -> GtkSignal.id
-    method map : callback:(unit -> unit) -> GtkSignal.id
-    method parent_set : callback:(widget option -> unit) -> GtkSignal.id
-    method realize : callback:(unit -> unit) -> GtkSignal.id
-    method show : callback:(unit -> unit) -> GtkSignal.id
-    method state_changed :
-      callback:(Gtk.Tags.state_type -> unit) -> GtkSignal.id
-    method style_set : callback:(unit -> unit) -> GtkSignal.id
-    method unmap : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-and drag_context :
-  Gdk.drag_context ->
-  object
-    val context : Gdk.drag_context
-    method context : Gdk.drag_context
-    method finish : success:bool -> del:bool -> time:int -> unit
-    method source_widget : widget 
-    method set_icon_pixmap :
-      ?colormap:Gdk.colormap -> GDraw.pixmap -> hot_x:int -> hot_y:int -> unit
-    method set_icon_widget : widget -> hot_x:int -> hot_y:int -> unit
-    method status : ?time:int -> Gdk.Tags.drag_action list -> unit
-    method suggested_action : Gdk.Tags.drag_action
-    method targets : Gdk.atom list
-  end
-
-and drag_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('a)
-    method after : 'a
-    method beginning :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_delete :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_get :
-      callback:(drag_context -> selection_data -> info:int -> time:int -> unit)
-      -> GtkSignal.id
-    method data_received :
-      callback:(drag_context -> x:int -> y:int ->
-	        selection_data -> info:int -> time:int -> unit) -> GtkSignal.id
-    method drop :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-    method ending :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method leave :
-      callback:(drag_context -> time:int -> unit) -> GtkSignal.id
-    method motion :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-  end
-
-class widget_signals : ?after:bool -> 'a obj ->
-  object
-    inherit gtkobj_signals
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-  end
-
-class widget_full : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method connect : widget_signals
-  end
-
-val as_widget : widget -> Gtk.widget obj
-
-val pack_return :
-    (#widget as 'a) ->
-    packing:(widget -> unit) option -> show:bool option -> 'a
-    (* To use in initializers to provide a ?packing: option *)