AppleScript texto de entrada de usuario

He aquí un AppleScript código de ejemplo:

set newReminderName to ""
repeat until newReminderName is not ""
    set newReminderName to text returned of (display dialog "Enter a name for the reminder:" buttons {"Cancel", "OK"} default button 2 default answer "" with icon 1)
    if newReminderName is not "" then
        tell application "Reminders"
            set newReminder to make new reminder
            set name of newReminder to newReminderName
            set due date of newReminder to current date
        end tell
    end if
end repeat

Esto está codificado para que usted tiene que introducir un nombre para el recordatorio o cancelar el mensaje. En otras palabras, si usted no escriba un nombre y haga clic en ACEPTAR, se le pedirá una y otra vez hasta que lo haga, o haga clic en Cancelar.

Actualizado a la dirección de un punto que se menciona en el comentario:

El código siguiente se utiliza en un Automator servicio donde el texto seleccionado pasa a la Automator servicio se convierte en el nombre de la nueva recordatorio. Es codificada por no crear el recordatorio de que si un vacío sting se pasa. Aunque no creo que puede ser disparado a menos de que alguna de texto está seleccionado, no obstante siempre es mejor incluir alguna forma de comprobación de errores.

on run {input}
    set newReminderName to input
    if newReminderName is not "" then
        tell application "Reminders"
            set newReminder to make new reminder
            set name of newReminder to newReminderName
            set due date of newReminder to current date
        end tell
    end if
end run