1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | {attribute 'call_after_init'} Name : WSTRING; //Leave blank if you are happy for this to be used as a pool GroupID END_VAR VAR_OUTPUT {attribute 'no_copy'} itfGroupID : IGroupID := THIS^; VAR pPrimary : POINTER TO FB_PrimaryHost; _edges : List; // OF FB_RemoteEdge //IElement _itfPrev : IElement; _itfNext : IElement; _itfList : IList; // IMessageSource _IMessageSource_published : BOOL; // TRUE when publish is complete. Is set false automatically in claimExclusivePublishingRights, but you can set it false yourself if you want IF THIS^.itfPrimaryHost <> 0 THEN IF __QUERYPOINTER( itfPrimaryHost, pPrimary ) THEN pPrimary^.RegisterGroupID( THIS^ ); END_IF END_IF |