Appendix C. Obsolete Functions

// This C function calls the InsertNode method of the
// ActiveX treeview control.

char method[100];
char *parent;
char *child;
int id;

id = sm_prop_id ( "treeview" );
sprintf( method, "InsertNode(%s, \"Child node\"", parent) );
child = sm_com_call_method( id, method );

// 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_com_call_method \
	( treeview->id, "InsertNode", :parent, "Child node")

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

vars id

proc entry
id = sm_com_obj_create("cCustomers")
return

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

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

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

#include <smuprapi.h>
{
id = sm_prop_id( "spinner" );
value = sm_com_get_prop ( id, "prop" );
}

// For an indexed property:
{
id = sm_prop_id( "spinner" );
value = sm_com_get_prop ( id, "prop[5]" );
}

//The following JPL procedures create a variable 
// and instantiate the control.

vars id

proc entry
id = sm_com_obj_create("cCustomers")
return

// This JPL procedure destroys the component
// referenced by the variable objID on screen exit.

proc exit
{
call sm_com_obj_destroy (objID, 1)
}

// This JPL module specifies an error handler
// similar to the default error handler.

call sm_com_onerror (handler)

proc handler (errnum, errhex, errmsg)
msg emsg "COM Error: " errhex " " errmsg
return

#include <smuprapi.h>
int id;
int retcode;

{
id = sm_prop_id( "spinner" );
retcode = sm_com_set_prop ( id, "Value", "40" );
}