Commits

Christian Kellermann committed b5785af

Export height and width so users don't need to store it themselves.

Comments (0)

Files changed (1)

          circle
          clear-screen
          current-background
+         doodle-width
+         doodle-height
          draw-line
          filled-circle
          filled-rectangle
 (define *c-surface* #f)
 (define *s* #f)
 
+(define doodle-width #f)
+(define doodle-height #f)
+
 (define (expect-procedure p)
   (unless (procedure? p)
     (error "This parameter can be set to procedures only, you gave it " p))
 
   (set! *c* (cairo-create *c-surface*))
 
-
+  (set! doodle-width width)
+  (set! doodle-height height)
 
   (sdl-wm-set-caption title "Pretty Pics Inc.")
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.