mirrors/zint-barcode-generator
1
0
Fork 0
mirror of https://git.code.sf.net/p/zint/code synced 2025-05-18 17:25:09 -04:00
Code Issues Projects Releases Packages Wiki Activity

Add -fullmultibyte to tcl frontend

Browse source
This commit is contained in:
Harald Oehlmann 2020-04-06 18:37:39 +02:00
parent 22ba06a7cb
commit 2f99f0c4fd
2 changed files with 36 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
backend_tcl/demo/demo.tcl
View file

@ -18,6 +18,9 @@ pack [::ttk::combobox .c -values [lsort [zint symbologies]] -state readonly] \
pack [::ttk::entry .e] -side top -fill x -padx $padx -pady $pady
.e insert end 12345
bind .e <Return> Generate
pack [::ttk::entry .o] -side top -fill x -padx $padx -pady $pady
.o insert end "-bold 1"
bind .o <Return> Generate
pack [::ttk::button .b -text Generate -command Generate] -fill x -side top \
-padx $padx -pady $pady
proc Generate {} {
@ -25,7 +28,7 @@ proc Generate {} {
::zintimg configure -width 1 -height 1
::zintimg blank
::zintimg configure -width 0 -height 0
if {[catch {zint encode [.e get] ::zintimg -barcode [.c get]} e]} {
if {[catch {zint encode [.e get] ::zintimg -barcode [.c get] {*}[.o get]} e]} {
tk_messageBox -message $e -title "Zint error"
} else {
set w [image width ::zintimg]