Message-ID: <42FC3E4E.4080301 at compiler.kaist.ac.kr>
Date: Fri, 12 Aug 2005 15:14:38 +0900
From: SooHyoung Oh <shoh at compiler.kaist.ac.kr>
MIME-Version: 1.0
To: lablgtk mailing list <lablgtk at math.nagoya-u.ac.jp>
Subject: my clipboard module
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

I made new clipboard module using Invisible widget.
It has the following interfaces and please let me know if you have 
interest in.
Two methods ("targets" and "set_contents") are added in the current 
GData.clipboard.

class clipboard :
  Gdk.atom ->
  object
    val widget : GBin.invisible
    method as_clipboard : Gtk.clipboard
    method clear : unit -> unit
    method get_contents : target:Gdk.atom -> GObj.selection_data
    method set_contents :
      targets:string list ->
      get_func:(GObj.selection_context -> info:int -> time:int32 -> unit) ->
      clear_func:(GdkEvent.Selection.t -> bool) -> unit
    method set_text : string -> unit
    method targets : Gdk.atom list
    method text : string option
  end

val clipboard : clipboard