To: lablgtk at kaba.or.jp
Subject: gDraw extentions
From: Michael Welsh Duggan <md5i at cs.cmu.edu>
Date: 23 Mar 2001 13:33:26 -0500
Message-ID: <v1tn1ac49op.fsf at maru.rem.cs.cmu.edu>
Lines: 34
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="

--=-=-=

I locally decided to make a few more GC functions available from the
drawable object.  Here is the patch if anyone else is interested.


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment

--- lablgtk-1.2.0.orig/src/gDraw.ml
+++ lablgtk-1.2.0/src/gDraw.ml
@@ -42,7 +42,10 @@
   method set_background col = GC.set_background gc (self#color col)
   method size = Window.get_size w
   method gc_values = GC.get_values gc
-  method set_clip_region region = GC.set_clip_region gc region
+  method set_clip_region = GC.set_clip_region gc
+  method set_clip_origin = GC.set_clip_origin gc
+  method set_clip_mask = GC.set_clip_mask gc
+  method set_clip_rectangle = GC.set_clip_rectangle gc
   method set_line_attributes ?width ?style ?cap ?join () =
     let v = GC.get_values gc in
     GC.set_line_attributes gc
--- lablgtk-1.2.0.orig/src/gDraw.mli
+++ lablgtk-1.2.0/src/gDraw.mli
@@ -48,6 +48,9 @@
     method set_background : color -> unit
     method set_foreground : color -> unit
     method set_clip_region : region -> unit
+    method set_clip_origin : x:int -> y:int -> unit
+    method set_clip_mask : bitmap -> unit
+    method set_clip_rectangle : Rectangle.t -> unit
     method set_line_attributes :
       ?width:int ->
       ?style:GC.gdkLineStyle ->

--=-=-=

-- 
Michael Duggan
(md5i@cs.cmu.edu)

--=-=-=--