Function SRP_WAIT(Method, Params)

/******************************************************************************************************** 

    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        :   

    Description :   

    Notes       :   

    Parameters  :

    History (Date, Initials, Notes)
        02/05/2007  fjt     Initial development

********************************************************************************************************/

$insert SRP_APP_INSERTS
$insert SRP_OBJ_INSERTS

Declare function Create_Dialog

Begin Case
	Case Method _EQC "Init"		; Gosub Init
	Case Method _EQC "Update"	; GoSub Update
	Case Method _EQC "Term"		; GoSub Term
End Case

If Assigned(Ans) else Ans = ""
Return Ans


!----- METHODS ------------------------------------------------------------------------------------------


Init:
	Transfer Param1 to Title
	Transfer Param2 to Text
	Transfer Param3 to Win
	Transfer Param4 to Pct

	Ans = Create_Dialog("NDW_WAIT", @Window, Yes$, Title:@FM:Text:@FM:Win:@FM:Pct)
return


Update:
	Transfer Param1 to Win
	Transfer Param2 to Pct
	Transfer Param3 to Text
	
	Text.C    = Param4
	StatusBar = Win:".OLE_STATUS"
	Static    = Win:".STA_TEXT"

	// Pane percent
	If Pct GT "" then
		If Index(Pct, ".", 1) then Pct = Iconv(Pct, "MD2")
		Set_Property(StatusBar, "OLE.PanePercent[1]", Pct)
	end
	
	// Pane caption
	Set_Property(StatusBar, "OLE.PaneCaption[1]", Text.C)
	
	// Text within the group box
	If Text GT "" then
		Set_Property(Static, "TEXT", Text)
	end
return


Term:
	End_Dialog(Param1)
return

