Commits

daonix  committed c2dd0e5

Minor changes

  • Participants
  • Parent commits c31efd5

Comments (0)

Files changed (5)

File BSliderML.cpp

-#include BSliderML.h
+#include "BSliderML.h"
 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)
 {
 	:BSlider(frame, name, label, message, minValue, maxValue, posture, thumbType, resizingMode, flags)
 {
 }
+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)
+{
+}
 BSliderML::BSliderML(BMessage* archive)
 	:BSlider(archive)
 {
 {
 	return bslider_constructor_2_native(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]);
 }
-CAMLprim value bslider_constructor_3(value v_archive)
+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);
+	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);
+}
+CAMLprim value bslider_constructor_3_bytecode(value* argv, int argn)
+{
+	return bslider_constructor_3_native(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
+}
+CAMLprim value bslider_constructor_4(value v_archive)
 {
 	CAMLparam1(v_archive);
 	BSliderML *res = new BSliderML((BMessage*)v_archive);
 	bool res = ((BSlider*)v_self)->FillColor((rgb_color*)v_bar_color);
 	CAMLreturn(Val_bool(res));
 }
-}
+}

File BSliderML.hpp

 #ifndef BSLIDERML_H
 #define BSLIDERML_H
-extern "C" { #include "HaikuML.h" }
+#include "BeapiML.hpp"
+#include "HaikuML.h"
+extern "C" {
+#include "HaikuML.h"
+}
 class BSliderML : public BSlider
 {
 public:
 	BSliderML(BRect frame,const char * name,const char * label,BMessage* message,int minValue,int maxValue,thumb_style thumbType,int resizingMode,int flags);
 	BSliderML(BRect frame,const char * name,const char * label,BMessage* message,int minValue,int maxValue,orientation posture,thumb_style thumbType,int resizingMode,int flags);
+	BSliderML(const char * name,const char * label,BMessage* message,int minValue,int maxValue,orientation posture,thumb_style thumbType,int flags);
 	BSliderML(BMessage* archive);
 	void AttachedToWindow();
 	void setAttachedToWindow(value cb_AttachedToWindow);
 	value closure_MouseDown;
 };
 
-#endif
+#endif
 all : ApplicationKit InterfaceKit
 
 ApplicationKit : bapplication bmessage
-InterfaceKit : balignment bbutton bgrouplayout brect btab btabview btextview bview bwindow
+InterfaceKit : balignment bbutton bgrouplayout brect bslider btab btabview btextview bview bwindow
 
 beapi :
 	g++ -o haikuml_beapi.o -I/boot/common/lib/ocaml -c BeapiML.cpp
 	ocamlmklib -o bRect haikuml_brect.o
 	ocamlmklib -o bRect bRect.cmx
 
+bslider : beapi
+	g++ -o haikuml_bslider.o -I/boot/common/lib/ocaml -c BSliderML.cpp
+	ocamlopt -c bSlider.ml
+	ocamlmklib -o bSlider haikuml_bslider.o
+	ocamlmklib -o bSlider bSlider.cmx
+
 btab : beapi
 	g++ -o haikuml_btab.o -I/boot/common/lib/ocaml -c BTabML.cpp
 	ocamlopt -c bTab.ml
+external bslider_constructor_1 :
+	brect -> string -> string -> bmessage -> int -> int -> thumb_style -> int -> int -> 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 =
+	"bslider_constructor_2_bytecode"
+	"bslider_constructor_2_native"
+external bslider_constructor_3 :
+	string -> string -> bmessage -> int -> int -> orientation -> thumb_style -> int -> bslider =
+	"bslider_constructor_3_bytecode"
+	"bslider_constructor_3_native"
+external bslider_constructor_4 :
+	bmessage -> bslider =
+	"bslider_constructor_4"
+external bslider_setAttachedToWindow :
+	bslider -> 'a -> unit =
+	"bslider_setAttachedToWindow"
+external bslider_setDraw :
+	bslider -> 'a -> unit =
+	"bslider_setDraw"
+external bslider_setDrawBar :
+	bslider -> 'a -> unit =
+	"bslider_setDrawBar"
+external bslider_setBarFrame :
+	bslider -> 'a -> unit =
+	"bslider_setBarFrame"
+external bslider_setDrawFocusMark :
+	bslider -> 'a -> unit =
+	"bslider_setDrawFocusMark"
+external bslider_setDrawHashMarks :
+	bslider -> 'a -> unit =
+	"bslider_setDrawHashMarks"
+external bslider_setHashMarksFrame :
+	bslider -> 'a -> unit =
+	"bslider_setHashMarksFrame"
+external bslider_setDrawSlider :
+	bslider -> 'a -> unit =
+	"bslider_setDrawSlider"
+external bslider_setDrawText :
+	bslider -> 'a -> unit =
+	"bslider_setDrawText"
+external bslider_setDrawThumb :
+	bslider -> 'a -> unit =
+	"bslider_setDrawThumb"
+external bslider_setThumbFrame :
+	bslider -> 'a -> unit =
+	"bslider_setThumbFrame"
+external bslider_setFrameResized :
+	bslider -> 'a -> unit =
+	"bslider_setFrameResized"
+external bslider_setGetPreferredSize :
+	bslider -> 'a -> unit =
+	"bslider_setGetPreferredSize"
+external bslider_setResizeToPreferred :
+	bslider -> 'a -> unit =
+	"bslider_setResizeToPreferred"
+external bslider_setKeyDown :
+	bslider -> 'a -> unit =
+	"bslider_setKeyDown"
+external bslider_setMouseDown :
+	bslider -> 'a -> unit =
+	"bslider_setMouseDown"
+external bslider_Archive :
+	bslider -> bmessage -> bool -> status_t =
+	"bslider_Archive"
+external bslider_OffscreenView :
+	bslider -> bview -> bview =
+	"bslider_OffscreenView"
+external bslider_SetBarColor :
+	bslider -> rgb_color -> unit =
+	"bslider_SetBarColor"
+external bslider_BarColor :
+	bslider -> rgb_color =
+	"bslider_BarColor"
+external bslider_SetBarThickness :
+	bslider -> float -> unit =
+	"bslider_SetBarThickness"
+external bslider_BarThickness :
+	bslider -> float =
+	"bslider_BarThickness"
+external bslider_SetFont :
+	bslider -> bfont -> int -> unit =
+	"bslider_SetFont"
+external bslider_SetHashMarks :
+	bslider -> hash_mark_location -> unit =
+	"bslider_SetHashMarks"
+external bslider_HashMarks :
+	bslider -> hash_mark_location =
+	"bslider_HashMarks"
+external bslider_SetHashMarkCount :
+	bslider -> int -> unit =
+	"bslider_SetHashMarkCount"
+external bslider_HashMarkCount :
+	bslider -> int =
+	"bslider_HashMarkCount"
+external bslider_SetKeyIncrementValue :
+	bslider -> int -> unit =
+	"bslider_SetKeyIncrementValue"
+external bslider_KeyIncrementValue :
+	bslider -> int =
+	"bslider_KeyIncrementValue"
+external bslider_SetLimitLabels :
+	bslider -> string -> string -> unit =
+	"bslider_SetLimitLabels"
+external bslider_MinLimitLabel :
+	bslider -> string =
+	"bslider_MinLimitLabel"
+external bslider_MaxLimitLabel :
+	bslider -> string =
+	"bslider_MaxLimitLabel"
+external bslider_SetModificationMessage :
+	bslider -> bmessage -> unit =
+	"bslider_SetModificationMessage"
+external bslider_ModificationMessage :
+	bslider -> bmessage =
+	"bslider_ModificationMessage"
+external bslider_SetOrientation :
+	bslider -> orientation -> unit =
+	"bslider_SetOrientation"
+external bslider_Orientation :
+	bslider -> orientation =
+	"bslider_Orientation"
+external bslider_SetPosition :
+	bslider -> float -> unit =
+	"bslider_SetPosition"
+external bslider_Position :
+	bslider -> float =
+	"bslider_Position"
+external bslider_SetSnoozeAmount :
+	bslider -> int -> unit =
+	"bslider_SetSnoozeAmount"
+external bslider_SnoozeAmount :
+	bslider -> int =
+	"bslider_SnoozeAmount"
+external bslider_SetStyle :
+	bslider -> thumb_style -> unit =
+	"bslider_SetStyle"
+external bslider_Style :
+	bslider -> thumb_style =
+	"bslider_Style"
+external bslider_SetValue :
+	bslider -> int32 -> unit =
+	"bslider_SetValue"
+external bslider_Value :
+	bslider -> int =
+	"bslider_Value"
+external bslider_ValueForPoint :
+	bslider -> bpoint -> int =
+	"bslider_ValueForPoint"
+external bslider_UpdateText :
+	bslider -> string =
+	"bslider_UpdateText"
+external bslider_UseFillColor :
+	bslider -> bool -> rgb_color -> unit =
+	"bslider_UseFillColor"
+external bslider_FillColor :
+	bslider -> rgb_color -> bool =
+	"bslider_FillColor"
+module BSlider =
+struct
+	let constructor ?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"
+
+
+	let setAttachedToWindow ~self ~cb () =
+		bslider_setAttachedToWindow self cb
+
+	let setDraw ~self ~cb () =
+		bslider_setDraw self cb
+
+	let setDrawBar ~self ~cb () =
+		bslider_setDrawBar self cb
+
+	let setBarFrame ~self ~cb () =
+		bslider_setBarFrame self cb
+
+	let setDrawFocusMark ~self ~cb () =
+		bslider_setDrawFocusMark self cb
+
+	let setDrawHashMarks ~self ~cb () =
+		bslider_setDrawHashMarks self cb
+
+	let setHashMarksFrame ~self ~cb () =
+		bslider_setHashMarksFrame self cb
+
+	let setDrawSlider ~self ~cb () =
+		bslider_setDrawSlider self cb
+
+	let setDrawText ~self ~cb () =
+		bslider_setDrawText self cb
+
+	let setDrawThumb ~self ~cb () =
+		bslider_setDrawThumb self cb
+
+	let setThumbFrame ~self ~cb () =
+		bslider_setThumbFrame self cb
+
+	let setFrameResized ~self ~cb () =
+		bslider_setFrameResized self cb
+
+	let setGetPreferredSize ~self ~cb () =
+		bslider_setGetPreferredSize self cb
+
+	let setResizeToPreferred ~self ~cb () =
+		bslider_setResizeToPreferred self cb
+
+	let setKeyDown ~self ~cb () =
+		bslider_setKeyDown self cb
+
+	let setMouseDown ~self ~cb () =
+		bslider_setMouseDown self cb
+
+	let bslider_Archive ~self ~archive ~deep () =
+		bslider_Archive self archive deep
+
+	let bslider_OffscreenView ~self ~view () =
+		bslider_OffscreenView self view
+
+	let bslider_SetBarColor ~self ~bar_color () =
+		bslider_SetBarColor self bar_color
+
+	let bslider_BarColor ~self () =
+		bslider_BarColor self
+
+	let bslider_SetBarThickness ~self ~thickness () =
+		bslider_SetBarThickness self thickness
+
+	let bslider_BarThickness ~self () =
+		bslider_BarThickness self
+
+	let bslider_SetFont ~self ~font ~properties () =
+		bslider_SetFont self font properties
+
+	let bslider_SetHashMarks ~self ~where () =
+		bslider_SetHashMarks self where
+
+	let bslider_HashMarks ~self () =
+		bslider_HashMarks self
+
+	let bslider_SetHashMarkCount ~self ~hash_mark_count () =
+		bslider_SetHashMarkCount self hash_mark_count
+
+	let bslider_HashMarkCount ~self () =
+		bslider_HashMarkCount self
+
+	let bslider_SetKeyIncrementValue ~self ~increment_value () =
+		bslider_SetKeyIncrementValue self increment_value
+
+	let bslider_KeyIncrementValue ~self () =
+		bslider_KeyIncrementValue self
+
+	let bslider_SetLimitLabels ~self ~minLabel ~maxLabel () =
+		bslider_SetLimitLabels self minLabel maxLabel
+
+	let bslider_MinLimitLabel ~self () =
+		bslider_MinLimitLabel self
+
+	let bslider_MaxLimitLabel ~self () =
+		bslider_MaxLimitLabel self
+
+	let bslider_SetModificationMessage ~self ~message () =
+		bslider_SetModificationMessage self message
+
+	let bslider_ModificationMessage ~self () =
+		bslider_ModificationMessage self
+
+	let bslider_SetOrientation ~self ~posture () =
+		bslider_SetOrientation self posture
+
+	let bslider_Orientation ~self () =
+		bslider_Orientation self
+
+	let bslider_SetPosition ~self ~position () =
+		bslider_SetPosition self position
+
+	let bslider_Position ~self () =
+		bslider_Position self
+
+	let bslider_SetSnoozeAmount ~self ~snooze_time () =
+		bslider_SetSnoozeAmount self snooze_time
+
+	let bslider_SnoozeAmount ~self () =
+		bslider_SnoozeAmount self
+
+	let bslider_SetStyle ~self ~style () =
+		bslider_SetStyle self style
+
+	let bslider_Style ~self () =
+		bslider_Style self
+
+	let bslider_SetValue ~self ~value () =
+		bslider_SetValue self value
+
+	let bslider_Value ~self () =
+		bslider_Value self
+
+	let bslider_ValueForPoint ~self ~location () =
+		bslider_ValueForPoint self location
+
+	let bslider_UpdateText ~self () =
+		bslider_UpdateText self
+
+	let bslider_UseFillColor ~self ~use_fill ~bar_color () =
+		bslider_UseFillColor self use_fill bar_color
+
+	let bslider_FillColor ~self ~bar_color () =
+		bslider_FillColor self bar_color
+
+end

File bslider.ml

-external bslider_constructor_1 :
-	brect -> string -> string -> bmessage -> int -> int -> thumb_style -> int -> int -> bslider =
-	"bslider_constructor_1_native"
-	"bslider_constructor_1_bytecode"
-external bslider_constructor_2 :
-	brect -> string -> string -> bmessage -> int -> int -> orientation -> thumb_style -> int -> int -> bslider =
-	"bslider_constructor_2_native"
-	"bslider_constructor_2_bytecode"
-external bslider_constructor_3 :
-	bmessage -> bslider =
-	"bslider_constructor_3"
-external bslider_setAttachedToWindow :
-	bslider -> 'a -> unit =
-	"bslider_setAttachedToWindow"
-external bslider_setDraw :
-	bslider -> 'a -> unit =
-	"bslider_setDraw"
-external bslider_setDrawBar :
-	bslider -> 'a -> unit =
-	"bslider_setDrawBar"
-external bslider_setBarFrame :
-	bslider -> 'a -> unit =
-	"bslider_setBarFrame"
-external bslider_setDrawFocusMark :
-	bslider -> 'a -> unit =
-	"bslider_setDrawFocusMark"
-external bslider_setDrawHashMarks :
-	bslider -> 'a -> unit =
-	"bslider_setDrawHashMarks"
-external bslider_setHashMarksFrame :
-	bslider -> 'a -> unit =
-	"bslider_setHashMarksFrame"
-external bslider_setDrawSlider :
-	bslider -> 'a -> unit =
-	"bslider_setDrawSlider"
-external bslider_setDrawText :
-	bslider -> 'a -> unit =
-	"bslider_setDrawText"
-external bslider_setDrawThumb :
-	bslider -> 'a -> unit =
-	"bslider_setDrawThumb"
-external bslider_setThumbFrame :
-	bslider -> 'a -> unit =
-	"bslider_setThumbFrame"
-external bslider_setFrameResized :
-	bslider -> 'a -> unit =
-	"bslider_setFrameResized"
-external bslider_setGetPreferredSize :
-	bslider -> 'a -> unit =
-	"bslider_setGetPreferredSize"
-external bslider_setResizeToPreferred :
-	bslider -> 'a -> unit =
-	"bslider_setResizeToPreferred"
-external bslider_setKeyDown :
-	bslider -> 'a -> unit =
-	"bslider_setKeyDown"
-external bslider_setMouseDown :
-	bslider -> 'a -> unit =
-	"bslider_setMouseDown"
-external bslider_Archive :
-	bslider -> bmessage -> bool -> status_t =
-	"bslider_Archive"
-external bslider_OffscreenView :
-	bslider -> bview -> bview =
-	"bslider_OffscreenView"
-external bslider_SetBarColor :
-	bslider -> rgb_color -> unit =
-	"bslider_SetBarColor"
-external bslider_BarColor :
-	bslider -> rgb_color =
-	"bslider_BarColor"
-external bslider_SetBarThickness :
-	bslider -> float -> unit =
-	"bslider_SetBarThickness"
-external bslider_BarThickness :
-	bslider -> float =
-	"bslider_BarThickness"
-external bslider_SetFont :
-	bslider -> bfont -> int -> unit =
-	"bslider_SetFont"
-external bslider_SetHashMarks :
-	bslider -> hash_mark_location -> unit =
-	"bslider_SetHashMarks"
-external bslider_HashMarks :
-	bslider -> hash_mark_location =
-	"bslider_HashMarks"
-external bslider_SetHashMarkCount :
-	bslider -> int -> unit =
-	"bslider_SetHashMarkCount"
-external bslider_HashMarkCount :
-	bslider -> int =
-	"bslider_HashMarkCount"
-external bslider_SetKeyIncrementValue :
-	bslider -> int -> unit =
-	"bslider_SetKeyIncrementValue"
-external bslider_KeyIncrementValue :
-	bslider -> int =
-	"bslider_KeyIncrementValue"
-external bslider_SetLimitLabels :
-	bslider -> string -> string -> unit =
-	"bslider_SetLimitLabels"
-external bslider_MinLimitLabel :
-	bslider -> string =
-	"bslider_MinLimitLabel"
-external bslider_MaxLimitLabel :
-	bslider -> string =
-	"bslider_MaxLimitLabel"
-external bslider_SetModificationMessage :
-	bslider -> bmessage -> unit =
-	"bslider_SetModificationMessage"
-external bslider_ModificationMessage :
-	bslider -> bmessage =
-	"bslider_ModificationMessage"
-external bslider_SetOrientation :
-	bslider -> orientation -> unit =
-	"bslider_SetOrientation"
-external bslider_Orientation :
-	bslider -> orientation =
-	"bslider_Orientation"
-external bslider_SetPosition :
-	bslider -> float -> unit =
-	"bslider_SetPosition"
-external bslider_Position :
-	bslider -> float =
-	"bslider_Position"
-external bslider_SetSnoozeAmount :
-	bslider -> int -> unit =
-	"bslider_SetSnoozeAmount"
-external bslider_SnoozeAmount :
-	bslider -> int =
-	"bslider_SnoozeAmount"
-external bslider_SetStyle :
-	bslider -> thumb_style -> unit =
-	"bslider_SetStyle"
-external bslider_Style :
-	bslider -> thumb_style =
-	"bslider_Style"
-external bslider_SetValue :
-	bslider -> int32 -> unit =
-	"bslider_SetValue"
-external bslider_Value :
-	bslider -> int =
-	"bslider_Value"
-external bslider_ValueForPoint :
-	bslider -> bpoint -> int =
-	"bslider_ValueForPoint"
-external bslider_UpdateText :
-	bslider -> string =
-	"bslider_UpdateText"
-external bslider_UseFillColor :
-	bslider -> bool -> rgb_color -> unit =
-	"bslider_UseFillColor"
-external bslider_FillColor :
-	bslider -> rgb_color -> bool =
-	"bslider_FillColor"
-module BSlider =
-struct
-	let constructor ?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"
-
-
-	let setAttachedToWindow ~self ~cb () =
-		bslider_setAttachedToWindow self cb
-
-	let setDraw ~self ~cb () =
-		bslider_setDraw self cb
-
-	let setDrawBar ~self ~cb () =
-		bslider_setDrawBar self cb
-
-	let setBarFrame ~self ~cb () =
-		bslider_setBarFrame self cb
-
-	let setDrawFocusMark ~self ~cb () =
-		bslider_setDrawFocusMark self cb
-
-	let setDrawHashMarks ~self ~cb () =
-		bslider_setDrawHashMarks self cb
-
-	let setHashMarksFrame ~self ~cb () =
-		bslider_setHashMarksFrame self cb
-
-	let setDrawSlider ~self ~cb () =
-		bslider_setDrawSlider self cb
-
-	let setDrawText ~self ~cb () =
-		bslider_setDrawText self cb
-
-	let setDrawThumb ~self ~cb () =
-		bslider_setDrawThumb self cb
-
-	let setThumbFrame ~self ~cb () =
-		bslider_setThumbFrame self cb
-
-	let setFrameResized ~self ~cb () =
-		bslider_setFrameResized self cb
-
-	let setGetPreferredSize ~self ~cb () =
-		bslider_setGetPreferredSize self cb
-
-	let setResizeToPreferred ~self ~cb () =
-		bslider_setResizeToPreferred self cb
-
-	let setKeyDown ~self ~cb () =
-		bslider_setKeyDown self cb
-
-	let setMouseDown ~self ~cb () =
-		bslider_setMouseDown self cb
-
-	let bslider_Archive ~self ~archive ~deep () =
-		bslider_Archive self archive deep
-
-	let bslider_OffscreenView ~self ~view () =
-		bslider_OffscreenView self view
-
-	let bslider_SetBarColor ~self ~bar_color () =
-		bslider_SetBarColor self bar_color
-
-	let bslider_BarColor ~self () =
-		bslider_BarColor self
-
-	let bslider_SetBarThickness ~self ~thickness () =
-		bslider_SetBarThickness self thickness
-
-	let bslider_BarThickness ~self () =
-		bslider_BarThickness self
-
-	let bslider_SetFont ~self ~font ~properties () =
-		bslider_SetFont self font properties
-
-	let bslider_SetHashMarks ~self ~where () =
-		bslider_SetHashMarks self where
-
-	let bslider_HashMarks ~self () =
-		bslider_HashMarks self
-
-	let bslider_SetHashMarkCount ~self ~hash_mark_count () =
-		bslider_SetHashMarkCount self hash_mark_count
-
-	let bslider_HashMarkCount ~self () =
-		bslider_HashMarkCount self
-
-	let bslider_SetKeyIncrementValue ~self ~increment_value () =
-		bslider_SetKeyIncrementValue self increment_value
-
-	let bslider_KeyIncrementValue ~self () =
-		bslider_KeyIncrementValue self
-
-	let bslider_SetLimitLabels ~self ~minLabel ~maxLabel () =
-		bslider_SetLimitLabels self minLabel maxLabel
-
-	let bslider_MinLimitLabel ~self () =
-		bslider_MinLimitLabel self
-
-	let bslider_MaxLimitLabel ~self () =
-		bslider_MaxLimitLabel self
-
-	let bslider_SetModificationMessage ~self ~message () =
-		bslider_SetModificationMessage self message
-
-	let bslider_ModificationMessage ~self () =
-		bslider_ModificationMessage self
-
-	let bslider_SetOrientation ~self ~posture () =
-		bslider_SetOrientation self posture
-
-	let bslider_Orientation ~self () =
-		bslider_Orientation self
-
-	let bslider_SetPosition ~self ~position () =
-		bslider_SetPosition self position
-
-	let bslider_Position ~self () =
-		bslider_Position self
-
-	let bslider_SetSnoozeAmount ~self ~snooze_time () =
-		bslider_SetSnoozeAmount self snooze_time
-
-	let bslider_SnoozeAmount ~self () =
-		bslider_SnoozeAmount self
-
-	let bslider_SetStyle ~self ~style () =
-		bslider_SetStyle self style
-
-	let bslider_Style ~self () =
-		bslider_Style self
-
-	let bslider_SetValue ~self ~value () =
-		bslider_SetValue self value
-
-	let bslider_Value ~self () =
-		bslider_Value self
-
-	let bslider_ValueForPoint ~self ~location () =
-		bslider_ValueForPoint self location
-
-	let bslider_UpdateText ~self () =
-		bslider_UpdateText self
-
-	let bslider_UseFillColor ~self ~use_fill ~bar_color () =
-		bslider_UseFillColor self use_fill bar_color
-
-	let bslider_FillColor ~self ~bar_color () =
-		bslider_FillColor self bar_color
-
-end