CDS_Utils.il #1

procedure(CDS_ErrorDialogBox(banner message)	  ;_Jul 19 00 sikand 0
    hiDisplayAppDBox(?name 'CDS_DialogBox
		     ?dboxBanner banner
		     ?dboxText   message
		     ?dialogType hicErrorDialog
		     ?buttonLayout 'Close)
    nil
) ; ** procedure CDS_ErrorDialogBox **


/***************************************************************************
 * CDS_WarnDialogBox(t_message)
 *
 * Display a dialog box with question for next action
 * Returns t or nil
 **************************************************************************/
procedure(CDS_WarnDialogBox(banner message @key (callback ""))
    hiDisplayAppDBox(?name 'CDS_DialogBox
		     ?dboxBanner banner
		     ?dboxText   message
		     ?callback   callback
		     ?buttonLayout 'YesNo)
); CDS_WarnDialogBox


/***************************************************************************
 * CDS_BeginProcess
 *
 * Start a child and channel stdout to a file and stderr to CIW
 **************************************************************************/
procedure(CDS_BeginProcess(command
			      @key (stdHandler "CDS_PipeToCIW")
			           (errHandler "CDS_PipeToCIW")
			           (doneFunc "")
	                           (logFile  "")) 
    hiBeginProcess(command "" stdHandler errHandler doneFunc logFile)
); CDS_BeginProcess


/***************************************************************************
 * CDS_PipeToCIW()
 *
 * Display stderr on CIW 
 **************************************************************************/
procedure(CDS_PipeToCIW(childId data)
	printf(data)
); CDS_PipeToCIW