/usr/share/covered/scripts/viewer.tcl is in covered 0.7.10-3+b1.
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 | ################################################################################################
# Copyright (c) 2006-2010 Trevor Williams #
# #
# This program is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by the Free Software #
# Foundation; either version 2 of the License, or (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; #
# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. #
# See the GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License along with this program; #
# if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #
################################################################################################
set viewer_start_search_index 1.0
proc viewer_show {type title fname} {
global viewer_start_search_index
global HOME
# Create window name
set win [join [list .$type viewwin] ""]
if {[winfo exists $win] == 0} {
toplevel $win
wm title $win "Covered - $title - $fname"
# Create search button frame
ttk::frame $win.top
frame $win.top.search -borderwidth 1 -relief ridge -bg white
label $win.top.search.f -image [image create photo -file [file join $HOME scripts find.gif]] -bg white -relief flat -borderwidth 0
bind $win.top.search.f <ButtonPress-1> "perform_search $win.text.t $win.top.search.e $win.info viewer_start_search_index"
set_balloon $win.top.search.f "Click to find the next occurrence of the search string"
entry $win.top.search.e -width 15 -bg white -relief flat -insertborderwidth 0 -highlightthickness 0 -disabledbackground white
bind $win.top.search.e <Return> "perform_search $win.text.t $win.top.search.e $win.info viewer_start_search_index"
label $win.top.search.c -image [image create photo -file [file join $HOME scripts clear.gif]] -bg white -relief flat -borderwidth 0
bind $win.top.search.c <ButtonPress-1> "
$win.text.t tag delete search_found
$win.top.search.e delete 0 end
$win.info configure -text {}
"
set_balloon $win.top.search.c "Click to clear the search string"
pack $win.top.search.c -side right
pack $win.top.search.e -side right -padx 3
pack $win.top.search.f -side right
pack $win.top.search -side right
# Create text box frame
ttk::frame $win.text
text $win.text.t -xscrollcommand "$win.text.hb set" -yscrollcommand "$win.text.vb set" -wrap none
ttk::scrollbar $win.text.vb -command "$win.text.t yview"
ttk::scrollbar $win.text.hb -orient horizontal -command "$win.text.t xview"
grid rowconfigure $win.text 0 -weight 1
grid columnconfigure $win.text 0 -weight 1
grid $win.text.t -row 0 -column 0 -sticky news
grid $win.text.vb -row 0 -column 1 -sticky ns
grid $win.text.hb -row 1 -column 0 -sticky ew
# Create information bar frame
ttk::label $win.info -anchor w
# Pack the top-level widgets
pack $win.top -fill x
pack $win.text -fill both -expand yes
pack $win.info -fill x
# Read the given filename
if {[catch {set fp [open $fname "r"]}]} {
tk_messageBox -message "File $fname Not Found!" -title "No File" -icon error
}
set contents [split [read $fp] \n]
close $fp
# Calculate the width to use
set max_width 0
foreach line $contents {
if {[string length $line] > $max_width} {
set max_width [string length $line]
}
}
$win.text.t configure -width $max_width
# Populate the textbox
foreach line $contents {
$win.text.t insert end "$line\n"
}
# Make the textbox read-only
$win.text.t configure -state disabled
}
# Raise the report window to the front
raise $win
}
|