X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=cairo%2Fcairo.lisp;h=41b9b0f03db1ceb5c75820fd6a1602936595a7f0;hb=a2741b58f32035175efccf50bf783d2750dda1c2;hp=4cd1928aae3fdddf64217cd605e4939edd5ad39f;hpb=fb828801ba3c551f124fe875ada854f323dfe09a;p=cl-gtk2.git

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index 4cd1928..41b9b0f 100644
--- a/cairo/cairo.lisp
+++ b/cairo/cairo.lisp
@@ -4,9 +4,9 @@
 
 (defclass gdk-context (cl-cairo2:context)
   ())
-                          
+
 (defun create-gdk-context (gdk-drawable)
-  "creates an context to draw on a GTK widget, more precisely on the
+  "Creates a context to draw on a GTK widget, more precisely on the
 associated gdk-window.  This should only be called from within the
 expose event.  In cells-gtk, use (gtk-adds-widget-window gtk-pointer)
 to obtain the gdk-window. 'gtk-pointer' is the pointer parameter
@@ -61,4 +61,4 @@ to the expose event handler."
   (drawable (g-object drawable)))
 
 (defun gdk-cairo-reset-clip (drawable &optional (context cl-cairo2:*context*))
-  (gdk_cairo_reset_clip (slot-value context 'cl-cairo2:pointer) drawable))
\ No newline at end of file
+  (gdk_cairo_reset_clip (slot-value context 'cl-cairo2:pointer) drawable))