(dynamic-func "irr_createDevice" cirr)
(list int '* uint32 int int int)))
+(define-public get-cursor-control
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_getCursorControl" cirr)
+ (list '*)))
+
+(define-public get-file-system
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_getFileSystem" cirr)
+ (list '*)))
+
(define-public get-video-driver
(pointer->procedure
'*
(dynamic-func "irr_getSceneManager" cirr)
(list '*)))
+(define-public is-window-active
+ (pointer->procedure
+ int
+ (dynamic-func "irr_isWindowActive" cirr)
+ (list '*)))
+
(define-public set-window-caption
(pointer->procedure
void