COMPILE FUNCTION Dialog_Zoom(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)

/*
	Commuter module for Dialog_Zoom window.
	
	12/10/2013 - John C. Henry, J.C. Henry & Co., Inc.
*/

DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, 
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Msg, Send_Message

EQU CRLF$	TO \0D0A\


$INSERT APPCOLORS

ErrTitle = 'Error in Comm_Dialog_Date'
ErrorMsg = ''

Result = ''

BEGIN CASE
	CASE EntID = @WINDOW
		BEGIN CASE
			CASE Event = 'CREATE' 			; GOSUB Create
			CASE Event = 'CLOSE'			; GOSUB Cancel
		END CASE
		
	
	CASE EntID = @WINDOW:'.SAVE_BUTTON' AND Event = 'CLICK'		; GOSUB Save
	CASE EntID = @WINDOW:'.CANCEL_BUTTON' AND Event = 'CLICK'	; GOSUB Cancel
	
	
		
	CASE 1
		ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
		ErrMsg(ErrorMsg)
		
END CASE

IF ErrorMsg NE '' THEN
	ErrMsg(ErrTitle:@SVM:ErrorMsg)
END

RETURN Result






* * * * * * *
Create:
* * * * * * *

Note = Parm1<1>

IF Note NE '' THEN
	Set_Property(@WINDOW:'.TEXT_BOX','DEFPROP',Note)
END

obj_AppWindow('Create')

RETURN


* * * * * * *
Cancel:
* * * * * * *

End_Dialog(@WINDOW,'Cancel')

RETURN




* * * * * * *
Save:
* * * * * * *

RetVal = Get_Property(@WINDOW:'.TEXT_BOX','DEFPROP')

End_Dialog( @WINDOW, RetVal )
 
RETURN


