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