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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
################################################################################################
# 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 more_dn_img [image create bitmap -data "#define dn_width 22\n#define dn_height 22\nstatic unsigned char dn_bits[] = {\n0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};"]
set more_up_img [image create bitmap -data "#define up_width 22\n#define up_height 22\nstatic unsigned char up_bits[] = {\n0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};"]
proc get_exclude_reason {w} {
global more_dn_img more_up_img
global exclude_reasons exclude_reason
global tablelistopts
# Clear the exclusion reason string
set exclude_reason ""
toplevel .exclwin
wm title .exclwin "Create a reason for the exclusion"
wm resizable .exclwin 1 0
# Create top- and bottom-most frame
panedwindow .exclwin.pw -orient vertical
.exclwin.pw add [ttk::frame .exclwin.pw.top -relief raised -borderwidth 1]
.exclwin.pw add [ttk::frame .exclwin.pw.bot -relief raised -borderwidth 1] -hide true
# Populate the textbox pane
ttk::frame .exclwin.pw.top.t
text .exclwin.pw.top.t.t -wrap word -yscrollcommand {.exclwin.pw.top.t.vb set} -height 10 -width 50
bind .exclwin.pw.top.t.t <KeyRelease> {
if {[.exclwin.pw.top.t.t count -chars 1.0 end] < 2} {
.exclwin.pw.top.bf.save configure -state disabled
} else {
.exclwin.pw.top.bf.save configure -state normal
}
}
ttk::scrollbar .exclwin.pw.top.t.vb -command {.exclwin.pw.top.t.t yview}
grid columnconfigure .exclwin.pw.top.t 0 -weight 1
grid .exclwin.pw.top.t.t -row 0 -column 0 -sticky news
grid .exclwin.pw.top.t.vb -row 0 -column 1 -sticky ns
# Create button frame
ttk::frame .exclwin.pw.top.bf
ttk::button .exclwin.pw.top.bf.save -text "OK" -width 10 -state disabled -command {
set exclude_reason [string trim [string map {\n { } \r { } \t { }} [.exclwin.pw.top.t.t get 1.0 end]]]
destroy .exclwin
}
ttk::button .exclwin.pw.top.bf.close -text "Cancel" -width 10 -command {
destroy .exclwin
}
ttk::frame .exclwin.pw.top.bf.ibf
ttk::button .exclwin.pw.top.bf.ibf.more -image $more_dn_img -command {
if {[.exclwin.pw panecget .exclwin.pw.bot -hide]} {
.exclwin.pw paneconfigure .exclwin.pw.bot -hide false
.exclwin.pw.top.bf.ibf.more configure -image $more_up_img
} else {
.exclwin.pw paneconfigure .exclwin.pw.bot -hide true
.exclwin.pw.top.bf.ibf.more configure -image $more_dn_img
}
}
set_balloon .exclwin.pw.top.bf.ibf.more "Click to show/hide the default exclusion reason list"
help_button .exclwin.pw.top.bf.ibf.help "chapter.gui.exclude"
pack .exclwin.pw.top.bf.ibf.more -side left -padx 4
pack .exclwin.pw.top.bf.ibf.help -side right -padx 4
pack .exclwin.pw.top.bf.save -fill x -padx 4 -pady 4
pack .exclwin.pw.top.bf.close -fill x -padx 4 -pady 4
pack .exclwin.pw.top.bf.ibf -fill x -side bottom
# Pack the top pane
grid columnconfigure .exclwin.pw.top 0 -weight 1
grid .exclwin.pw.top.t -row 0 -column 0 -sticky news
grid .exclwin.pw.top.bf -row 0 -column 1 -sticky ns
# Populate the listbox pane
ttk::frame .exclwin.pw.bot.l
tablelist::tablelist .exclwin.pw.bot.l.tl -columns {0 "Default Exclusion Reasons"} -labelcommand tablelist::sortByColumn \
-yscrollcommand {.exclwin.pw.bot.l.vb set} -stretch all -movablecolumns 1
foreach {key value} [array get tablelistopts] {
.exclwin.pw.bot.l.tl configure -$key $value
}
bind .exclwin.pw.bot.l.tl <<ListboxSelect>> {
set row [.exclwin.pw.bot.l.tl curselection]
.exclwin.pw.top.t.t delete 1.0 end
.exclwin.pw.top.t.t insert end [.exclwin.pw.bot.l.tl getcells [list $row,0]]
.exclwin.pw.top.bf.save configure -state normal
}
ttk::scrollbar .exclwin.pw.bot.l.vb -command {.exclwin.pw.bot.l.tl yview}
grid columnconfigure .exclwin.pw.bot.l 0 -weight 1
grid .exclwin.pw.bot.l.tl -row 0 -column 0 -sticky news
grid .exclwin.pw.bot.l.vb -row 0 -column 1 -sticky ns
# Pack the bottom pane
pack .exclwin.pw.bot.l -fill both -expand yes
# Pack the paned window
pack .exclwin.pw -fill both -expand yes
# Populate the hidden listbox
foreach reason $exclude_reasons {
.exclwin.pw.bot.l.tl insert end $reason
}
# Make sure that this window is a transient window and set focus
#if {[winfo viewable $w] } {
# wm transient .exclwin $w
#}
tkwait visibility .exclwin
catch {grab .exclwin}
focus .exclwin.pw.top.t.t
# Wait for window to be destroyed before moving on
tkwait window .exclwin
return [string trim $exclude_reason]
}
proc show_exclude_reason_balloon {w excluded reason} {
global cov_bgColor cov_fgColor
if {$excluded == 1 && $reason != ""} {
balloon::show $w "Exclude Reason: $reason" $cov_bgColor $cov_fgColor
}
}
proc hide_exclude_reason_balloon {w excluded reason} {
if {$excluded == 1 && $reason != ""} {
balloon::hide $w
}
}
proc set_exclude_reason_balloon {w excluded reason} {
bind $w <ButtonPress-3> "show_exclude_reason_balloon %W $excluded $reason"
bind $w <ButtonRelease-3> "hide_exclude_reason_balloon %W $excluded $reason"
}
|
