+(define-method (add-editbox! (gui-environment <gui-environment>) text rectangle . rest)
+ (let-keywords rest #f
+ ((border #t)
+ (parent (make <gui-element>))
+ (id -1))
+ (let ((addEditBox (get-irrlicht-proc "addEditBox" gui-environment parent)))
+ (addEditBox gui-environment text rectangle border parent id))))
+