l4/pkg/ocaml/contrib/otherlibs/labltk/browser/jg_multibox.mli

   1 (*************************************************************************)
   2 (*                                                                       *)
   3 (*                Objective Caml LablTk library                          *)
   4 (*                                                                       *)
   5 (*            Jacques Garrigue, Kyoto University RIMS                    *)
   6 (*                                                                       *)
   7 (*   Copyright 1999 Institut National de Recherche en Informatique et    *)
   8 (*   en Automatique and Kyoto University.  All rights reserved.          *)
   9 (*   This file is distributed under the terms of the GNU Library         *)
  10 (*   General Public License, with the special exception on linking       *)
  11 (*   described in file ../../../LICENSE.                                 *)
  12 (*                                                                       *)
  13 (*************************************************************************)
  14
  15 (* $Id: jg_multibox.mli 4144 2001-12-07 13:41:02Z xleroy $ *)
  16
  17 class c :
  18   cols:int -> texts:string list ->
  19   ?maxheight:int -> ?width:int -> 'a Widget.widget ->
  20 object
  21   method cols : int
  22   method texts : string list
  23   method parent : Widget.any Widget.widget
  24   method boxes : Widget.listbox Widget.widget list
  25   method current : int
  26   method init : unit
  27   method recenter : ?aligntop:bool -> int -> unit
  28   method bind_mouse :
  29     events:Tk.event list -> action:(Tk.eventInfo -> index:int -> unit) -> unit
  30   method bind_kbd :
  31     events:Tk.event list -> action:(Tk.eventInfo -> index:int -> unit) -> unit
  32 end
  33
  34 val add_scrollbar : c -> Widget.scrollbar Widget.widget
  35 val add_completion : ?action:(int -> unit) -> ?wait:int -> c -> unit