/usr/share/covered/scripts/wizard.tcl is in covered 0.7.10-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 | ################################################################################################
# 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. #
################################################################################################
proc create_wizard {} {
global show_wizard HOME
# Now create the window and set the grab to this window
if {[winfo exists .wizwin] == 0} {
# Create new window
toplevel .wizwin
wm title .wizwin "Covered Wizard"
ttk::frame .wizwin.f -relief raised -borderwidth 1
# Add banner
ttk::label .wizwin.f.banner -image [image create photo -file [file join $HOME scripts banner.gif]]
# Create buttons
ttk::button .wizwin.f.new -text "Generate New CDD File" -command {
destroy .wizwin
create_new_cdd
}
ttk::button .wizwin.f.open -text "Open/Merge CDD File(s)" -command {
destroy .wizwin
.menubar.file invoke 0
}
ttk::button .wizwin.f.grade -text "Rank CDD Coverage" -command {
destroy .wizwin
create_rank_cdds
}
ttk::button .wizwin.f.help -text "View Help Manual" -command {
destroy .wizwin
help_show_manual part.gui
}
# Checkbutton to disable this window
ttk::checkbutton .wizwin.f.show -text "Display this window at startup of Covered" -variable show_wizard -onvalue true -offvalue false -command {
write_coveredrc 0
}
help_button .wizwin.f.hb chapter.gui.wizard
# Pack the buttons
grid .wizwin.f.banner -row 0 -rowspan 4 -column 0 -sticky news -padx 4 -pady 4
grid .wizwin.f.new -row 0 -column 1 -sticky news -padx 4 -pady 4
grid .wizwin.f.open -row 1 -column 1 -sticky news -padx 4 -pady 4
grid .wizwin.f.grade -row 2 -column 1 -sticky news -padx 4 -pady 4
grid .wizwin.f.help -row 3 -column 1 -sticky news -padx 4 -pady 4
grid .wizwin.f.show -row 4 -column 0 -sticky news -padx 4 -pady 4
grid .wizwin.f.hb -row 4 -column 1 -sticky e -padx 4 -pady 4
# Pack the frame
pack .wizwin.f -fill both -expand yes
}
# Make sure that the focus is on this window only
wm transient .wizwin .
}
|