1999-12-16 04:25:11 -08:00
|
|
|
(*************************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Objective Caml LablTk library *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Jacques Garrigue, Kyoto University RIMS *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 1999 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique and Kyoto University. All rights reserved. *)
|
|
|
|
|
(* This file is distributed under the terms of the GNU Library *)
|
|
|
|
|
(* General Public License. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(*************************************************************************)
|
|
|
|
|
|
1999-11-30 06:59:39 -08:00
|
|
|
(* $Id$ *)
|
|
|
|
|
|
|
|
|
|
open Widget
|
|
|
|
|
|
|
|
|
|
val get_all : text widget -> string
|
|
|
|
|
val tag_and_see :
|
|
|
|
|
text widget ->
|
2000-04-11 20:43:25 -07:00
|
|
|
tag:Tk.textTag -> start:Tk.textIndex -> stop:Tk.textIndex -> unit
|
1999-12-07 07:01:12 -08:00
|
|
|
val output : text widget -> buf:string -> pos:int -> len:int -> unit
|
1999-11-30 06:59:39 -08:00
|
|
|
val add_scrollbar : text widget -> scrollbar widget
|
|
|
|
|
val create_with_scrollbar :
|
|
|
|
|
'a widget -> frame widget * text widget * scrollbar widget
|
|
|
|
|
val goto_tag : text widget -> tag:string -> unit
|
|
|
|
|
val search_string : text widget -> unit
|
