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
|
################################################################################################
# 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 cdd_files [list]
proc add_cdd_to_filelist {name clear} {
global cdd_files
# If we have been told to clear the list, do so now
if {$clear != 0} {
set cdd_files [list]
}
# Now set the CDD file name
lappend cdd_files $name
# Update the CDD file viewer window for these changes
update_cdd_viewer
}
proc clear_cdd_filelist {} {
global cdd_files
# Clear the list
set cdd_files [list]
# Update the CDD file viewer window
update_cdd_viewer
}
proc create_cdd_viewer {} {
global cdd_files
set create 0
# Now create the window and set the grab to this window
if {[winfo exists .cddwin] == 0} {
set create 1
# Create new window
toplevel .cddwin
wm title .cddwin "CDD File Viewer"
# Create frame to hold listbox
ttk::frame .cddwin.f -relief raised -borderwidth 1
# Create listbox/scrollbar that will contain the opened/merged CDD file names
ttk::label .cddwin.f.l -text "Opened/Merged CDD Files"
listbox .cddwin.f.lb -yscrollcommand ".cddwin.f.vb set" -xscrollcommand ".cddwin.f.hb set" -relief flat -width 30 -height 20 -selectborderwidth 0
.cddwin.f.lb configure -selectbackground [.cddwin.f.lb cget -background]
.cddwin.f.lb configure -selectforeground [.cddwin.f.lb cget -foreground]
ttk::scrollbar .cddwin.f.vb -command ".cddwin.f.lb yview"
ttk::scrollbar .cddwin.f.hb -orient horizontal -command ".cddwin.f.lb xview"
# Pack the widgets into the bottom frame
grid rowconfigure .cddwin.f 0 -weight 0
grid rowconfigure .cddwin.f 1 -weight 1
grid rowconfigure .cddwin.f 2 -weight 0
grid columnconfigure .cddwin.f 0 -weight 1
grid columnconfigure .cddwin.f 1 -weight 0
grid .cddwin.f.l -row 0 -column 0 -sticky news
grid .cddwin.f.lb -row 1 -column 0 -sticky news
grid .cddwin.f.vb -row 1 -column 1 -sticky news
grid .cddwin.f.hb -row 2 -column 0 -sticky news
########################
# Create Close buttons #
########################
ttk::frame .cddwin.bf -relief raised -borderwidth 1
ttk::button .cddwin.bf.close -width 10 -text "Close" -command {
destroy .cddwin
}
pack .cddwin.bf.close -side right -padx 8 -pady 4
}
# Populate listbox with CDD filenames
.cddwin.f.lb delete 0 end
foreach name $cdd_files {
.cddwin.f.lb insert end $name
}
# Display the window if we are creating it
if {$create == 1} {
pack .cddwin.f -fill both -expand yes
pack .cddwin.bf -fill both
}
;# Bring the window to the top
raise .cddwin
}
proc update_cdd_viewer {} {
if {[winfo exists .cddwin] == 1} {
create_cdd_viewer
}
}
|
