uiutils.mli

   1 val scrollph : int -> int -> float * float
   2 val isbirdseye : Config.mode -> bool
   3 val istextentry : Config.mode -> bool
   4 val vscrollw : unit -> int
   5 val vscrollhit : int -> bool
   6 val firstof : int -> int -> int
   7 val calcfirst : int -> int -> int
   8 val enttext : unit -> unit
   9 val textentrykeyboard : int -> int ->
  10   (string * string * Config.onhist option * Config.onkey * Config.ondone *
  11    Config.cancelonempty) * Config.onleave -> unit
  12 class type lvsource =
  13   object
  14     method exit :
  15       uioh:Config.uioh ->
  16       cancel:bool -> active:int -> first:int -> pan:int -> Config.uioh option
  17     method getactive : int
  18     method getfirst : int
  19     method getitem : int -> string * int
  20     method getitemcount : int
  21     method getminfo : (int * int) array
  22     method getpan : int
  23     method hasaction : int -> bool
  24   end
  25 class virtual lvsourcebase :
  26   object
  27     val mutable m_active : int
  28     val mutable m_first : int
  29     val mutable m_pan : int
  30     method getactive : int
  31     method getfirst : int
  32     method getminfo : (int * int) array
  33     method getpan : int
  34   end
  35 val changetitle : < title : string; .. > -> unit
  36 class listview :
  37   zebra:bool ->
  38   helpmode:bool ->
  39   source:lvsource ->
  40   trusted:bool ->
  41   modehash:Config.keyhash ->
  42   object ('a)
  43     val m_active : int
  44     val m_first : int
  45     val m_pan : int
  46     val m_prev_uioh : Config.uioh
  47     val m_qsearch : string
  48     method alwaysscrolly : bool
  49     method button : int -> bool -> int -> int -> int -> Config.uioh
  50     method display : unit
  51     method eformsgs : bool
  52     method private elemunder : int -> int option
  53     method infochanged : Config.infochange -> unit
  54     method key : int -> int -> Config.uioh
  55     method private key1 : int -> int -> Config.uioh
  56     method modehash : Config.keyhash
  57     method motion : int -> int -> Config.uioh
  58     method multiclick : int -> int -> int -> int -> Config.uioh
  59     method nextcurlevel : int -> 'a
  60     method pmotion : int -> int -> Config.uioh
  61     method scroll : int -> int -> Config.uioh
  62     method scrollph : int * float * float
  63     method scrollpw : int * float * float
  64     method updownlevel : int -> 'a
  65     method zoom : float -> int -> int -> unit
  66   end
  67 val coe : < alwaysscrolly : bool;
  68     button : int -> bool -> int -> int -> int -> #Config.uioh;
  69     display : unit; eformsgs : bool;
  70     infochanged : Config.infochange -> unit;
  71     key : int -> int -> #Config.uioh; modehash : Config.keyhash;
  72     motion : int -> int -> #Config.uioh;
  73     multiclick : int -> int -> int -> int -> #Config.uioh;
  74     pmotion : int -> int -> #Config.uioh;
  75     scroll : int -> int -> #Config.uioh;
  76     scrollph : int * float * float; scrollpw : int * float * float;
  77     zoom : float -> int -> int -> unit; .. > -> Config.uioh
  78 val setuioh : < alwaysscrolly : bool;
  79     button : int -> bool -> int -> int -> int -> #Config.uioh;
  80     display : unit; eformsgs : bool;
  81     infochanged : Config.infochange -> unit;
  82     key : int -> int -> #Config.uioh; modehash : Config.keyhash;
  83     motion : int -> int -> #Config.uioh;
  84     multiclick : int -> int -> int -> int -> #Config.uioh;
  85     pmotion : int -> int -> #Config.uioh;
  86     scroll : int -> int -> #Config.uioh;
  87     scrollph : int * float * float; scrollpw : int * float * float;
  88     zoom : float -> int -> int -> unit; .. > -> unit