open-insight/SYSPROG/STPROCINS/RTI_SEND_INFO_PROGRESS_EQUATES.txt
2024-03-25 15:17:34 -07:00

60 lines
2.1 KiB
Plaintext

compile insert rti_Send_Info_Progress_Equates
/*
** Copyright (C) 2014-2022 Revelation Software Inc. All Rights Reserved **
Author : Captain C
Date : 19 Oct 2018
Purpose : Equates for use with the RTI_SEND_INFO_PROGRESS subroutine
Comments
========
Amended Date Reason
======= ==== ======
Mr C 31 Oct 22 Added PROGRESS_OPTIONS$
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _RTI_SEND_INFO_PROGRESS_EQUATES_
#define _RTI_SEND_INFO_PROGRESS_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
declare function rti_Send_Info_Progress
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Client interface array structure
equ PROGRESS_PHASE$ to 1
equ PROGRESS_TITLE$ to 2
equ PROGRESS_DATA$ to 3
equ PROGRESS_WINID$ to 4
equ PROGRESS_OPTIONS$ to 5
// Client interface tokens
equ PROGRESS_INIT_TOKEN$ to "%INIT%"
equ PROGRESS_QUIT_TOKEN$ to "%QUIT%"
equ PROGRESS_WIN_ID$ to "RTI_SEND_INFO_PROGRESS"
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// RTI_SEND_INFO_PROGRESS_TASKLIST image equates
equ PROGRESS_IMGNO_UNKNOWN$ to 1
equ PROGRESS_IMGNO_PROCESSING$ to 2
equ PROGRESS_IMGNO_COMPLETE$ to 3
equ PROGRESS_IMGNO_ERROR$ to 4
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////