File: misc.tcl

package info (click to toggle)
tkchooser 2.0652-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 432 kB
  • ctags: 272
  • sloc: tcl: 3,344; makefile: 76; sh: 13
file content (40 lines) | stat: -rw-r--r-- 828 bytes parent folder | download | duplicates (4)
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." }