Code: Select all
type DynSlot ' struct DynSlot {
'
as zstring ptr sender ' char[x] sender;
as integer arguments ' int arguments;
type DynObj ' struct DynObj {
as zstring ptr _signal ' char[x] _signal;
as zstring ptr _object ' char[x] _object;
as integer arguments ' int arguments} DynamicObject; // **
end type '};
as DynObj DynamicObject '' **
end type
Code: Select all
dim as DynSlot ds
/'
ds= type(@"click_button ", 2, _
ds.DynamicObject._signal= @"click", _
ds.DynamicObject._object= @"button", _
ds.DynamicObject.arguments= 2)
'/
'or
ds= type<DynSlot>(@"click_button ", 2, _
ds.DynamicObject._signal= @"click", _
ds.DynamicObject._object= @"button", _
ds.DynamicObject.arguments= 2)
print *ds.sender;" / arguments: ";ds.arguments
print "signal: ";*ds.DynamicObject._signal
print "object: ";*ds.DynamicObject._object
print "arguments: ";ds.DynamicObject.arguments
this time all in english