Commits

Anonymous committed 71de661

Minor changes

Comments (0)

Files changed (4)

-#include "BSliderML.h"
+#include "BSliderML.hpp"
 BSliderML::BSliderML(BRect frame, const char * name, const char * label, BMessage* message, int minValue, int maxValue, thumb_style thumbType, int resizingMode, int flags)
 	:BSlider(frame, name, label, message, minValue, maxValue, thumbType, resizingMode, flags)
 {
+	unsetHooks();
 }
 BSliderML::BSliderML(BRect frame, const char * name, const char * label, BMessage* message, int minValue, int maxValue, orientation posture, thumb_style thumbType, int resizingMode, int flags)
 	:BSlider(frame, name, label, message, minValue, maxValue, posture, thumbType, resizingMode, flags)
 {
+	unsetHooks();
 }
 BSliderML::BSliderML(const char * name, const char * label, BMessage* message, int minValue, int maxValue, orientation posture, thumb_style thumbType, int flags)
 	:BSlider(name, label, message, minValue, maxValue, posture, thumbType, flags)
 {
+	unsetHooks();
 }
 BSliderML::BSliderML(BMessage* archive)
 	:BSlider(archive)
 {
+	unsetHooks();
+}
+void
+BSliderML::unsetHooks()
+{
+	closure_AttachedToWindow = 0;
+        closure_Draw = 0;
+        closure_DrawBar = 0;
+        closure_BarFrame = 0;
+        closure_DrawFocusMark = 0;
+        closure_DrawHashMarks = 0;
+        closure_HashMarksFrame = 0;
+        closure_DrawSlider = 0;
+        closure_DrawText = 0;
+        closure_DrawThumb = 0;
+        closure_ThumbFrame = 0;
+        closure_FrameResized = 0;
+        closure_GetPreferredSize = 0;
+        closure_ResizeToPreferred = 0;
+        closure_KeyDown = 0;
+        closure_MouseDown = 0;
 }
 void
 BSliderML::AttachedToWindow()
 {
 	if (closure_AttachedToWindow)
 	{
-		return caml_callback(closure_AttachedToWindow, Val_unit);
+		caml_callback(closure_AttachedToWindow, Val_unit);
 	} else
 	{
 		BSlider::AttachedToWindow();
 {
 	if (closure_Draw)
 	{
-		value arglist = { (value)updateRect };
-		return caml_callbackN(closure_Draw, 1, arglist);
+		value arglist [] = { (value)&updateRect };
+		caml_callbackN(closure_Draw, 1, arglist);
 	} else
 	{
 		BSlider::Draw(updateRect);
 {
 	if (closure_DrawBar)
 	{
-		return caml_callback(closure_DrawBar, Val_unit);
+		caml_callback(closure_DrawBar, Val_unit);
 	} else
 	{
 		BSlider::DrawBar();
 {
 	if (closure_DrawFocusMark)
 	{
-		return caml_callback(closure_DrawFocusMark, Val_unit);
+		caml_callback(closure_DrawFocusMark, Val_unit);
 	} else
 	{
 		BSlider::DrawFocusMark();
 {
 	if (closure_DrawHashMarks)
 	{
-		return caml_callback(closure_DrawHashMarks, Val_unit);
+		caml_callback(closure_DrawHashMarks, Val_unit);
 	} else
 	{
 		BSlider::DrawHashMarks();
 {
 	if (closure_DrawSlider)
 	{
-		return caml_callback(closure_DrawSlider, Val_unit);
+		caml_callback(closure_DrawSlider, Val_unit);
 	} else
 	{
 		BSlider::DrawSlider();
 {
 	if (closure_DrawText)
 	{
-		return caml_callback(closure_DrawText, Val_unit);
+		caml_callback(closure_DrawText, Val_unit);
 	} else
 	{
 		BSlider::DrawText();
 {
 	if (closure_DrawThumb)
 	{
-		return caml_callback(closure_DrawThumb, Val_unit);
+		caml_callback(closure_DrawThumb, Val_unit);
 	} else
 	{
 		BSlider::DrawThumb();
 	closure_ThumbFrame = cb_ThumbFrame;
 }
 void
-BSliderML::FrameResized(float* width, float* height)
+BSliderML::FrameResized(float width, float height)
 {
 	if (closure_FrameResized)
 	{
-		value arglist = { (value)width, (value)height };
-		return caml_callbackN(closure_FrameResized, 2, arglist);
+		value arglist [] = { caml_copy_double(width), caml_copy_double(height) };
+		caml_callbackN(closure_FrameResized, 2, arglist);
 	} else
 	{
 		BSlider::FrameResized(width, height);
 {
 	if (closure_GetPreferredSize)
 	{
-		value arglist = { (value)width, (value)height };
-		return caml_callbackN(closure_GetPreferredSize, 2, arglist);
+		value arglist [] = { (value)width, (value)height };
+		caml_callbackN(closure_GetPreferredSize, 2, arglist);
 	} else
 	{
 		BSlider::GetPreferredSize(width, height);
 {
 	if (closure_ResizeToPreferred)
 	{
-		return caml_callback(closure_ResizeToPreferred, Val_unit);
+		caml_callback(closure_ResizeToPreferred, Val_unit);
 	} else
 	{
 		BSlider::ResizeToPreferred();
 {
 	if (closure_KeyDown)
 	{
-		value arglist = { Val_string(bytes), Val_int(numBytes) };
-		return caml_callbackN(closure_KeyDown, 2, arglist);
+		value arglist [] = { caml_copy_string(bytes), Val_int(numBytes) };
+		caml_callbackN(closure_KeyDown, 2, arglist);
 	} else
 	{
 		BSlider::KeyDown(bytes, numBytes);
 {
 	if (closure_MouseDown)
 	{
-		value arglist = { (value)point };
-		return caml_callbackN(closure_MouseDown, 1, arglist);
+		value arglist [] = { (value)&point };
+		caml_callbackN(closure_MouseDown, 1, arglist);
 	} else
 	{
 		BSlider::MouseDown(point);
 CAMLprim value bslider_constructor_3_native(value v_name, value v_label, value v_message, value v_minValue, value v_maxValue, value v_posture, value v_thumbType, value v_flags)
 {
 	CAMLparam5(v_name, v_label, v_message, v_minValue, v_maxValue);
-	CAMLxparam3(, v_posture, v_thumbType, v_flags);
+	CAMLxparam3(v_posture, v_thumbType, v_flags);
 	BSliderML *res = new BSliderML(String_val(v_name), String_val(v_label), (BMessage*)v_message, Int_val(v_minValue), Int_val(v_maxValue), (orientation)v_posture, (thumb_style)v_thumbType, Int_val(v_flags));
 	CAMLreturn((value)res);
 }
 	((BSliderML*)v_self)->setMouseDown(v_cb);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderArchive(value v_self, value v_archive, value v_deep)
+CAMLprim value bslider_Archive(value v_self, value v_archive, value v_deep)
 {
 	CAMLparam3(v_self, v_archive, v_deep);
 	status_t res = ((BSlider*)v_self)->Archive((BMessage*)v_archive, Bool_val(v_deep));
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderOffscreenView(value v_self, value v_view)
+CAMLprim value bslider_OffscreenView(value v_self)
 {
-	CAMLparam2(v_self, v_view);
-	BView* res = ((BSlider*)v_self)->OffscreenView((BView*)v_view);
+	CAMLparam1(v_self);
+	BView* res = ((BSlider*)v_self)->OffscreenView();
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderSetBarColor(value v_self, value v_bar_color)
+CAMLprim value bslider_SetBarColor(value v_self, value v_bar_color)
 {
 	CAMLparam2(v_self, v_bar_color);
-	((BSlider*)v_self)->SetBarColor((rgb_color)v_bar_color);
+	((BSlider*)v_self)->SetBarColor(*(rgb_color*)v_bar_color);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderBarColor(value v_self)
+CAMLprim value bslider_BarColor(value v_self)
 {
 	CAMLparam1(v_self);
 	rgb_color res = ((BSlider*)v_self)->BarColor();
-	CAMLreturn((value)res);
+	CAMLreturn((value)&res);
 }
-CAMLprim value bsliderSetBarThickness(value v_self, value v_thickness)
+CAMLprim value bslider_SetBarThickness(value v_self, value v_thickness)
 {
 	CAMLparam2(v_self, v_thickness);
 	((BSlider*)v_self)->SetBarThickness(Double_val(v_thickness));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderBarThickness(value v_self)
+CAMLprim value bslider_BarThickness(value v_self)
 {
 	CAMLparam1(v_self);
 	float res = ((BSlider*)v_self)->BarThickness();
-	CAMLreturn(Val_double(res));
+	CAMLreturn(caml_copy_double(res));
 }
-CAMLprim value bsliderSetFont(value v_self, value v_font, value v_properties)
+CAMLprim value bslider_SetFont(value v_self, value v_font, value v_properties)
 {
 	CAMLparam3(v_self, v_font, v_properties);
 	((BSlider*)v_self)->SetFont((BFont*)v_font, Int_val(v_properties));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderSetHashMarks(value v_self, value v_where)
+CAMLprim value bslider_SetHashMarks(value v_self, value v_where)
 {
 	CAMLparam2(v_self, v_where);
 	((BSlider*)v_self)->SetHashMarks((hash_mark_location)v_where);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderHashMarks(value v_self)
+CAMLprim value bslider_HashMarks(value v_self)
 {
 	CAMLparam1(v_self);
 	hash_mark_location res = ((BSlider*)v_self)->HashMarks();
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderSetHashMarkCount(value v_self, value v_hash_mark_count)
+CAMLprim value bslider_SetHashMarkCount(value v_self, value v_hash_mark_count)
 {
 	CAMLparam2(v_self, v_hash_mark_count);
 	((BSlider*)v_self)->SetHashMarkCount(Int_val(v_hash_mark_count));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderHashMarkCount(value v_self)
+CAMLprim value bslider_HashMarkCount(value v_self)
 {
 	CAMLparam1(v_self);
 	int res = ((BSlider*)v_self)->HashMarkCount();
 	CAMLreturn(Val_int(res));
 }
-CAMLprim value bsliderSetKeyIncrementValue(value v_self, value v_increment_value)
+CAMLprim value bslider_SetKeyIncrementValue(value v_self, value v_increment_value)
 {
 	CAMLparam2(v_self, v_increment_value);
 	((BSlider*)v_self)->SetKeyIncrementValue(Int_val(v_increment_value));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderKeyIncrementValue(value v_self)
+CAMLprim value bslider_KeyIncrementValue(value v_self)
 {
 	CAMLparam1(v_self);
 	int res = ((BSlider*)v_self)->KeyIncrementValue();
 	CAMLreturn(Val_int(res));
 }
-CAMLprim value bsliderSetLimitLabels(value v_self, value v_minLabel, value v_maxLabel)
+CAMLprim value bslider_SetLimitLabels(value v_self, value v_minLabel, value v_maxLabel)
 {
 	CAMLparam3(v_self, v_minLabel, v_maxLabel);
 	((BSlider*)v_self)->SetLimitLabels(String_val(v_minLabel), String_val(v_maxLabel));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderMinLimitLabel(value v_self)
+CAMLprim value bslider_MinLimitLabel(value v_self)
 {
 	CAMLparam1(v_self);
 	const char * res = ((BSlider*)v_self)->MinLimitLabel();
-	CAMLreturn(Val_string(res));
+	CAMLreturn(caml_copy_string(res));
 }
-CAMLprim value bsliderMaxLimitLabel(value v_self)
+CAMLprim value bslider_MaxLimitLabel(value v_self)
 {
 	CAMLparam1(v_self);
 	const char * res = ((BSlider*)v_self)->MaxLimitLabel();
-	CAMLreturn(Val_string(res));
+	CAMLreturn(caml_copy_string(res));
 }
-CAMLprim value bsliderSetModificationMessage(value v_self, value v_message)
+CAMLprim value bslider_SetModificationMessage(value v_self, value v_message)
 {
 	CAMLparam2(v_self, v_message);
 	((BSlider*)v_self)->SetModificationMessage((BMessage*)v_message);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderModificationMessage(value v_self)
+CAMLprim value bslider_ModificationMessage(value v_self)
 {
 	CAMLparam1(v_self);
 	BMessage* res = ((BSlider*)v_self)->ModificationMessage();
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderSetOrientation(value v_self, value v_posture)
+CAMLprim value bslider_SetOrientation(value v_self, value v_posture)
 {
 	CAMLparam2(v_self, v_posture);
 	((BSlider*)v_self)->SetOrientation((orientation)v_posture);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderOrientation(value v_self)
+CAMLprim value bslider_Orientation(value v_self)
 {
 	CAMLparam1(v_self);
 	orientation res = ((BSlider*)v_self)->Orientation();
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderSetPosition(value v_self, value v_position)
+CAMLprim value bslider_SetPosition(value v_self, value v_position)
 {
 	CAMLparam2(v_self, v_position);
-	((BSlider*)v_self)->SetPosition((float*)v_position);
+	((BSlider*)v_self)->SetPosition(Double_val(v_position));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderPosition(value v_self)
+CAMLprim value bslider_Position(value v_self)
 {
 	CAMLparam1(v_self);
 	float res = ((BSlider*)v_self)->Position();
-	CAMLreturn(Val_double(res));
+	CAMLreturn(caml_copy_double(res));
 }
-CAMLprim value bsliderSetSnoozeAmount(value v_self, value v_snooze_time)
+CAMLprim value bslider_SetSnoozeAmount(value v_self, value v_snooze_time)
 {
 	CAMLparam2(v_self, v_snooze_time);
 	((BSlider*)v_self)->SetSnoozeAmount(Int_val(v_snooze_time));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderSnoozeAmount(value v_self)
+CAMLprim value bslider_SnoozeAmount(value v_self)
 {
 	CAMLparam1(v_self);
 	int res = ((BSlider*)v_self)->SnoozeAmount();
 	CAMLreturn(Val_int(res));
 }
-CAMLprim value bsliderSetStyle(value v_self, value v_style)
+CAMLprim value bslider_SetStyle(value v_self, value v_style)
 {
 	CAMLparam2(v_self, v_style);
 	((BSlider*)v_self)->SetStyle((thumb_style)v_style);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderStyle(value v_self)
+CAMLprim value bslider_Style(value v_self)
 {
 	CAMLparam1(v_self);
 	thumb_style res = ((BSlider*)v_self)->Style();
 	CAMLreturn((value)res);
 }
-CAMLprim value bsliderSetValue(value v_self, value v_value)
+CAMLprim value bslider_SetValue(value v_self, value v_value)
 {
 	CAMLparam2(v_self, v_value);
-	((BSlider*)v_self)->SetValue((int32*)v_value);
+	((BSlider*)v_self)->SetValue(Int_val(v_value));
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderValue(value v_self)
+CAMLprim value bslider_Value(value v_self)
 {
 	CAMLparam1(v_self);
 	int res = ((BSlider*)v_self)->Value();
 	CAMLreturn(Val_int(res));
 }
-CAMLprim value bsliderValueForPoint(value v_self, value v_location)
+CAMLprim value bslider_ValueForPoint(value v_self, value v_location)
 {
 	CAMLparam2(v_self, v_location);
 	int res = ((BSlider*)v_self)->ValueForPoint(*((BPoint*)v_location));
 	CAMLreturn(Val_int(res));
 }
-CAMLprim value bsliderUpdateText(value v_self)
+CAMLprim value bslider_UpdateText(value v_self)
 {
 	CAMLparam1(v_self);
 	const char * res = ((BSlider*)v_self)->UpdateText();
-	CAMLreturn(Val_string(res));
+	CAMLreturn(caml_copy_string(res));
 }
-CAMLprim value bsliderUseFillColor(value v_self, value v_use_fill, value v_bar_color)
+CAMLprim value bslider_UseFillColor(value v_self, value v_use_fill, value v_bar_color)
 {
 	CAMLparam3(v_self, v_use_fill, v_bar_color);
 	((BSlider*)v_self)->UseFillColor(Bool_val(v_use_fill), (rgb_color*)v_bar_color);
 	CAMLreturn(Val_unit);
 }
-CAMLprim value bsliderFillColor(value v_self, value v_bar_color)
+CAMLprim value bslider_FillColor(value v_self, value v_bar_color)
 {
 	CAMLparam2(v_self, v_bar_color);
 	bool res = ((BSlider*)v_self)->FillColor((rgb_color*)v_bar_color);
 #define BSLIDERML_H
 #include "BeapiML.hpp"
 #include "HaikuML.h"
+#include <interface/Slider.h>
 extern "C" {
 #include "HaikuML.h"
 }
 	void setDrawThumb(value cb_DrawThumb);
 	BRect ThumbFrame();
 	void setThumbFrame(value cb_ThumbFrame);
-	void FrameResized(float* width,float* height);
+	void FrameResized(float width,float height);
 	void setFrameResized(value cb_FrameResized);
 	void GetPreferredSize(float* width,float* height);
 	void setGetPreferredSize(value cb_GetPreferredSize);
 	void setKeyDown(value cb_KeyDown);
 	void MouseDown(BPoint point);
 	void setMouseDown(value cb_MouseDown);
+	void unsetHooks();
 private:
 	value closure_AttachedToWindow;
 	value closure_Draw;
 external bslider_constructor_1 :
-	brect -> string -> string -> bmessage -> int -> int -> thumb_style -> int -> int -> bslider =
+	Beapi.brect -> string -> string -> Beapi.bmessage -> int -> int -> Beapi.thumb_style -> int -> int -> Beapi.bslider =
 	"bslider_constructor_1_bytecode"
 	"bslider_constructor_1_native"
 external bslider_constructor_2 :
-	brect -> string -> string -> bmessage -> int -> int -> orientation -> thumb_style -> int -> int -> bslider =
+	Beapi.brect -> string -> string -> Beapi.bmessage -> int -> int -> Beapi.orientation -> Beapi.thumb_style -> int -> int -> Beapi.bslider =
 	"bslider_constructor_2_bytecode"
 	"bslider_constructor_2_native"
 external bslider_constructor_3 :
-	string -> string -> bmessage -> int -> int -> orientation -> thumb_style -> int -> bslider =
+	string -> string -> Beapi.bmessage -> int -> int -> Beapi.orientation -> Beapi.thumb_style -> int -> Beapi.bslider =
 	"bslider_constructor_3_bytecode"
 	"bslider_constructor_3_native"
 external bslider_constructor_4 :
-	bmessage -> bslider =
+	Beapi.bmessage -> Beapi.bslider =
 	"bslider_constructor_4"
 external bslider_setAttachedToWindow :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setAttachedToWindow"
 external bslider_setDraw :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (Beapi.brect -> unit) -> unit =
 	"bslider_setDraw"
 external bslider_setDrawBar :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawBar"
 external bslider_setBarFrame :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> Beapi.brect) -> unit =
 	"bslider_setBarFrame"
 external bslider_setDrawFocusMark :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawFocusMark"
 external bslider_setDrawHashMarks :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawHashMarks"
 external bslider_setHashMarksFrame :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> Beapi.brect) -> unit =
 	"bslider_setHashMarksFrame"
 external bslider_setDrawSlider :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawSlider"
 external bslider_setDrawText :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawText"
 external bslider_setDrawThumb :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setDrawThumb"
 external bslider_setThumbFrame :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> Beapi.brect) -> unit =
 	"bslider_setThumbFrame"
 external bslider_setFrameResized :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (float -> float -> unit) -> unit =
 	"bslider_setFrameResized"
 external bslider_setGetPreferredSize :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (float -> float -> unit) -> unit =
 	"bslider_setGetPreferredSize"
 external bslider_setResizeToPreferred :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (unit -> unit) -> unit =
 	"bslider_setResizeToPreferred"
 external bslider_setKeyDown :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (string -> int -> unit) -> unit =
 	"bslider_setKeyDown"
 external bslider_setMouseDown :
-	bslider -> 'a -> unit =
+	Beapi.bslider -> (Beapi.bpoint -> unit) -> unit =
 	"bslider_setMouseDown"
 external bslider_Archive :
-	bslider -> bmessage -> bool -> status_t =
+	Beapi.bslider -> Beapi.bmessage -> bool -> Beapi.status_t =
 	"bslider_Archive"
 external bslider_OffscreenView :
-	bslider -> bview -> bview =
+	Beapi.bslider -> Beapi.bview =
 	"bslider_OffscreenView"
 external bslider_SetBarColor :
-	bslider -> rgb_color -> unit =
+	Beapi.bslider -> Beapi.rgb_color -> unit =
 	"bslider_SetBarColor"
 external bslider_BarColor :
-	bslider -> rgb_color =
+	Beapi.bslider -> Beapi.rgb_color =
 	"bslider_BarColor"
 external bslider_SetBarThickness :
-	bslider -> float -> unit =
+	Beapi.bslider -> float -> unit =
 	"bslider_SetBarThickness"
 external bslider_BarThickness :
-	bslider -> float =
+	Beapi.bslider -> float =
 	"bslider_BarThickness"
 external bslider_SetFont :
-	bslider -> bfont -> int -> unit =
+	Beapi.bslider -> Beapi.bfont -> int -> unit =
 	"bslider_SetFont"
 external bslider_SetHashMarks :
-	bslider -> hash_mark_location -> unit =
+	Beapi.bslider -> Beapi.hash_mark_location -> unit =
 	"bslider_SetHashMarks"
 external bslider_HashMarks :
-	bslider -> hash_mark_location =
+	Beapi.bslider -> Beapi.hash_mark_location =
 	"bslider_HashMarks"
 external bslider_SetHashMarkCount :
-	bslider -> int -> unit =
+	Beapi.bslider -> int -> unit =
 	"bslider_SetHashMarkCount"
 external bslider_HashMarkCount :
-	bslider -> int =
+	Beapi.bslider -> int =
 	"bslider_HashMarkCount"
 external bslider_SetKeyIncrementValue :
-	bslider -> int -> unit =
+	Beapi.bslider -> int -> unit =
 	"bslider_SetKeyIncrementValue"
 external bslider_KeyIncrementValue :
-	bslider -> int =
+	Beapi.bslider -> int =
 	"bslider_KeyIncrementValue"
 external bslider_SetLimitLabels :
-	bslider -> string -> string -> unit =
+	Beapi.bslider -> string -> string -> unit =
 	"bslider_SetLimitLabels"
 external bslider_MinLimitLabel :
-	bslider -> string =
+	Beapi.bslider -> string =
 	"bslider_MinLimitLabel"
 external bslider_MaxLimitLabel :
-	bslider -> string =
+	Beapi.bslider -> string =
 	"bslider_MaxLimitLabel"
 external bslider_SetModificationMessage :
-	bslider -> bmessage -> unit =
+	Beapi.bslider -> Beapi.bmessage -> unit =
 	"bslider_SetModificationMessage"
 external bslider_ModificationMessage :
-	bslider -> bmessage =
+	Beapi.bslider -> Beapi.bmessage =
 	"bslider_ModificationMessage"
 external bslider_SetOrientation :
-	bslider -> orientation -> unit =
+	Beapi.bslider -> Beapi.orientation -> unit =
 	"bslider_SetOrientation"
 external bslider_Orientation :
-	bslider -> orientation =
+	Beapi.bslider -> Beapi.orientation =
 	"bslider_Orientation"
 external bslider_SetPosition :
-	bslider -> float -> unit =
+	Beapi.bslider -> float -> unit =
 	"bslider_SetPosition"
 external bslider_Position :
-	bslider -> float =
+	Beapi.bslider -> float =
 	"bslider_Position"
 external bslider_SetSnoozeAmount :
-	bslider -> int -> unit =
+	Beapi.bslider -> int -> unit =
 	"bslider_SetSnoozeAmount"
 external bslider_SnoozeAmount :
-	bslider -> int =
+	Beapi.bslider -> int =
 	"bslider_SnoozeAmount"
 external bslider_SetStyle :
-	bslider -> thumb_style -> unit =
+	Beapi.bslider -> Beapi.thumb_style -> unit =
 	"bslider_SetStyle"
 external bslider_Style :
-	bslider -> thumb_style =
+	Beapi.bslider -> Beapi.thumb_style =
 	"bslider_Style"
 external bslider_SetValue :
-	bslider -> int32 -> unit =
+	Beapi.bslider -> int -> unit =
 	"bslider_SetValue"
 external bslider_Value :
-	bslider -> int =
+	Beapi.bslider -> int =
 	"bslider_Value"
 external bslider_ValueForPoint :
-	bslider -> bpoint -> int =
+	Beapi.bslider -> Beapi.bpoint -> int =
 	"bslider_ValueForPoint"
 external bslider_UpdateText :
-	bslider -> string =
+	Beapi.bslider -> string =
 	"bslider_UpdateText"
 external bslider_UseFillColor :
-	bslider -> bool -> rgb_color -> unit =
+	Beapi.bslider -> bool -> Beapi.rgb_color -> unit =
 	"bslider_UseFillColor"
 external bslider_FillColor :
-	bslider -> rgb_color -> bool =
+	Beapi.bslider -> Beapi.rgb_color -> bool =
 	"bslider_FillColor"
-module BSlider =
-struct
-	let constructor ?archive ?posture ?frame ?label ?maxValue ?minValue ?resizingMode ?message ?thumbType ?flags ?name () =
+
+
+
+
+
+	let bslider ?archive ?posture ?frame ?label ?maxValue ?minValue ?resizingMode ?message ?thumbType ?flags ?name () =
 		match archive, posture, frame, label, maxValue, minValue, resizingMode, message, thumbType, flags, name with
 		| None, None, Some frame, Some label, Some maxValue, Some minValue, Some resizingMode, Some message, Some thumbType, Some flags, Some name -> bslider_constructor_1 frame name label message minValue maxValue thumbType resizingMode flags
 		| None, Some posture, Some frame, Some label, Some maxValue, Some minValue, Some resizingMode, Some message, Some thumbType, Some flags, Some name -> bslider_constructor_2 frame name label message minValue maxValue posture thumbType resizingMode flags
-		| Some archive, None, None, None, None, None, None, None, None, None, None -> bslider_constructor_3 archive
-		| None, None, None, None, None, None, None, None, None, None, None -> invalid_arg "Wrong arg in BSlider.constructor"
+		| None, Some posture, None, Some label, Some maxValue, Some minValue, None, Some message, Some thumbType, Some flags, Some name -> bslider_constructor_3 name label message minValue maxValue posture thumbType flags
+		| Some archive, None, None, None, None, None, None, None, None, None, None -> bslider_constructor_4 archive
+		| _, _, _, _, _, _, _, _, _, _, _ -> invalid_arg "Wrong arg in BSlider.constructor"
 
 
 	let setAttachedToWindow ~self ~cb () =
 	let setMouseDown ~self ~cb () =
 		bslider_setMouseDown self cb
 
-	let bslider_Archive ~self ~archive ~deep () =
+	let archive ~self ~archive ~deep () =
 		bslider_Archive self archive deep
 
-	let bslider_OffscreenView ~self ~view () =
-		bslider_OffscreenView self view
+	let offscreenView ~self () =
+		bslider_OffscreenView self
 
-	let bslider_SetBarColor ~self ~bar_color () =
+	let setBarColor ~self ~bar_color () =
 		bslider_SetBarColor self bar_color
 
-	let bslider_BarColor ~self () =
+	let barColor ~self () =
 		bslider_BarColor self
 
-	let bslider_SetBarThickness ~self ~thickness () =
+	let setBarThickness ~self ~thickness () =
 		bslider_SetBarThickness self thickness
 
-	let bslider_BarThickness ~self () =
+	let barThickness ~self () =
 		bslider_BarThickness self
 
-	let bslider_SetFont ~self ~font ~properties () =
+	let setFont ~self ~font ~properties () =
 		bslider_SetFont self font properties
 
-	let bslider_SetHashMarks ~self ~where () =
+	let setHashMarks ~self ~where () =
 		bslider_SetHashMarks self where
 
-	let bslider_HashMarks ~self () =
+	let hashMarks ~self () =
 		bslider_HashMarks self
 
-	let bslider_SetHashMarkCount ~self ~hash_mark_count () =
+	let setHashMarkCount ~self ~hash_mark_count () =
 		bslider_SetHashMarkCount self hash_mark_count
 
-	let bslider_HashMarkCount ~self () =
+	let hashMarkCount ~self () =
 		bslider_HashMarkCount self
 
-	let bslider_SetKeyIncrementValue ~self ~increment_value () =
+	let setKeyIncrementValue ~self ~increment_value () =
 		bslider_SetKeyIncrementValue self increment_value
 
-	let bslider_KeyIncrementValue ~self () =
+	let keyIncrementValue ~self () =
 		bslider_KeyIncrementValue self
 
-	let bslider_SetLimitLabels ~self ~minLabel ~maxLabel () =
+	let setLimitLabels ~self ~minLabel ~maxLabel () =
 		bslider_SetLimitLabels self minLabel maxLabel
 
-	let bslider_MinLimitLabel ~self () =
+	let minLimitLabel ~self () =
 		bslider_MinLimitLabel self
 
-	let bslider_MaxLimitLabel ~self () =
+	let maxLimitLabel ~self () =
 		bslider_MaxLimitLabel self
 
-	let bslider_SetModificationMessage ~self ~message () =
+	let setModificationMessage ~self ~message () =
 		bslider_SetModificationMessage self message
 
-	let bslider_ModificationMessage ~self () =
+	let modificationMessage ~self () =
 		bslider_ModificationMessage self
 
-	let bslider_SetOrientation ~self ~posture () =
+	let setOrientation ~self ~posture () =
 		bslider_SetOrientation self posture
 
-	let bslider_Orientation ~self () =
+	let orientation ~self () =
 		bslider_Orientation self
 
-	let bslider_SetPosition ~self ~position () =
+	let setPosition ~self ~position () =
 		bslider_SetPosition self position
 
-	let bslider_Position ~self () =
+	let position ~self () =
 		bslider_Position self
 
-	let bslider_SetSnoozeAmount ~self ~snooze_time () =
+	let setSnoozeAmount ~self ~snooze_time () =
 		bslider_SetSnoozeAmount self snooze_time
 
-	let bslider_SnoozeAmount ~self () =
+	let snoozeAmount ~self () =
 		bslider_SnoozeAmount self
 
-	let bslider_SetStyle ~self ~style () =
+	let setStyle ~self ~style () =
 		bslider_SetStyle self style
 
-	let bslider_Style ~self () =
+	let style ~self () =
 		bslider_Style self
 
-	let bslider_SetValue ~self ~value () =
+	let setValue ~self ~value () =
 		bslider_SetValue self value
 
-	let bslider_Value ~self () =
+	let value ~self () =
 		bslider_Value self
 
-	let bslider_ValueForPoint ~self ~location () =
+	let valueForPoint ~self ~location () =
 		bslider_ValueForPoint self location
 
-	let bslider_UpdateText ~self () =
+	let updateText ~self () =
 		bslider_UpdateText self
 
-	let bslider_UseFillColor ~self ~use_fill ~bar_color () =
+	let useFillColor ~self ~use_fill ~bar_color () =
 		bslider_UseFillColor self use_fill bar_color
 
-	let bslider_FillColor ~self ~bar_color () =
+	let fillColor ~self ~bar_color () =
 		bslider_FillColor self bar_color
 
+
+
+class bslider ?archive ?posture ?frame ?label ?maxValue ?minValue
+              ?resizingMode ?message ?thumbType ?flags ?name
+              ?external_pointer () =
+  object (self)
+    val pointer =
+      match external_pointer with
+      | Some p -> p
+      | None ->
+          match archive, posture, frame, label, maxValue, minValue,
+	        resizingMode, message, thumbType, flags, name with
+          | None, None, Some frame, Some label, Some maxValue,
+	    Some minValue, Some resizingMode, Some message,
+	    Some thumbType, Some flags, Some name ->
+	      bslider_constructor_1 frame name label message minValue
+	                            maxValue thumbType resizingMode flags
+          | None, Some posture, Some frame, Some label,
+	    Some maxValue, Some minValue, Some resizingMode,
+	    Some message, Some thumbType, Some flags, Some name ->
+	      bslider_constructor_2 frame name label message minValue
+	                            maxValue posture thumbType
+				    resizingMode flags
+          | None, Some posture, None, Some label, Some maxValue,
+	    Some minValue, None, Some message, Some thumbType,
+	    Some flags, Some name ->
+	      bslider_constructor_3 name label message minValue
+	                            maxValue posture thumbType flags
+          | Some archive, None, None, None, None, None, None,
+	    None, None, None, None -> bslider_constructor_4 archive
+          | _, _, _, _, _, _, _, _, _, _, _ ->
+	      invalid_arg "Wrong arg in BSlider.constructor"
+
+
+    method setAttachedToWindow cb =
+      bslider_setAttachedToWindow pointer cb
+
+    method setDraw cb =
+      bslider_setDraw pointer cb
+
+    method setDrawBar cb =
+      bslider_setDrawBar pointer cb
+
+    method setBarFrame cb =
+      bslider_setBarFrame pointer cb
+
+    method setDrawFocusMark cb =
+      bslider_setDrawFocusMark pointer cb
+
+    method setDrawHashMarks cb =
+      bslider_setDrawHashMarks pointer cb
+
+    method setHashMarksFrame cb =
+      bslider_setHashMarksFrame pointer cb
+
+    method setDrawSlider cb =
+      bslider_setDrawSlider pointer cb
+
+    method setDrawText cb =
+      bslider_setDrawText pointer cb
+
+    method setDrawThumb cb =
+      bslider_setDrawThumb pointer cb
+
+    method setThumbFrame cb =
+      bslider_setThumbFrame pointer cb
+
+    method setFrameResized cb =
+      bslider_setFrameResized pointer cb
+
+    method setGetPreferredSize cb =
+      bslider_setGetPreferredSize pointer cb
+
+    method setResizeToPreferred cb =
+      bslider_setResizeToPreferred pointer cb
+
+    method setKeyDown cb =
+      bslider_setKeyDown pointer cb
+
+    method setMouseDown cb =
+      bslider_setMouseDown pointer cb
+
+    method archive ~archive ~deep =
+      bslider_Archive pointer archive deep
+
+    method offscreen_view =
+      bslider_OffscreenView pointer
+
+    method set_bar_color ~bar_color =
+      bslider_SetBarColor pointer bar_color
+
+    method bar_color =
+      bslider_BarColor pointer
+
+    method set_bar_thickness ~thickness =
+      bslider_SetBarThickness pointer thickness
+
+    method bar_thickness =
+      bslider_BarThickness pointer
+
+    method set_font ~font ~properties =
+      bslider_SetFont pointer font properties
+
+    method set_hash_marks ~where =
+      bslider_SetHashMarks pointer where
+
+    method hash_marks =
+      bslider_HashMarks pointer
+
+    method set_hash_mark_count ~hash_mark_count =
+      bslider_SetHashMarkCount pointer hash_mark_count
+
+    method hash_mark_count =
+      bslider_HashMarkCount pointer
+
+    method set_key_increment_value ~increment_value =
+      bslider_SetKeyIncrementValue pointer increment_value
+
+    method key_increment_value =
+      bslider_KeyIncrementValue pointer
+
+    method set_limit_labels ~minLabel ~maxLabel =
+      bslider_SetLimitLabels pointer minLabel maxLabel
+
+    method min_limit_label =
+      bslider_MinLimitLabel pointer
+
+    method max_limit_label =
+      bslider_MaxLimitLabel pointer
+
+    method set_modification_message ~message =
+      bslider_SetModificationMessage pointer message
+
+    method modification_message =
+      bslider_ModificationMessage pointer
+
+    method set_orientation ~posture =
+      bslider_SetOrientation pointer posture
+
+    method orientation =
+      bslider_Orientation pointer
+
+    method set_position ~position =
+      bslider_SetPosition pointer position
+
+    method position =
+      bslider_Position pointer
+
+    method set_snooze_amount ~snooze_time =
+      bslider_SetSnoozeAmount pointer snooze_time
+
+    method snooze_amount =
+      bslider_SnoozeAmount pointer
+
+    method set_style ~style =
+      bslider_SetStyle pointer style
+
+    method style =
+      bslider_Style pointer
+
+    method set_value ~value =
+      bslider_SetValue pointer value
+
+    method value =
+      bslider_Value pointer
+
+    method value_for_point ~location =
+      bslider_ValueForPoint pointer location
+
+    method update_text =
+      bslider_UpdateText pointer
+
+    method use_fill_color ~use_fill ~bar_color =
+      bslider_UseFillColor pointer use_fill bar_color
+
+    method fill_color ~bar_color =
+      bslider_FillColor pointer bar_color
+
 end
 type brect
 type bregion
 type bsize
+type bslider
 type bstring
 type btab
 type btabview
 type column_row_constraints
 type dimensions
 type entry_ref
+type hash_mark_location =
+	| B_HASH_MARKS_NONE
+	| B_HASH_MARKS_TOP
+	| B_HASH_MARKS_LEFT
+	| B_HASH_MARKS_BOTTOM
+	| B_HASH_MARKS_RIGHT
+	| B_HASH_MARKS_BOTH
 type orientation =
 	| B_HORIZONTAL
 	| B_VERTICAL
 type tab_position
 type text_run_array
 type thread_id
+type thumb_style =
+	| B_BLOCK_THUMB
+	| B_TRIANGLE_THUMB
 type type_code
 type undo_state =
 	| B_UNDO_UNAVAILABLE
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.