----------------------------------------------------------------------------------
@MSGID:
<5865e6f2-271d-4dba-961d-aea0d20e113bn@googlegroups.com> d8c3d585
@REPLYADDR greg <gregor.ebbing@googlemail.com>
@REPLYTO 2:5075/128 greg
@CHRS: CP866 2
@RFC: 1 0
@RFC-Message-ID:
<5865e6f2-271d-4dba-961d-aea0d20e113bn@googlegroups.com>
@TZUTC: -0700
@PID: G2/1.0
@TID: FIDOGATE-5.12-ge4e8b94
when calling the script with wish, tclsh and tclsh with tkcon
wish an error on the 2nd print call
tclsh and tkcon an error on the 2nd print call
tclsh an error on the 1st print call
tcltk from
https://degitlab-ext.terma.com/tper/tcltk
#printtest001.tclI have different results
package require Tk
#package require tkcon
#tkcon show
proc call {} {
set err ""
catch {tk print .t} out
.t insert end "arr: [array get ::tk::print::printargs]
"
.t insert end "out: $out
"
}
text .t
button .btn -text print -command {call}
.t insert end "[info patchlevel]
"
.t insert end "[tk windowingsystem]
"
.t insert end "[info nameofexecutable]
"
#.t insert end "arr: [array get ::tk::print::printargs]
"
pack .t -fill both -expand 1
pack .btn -expand 0
if {0} {
#wish87.exe
#1
8.7a6
win32
C:/Tcl/bin/wish87.exe
arr: resolution {600 600} pl 11692 tm 1000 lm 1000 resx 600 copies
1 resy 600 bm 1000 rm 1000 pw 8267 hDC ??j??
out:
#2
arr: resolution {600 600} pl 11692 tm 1000 lm 1000 resx 600 copies
1 resy 600 bm 1000 rm 1000 pw 8267 hDC ??j??
out: can`t read "charwidths(?)": no such element in array
#tclsh
8.7a6
win32
C:/Tcl/bin/tclsh.exe
arr:
out: can`t read "printargs(hDC)": no such element in array
#tclsh and tkcon
#1
8.7a6
win32
C:/Tcl/bin/tclsh.exe
arr: resolution {600 600} pl 11692 tm 1000 lm 1000 resx 600 copies
1 resy 600 bm 1000 rm 1000 pw 8267 hDC ??--S
out:
#2
arr: resolution {600 600} pl 11692 tm 1000 lm 1000 resx 600 copies
1 resy 600 bm 1000 rm 1000 pw 8267 hDC ??--S
out: can`t read "charwidths(?)": no such element in array
}
--- G2/1.0
* Origin: usenet.network (2:5075/128)
SEEN-BY: 5001/100 5005/49 5015/255 5019/40 5020/715
848 1042 4441 12000
SEEN-BY: 5030/49 1081 5058/104 5075/128
@PATH: 5075/128 5020/1042 4441