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