(bind-func toString
(lambda (tex:Texture*)
(let ((s:i8* (salloc 256)))
(if (null? tex)
(printf "<TEX: 0x0>")
(printf "<TEX: id:%d type:%d width:%d height:%d>" (id tex) (type tex) (width tex) (height tex)))
(String s))))