diff options
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 2c2cc2d..6f34e16 100644 --- a/library/demos/msgbox.tcl +++ b/library/demos/msgbox.tcl @@ -36,7 +36,7 @@ set msgboxIcon info foreach i {error info question warning} { radiobutton $w.left.b$i -text $i -variable msgboxIcon \ -relief flat -value $i -width 16 -anchor w - pack $w.left.b$i -side top -pady 2 -anchor w -fill x + pack $w.left.b$i -side top -pady 1.5p -anchor w -fill x } label $w.right.label -text "Type" @@ -48,7 +48,7 @@ set msgboxType ok foreach t {abortretryignore ok okcancel retrycancel yesno yesnocancel} { radiobutton $w.right.$t -text $t -variable msgboxType \ -relief flat -value $t -width 16 -anchor w - pack $w.right.$t -side top -pady 2 -anchor w -fill x + pack $w.right.$t -side top -pady 1.5p -anchor w -fill x } proc showMessageBox {w} { |