Yes/No Alert

Added on 6/10/1999

Compatibilities:
behavior D6_5 Mac

This item has not yet been rated

Yes/No Alert

property message, icon, alertTittel, movableOn, yesLingo, noLingo

on mouseUp me
  set myAlertPropList = [ #buttons : #YesNo, #message :  message, #icon : icon, #title : alertTittel, #movable : movableOn]
  set myAlertBox = new (xtra "MUI") -- instantiates the MUI object
  if objectP ( myAlertBox ) then -- makes sure the object exists
    set result = Alert (myAlertBox, myAlertPropList)
    case result of
      1 : -- the user clicked yes
        do yesLingo
      2 : -- the user clicked no
        do noLingo
    end case
  end if
end

on getPropertyDescriptionList me
  set theProps to [:]

  set c to "Type your question"
  set f to #string
  set d to "Continue ?"
  addProp theProps, #message, [#comment: c, #format: f, #default: d]

  set c to "What kind of icon do you want?"
  set f to #symbol
  set r to [#stop, #note, #caution, #question]
  set d to getAt(r,1)
  set typeProps to [#comment: c, #format: f, #range: r, #default: d]
  addProp theProps, #icon, typeProps

  set c to "Window title?"
  set f to #string
  set d to "Alert"
  addProp theProps, #alertTittel, [#comment: c, #format: f, #default: d]

  set c to "Movable?"
  set f to #boolean
  set d to FALSE
  addProp theProps, #movableOn, [#comment: c, #format: f, #default: d]

  set c to "Lingo for Yes"
  set f to #string
  set d to ""
  addProp theProps, #yesLingo, [#comment: c, #format: f, #default: d]

  set c to "Lingo for No"
  set f to #string
  set d to ""
  addProp theProps, #noLingo, [#comment: c, #format: f, #default: d]

  return theProps
end

on GetBehaviorDescription
  return "The "YNAlert" creates a alert box with a "Yes" and a "No" button. You choose the title, the message, what kind of icon you want and the Lingo for Yes and No."
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail