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