Differences From Artifact [49cbb786cb]:

• File iup/iup-types.scm — part of check-in [1e08e6c5f5] at 2011-01-30 16:01:36 on branch trunk — Imported initial copy of iup from chicken egg svn (user: matt, size: 569) [annotate] [blame] [check-ins using]

To Artifact [d4c11c557e]:

• File iup/iup-types.scm — part of check-in [b465d05d14] at 2013-05-11 16:59:59 on branch trunk — Updated iup and added canvas-draw (user: matt, size: 612) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7

1
2
3
4
5
6
7
8
9

+
+

;; -*- mode: Scheme; tab-width: 2; -*- ;;

(define-foreign-type ihandle (c-pointer "Ihandle")
	(ihandle->pointer #f)
	(pointer->ihandle #f))

(define-foreign-type ihandle-list nonnull-pointer-vector
	ihandle-list->pointer-vector)