Commits

Christian Kellermann committed f79211f

export cairo context object as doodle-context

Comments (0)

Files changed (1)

          current-background
          doodle-width
          doodle-height
+         doodle-context
          draw-line
          define-resource
          filled-circle
 (define *c-surface* #f)
 (define *s* #f)
 
+(define (doodle-context) *c*)
 (define doodle-width #f)
 (define doodle-height #f)