This file is indexed.

/usr/share/xcrysden/Tcl/dumpWindow.tcl is in xcrysden-data 1.5.53-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
}