diff options
-rw-r--r-- | library/msgs/cs.msg | 18 | ||||
-rw-r--r-- | library/msgs/da.msg | 18 | ||||
-rw-r--r-- | library/msgs/de.msg | 18 | ||||
-rw-r--r-- | library/msgs/el.msg | 18 | ||||
-rw-r--r-- | library/msgs/eo.msg | 18 | ||||
-rw-r--r-- | library/msgs/es.msg | 18 | ||||
-rw-r--r-- | library/msgs/fr.msg | 18 | ||||
-rw-r--r-- | library/msgs/hu.msg | 18 | ||||
-rw-r--r-- | library/msgs/it.msg | 18 | ||||
-rw-r--r-- | library/msgs/nl.msg | 18 | ||||
-rw-r--r-- | library/msgs/pl.msg | 18 | ||||
-rw-r--r-- | library/msgs/pt.msg | 18 | ||||
-rw-r--r-- | library/msgs/ru.msg | 18 | ||||
-rw-r--r-- | library/msgs/sv.msg | 18 | ||||
-rw-r--r-- | library/print.tcl | 28 |
15 files changed, 267 insertions, 13 deletions
diff --git a/library/msgs/cs.msg b/library/msgs/cs.msg index a93c4ec..92e98e3 100644 --- a/library/msgs/cs.msg +++ b/library/msgs/cs.msg @@ -75,3 +75,21 @@ namespace eval ::tk { ::msgcat::mcset cs "retry" "znovu" ::msgcat::mcset cs "yes" "ano" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset cs "Print" "Tisknout" + ::msgcat::mcset cs "Printer" "Tiskárna" + ::msgcat::mcset cs "Letter " "Dopis " + ::msgcat::mcset cs "Legal " "Legální " + ::msgcat::mcset cs "A4" "A4" + ::msgcat::mcset cs "Grayscale" "Stupně Šedi" + ::msgcat::mcset cs "RGB" "RGB" + ::msgcat::mcset cs "Options" "Možnosti" + ::msgcat::mcset cs "Copies" "Kopie" + ::msgcat::mcset cs "Paper" "Papír" + ::msgcat::mcset cs "Scale" "Škála" + ::msgcat::mcset cs "Orientation" "Orientace" + ::msgcat::mcset cs "Portrait" "Portrét" + ::msgcat::mcset cs "Landscape" "Krajina" + ::msgcat::mcset cs "Output" "Výstup" +}
\ No newline at end of file diff --git a/library/msgs/da.msg b/library/msgs/da.msg index 282f919..7f9559e 100644 --- a/library/msgs/da.msg +++ b/library/msgs/da.msg @@ -76,3 +76,21 @@ namespace eval ::tk { ::msgcat::mcset da "retry" "gentag" ::msgcat::mcset da "yes" "ja" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset da "Print" "Trykke" + ::msgcat::mcset da "Printer" "Printer" + ::msgcat::mcset da "Letter " "Brev" + ::msgcat::mcset da "Legal " "Juridisk" + ::msgcat::mcset da "A4" "A4" + ::msgcat::mcset da "Grayscale" "Gråtoneskala" + ::msgcat::mcset da "RGB" "Rgb" + ::msgcat::mcset da "Options" "Indstillinger" + ::msgcat::mcset da "Copies" "Kopier" + ::msgcat::mcset da "Paper" "Papir" + ::msgcat::mcset da "Scale" "Skalere" + ::msgcat::mcset da "Orientation" "Orientering" + ::msgcat::mcset da "Portrait" "Portræt" + ::msgcat::mcset da "Landscape" "Landskab" + ::msgcat::mcset da "Output" "Udskriv Publikation" +}
\ No newline at end of file diff --git a/library/msgs/de.msg b/library/msgs/de.msg index 2cf25d2..9f485db 100644 --- a/library/msgs/de.msg +++ b/library/msgs/de.msg @@ -89,3 +89,21 @@ namespace eval ::tk { ::msgcat::mcset de "retry" "wiederholen" ::msgcat::mcset de "yes" "ja" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset de "Print" "Drucken" + ::msgcat::mcset de "Printer" "Drucker" + ::msgcat::mcset de "Letter " "Brief" + ::msgcat::mcset de "Legal " "Rechtlich" + ::msgcat::mcset de "A4" "A4" + ::msgcat::mcset de "Grayscale" "Graustufen" + ::msgcat::mcset de "RGB" "Rgb" + ::msgcat::mcset de "Options" "Optionen" + ::msgcat::mcset de "Copies" "Kopien" + ::msgcat::mcset de "Paper" "Papier" + ::msgcat::mcset de "Scale" "Skala" + ::msgcat::mcset de "Orientation" "Ausrichtung" + ::msgcat::mcset de "Portrait" "Porträt" + ::msgcat::mcset de "Landscape" "Landschaft" + ::msgcat::mcset de "Output" "Ausgabe" +}
\ No newline at end of file diff --git a/library/msgs/el.msg b/library/msgs/el.msg index 34f4aa7..c7f2781 100644 --- a/library/msgs/el.msg +++ b/library/msgs/el.msg @@ -84,3 +84,21 @@ namespace eval ::tk { ::msgcat::mcset el "retry" "προσπάθησε ξανά" ::msgcat::mcset el "yes" "ναι" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset el "Print" "Τυπώνω" + ::msgcat::mcset el "Printer" "Εκτυπωτής" + ::msgcat::mcset el "Letter " "Γράμμα" + ::msgcat::mcset el "Legal " "Νομικός" + ::msgcat::mcset el "A4" "Α4" + ::msgcat::mcset el "Grayscale" "Κλίμακα Του Γκρι" + ::msgcat::mcset el "RGB" "Rgb" + ::msgcat::mcset el "Options" "Επιλογές" + ::msgcat::mcset el "Copies" "Αντίγραφα" + ::msgcat::mcset el "Paper" "Χαρτί" + ::msgcat::mcset el "Scale" "Κλίμακα" + ::msgcat::mcset el "Orientation" "Προσανατολισμός" + ::msgcat::mcset el "Portrait" "Προσωπογραφία" + ::msgcat::mcset el "Landscape" "Τοπίο" + ::msgcat::mcset el "Output" "Έξοδος" +}
\ No newline at end of file diff --git a/library/msgs/eo.msg b/library/msgs/eo.msg index d285fb8..04a73e8 100644 --- a/library/msgs/eo.msg +++ b/library/msgs/eo.msg @@ -73,3 +73,21 @@ namespace eval ::tk { ::msgcat::mcset eo "retry" "ripetu" ::msgcat::mcset eo "yes" "jes" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset eo "Print" "Presi" + ::msgcat::mcset eo "Printer" "Presilo" + ::msgcat::mcset eo "Letter " "Letero" + ::msgcat::mcset eo "Legal " "Laŭleĝa" + ::msgcat::mcset eo "A4" "A4" + ::msgcat::mcset eo "Grayscale" "Grizskalo" + ::msgcat::mcset eo "RGB" "RGB" + ::msgcat::mcset eo "Options" "Opcioj" + ::msgcat::mcset eo "Copies" "Kopioj" + ::msgcat::mcset eo "Paper" "Papero" + ::msgcat::mcset eo "Scale" "Skalo" + ::msgcat::mcset eo "Orientation" "Orientiĝo" + ::msgcat::mcset eo "Portrait" "Portreto" + ::msgcat::mcset eo "Landscape" "Pejzaĝo" + ::msgcat::mcset eo "Output" "Eligo" +}
\ No newline at end of file diff --git a/library/msgs/es.msg b/library/msgs/es.msg index f7082b8..ea96929 100644 --- a/library/msgs/es.msg +++ b/library/msgs/es.msg @@ -74,3 +74,21 @@ namespace eval ::tk { ::msgcat::mcset es "retry" "reintentar" ::msgcat::mcset es "yes" "sí" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset es "Print" "Imprimir" + ::msgcat::mcset es "Printer" "Impresora" + ::msgcat::mcset es "Letter " "Carta" + ::msgcat::mcset es "Legal " "Legal" + ::msgcat::mcset es "A4" "A4" + ::msgcat::mcset es "Grayscale" "Escala De Grises" + ::msgcat::mcset es "RGB" "Rgb" + ::msgcat::mcset es "Options" "Opciones" + ::msgcat::mcset es "Copies" "Copias" + ::msgcat::mcset es "Paper" "Papel" + ::msgcat::mcset es "Scale" "Escama" + ::msgcat::mcset es "Orientation" "Orientación" + ::msgcat::mcset es "Portrait" "Retrato" + ::msgcat::mcset es "Landscape" "Paisaje" + ::msgcat::mcset es "Output" "Salida" +}
\ No newline at end of file diff --git a/library/msgs/fr.msg b/library/msgs/fr.msg index cab8c50..7d492e7 100644 --- a/library/msgs/fr.msg +++ b/library/msgs/fr.msg @@ -70,3 +70,21 @@ namespace eval ::tk { ::msgcat::mcset fr "retry" "réessayer" ::msgcat::mcset fr "yes" "oui" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset fr "Print" "Imprimer" + ::msgcat::mcset fr "Printer" "Imprimante" + ::msgcat::mcset fr "Letter " "Lettre" + ::msgcat::mcset fr "Legal " "Légal" + ::msgcat::mcset fr "A4" "A4" + ::msgcat::mcset fr "Grayscale" "Niveaux de Gris" + ::msgcat::mcset fr "RGB" "Rvb" + ::msgcat::mcset fr "Options" "Options" + ::msgcat::mcset fr "Copies" "Copies" + ::msgcat::mcset fr "Paper" "Papier" + ::msgcat::mcset fr "Scale" "Écaille" + ::msgcat::mcset fr "Orientation" "Orientation" + ::msgcat::mcset fr "Portrait" "Portrait" + ::msgcat::mcset fr "Landscape" "Paysage" + ::msgcat::mcset fr "Output" "Sortie" +}
\ No newline at end of file diff --git a/library/msgs/hu.msg b/library/msgs/hu.msg index 6d60cc6..1640076 100644 --- a/library/msgs/hu.msg +++ b/library/msgs/hu.msg @@ -76,3 +76,21 @@ namespace eval ::tk { ::msgcat::mcset hu "retry" "újra" ::msgcat::mcset hu "yes" "igen" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset hu "Print" "Nyomtat" + ::msgcat::mcset hu "Printer" "Nyomtató" + ::msgcat::mcset hu "Letter " "Levél" + ::msgcat::mcset hu "Legal " "Törvényes" + ::msgcat::mcset hu "A4" "A4" + ::msgcat::mcset hu "Grayscale" "Szürkeárnyalatos" + ::msgcat::mcset hu "RGB" "Rgb" + ::msgcat::mcset hu "Options" "Beállítások" + ::msgcat::mcset hu "Copies" "Másolatok" + ::msgcat::mcset hu "Paper" "Papír" + ::msgcat::mcset hu "Scale" "Hangsor" + ::msgcat::mcset hu "Orientation" "Tájékozódás" + ::msgcat::mcset hu "Portrait" "Portré" + ::msgcat::mcset hu "Landscape" "Táj" + ::msgcat::mcset hu "Output" "Hozam" +}
\ No newline at end of file diff --git a/library/msgs/it.msg b/library/msgs/it.msg index f6ad124..65f836f 100644 --- a/library/msgs/it.msg +++ b/library/msgs/it.msg @@ -71,3 +71,21 @@ namespace eval ::tk { ::msgcat::mcset it "retry" "riprova" ::msgcat::mcset it "yes" "sì" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset it "Print" "Stampare" + ::msgcat::mcset it "Printer" "Stampante" + ::msgcat::mcset it "Letter " "Lettera" + ::msgcat::mcset it "Legal " "Legale" + ::msgcat::mcset it "A4" "A4" + ::msgcat::mcset it "Grayscale" "Scala Di Grigi" + ::msgcat::mcset it "RGB" "Rgb" + ::msgcat::mcset it "Options" "Opzioni" + ::msgcat::mcset it "Copies" "Copie" + ::msgcat::mcset it "Paper" "Carta" + ::msgcat::mcset it "Scale" "Scala" + ::msgcat::mcset it "Orientation" "Orientamento" + ::msgcat::mcset it "Portrait" "Ritratto" + ::msgcat::mcset it "Landscape" "Paesaggio" + ::msgcat::mcset it "Output" "Prodotto" +}
\ No newline at end of file diff --git a/library/msgs/nl.msg b/library/msgs/nl.msg index fd0348b..bd8a01f 100644 --- a/library/msgs/nl.msg +++ b/library/msgs/nl.msg @@ -89,3 +89,21 @@ namespace eval ::tk { ::msgcat::mcset nl "retry" "opnieuw" ::msgcat::mcset nl "yes" "ja" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset nl "Print" "Afdrukken" + ::msgcat::mcset nl "Printer" "Printer" + ::msgcat::mcset nl "Letter " "Brief" + ::msgcat::mcset nl "Legal " "Legaal" + ::msgcat::mcset nl "A4" "A4" + ::msgcat::mcset nl "Grayscale" "Grijswaarden" + ::msgcat::mcset nl "RGB" "Rgb" + ::msgcat::mcset nl "Options" "Opties" + ::msgcat::mcset nl "Copies" "Kopieën" + ::msgcat::mcset nl "Paper" "Papier" + ::msgcat::mcset nl "Scale" "Schub" + ::msgcat::mcset nl "Orientation" "Oriëntatie" + ::msgcat::mcset nl "Portrait" "Portret" + ::msgcat::mcset nl "Landscape" "Landschap" + ::msgcat::mcset nl "Output" "Uitvoer" +}
\ No newline at end of file diff --git a/library/msgs/pl.msg b/library/msgs/pl.msg index f616397..a5d55e4 100644 --- a/library/msgs/pl.msg +++ b/library/msgs/pl.msg @@ -89,3 +89,21 @@ namespace eval ::tk { ::msgcat::mcset pl "retry" "ponów" ::msgcat::mcset pl "yes" "tak" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset pl "Print" "Drukować" + ::msgcat::mcset pl "Printer" "Drukarka" + ::msgcat::mcset pl "Letter " "Litera" + ::msgcat::mcset pl "Legal " "Legalny" + ::msgcat::mcset pl "A4" "A4" + ::msgcat::mcset pl "Grayscale" "Skala Szarości" + ::msgcat::mcset pl "RGB" "Rgb" + ::msgcat::mcset pl "Options" "Opcje" + ::msgcat::mcset pl "Copies" "Kopie" + ::msgcat::mcset pl "Paper" "Papier" + ::msgcat::mcset pl "Scale" "Skala" + ::msgcat::mcset pl "Orientation" "Orientacja" + ::msgcat::mcset pl "Portrait" "Portret" + ::msgcat::mcset pl "Landscape" "Krajobraz" + ::msgcat::mcset pl "Output" "Produkt Wyjściowy" +}
\ No newline at end of file diff --git a/library/msgs/pt.msg b/library/msgs/pt.msg index 91c7f7a..43b25b4 100644 --- a/library/msgs/pt.msg +++ b/library/msgs/pt.msg @@ -72,3 +72,21 @@ namespace eval ::tk { ::msgcat::mcset pt "retry" "tentar novamente" ::msgcat::mcset pt "yes" "sim" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset pt "Print" "Imprimir" + ::msgcat::mcset pt "Printer" "Impressora" + ::msgcat::mcset pt "Letter " "Letra" + ::msgcat::mcset pt "Legal " "Legal" + ::msgcat::mcset pt "A4" "A4" + ::msgcat::mcset pt "Grayscale" "Escala De Cinza" + ::msgcat::mcset pt "RGB" "Rgb" + ::msgcat::mcset pt "Options" "Opções" + ::msgcat::mcset pt "Copies" "Exemplares" + ::msgcat::mcset pt "Paper" "Papel" + ::msgcat::mcset pt "Scale" "Escala" + ::msgcat::mcset pt "Orientation" "Orientação" + ::msgcat::mcset pt "Portrait" "Retrato" + ::msgcat::mcset pt "Landscape" "Paisagem" + ::msgcat::mcset pt "Output" "Saída" +}
\ No newline at end of file diff --git a/library/msgs/ru.msg b/library/msgs/ru.msg index 3389ce8..fea3c1a 100644 --- a/library/msgs/ru.msg +++ b/library/msgs/ru.msg @@ -73,3 +73,21 @@ namespace eval ::tk { ::msgcat::mcset ru "yes" "да" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset ru "Print" "Печатать" + ::msgcat::mcset ru "Printer" "Принтер" + ::msgcat::mcset ru "Letter " "Письмо" + ::msgcat::mcset ru "Legal " "Законный" + ::msgcat::mcset ru "A4" "A4" + ::msgcat::mcset ru "Grayscale" "Серый Масштаб" + ::msgcat::mcset ru "RGB" "Ргб" + ::msgcat::mcset ru "Options" "Параметры" + ::msgcat::mcset ru "Copies" "Копии" + ::msgcat::mcset ru "Paper" "Бумага" + ::msgcat::mcset ru "Scale" "Шкала" + ::msgcat::mcset ru "Orientation" "Ориентация" + ::msgcat::mcset ru "Portrait" "Портрет" + ::msgcat::mcset ru "Landscape" "Ландшафт" + ::msgcat::mcset ru "Output" "Выпуск" +}
\ No newline at end of file diff --git a/library/msgs/sv.msg b/library/msgs/sv.msg index a1ef8c5..5dc81ab 100644 --- a/library/msgs/sv.msg +++ b/library/msgs/sv.msg @@ -74,3 +74,21 @@ namespace eval ::tk { ::msgcat::mcset sv "retry" "försök igen" ::msgcat::mcset sv "yes" "ja" } +#localization of print terms by Kevin Walzer via Microsoft Translator +namespace eval ::tk { + ::msgcat::mcset sv "Print" "Trycka" + ::msgcat::mcset sv "Printer" "Skrivare" + ::msgcat::mcset sv "Letter " "Brev" + ::msgcat::mcset sv "Legal " "Laglig" + ::msgcat::mcset sv "A4" "A4 (På 199" + ::msgcat::mcset sv "Grayscale" "Gråskala" + ::msgcat::mcset sv "RGB" "Rgb" + ::msgcat::mcset sv "Options" "Alternativ" + ::msgcat::mcset sv "Copies" "Kopior" + ::msgcat::mcset sv "Paper" "Papper" + ::msgcat::mcset sv "Scale" "Skala" + ::msgcat::mcset sv "Orientation" "Orientering" + ::msgcat::mcset sv "Portrait" "Porträtt" + ::msgcat::mcset sv "Landscape" "Landskap" + ::msgcat::mcset sv "Output" "Utdata" +}
\ No newline at end of file diff --git a/library/print.tcl b/library/print.tcl index e39619d..b10a366 100644 --- a/library/print.tcl +++ b/library/print.tcl @@ -14,6 +14,8 @@ namespace eval ::tk::print { + namespace import -force ::tk::msgcat::* + if {[tk windowingsystem] eq "win32"} { variable ::tk::print::printer_name @@ -762,14 +764,14 @@ namespace eval ::tk::print { frame $p.frame.printframe -padx 5 -pady 5 pack $p.frame.printframe -side top -fill x -expand no - label $p.frame.printframe.printlabel -text "Printer:" + label $p.frame.printframe.printlabel -text [mc "Printer:"] ttk::combobox $p.frame.printframe.mb -textvariable chooseprinter -state readonly -values [lsort -unique $printlist] pack $p.frame.printframe.printlabel $p.frame.printframe.mb -side left -fill x -expand no bind $p.frame.printframe.mb <<ComboboxSelected>> { set chooseprinter} - set paperlist {Letter Legal A4} - set colorlist {Grayscale RGB} + set paperlist [list [mc Letter] [mc Legal] [mc A4]] + set colorlist [list [mc Grayscale] [mc RGB]] #Initialize with sane defaults. Because some of these variables #are tied to tk_optionMenu, they are global and cannot be tied @@ -785,13 +787,13 @@ namespace eval ::tk::print { set percentlist {100 90 80 70 60 50 40 30 20 10} #Base widgets to load. - labelframe $p.frame.copyframe -text Options -padx 5 -pady 5 + labelframe $p.frame.copyframe -text [mc "Options"] -padx 5 -pady 5 pack $p.frame.copyframe -fill x -expand no frame $p.frame.copyframe.l -padx 5 -pady 5 pack $p.frame.copyframe.l -side top -fill x -expand no - label $p.frame.copyframe.l.copylabel -text "Copies:" + label $p.frame.copyframe.l.copylabel -text [mc "Copies:"] spinbox $p.frame.copyframe.l.field -from 1 -to 1000 -textvariable printcopies -width 5 pack $p.frame.copyframe.l.copylabel $p.frame.copyframe.l.field -side left -fill x -expand no @@ -801,7 +803,7 @@ namespace eval ::tk::print { frame $p.frame.copyframe.r -padx 5 -pady 5 pack $p.frame.copyframe.r -fill x -expand no - label $p.frame.copyframe.r.paper -text "Paper:" + label $p.frame.copyframe.r.paper -text [mc "Paper:"] tk_optionMenu $p.frame.copyframe.r.menu ::tkprint_choosepaper {*}$paperlist pack $p.frame.copyframe.r.paper $p.frame.copyframe.r.menu -side left -fill x -expand no @@ -812,7 +814,7 @@ namespace eval ::tk::print { frame $p.frame.copyframe.z -padx 5 -pady 5 pack $p.frame.copyframe.z -fill x -expand no - label $p.frame.copyframe.z.zlabel -text "Scale %:" + label $p.frame.copyframe.z.zlabel -text [mc"Scale %:"] tk_optionMenu $p.frame.copyframe.z.zentry ::tkprint_zoomnumber {*}$percentlist pack $p.frame.copyframe.z.zlabel $p.frame.copyframe.z.zentry -side left -fill x -expand no @@ -820,16 +822,16 @@ namespace eval ::tk::print { frame $p.frame.copyframe.orient -padx 5 -pady 5 pack $p.frame.copyframe.orient -fill x -expand no - label $p.frame.copyframe.orient.text -text "Orientation:" - radiobutton $p.frame.copyframe.orient.v -text "Portrait" -value portrait -variable ::tkprint_printorientation -compound left - radiobutton $p.frame.copyframe.orient.h -text "Landscape" -value landscape -variable ::tkprint_printorientation -compound left + label $p.frame.copyframe.orient.text -text [mc "Orientation:"] + radiobutton $p.frame.copyframe.orient.v -text [mc "Portrait"] -value portrait -variable ::tkprint_printorientation -compound left + radiobutton $p.frame.copyframe.orient.h -text [mc "Landscape"] -value landscape -variable ::tkprint_printorientation -compound left pack $p.frame.copyframe.orient.text $p.frame.copyframe.orient.v $p.frame.copyframe.orient.h -side left -fill x -expand no frame $p.frame.copyframe.c -padx 5 -pady 5 pack $p.frame.copyframe.c -fill x -expand no - label $p.frame.copyframe.c.l -text "Output:" + label $p.frame.copyframe.c.l -text [mc "Output:"] tk_optionMenu $p.frame.copyframe.c.c ::tkprint_color {*}$colorlist pack $p.frame.copyframe.c.l $p.frame.copyframe.c.c -side left -fill x -expand no } @@ -838,8 +840,8 @@ namespace eval ::tk::print { frame $p.frame.buttonframe pack $p.frame.buttonframe -fill x -expand no -side bottom - button $p.frame.buttonframe.printbutton -text "Print" -command "::tk::print::_runprint $w" - button $p.frame.buttonframe.cancel -text "Cancel" -command {destroy ._print} + button $p.frame.buttonframe.printbutton -text [mc "Print"] -command "::tk::print::_runprint $w" + button $p.frame.buttonframe.cancel -text [mc "Cancel"] -command {destroy ._print} pack $p.frame.buttonframe.printbutton $p.frame.buttonframe.cancel -side right -fill x -expand no |