diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
| commit | 3525b8b01c138cbc30c498a9e0f9a587dab26e32 (patch) | |
| tree | ba3e06ffe6fd6984eed8bc65e6beca7e61d4e076 /library/demos/msgbox.tcl | |
| parent | 9f976792239fa11da36f575e206bd8e6f1cc0045 (diff) | |
| download | tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.zip tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.gz tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.bz2 | |
Remove various unnecessary "global tcl_platform" occurrences, which are no longer used.
Add "Fit To Screen Width" menu entry to Windows (and android) console menu. Ported from androwish.
Diffstat (limited to 'library/demos/msgbox.tcl')
| -rw-r--r-- | library/demos/msgbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/msgbox.tcl b/library/demos/msgbox.tcl index bd98bf2..2c2cc2d 100644 --- a/library/demos/msgbox.tcl +++ b/library/demos/msgbox.tcl @@ -23,7 +23,7 @@ pack [addSeeDismiss $w.buttons $w {} { }] -side bottom -fill x #pack $w.buttons.dismiss $w.buttons.code $w.buttons.vars -side left -expand 1 -frame $w.left +frame $w.left frame $w.right pack $w.left $w.right -side left -expand yes -fill y -pady .5c -padx .5c @@ -56,7 +56,7 @@ proc showMessageBox {w} { set button [tk_messageBox -icon $msgboxIcon -type $msgboxType \ -title Message -parent $w\ -message "This is a \"$msgboxType\" type messagebox with the \"$msgboxIcon\" icon"] - + tk_messageBox -icon info -message "You have selected \"$button\"" -type ok\ -parent $w } |