This is a simple "Yes/no" dialog box that returns the results as a text string of "Yes" or "No"
--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know. :-)
on yesNodialogBox boxTitle, windowText
set theBox = new(xtra "MUI")
set paramList= [buttons:#YesNo, title:boxTitle, message:windowText, movable:1, icon:#Question]
if objectP(theBox) then
set answer = Alert(theBox, paramList)
case answer of
1:return "Yes"
2:return "No"
end case
else
alert "MUI Xtra is not available!"
end if
end
on getBehaviorDescription me
return "Call this to get a standard Yes/No dialog box. The result will be a string of "Yes" or "No""
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA