+(define-method (add-window! (gui-environment <gui-environment>) rectangle . rest)
+ (let-keywords rest #f
+ ((modal #f)
+ (text "")
+ (parent (make <gui-element>))
+ (id -1))
+ (let* ((addWindow (get-irrlicht-proc "addWindow" gui-environment parent))
+ (window (addWindow gui-environment rectangle modal text parent id)))
+ (mem-wrapped window))))
+