+(define-method (add-listbox! (gui-environment <gui-environment>) rectangle . rest)
+ (let-keywords rest #f
+ ((parent (make <gui-element>))
+ (id -1)
+ (draw-background #f))
+ (let ((addListBox (get-irrlicht-proc "addListBox" gui-environment parent)))
+ (addListBox gui-environment rectangle parent id draw-background))))
+