/usr/share/tkrat2.2/source.tcl is in tkrat 1:2.2cvs20100105-true-dfsg-6.
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 101 102 103 104 105 106 107 108 109 | # source.tcl --
#
# This file contains code which handles shows the source of a bodypart
#
#
# TkRat software and its included text is Copyright 1996-2004 by
# Martin Forssén
#
# The full text of the legal notice is contained in the file called
# COPYRIGHT, included with this distribution.
# ShowSource
#
# Shows the source of a bodypart
#
# Arguments:
# body - The bodypart to show
proc ShowSource {body} {
global idCnt t showParams option fixedNormFont
# Create identifier
set id sourceWin[incr idCnt]
set w .$id
# Create toplevel
toplevel $w -class TkRat
wm title $w $t(source)
# Type
set type [$body type]
set tstring [string tolower [lindex $type 0]/[lindex $type 1]]
frame $w.type
label $w.type.label -width 15 -anchor e -text $t(type):
label $w.type.value -text $tstring -font $fixedNormFont
pack $w.type.label \
$w.type.value -side left
pack $w.type -side top -anchor w
# Description
if {[string length [$body description]]} {
frame $w.desc
label $w.desc.label -width 15 -anchor e -text $t(description):
label $w.desc.value -text [$body description] -font $fixedNormFont
pack $w.desc.label \
$w.desc.value -side left
pack $w.desc -side top -anchor w
}
# Size
frame $w.size
label $w.size.label -width 15 -anchor e -text $t(size):
label $w.size.value -text [RatMangleNumber [$body size]] \
-font $fixedNormFont
pack $w.size.label \
$w.size.value -side left
pack $w.size -side top -anchor w
# Parameters
set typepair [$body type]
set type [string tolower [lindex $typepair 0]/[lindex $typepair 1]]
if {[info exists showParams($type)]} {
foreach p $showParams($type) {
frame $w.p_$p
label $w.p_$p.label -width 15 -anchor e -text $t($p):
label $w.p_$p.value -text [$body parameter $p] -font $fixedNormFont
pack $w.p_$p.label \
$w.p_$p.value -side left
pack $w.p_$p -side top -anchor w
}
}
# Encodings
frame $w.enc
label $w.enc.label -width 15 -anchor e -text $t(encoding):
label $w.enc.value -text [$body encoding] -font $fixedNormFont
pack $w.enc.label \
$w.enc.value -side left
pack $w.enc -side top -anchor w
# The data
frame $w.text -relief sunken -bd 1
scrollbar $w.text.scroll \
-relief sunken \
-command "$w.text.text yview" \
-highlightthickness 0
text $w.text.text \
-yscroll "$w.text.scroll set" \
-setgrid true \
-wrap char \
-bd 0 \
-highlightthickness 0
pack $w.text.scroll -side right -fill y
pack $w.text.text -expand yes -fill both
pack $w.text -side top -expand yes -fill both
# The buttons
button $w.dismiss -text $t(dismiss) -command "destroy $w"
button $w.save -text $t(save_to_file)... -command "SaveBody $body $w"
pack $w.save \
$w.dismiss -side left -expand 1 -pady 5
# Insert the source into the text widget
set data [string map [list "\r\n" "\n"] [$body data true]]
$w.text.text insert end $data
$w.text.text configure -state disabled
bind $w <Escape> "$w.dismiss invoke"
bind $w.text.text <Destroy> \
"::tkrat::winctl::RecordGeometry showSource $w $w.text.text"
::tkrat::winctl::SetGeometry showSource $w $w.text.text
}
|