- SCM
- irr_gui_setMax (SCM wrapped_obj,
- SCM max)
- {
-#define SET_MAX(OBJ) OBJ->setMax (scm_to_int32 (max));
-
- if (gui_editbox_p (wrapped_obj))
- {
- SET_MAX (unwrap_gui_editbox (wrapped_obj));
- }
- else if (gui_scrollbar_p (wrapped_obj))
- {
- SET_MAX (unwrap_gui_scrollbar (wrapped_obj));
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot set max to object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
- return SCM_UNSPECIFIED;
- }
+SCM
+gui_IGUIScrollBar_getPos (SCM gui_scrollbar)
+{
+ return scm_from_int32
+ (((gui::IGUIScrollBar*)scm_to_pointer (gui_scrollbar))->getPos ());
+}