added LSL2 stored procedures

LSL2/STPROC/SRP_WAIT.txt

@@ -0,0 +1,77 @@
+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
+