added LSL2 stored procedures

LSL2/STPROC/PE_CREATE.txt

@@ -0,0 +1,77 @@
+Function PE_CREATE(CtrlEntId,CtrlClassId,CreateParam)
+/*	-------------------------------------------------------------------------------------------------------------------------
+	Author	: Automated Promoted Event Generator
+	Date	: 28/10/2020 
+	Purpose : Auto Generated Promoted event code for CREATE
+	  
+	Modification Info: 
+	-------------------------------------------------------------------------------------------------------------------------
+	Date		Who		Notes
+	-------------------------------------------------------------------------------------------------------------------------
+		
+	Parameters:
+	-------------------------------------------------------------------------------------------------------------------------
+	CtrlEntId	- The name of the control to process 
+	Event		- The Event To process
+	Param1 ~ Param6 - Extra data depending On the control And event called.
+
+	Returns:
+	-------------------------------------------------------------------------------------------------------------------------
+	ReturnVal   - True  = processing successful
+				- False = processing failed
+	-------------------------------------------------------------------------------------------------------------------------*/
+	
+Declare Function Get_Property, Set_Property, Get_EventStatus
+Declare Subroutine Forward_Event
+	
+$Insert Logical
+	
+Window 		= CtrlEntId[1,'.']
+Ctrl		= CtrlEntId[-1,'.']	
+ReturnVal 	= 1
+
+
+Gosub PreEvent
+Gosub SystemEvent
+Gosub PostEvent
+
+Return ReturnVal
+
+*********************************************
+* Internal Subroutines
+*********************************************
+
+*----------
+PreEvent:
+*----------
+	/* Pre Event Processing
+	Code added here will be performed before the system event */
+   
+Return
+
+*----------
+SystemEvent:
+*----------
+	/* System Event Processing
+	Control is now passed on to the system default processing. */
+	
+	Forward_Event(CreateParam)
+	
+Return
+	
+*----------
+PostEvent:
+*----------
+	/* Post Event Processing
+	Code added here will be performed after the system event */
+	
+	* Check the event status after the system event processing
+	If Get_EventStatus(EventCode) Then
+		* An error occured in the system event processing
+		
+	End	Else
+		* No error, continue post processing
+		
+	End	
+Return		
+End