added LSL2 stored procedures

LSL2/STPROC/NDW_TEST_EVENTS.txt

@@ -0,0 +1,62 @@
+Function NDW_TEST_EVENTS(CtrlEntId, Event, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10, Param11, Param12, Param13, Param14, Param15)
+
+/******************************************************************************************************** 
+
+    This program is proprietary and is not to be used by or disclosed to others, nor is it to
+    be copied without written permission from SRP Computer Solutions, Inc.
+
+    Name        :   NDW Wait Events
+
+    Description :   
+
+	Tags		:	[SRP]
+
+    Parameters  :
+
+    History (Date, Initials, Notes)
+		02/18/2006  fjt     Initial development
+
+********************************************************************************************************/
+
+$insert SRP_APP_INSERTS
+$insert SRP_EVENT_SETUP
+
+Equ Metrics$ to	26:@FM:20:@FM:3:@FM:3:@FM:4:@FM:4
+
+Declare function SVC_Ext_Summary_Popup, Get_lParam
+Declare subroutine SRP_Show_Window
+
+Begin Case
+
+	Case Event EQ "CLICK"
+		Begin Case
+			Case Control EQ "PUB_SHOW_POP"	; GoSub Click.PUB_SHOW_POP
+		End Case
+
+	Case Control EQ Window
+		Begin Case
+			Case Event EQ "CREATE"		; GoSub Window.CREATE
+		End Case
+		
+End Case
+
+If Assigned(Ans) else Ans = 1
+Return Ans
+
+
+!-----  EVENTS  -----------------------------------------------------------------------------------------
+
+
+Click.PUB_SHOW_POP:
+	*debug
+	lParam = Get_lParam(CtrlEntID, Point, Point.W)
+	
+	rv = SVC_Ext_Summary_Popup("Show", "", Point.W)
+return
+
+
+Window.CREATE:
+	rv = SVC_Ext_Summary_Popup("Init")
+	SRP_Show_Window(@Window, Parent, "C", "C", 1, Metrics$, Yes$)
+return
+