Added optional arguments to dialogs to allow setting of button titles.

This commit is contained in:
Jack Jansen 1999-02-16 16:06:39 +00:00
parent ed52a20c6e
commit 208c15ab85
1 changed files with 16 additions and 4 deletions

View File

@ -35,7 +35,7 @@ def lf2cr(text):
text = text[:253] + '\311' text = text[:253] + '\311'
return text return text
def Message(msg, id=256): def Message(msg, id=256, ok=None):
"""Display a MESSAGE string. """Display a MESSAGE string.
Return when the user clicks the OK button or presses Return. Return when the user clicks the OK button or presses Return.
@ -49,6 +49,9 @@ def Message(msg, id=256):
return return
tp, h, rect = d.GetDialogItem(2) tp, h, rect = d.GetDialogItem(2)
SetDialogItemText(h, lf2cr(msg)) SetDialogItemText(h, lf2cr(msg))
if ok != None:
tp, h, rect = d.GetDialogItem(1)
h.as_Control().SetControlTitle(ok)
d.SetDialogDefaultItem(1) d.SetDialogDefaultItem(1)
while 1: while 1:
n = ModalDialog(None) n = ModalDialog(None)
@ -56,7 +59,7 @@ def Message(msg, id=256):
return return
def AskString(prompt, default = "", id=257): def AskString(prompt, default = "", id=257, ok=None, cancel=None):
"""Display a PROMPT string and a text entry field with a DEFAULT string. """Display a PROMPT string and a text entry field with a DEFAULT string.
Return the contents of the text entry field when the user clicks the Return the contents of the text entry field when the user clicks the
@ -80,6 +83,12 @@ def AskString(prompt, default = "", id=257):
SetDialogItemText(h, lf2cr(default)) SetDialogItemText(h, lf2cr(default))
d.SelectDialogItemText(4, 0, 999) d.SelectDialogItemText(4, 0, 999)
# d.SetDialogItem(4, 0, 255) # d.SetDialogItem(4, 0, 255)
if ok != None:
tp, h, rect = d.GetDialogItem(1)
h.as_Control().SetControlTitle(ok)
if cancel != None:
tp, h, rect = d.GetDialogItem(2)
h.as_Control().SetControlTitle(cancel)
d.SetDialogDefaultItem(1) d.SetDialogDefaultItem(1)
d.SetDialogCancelItem(2) d.SetDialogCancelItem(2)
while 1: while 1:
@ -191,8 +200,11 @@ def AskYesNoCancel(question, default = 0, yes=None, no=None, cancel=None, id=258
tp, h, rect = d.GetDialogItem(3) tp, h, rect = d.GetDialogItem(3)
h.as_Control().SetControlTitle(no) h.as_Control().SetControlTitle(no)
if cancel != None: if cancel != None:
tp, h, rect = d.GetDialogItem(4) if cancel == '':
h.as_Control().SetControlTitle(cancel) d.HideDialogItem(4)
else:
tp, h, rect = d.GetDialogItem(4)
h.as_Control().SetControlTitle(cancel)
d.SetDialogCancelItem(4) d.SetDialogCancelItem(4)
if default == 1: if default == 1:
d.SetDialogDefaultItem(2) d.SetDialogDefaultItem(2)