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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
|
global multimap_browser
proc set_multimap_browser_filename {w name} {
set file_name ${name}@[get_multimap_browser_mapset $w]
$w.filename delete 0 end
if {[string length $name] > 0} {
$w.filename insert 0 ${name}@[get_multimap_browser_mapset $w]
set_selection_from_multimap_browser_filename $w
}
}
proc multimap_browser_list_mapset {w} {
set mapset [get_multimap_browser_mapset $w]
set element [get_multimap_browser_element $w]
$w.main.files.f.list delete 0 end
update
if {[string length $mapset] == 0} {return}
if {[string length $element] == 0} {return}
foreach name [grass_ls $element $mapset] {
$w.main.files.f.list insert end $name
}
}
proc get_multimap_browser_element {w} {
if {[catch {$w.element.entry get} element]} { return {} }
if {![string compare $element Raster]} {
set element cell
} elseif {![string compare $element Vector]} {
set element vector
} elseif {![string compare $element Surface]} {
set element cell
} elseif {![string compare $element Site]} {
set element site_lists
} elseif {![string compare $element Region]} {
set element windows
} elseif {![string compare $element Labels]} {
set element paint/labels
} elseif {![string compare $element Icons]} {
set element icons
}
return $element
}
proc set_multimap_browser_element {w name} {
$w.element.entry delete 0 end
$w.element.entry insert 0 $name
multimap_browser_list_mapset $w
}
proc get_multimap_browser_mapset {w} {
global multimap_browser
if {[info exists multimap_browser($w,mapset)]} {
return $multimap_browser($w,mapset)
}
return {}
}
proc set_multimap_browser_mapset {w name} {
global multimap_browser
set multimap_browser($w,mapset) $name
multimap_browser_list_mapset $w
}
proc set_selection_from_multimap_browser_filename { w } {
$w.filename selection from 0
$w.filename selection to end
$w.list.l.list insert end [$w.filename get]
}
proc create_multimap_browser {{w .multimap_browser} {type all} {mode 0}} {
global multimap_browser
toplevel $w
tkwait visibility $w
#puts "BROWSER: $w TYPE: $type MODE: $mode"
entry $w.filename -bd 2 -relief sunken
bind $w.filename <Return> "set_selection_from_multimap_browser_filename $w"
frame $w.main
frame $w.list
frame $w.list.l
listbox $w.list.l.list -bd 2 -relief sunken \
-exportselection no \
-selectbackground LightYellow1 \
-yscroll "$w.list.l.scroll set" \
-selectmode single
scrollbar $w.list.l.scroll \
-command "$w.list.l.list yview"
button $w.list.remove -text "Remove" \
-command "multimap_remove_cmd $w"
pack $w.list.l.list $w.list.l.scroll -side left -fill y -expand yes
pack $w.list.l $w.list.remove -side top -fill x -expand yes
frame $w.main.mapsets
label $w.main.mapsets.label -text MAPSETS
frame $w.main.mapsets.f
listbox $w.main.mapsets.f.list -bd 2 -relief sunken \
-exportselection no \
-selectbackground LightYellow1 \
-yscroll "$w.main.mapsets.f.scroll set" \
-selectmode single
scrollbar $w.main.mapsets.f.scroll \
-command "$w.main.mapsets.f.list yview"
bind $w.main.mapsets.f.list <ButtonRelease-1> \
"multimap_browser_select_mapset %W %y $w"
frame $w.main.files
label $w.main.files.label -text FILES
frame $w.main.files.f
listbox $w.main.files.f.list -bd 2 -relief sunken \
-exportselection no \
-selectbackground LightYellow1 \
-yscroll "$w.main.files.f.scroll set" \
-selectmode single
scrollbar $w.main.files.f.scroll \
-command "$w.main.files.f.list yview"
bind $w.main.files.f.list <ButtonRelease-1> \
"multimap_browser_select_file %W %y $w"
frame $w.element
entry $w.element.entry -bd 2 -relief sunken
bind $w.element.entry <Return> "multimap_browser_list_mapset $w"
if { ![string compare rast $type]} {
set name Raster
} elseif { ![string compare vect $type]} {
set name Vector
} elseif { ![string compare site $type]} {
set name Site
} elseif { ![string compare surf $type]} {
set name Surface
} elseif { ![string compare 3dview $type]} {
set name 3dview
}
if [string compare $type all] {
label $w.element.menu -text "Map Type:" -relief raised
} else {
set name ""
menubutton $w.element.menu -text {Map Type} -menu $w.element.menu.m -relief raised
menu $w.element.menu.m
$w.element.menu.m add command \
-label {Raster} -command "set_multimap_browser_element $w Raster"
$w.element.menu.m add command \
-label {Vector} -command "set_multimap_browser_element $w Vector"
$w.element.menu.m add command \
-label {Site} -command "set_multimap_browser_element $w Site"
$w.element.menu.m add command \
-label {Surf} -command "set_multimap_browser_element $w Surf"
$w.element.menu.m add command \
-label {Regions} -command "set_multimap_browser_element $w windows"
$w.element.menu.m add command \
-label {Labels} -command "set_multimap_browser_element $w\
paint/labels"
$w.element.menu.m add command \
-label {Icons} -command "set_multimap_browser_element $w icons"
}
button $w.done -text Done -command "multimap_done_cmd $w"
button $w.cancel -text Cancel -command "multimap_cancel_cmd $w"
pack $w.filename -side top -expand yes -fill x
pack $w.main -side top
pack $w.list -side right -in $w.main
pack $w.main.mapsets -side left
pack $w.main.mapsets.label -side top
pack $w.main.mapsets.f -side top
pack $w.main.mapsets.f.list -side left
pack $w.main.mapsets.f.scroll -side left -expand yes -fill y
pack $w.main.files -side left
pack $w.main.files.label -side top
pack $w.main.files.f -side top
pack $w.main.files.f.list -side left
pack $w.main.files.f.scroll -side left -expand yes -fill y
pack $w.element -side top -expand yes -fill x
pack $w.element.menu -side left
pack $w.element.entry -side left -expand yes -fill x
pack $w.done $w.cancel -side left -expand 1
foreach mapset [grass_mapset_list] {
$w.main.mapsets.f.list insert end $mapset
}
set_multimap_browser_element $w $name
set_multimap_browser_mapset $w {}
wm title $w "Map Browser"
wm protocol $w WM_DELETE_WINDOW "destroy $w"
if {$mode} {grab $w}
tkwait window $w
return $multimap_browser($w,Answer)
}
proc multimap_remove_cmd {w} {
# Get the selection to delete
set selection [lindex [$w.list.l.list curselection] 0]
if {$selection != ""} then {
$w.list.l.list delete $selection
}
}
proc multimap_cancel_cmd {w} {
global multimap_browser
set multimap_browser($w,Answer) -1
destroy $w
}
proc multimap_done_cmd {w} {
global multimap_browser
set multimap_browser($w,Answer) [list]
set size [$w.list.l.list size]
for {set i 0} {$i < $size} {incr i} {
lappend multimap_browser($w,Answer) [$w.list.l.list get $i]
}
destroy $w
}
proc multimap_browser_select_file {W y w} {
set near [ $W nearest $y ]
$W selection set $near $near
eval set_multimap_browser_filename $w {[$W get $near]}
}
proc multimap_browser_select_mapset {W y w} {
set near [ $W nearest $y ]
$W selection set $near $near
eval set_multimap_browser_mapset $w {[$W get $near]}
}
|
