shared_argument_type.ml

module Config: sig
  type mode
  type onhist
  class type uioh = object end
  type keyhash
  type onkey
  type ondone
  type cancelonempty
  type onleave
  type infochange
end

val scrollph : int -> int -> float * float
val isbirdseye : Config.mode -> bool
val istextentry : Config.mode -> bool
val vscrollw : unit -> int
val vscrollhit : int -> bool
val firstof : int -> int -> int
val calcfirst : int -> int -> int
val enttext : unit -> unit
val textentrykeyboard : int -> int ->
  (string * string * Config.onhist option * Config.onkey * Config.ondone *
   Config.cancelonempty) * Config.onleave -> unit
class type lvsource =
  object
    method exit :
      uioh:Config.uioh ->
      cancel:bool -> active:int -> first:int -> pan:int -> Config.uioh option
    method getactive : int
    method getfirst : int
    method getitem : int -> string * int
    method getitemcount : int
    method getminfo : (int * int) array
    method getpan : int
    method hasaction : int -> bool
  end
class virtual lvsourcebase :
  object
    val mutable m_active : int
    val mutable m_first : int
    val mutable m_pan : int
    method getactive : int
    method getfirst : int
    method getminfo : (int * int) array
    method getpan : int
  end
val changetitle : < title : string; .. > -> unit
class listview :
  zebra:bool ->
  helpmode:bool ->
  source:lvsource ->
  trusted:bool ->
  modehash:Config.keyhash ->
  object ('a)
    val m_active : int
    val m_first : int
    val m_pan : int
    val m_prev_uioh : Config.uioh
    val m_qsearch : string
    method alwaysscrolly : bool
    method button : int -> bool -> int -> int -> int -> Config.uioh
    method display : unit
    method eformsgs : bool
    method private elemunder : int -> int option
    method infochanged : Config.infochange -> unit
    method key : int -> int -> Config.uioh
    method private key1 : int -> int -> Config.uioh
    method modehash : Config.keyhash
    method motion : int -> int -> Config.uioh
    method multiclick : int -> int -> int -> int -> Config.uioh
    method nextcurlevel : int -> 'a
    method pmotion : int -> int -> Config.uioh
    method scroll : int -> int -> Config.uioh
    method scrollph : int * float * float
    method scrollpw : int * float * float
    method updownlevel : int -> 'a
    method zoom : float -> int -> int -> unit
  end


type ('a,'b,'c,'d,'e,'f) arg =
< alwaysscrolly : bool;
    button : int -> bool -> int -> int -> int -> (#Config.uioh as 'a);
    display : unit; eformsgs : bool;
    infochanged : Config.infochange -> unit;
    key : int -> int -> (#Config.uioh as 'b); modehash : Config.keyhash;
    motion : int -> int -> (#Config.uioh as 'c);
    multiclick : int -> int -> int -> int -> (#Config.uioh as 'd);
    pmotion : int -> int -> (#Config.uioh as 'e);
    scroll : int -> int -> (#Config.uioh as 'f);
    scrollph : int * float * float; scrollpw : int * float * float;
    zoom : float -> int -> int -> unit
  >


class type arg2 = object
 method alwaysscrolly : bool
 method button : int -> bool -> int -> int -> int -> #Config.uioh
 method display : unit
 method eformsgs : bool
 method infochanged : Config.infochange -> unit
 method key : int -> int -> #Config.uioh
 method modehash : Config.keyhash
 method motion : int -> int -> #Config.uioh
 method multiclick : int -> int -> int -> int -> #Config.uioh
 method pmotion : int -> int -> #Config.uioh
 method scroll : int -> int -> #Config.uioh
 method scrollph : int * float * float
 method scrollpw : int * float * float
 method zoom : float -> int -> int -> unit
end

val coe :  < _ arg; .. > -> Config.uioh
val setuioh : < _ arg; .. >  -> unit

val coe :  #arg2 -> Config.uioh
val setuioh : #arg2  -> unit