// This C function calls the InsertNode method of the 
// ActiveX treeview control.
	
char *parent;
char *child;
	
child = sm_obj_call( "treeview->id, \"InsertNode\", parent, \"Child node\"");

// This Java example calls the SetStyle method.

import com.prolifics.jni.*;
public class SetStyleButton extends ButtonHandlerAdapter
{
public int buttonValidate(FieldInterface f, int item, int context)
	{
	ScreenInterface scrn = f.getScreen();
	WidgetInterface w = scrn.getWidget("tree");
	CFunctionsInterface cfi = w.getCFunctions();

	String s = cfi.sm_obj_call("tree->id, \"SetStyle\", 1, 1, 1, 1");
         return 0;
     }
}

// This is the JPL call for this method. Single quotation 
// marks are used surrounding the method in order to pass 
// double quotation marks to the method itself.

vars parent
vars child

child = sm_obj_call \
	( treeview->id, "InsertNode", :parent, "Child node")

// These JPL procedures instantiate the cCustomers COM 
// component and call its GetCustomer method.

vars id

proc entry
@app->current_component_system=PV_SERVER_COM
id = sm_obj_create("cCustomers")
return

proc GetCustomer
call sm_obj_call(id, "GetCustomer", \
	CompanyName, CustomerID, Phone)
return

// This JPL procedure closes down Microsoft Excel 
// that is running as a COM component.

proc close
call sm_obj_call(ExcelID, "Application.Quit")
return