- (let ((addStaticText (get-irrlicht-proc "addStaticText" gui-environment parent)))
- (addStaticText gui-environment text rectangle border word-wrap parent
- id fill-background))))
+ (let* ((addStaticText (get-irrlicht-proc "addStaticText" gui-environment parent))
+ (static-text (addStaticText gui-environment text rectangle border word-wrap parent
+ id fill-background)))
+ (mem-wrapped static-text))))
+
+(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))))