Added AskPassword() with same interface as AskString. By Steve Majewski with some mods by me (SchedParams call, default value). Selects are still impossible, though, and the cursor doesn't blink.
diff --git a/Mac/Lib/EasyDialogs.py b/Mac/Lib/EasyDialogs.py
index 12dbf97..d1bf420 100644
--- a/Mac/Lib/EasyDialogs.py
+++ b/Mac/Lib/EasyDialogs.py
@@ -16,6 +16,8 @@
from Dlg import GetNewDialog, SetDialogItemText, GetDialogItemText, ModalDialog
import Qd
import QuickDraw
+import Dialogs
+import Windows
import Dlg,Win,Evt,Events # sdm7g
import MacOS
import string
@@ -86,6 +88,75 @@
return cr2lf(GetDialogItemText(h))
if n == 2: return None
+def AskPassword(prompt, default='', id=257):
+ """Display a PROMPT string and a text entry field with a DEFAULT string.
+ The string is displayed as bullets only.
+
+ Return the contents of the text entry field when the user clicks the
+ OK button or presses Return.
+ Return None when the user clicks the Cancel button.
+
+ If omitted, DEFAULT is empty.
+
+ The PROMPT and DEFAULT strings, as well as the return value,
+ can be at most 255 characters long.
+ """
+ d = GetNewDialog(id, -1)
+ if not d:
+ print "Can't get DLOG resource with id =", id
+ return
+ tp, h, rect = d.GetDialogItem(3) # STATIC TEXT ITEM <= prompt
+ SetDialogItemText(h, lf2cr(prompt))
+ tp, h, rect = d.GetDialogItem(4) # EDIT TEXT ITEM
+ bullets = '\245'*len(default)
+ SetDialogItemText(h, bullets )
+ d.SelectDialogItemText(4, 999, 999)
+ d.SetDialogDefaultItem(Dialogs.ok)
+ d.SetDialogCancelItem(Dialogs.cancel)
+ string = default
+ oldschedparams = MacOS.SchedParams(0,0)
+ while 1:
+ ready,ev = Evt.WaitNextEvent( -1, 6 )
+ if not ready: continue
+ what,msg,when,where,mod = ev
+ if what == 0 : Dlg.DialogSelect(ev) # for blinking caret
+ elif Dlg.IsDialogEvent(ev):
+ if what == Events.keyDown:
+ charcode = msg & Events.charCodeMask
+ if ( mod & Events.cmdKey ):
+ MacOS.SysBeep()
+ continue # don't do cut & paste commands
+ else:
+ if charcode == Events.kReturnCharCode:
+ break
+ elif charcode == Events.kEscapeCharCode:
+ string = None
+ break
+ elif charcode in (Events.kLeftArrowCharCode,
+ Events.kBackspaceCharCode):
+ string = string[:-1]
+ else:
+ string = string + chr(charcode)
+ msg = 0245 # Octal code for bullet
+ ev = (what,msg,when,where,mod)
+ rs, win, item = Dlg.DialogSelect(ev)
+ if item == Dialogs.ok :
+ break
+ elif item == Dialogs.cancel :
+ string = None
+ break
+ elif what == Events.mouseDown:
+ part, win = Win.FindWindow(where)
+ if part == Windows.inDrag and win:
+ win.DragWindow(where, screenbounds)
+ elif part == Windows.inMenuBar:
+ MacOS.HandleEvent(ev)
+ else:
+ MacOS.SysBeep() # Cannot handle selections, unfortunately
+
+ elif what == Events.updateEvt: MacOS.HandleEvent(ev)
+ apply(MacOS.SchedParams, oldschedparams)
+ return string
def AskYesNoCancel(question, default = 0, yes=None, no=None, cancel=None, id=258):
## """Display a QUESTION string which can be answered with Yes or No.