+(define-method (add-image! (gui-environment <gui-environment>) image pos . rest)
+ (let-keywords rest #f
+ ((use-alpha-channel #t)
+ (parent (make <gui-element>))
+ (id -1)
+ (text ""))
+ (let ((addImage (get-irrlicht-proc "addImage" gui-environment parent)))
+ (addImage gui-environment image pos use-alpha-channel parent id text))))
+