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