Posted to tcl by kbk at Thu Feb 22 17:56:48 GMT 2007view raw
- # In production code, I'd 'wm title', 'wm style' etc to make the dialog
- # look spiffy, but you're concerned with geometry management. I'd also
- # add some bindings so that <Key-Return> would trigger the 'OK' action, and
- # so on.
- package require Tk
- package require msgcat
- namespace import msgcat::mc
- toplevel .pwdialog
- frame .pwdialog.body
- label .pwdialog.body.l1 -text [mc "User ID:"]
- entry .pwdialog.body.e1 -width 12 -textvariable userID -exportselection false
- label .pwdialog.body.l2 -text [mc "Password:"]
- entry .pwdialog.body.e2 -textvariable password -width 12 \
- -exportselection false -show \u2022
- grid .pwdialog.body.l1 -row 0 -column 0 -sticky e
- grid .pwdialog.body.l2 -row 1 -column 0 -sticky e
- grid .pwdialog.body.e1 -row 0 -column 1 -sticky ew
- grid .pwdialog.body.e2 -row 1 -column 1 -sticky ew
- grid columnconfigure .pwdialog.body 1 -weight 1
- frame .pwdialog.buttons
- button .pwdialog.buttons.ok -text [mc OK] -command authenticate
- button .pwdialog.buttons.cancel -text [mc Camcel] \
- -command [list destroy .pwdialog]
- grid .pwdialog.buttons.ok .pwdialog.buttons.cancel -pady 10 -padx 10 -sticky ew
- grid columnconfigure .pwdialog.buttons {0 1} -uniform A
- grid .pwdialog.body -padx 10 -pady 10
- grid .pwdialog.buttons