Source code: testobj.pal

._init
func/def	[main], &[.main]
local/rtn

.main
%
% Create a new object called 'myobject'
%
obj/def		P0
class/add	P0, [psContainer]
attr/mvadd	P0, [description], [Description value 1], [Description value 2]
obj/commit	[myobject], P0

%
% Edit the object, adding a new value to the description
%
obj/edit	P0, ![myobject]
attr/mvadd	P0, [description], [Description value 3]
obj/commit	P0
obj/dump	![myobject]

%
% Clone the object, creating 'myobject2'
%
obj/clone	P0, ![myobject]
obj/commit	[myobject2], P0
obj/dump	![myobject2]

%
% Delete both objects and trigger an error
%
obj/del		![myobject], ![myobject2]
obj/dump	![myobject], ![myobject2]
func/rtn