Commits

Anonymous committed a0ae511

Minor changes.

Comments (0)

Files changed (2)

 {
 	if (closure_Draw)
 	{
-		value arglist [] = { (value)updateRect };
+		value arglist [] = { (value)&updateRect };
 		caml_callbackN(closure_Draw, 1, arglist);
 	} else
 	{
 {
 	if (closure_DrawAfterChildren)
 	{
-		value arglist [] = { (value)updateRect };
+		value arglist [] = { (value)&updateRect };
 		caml_callbackN(closure_DrawAfterChildren, 1, arglist);
 	} else
 	{
 {
 	if (closure_FrameMoved)
 	{
-		value arglist [] = { (value)newLocation };
+		value arglist [] = { (value)&newLocation };
 		caml_callbackN(closure_FrameMoved, 1, arglist);
 	} else
 	{
 {
 	if (closure_MouseDown)
 	{
-		value arglist [] = { (value)point };
+		value arglist [] = { (value)&point };
 		caml_callbackN(closure_MouseDown, 1, arglist);
 	} else
 	{
 {
 	if (closure_MouseMoved)
 	{
-		value arglist [] = { (value)point, Val_int(transit), (value)message };
+		value arglist [] = { (value)&point, Val_int(transit), (value)message };
 		caml_callbackN(closure_MouseMoved, 3, arglist);
 	} else
 	{
 {
 	if (closure_MouseUp)
 	{
-		value arglist [] = { (value)point };
+		value arglist [] = { (value)&point };
 		caml_callbackN(closure_MouseUp, 1, arglist);
 	} else
 	{
 bview : beapi
 	g++ -o haikuml_bview.o -I/boot/common/lib/ocaml -c BViewML.cpp
 	ocamlopt -c bView.ml
-	ocamlmklib -o bView haikuml_bView.o
+	ocamlmklib -o bView haikuml_bview.o
 	ocamlmklib -o bView bView.cmx
 
 bwindow : beapi