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