I never used the Alert as it is kind of Primitive, so I developed my own "messagebox" with up to 3 line message parameters and 2 buttons (OK - Cancel)
Also, you can pass the Caption of the buttons
Check it out...
Very nice one (well, cuz I did it I guess

)
**************************
Function TeknoMess(mess1,mess2,mess3,prmpt1,prmpt2)
Local cScreen,nOpt,ncolor,nCol
ncolor := setcolor()
nCol = 12
do case
case pcount() < 0
return
case pcount() < 2
mess2 = ""
mess3 = ""
nCol = 10
case pcount() < 3
mess3 = ""
nCol = 11
endcase
if pcount() <4
prmpt1 = " CANCEL "
prmpt2 = " OK "
ENDIF
save screen to cScreen
set color to w+/r
@ 08,20 clear to nCol+2,56
@ 08,20 to nCol+2,56 color "gr+/r"
shadow(08,20,nCol+2,56)
@ 09,21 say TEKNOCENTER(mess1) COLOR "w+/r"
if mess2 = ""
@ 10,21 say TEKNOCENTER(mess2) COLOR "w+/r"
endif
if mess3 = ""
@ 11,21 say TEKNOCENTER(mess3) COLOR "w+/r"
endif
set color to w+/r,w+/b
@ nCol+1,28 prompt prmpt1
@ nCol+1,42 prompt prmpt2
MENU TO nOpt
if lastkey() = 27
nOpt = 1
endif
set Color to (nColor)
@ 08,20 clear to nCol+2,55
restore screen from cScreen
Return nOpt
****************
Function Teknocenter(mess)
private L,D,J
if len(mess) > 35
MESS = SUBSTR(MESS,1,35)
endif
L=len(mess)
D=int((35-L)/2)
J=35-D-L
mess =space(D)+mess+space(J)
return (mess)
******************
Please let me know if this helped you
Tekno
Wireless Toyz
Ypsilanti, Michigan