2002-04-26 05:16:26 -07:00
|
|
|
##ifdef CAMLTK
|
|
|
|
|
|
|
|
|
|
val handle_set : icccm list -> widget -> (int -> int -> unit) -> unit
|
|
|
|
|
(** tk invocation: selection handle <icccm list> <widget> <command> *)
|
|
|
|
|
|
|
|
|
|
##else
|
|
|
|
|
|
1999-11-30 06:59:39 -08:00
|
|
|
val handle_set :
|
|
|
|
|
command: (pos:int -> len:int -> string) ->
|
2000-04-11 20:43:25 -07:00
|
|
|
?format: string -> ?selection:string -> ?typ: string -> 'a widget -> unit
|
2002-04-26 05:16:26 -07:00
|
|
|
(** tk invocation: selection handle <icccm list> <widget> <command> *)
|
|
|
|
|
|
|
|
|
|
##endif
|
