diff options
| author | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
| commit | 6376e6ec464042772405c5a2f814f94a96513597 (patch) | |
| tree | 32fc067973f57b944676651ebd590b24747d641a /library/print.tcl | |
| parent | 2c5f1eb07b0278d52c315f5bb82c2288005163b2 (diff) | |
| download | tk-6376e6ec464042772405c5a2f814f94a96513597.zip tk-6376e6ec464042772405c5a2f814f94a96513597.tar.gz tk-6376e6ec464042772405c5a2f814f94a96513597.tar.bz2 | |
Scaling-related changes in the Tk and Ttk library scripts ready for testing. No changes (yet) in the demo scripts.
Diffstat (limited to 'library/print.tcl')
| -rw-r--r-- | library/print.tcl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/library/print.tcl b/library/print.tcl index 8e6286f..85383c5 100644 --- a/library/print.tcl +++ b/library/print.tcl @@ -786,59 +786,59 @@ namespace eval ::tk::print { # The printer to use set pf [ttk::frame $p.printerf] - pack $pf -side top -fill x -expand no -padx 12 -pady 12 + pack $pf -side top -fill x -expand no -padx 9p -pady 9p ttk::label $pf.printerl -text "[mc "Printer"] :" ttk::combobox $pf.printer \ -textvariable [myvar dlg::sel](printer) \ -state readonly \ -values $optlist(printer) - pack $pf.printerl -side left -padx {0 6} + pack $pf.printerl -side left -padx {0 4.5p} pack $pf.printer -side left # Start of printing options set of [ttk::labelframe $p.optionsframe -text [mc "Options"]] - pack $of -fill x -padx 12 -pady {0 12} -ipadx 3 -ipady 3 + pack $of -fill x -padx 9p -pady {0 9p} -ipadx 2p -ipady 2p # COPIES ttk::label $of.copiesl -text "[mc "Copies"] :" ttk::spinbox $of.copies -from 1 -to 1000 \ -textvariable [myvar dlg::sel](copies) - grid $of.copiesl $of.copies -sticky ew -padx 3 -pady 3 + grid $of.copiesl $of.copies -sticky ew -padx 2p -pady 2p # PAPER SIZE ttk::label $of.paperl -text "[mc "Paper"] :" ttk_optionMenu $of.paper [myvar dlg::sel](paper) {*}$optlist(paper) - grid $of.paperl $of.paper -sticky ew -padx 3 -pady 3 + grid $of.paperl $of.paper -sticky ew -padx 2p -pady 2p # additional options for canvas output if {[winfo class $w] eq "Canvas"} { # SCALE ttk::label $of.percentl -text "[mc "Scale"] :" ttk_optionMenu $of.percent [myvar dlg::sel](zoom) {*}$optlist(zoom) - grid $of.percentl $of.percent -sticky ew -padx 3 -pady 3 + grid $of.percentl $of.percent -sticky ew -padx 2p -pady 2p # ORIENT ttk::label $of.orientl -text "[mc "Orientation"] :" ttk_optionMenu $of.orient [myvar dlg::sel](orient) {*}$optlist(orient) - grid $of.orientl $of.orient -sticky ew -padx 3 -pady 3 + grid $of.orientl $of.orient -sticky ew -padx 2p -pady 2p # COLOR ttk::label $of.colorl -text "[mc "Output"] :" ttk_optionMenu $of.color [myvar dlg::sel](color) {*}$optlist(color) - grid $of.colorl $of.color -sticky ew -padx 3 -pady 3 + grid $of.colorl $of.color -sticky ew -padx 2p -pady 2p } # The buttons frame. set bf [ttk::frame $p.buttonf] - pack $bf -fill x -expand no -side bottom -padx 12 -pady {0 12} + pack $bf -fill x -expand no -side bottom -padx 9p -pady {0 9p} ttk::button $bf.print -text [mc "Print"] \ -command [namespace code [list _runprint $w $p]] ttk::button $bf.cancel -text [mc "Cancel"] \ -command [namespace code [list _cancel $p]] pack $bf.print -side right - pack $bf.cancel -side right -padx {0 6} + pack $bf.cancel -side right -padx {0 4.5p} #Center the window as a dialog. ::tk::PlaceWindow $p } |