| # tk common message boxes |
| # |
| # this module provides an interface to the native message boxes |
| # available in Tk 4.2 and newer. |
| # |
| # written by Fredrik Lundh, May 1997 |
| # |
| |
| # |
| # options (all have default values): |
| # |
| # - default: which button to make default (one of the reply codes) |
| # |
| # - icon: which icon to display (see below) |
| # |
| # - message: the message to display |
| # |
| # - parent: which window to place the dialog on top of |
| # |
| # - title: dialog title |
| # |
| # - type: dialog type; that is, which buttons to display (see below) |
| # |
| |
| from tkCommonDialog import Dialog |
| |
| # |
| # constants |
| |
| # icons |
| ERROR = "error" |
| INFO = "info" |
| QUESTION = "question" |
| WARNING = "warning" |
| |
| # types |
| ABORTRETRYIGNORE = "abortretryignore" |
| OK = "ok" |
| OKCANCEL = "okcancel" |
| RETRYCANCEL = "retrycancel" |
| YESNO = "yesno" |
| YESNOCANCEL = "yesnocancel" |
| |
| # replies |
| ABORT = "abort" |
| RETRY = "retry" |
| IGNORE = "ignore" |
| OK = "ok" |
| CANCEL = "cancel" |
| YES = "yes" |
| NO = "no" |
| |
| |
| # |
| # message dialog class |
| |
| class Message(Dialog): |
| "A message box" |
| |
| command = "tk_messageBox" |
| |
| |
| # |
| # convenience stuff |
| |
| # Rename _icon and _type options to allow overriding them in options |
| def _show(title=None, message=None, _icon=None, _type=None, **options): |
| if _icon and "icon" not in options: options["icon"] = _icon |
| if _type and "type" not in options: options["type"] = _type |
| if title: options["title"] = title |
| if message: options["message"] = message |
| res = Message(**options).show() |
| # In some Tcl installations, Tcl converts yes/no into a boolean |
| if isinstance(res, bool): |
| if res: return YES |
| return NO |
| return res |
| |
| def showinfo(title=None, message=None, **options): |
| "Show an info message" |
| return _show(title, message, INFO, OK, **options) |
| |
| def showwarning(title=None, message=None, **options): |
| "Show a warning message" |
| return _show(title, message, WARNING, OK, **options) |
| |
| def showerror(title=None, message=None, **options): |
| "Show an error message" |
| return _show(title, message, ERROR, OK, **options) |
| |
| def askquestion(title=None, message=None, **options): |
| "Ask a question" |
| return _show(title, message, QUESTION, YESNO, **options) |
| |
| def askokcancel(title=None, message=None, **options): |
| "Ask if operation should proceed; return true if the answer is ok" |
| s = _show(title, message, QUESTION, OKCANCEL, **options) |
| return s == OK |
| |
| def askyesno(title=None, message=None, **options): |
| "Ask a question; return true if the answer is yes" |
| s = _show(title, message, QUESTION, YESNO, **options) |
| return s == YES |
| |
| def askyesnocancel(title=None, message=None, **options): |
| "Ask a question; return true if the answer is yes, None if cancelled." |
| s = _show(title, message, QUESTION, YESNOCANCEL, **options) |
| # s might be a Tcl index object, so convert it to a string |
| s = str(s) |
| if s == CANCEL: |
| return None |
| return s == YES |
| |
| def askretrycancel(title=None, message=None, **options): |
| "Ask if operation should be retried; return true if the answer is yes" |
| s = _show(title, message, WARNING, RETRYCANCEL, **options) |
| return s == RETRY |
| |
| |
| # -------------------------------------------------------------------- |
| # test stuff |
| |
| if __name__ == "__main__": |
| |
| print("info", showinfo("Spam", "Egg Information")) |
| print("warning", showwarning("Spam", "Egg Warning")) |
| print("error", showerror("Spam", "Egg Alert")) |
| print("question", askquestion("Spam", "Question?")) |
| print("proceed", askokcancel("Spam", "Proceed?")) |
| print("yes/no", askyesno("Spam", "Got it?")) |
| print("yes/no/cancel", askyesnocancel("Spam", "Want it?")) |
| print("try again", askretrycancel("Spam", "Try again?")) |