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
|
## this is the misc protocol module file.
## it doesn't do much, but that may change.
##
## Ethan Gold <etgold@cs.vassar.edu> 2/24/98
##
#### returns filename with a tilde expanded to an absolute path
if {[debug]} { puts "Loading misc protocol module..." }
############ Required functions - API to main ##############
## startup procedure
proc misc.start {} {
## clear the zone listbox
misc.delzones
update
}
## shutdown procedure
proc misc.stop {} {
## do nothing
}
proc misc.setcurrzone {newzone} {
## do nothing
}
############ End Required functions - API to main ##############
############ Public functions #############
############ End Public functions #############
proc misc.delzones {} {
.leftside.bot.zones del 0 end
}
if {[debug]} { puts "Finished loading misc protocol module." }
|
