89 lines
3.2 KiB
OCaml
89 lines
3.2 KiB
OCaml
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
|
|
val coe : < alwaysscrolly : bool;
|
|
button : int -> bool -> int -> int -> int -> #Config.uioh;
|
|
display : unit; eformsgs : bool;
|
|
infochanged : Config.infochange -> unit;
|
|
key : int -> int -> #Config.uioh; modehash : Config.keyhash;
|
|
motion : int -> int -> #Config.uioh;
|
|
multiclick : int -> int -> int -> int -> #Config.uioh;
|
|
pmotion : int -> int -> #Config.uioh;
|
|
scroll : int -> int -> #Config.uioh;
|
|
scrollph : int * float * float; scrollpw : int * float * float;
|
|
zoom : float -> int -> int -> unit; .. > -> Config.uioh
|
|
val setuioh : < alwaysscrolly : bool;
|
|
button : int -> bool -> int -> int -> int -> #Config.uioh;
|
|
display : unit; eformsgs : bool;
|
|
infochanged : Config.infochange -> unit;
|
|
key : int -> int -> #Config.uioh; modehash : Config.keyhash;
|
|
motion : int -> int -> #Config.uioh;
|
|
multiclick : int -> int -> int -> int -> #Config.uioh;
|
|
pmotion : int -> int -> #Config.uioh;
|
|
scroll : int -> int -> #Config.uioh;
|
|
scrollph : int * float * float; scrollpw : int * float * float;
|
|
zoom : float -> int -> int -> unit; .. > -> unit
|