Anonymous avatar Anonymous committed 8ac4aa7

Minor changes.

Comments (0)

Files changed (2)

 {
 	if (closure_AttachedToWindow)
 	{
-		return caml_callback(closure_AttachedToWindow, Val_unit);
+		caml_callback(closure_AttachedToWindow, Val_unit);
 	} else
 	{
 		BView::AttachedToWindow();
 {
 	if (closure_AllAttached)
 	{
-		return caml_callback(closure_AllAttached, Val_unit);
+		caml_callback(closure_AllAttached, Val_unit);
 	} else
 	{
 		BView::AllAttached();
 {
 	if (closure_DetachedFromWindow)
 	{
-		return caml_callback(closure_DetachedFromWindow, Val_unit);
+		caml_callback(closure_DetachedFromWindow, Val_unit);
 	} else
 	{
 		BView::DetachedFromWindow();
 {
 	if (closure_AllDetached)
 	{
-		return caml_callback(closure_AllDetached, Val_unit);
+		caml_callback(closure_AllDetached, Val_unit);
 	} else
 	{
 		BView::AllDetached();
 {
 	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
 	{
 		BView::Draw(updateRect);
 {
 	if (closure_DrawAfterChildren)
 	{
-		value arglist = { (value)updateRect };
-		return caml_callbackN(closure_DrawAfterChildren, 1, arglist);
+		value arglist [] = { (value)updateRect };
+		caml_callbackN(closure_DrawAfterChildren, 1, arglist);
 	} else
 	{
 		BView::DrawAfterChildren(updateRect);
 {
 	if (closure_FrameMoved)
 	{
-		value arglist = { (value)newLocation };
-		return caml_callbackN(closure_FrameMoved, 1, arglist);
+		value arglist [] = { (value)newLocation };
+		caml_callbackN(closure_FrameMoved, 1, arglist);
 	} else
 	{
 		BView::FrameMoved(newLocation);
 {
 	if (closure_FrameResized)
 	{
-		value arglist = { (value)width, (value)height };
-		return caml_callbackN(closure_FrameResized, 2, arglist);
+		value arglist [] = { (value)width, (value)height };
+		caml_callbackN(closure_FrameResized, 2, arglist);
 	} else
 	{
 		BView::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
 	{
 		BView::GetPreferredSize(width, height);
 {
 	if (closure_ResizeToPreferred)
 	{
-		return caml_callback(closure_ResizeToPreferred, Val_unit);
+		caml_callback(closure_ResizeToPreferred, Val_unit);
 	} else
 	{
 		BView::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
 	{
 		BView::KeyDown(bytes, numBytes);
 {
 	if (closure_KeyUp)
 	{
-		value arglist = { Val_string(bytes), Val_int(numBytes) };
-		return caml_callbackN(closure_KeyUp, 2, arglist);
+		value arglist [] = { caml_copy_string(bytes), Val_int(numBytes) };
+		caml_callbackN(closure_KeyUp, 2, arglist);
 	} else
 	{
 		BView::KeyUp(bytes, numBytes);
 {
 	if (closure_MessageReceived)
 	{
-		value arglist = { (value)message };
-		return caml_callbackN(closure_MessageReceived, 1, arglist);
+		value arglist [] = { (value)message };
+		caml_callbackN(closure_MessageReceived, 1, arglist);
 	} else
 	{
 		BView::MessageReceived(message);
 {
 	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
 	{
 		BView::MouseDown(point);
 {
 	if (closure_MouseMoved)
 	{
-		value arglist = { (value)point, Val_int(transit), (value)message };
-		return caml_callbackN(closure_MouseMoved, 3, arglist);
+		value arglist [] = { (value)point, Val_int(transit), (value)message };
+		caml_callbackN(closure_MouseMoved, 3, arglist);
 	} else
 	{
 		BView::MouseMoved(point, transit, message);
 {
 	if (closure_MouseUp)
 	{
-		value arglist = { (value)point };
-		return caml_callbackN(closure_MouseUp, 1, arglist);
+		value arglist [] = { (value)point };
+		caml_callbackN(closure_MouseUp, 1, arglist);
 	} else
 	{
 		BView::MouseUp(point);
 {
 	if (closure_Pulse)
 	{
-		return caml_callback(closure_Pulse, Val_unit);
+		caml_callback(closure_Pulse, Val_unit);
 	} else
 	{
 		BView::Pulse();
 {
 	if (closure_TargetedByScrollView)
 	{
-		value arglist = { (value)scroller };
-		return caml_callbackN(closure_TargetedByScrollView, 1, arglist);
+		value arglist [] = { (value)scroller };
+		caml_callbackN(closure_TargetedByScrollView, 1, arglist);
 	} else
 	{
 		BView::TargetedByScrollView(scroller);
 {
 	if (closure_WindowActivated)
 	{
-		value arglist = { Val_bool(active) };
-		return caml_callbackN(closure_WindowActivated, 1, arglist);
+		value arglist [] = { Val_bool(active) };
+		caml_callbackN(closure_WindowActivated, 1, arglist);
 	} else
 	{
 		BView::WindowActivated(active);
 external bview_constructor_1 :
-	brect -> string -> int -> int -> bview =
+	Beapi.brect -> string -> int -> int -> Beapi.bview =
 	"bview_constructor_1"
 external bview_constructor_2 :
-	bmessage -> bview =
+	Beapi.bmessage -> Beapi.bview =
 	"bview_constructor_2"
 external bview_setAttachedToWindow :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setAttachedToWindow"
 external bview_setAllAttached :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setAllAttached"
 external bview_setDetachedFromWindow :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setDetachedFromWindow"
 external bview_setAllDetached :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setAllDetached"
 external bview_setDraw :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setDraw"
 external bview_setDrawAfterChildren :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setDrawAfterChildren"
 external bview_setFrameMoved :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setFrameMoved"
 external bview_setFrameResized :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setFrameResized"
 external bview_setGetPreferredSize :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setGetPreferredSize"
 external bview_setResizeToPreferred :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setResizeToPreferred"
 external bview_setKeyDown :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setKeyDown"
 external bview_setKeyUp :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setKeyUp"
 external bview_setMessageReceived :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setMessageReceived"
 external bview_setMouseDown :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setMouseDown"
 external bview_setMouseMoved :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setMouseMoved"
 external bview_setMouseUp :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setMouseUp"
 external bview_setPulse :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setPulse"
 external bview_setTargetedByScrollView :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setTargetedByScrollView"
 external bview_setWindowActivated :
-	bview -> 'a -> unit =
+	Beapi.bview -> 'a -> unit =
 	"bview_setWindowActivated"
-module BView =
-struct
-	let constructor ?archive ?frame ?resizingMode ?flags ?name () =
+
+
+
+	let bview ?archive ?frame ?resizingMode ?flags ?name () =
 		match archive, frame, resizingMode, flags, name with
 		| None, Some frame, Some resizingMode, Some flags, Some name -> bview_constructor_1 frame name resizingMode flags
 		| Some archive, None, None, None, None -> bview_constructor_2 archive
 	let setWindowActivated ~self ~cb () =
 		bview_setWindowActivated self cb
 
-end
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.