Hi all,
I just loaded up Accuterm and am having trouble pushing a message box from my
application.
For some crazy reason, I was hoping my wintegrate messagebox logic would work in
Accuterm.
Does anyone have an example of how to use a messagebox in Accuterm?
Here is an part of my wintegrate messagebox logic.
Can anyone tell me what to replace in the following code to make it work in Accuterm?
BUTTONS=SUM(BUTTONS)
EQU SOH TO CHAR(1), CR TO CHAR(13), ESC TO CHAR(27)
EQU CR.TEXT TO '":cr:"'
CONVERT '"' TO "'" IN MESSAGE
FOR XX=252 TO 254
MESSAGE=EREPLACE(MESSAGE,CHAR(XX),CR.TEXT)
NEXT XX
TITLE='Program Message'
TITLE='MapChars(':DQUOTE(TITLE):')'
MESSAGE='MapChars(':DQUOTE(MESSAGE):')'
MODAL='Enter MessageBox(':MESSAGE:',':TITLE:',':BUTTONS:')'
MODAL='MsgBox(':MESSAGE:',':BUTTONS:',':TITLE:')'
MODAL=ESC:STX:MODAL:CR
ECHO OFF
PRINT MODAL:
INPUT RESPONSE:
RESPONSE=OCONV(RESPONSE,'MCU')
BEGIN CASE
CASE RESPONSE='OK'
RESPONSE=1
CASE RESPONSE='CANCEL'
RESPONSE=2
CASE RESPONSE='YES'
RESPONSE=6
CASE RESPONSE='NO'
RESPONSE=7
END CASE
ECHO ON
Thanks,
Scott
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
