/usr/share/xcrysden/Tcl/dumpWindow.tcl is in xcrysden-data 1.5.60-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | #############################################################################
# Author: #
# ------ #
# Anton Kokalj Email: Tone.Kokalj@ijs.si #
# Department of Physical and Organic Chemistry Phone: x 386 1 477 3523 #
# Jozef Stefan Institute Fax: x 386 1 477 3811 #
# Jamova 39, SI-1000 Ljubljana #
# SLOVENIA #
# #
# Source: $XCRYSDEN_TOPDIR/Tcl/__file__
# ------ #
# Copyright (c) 2008 by Anton Kokalj #
#############################################################################
proc dumpWindow {window {outfile ""}} {
raise $window
dumpWindowByID [winfo id $window] $outfile
}
proc dumpWindowByID {id {outfile ""}} {
global xcMisc system
SetWatchCursor
update
update idletask
if { $outfile == "" } {
set outfile [dumpWindow_queryFilename]
}
if { [info exists xcMisc(ImageMagick.import)] } {
xcCatchExecReturn $xcMisc(ImageMagick.import) -window $id $outfile
} elseif { [info exists xcMisc(xwd)] } {
xcCatchExecReturn $xcMisc(xwd) -id $id -out $system(SCRDIR)/tmp.xwd
if { [info exists xcMisc(ImageMagick.convert)] } {
# convert by ImageMagick
scripting::_printToFile_imageConvert $system(SCRDIR)/tmp.xwd $outfile
} else {
# try to convert by netbmp
set head [file rootname $outfile]
file copy -force $system(SCRDIR)/test.xwd $head.xwd
set ext [string trim [file extension $outfile] .]
switch $ext {
jpg { set ext jpeg }
tif { set ext tiff }
eps { set ext ps }
}
set xwdtopnm [auto_execok xwdtopnm]
set pnmtoext [auto_execok pnmto$ext]
if { $xwdtopnm != "" && $pnmtoext != "" } {
catch {exec $xwdtopnm $head.xwd > $head.pnm}
catch {exec $pnmtoext $head.pnm > $head.$ext}
}
}
} else {
ErrorDialog "cannot make windowDump: neither import nor xwd programs are available"
}
ResetCursor
}
proc dumpWindow_queryFilename {} {
global xcMisc system
set head [file rootname [file tail $xcMisc(titlefile)]]
set deffile $head.png
set defext .png
set filetypes {
{{PNG} {.png} }
{{JPEG} {.jpg .jpeg} }
{{GIF} {.gif} }
{{TIFF} {.tif .tiff}}
{{EPS} {.eps .ps} }
{{All Files} * }
}
set sfile [tk_getSaveFile -initialdir $system(PWD) \
-title "Print to File" \
-defaultextension $defext \
-initialfile $deffile \
-filetypes $filetypes]
if { $sfile == {} } {
return -code return
}
return $sfile
}
|