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
|
#
# Here's how one might invoke TkMan in another application
#
# 1. include the following proc in the application's Tcl script
# 2. invoke the tkman proc with the name of the man page to show,
# for instance:
# tkman ls
# tkman cc(1)
# tkman a.out.5
#
proc TkMan {man} {
if {[set found [lsearch [winfo interps] tkman*]]==-1} {
# if TkMan doesn't already exist, start one up
if {[catch {exec tkman &}]} {puts stdout "TkMan not found"; return}
# wait for it to be registered
for {set found -1} {$found==-1} {after 200} {
set found [lsearch [winfo interps] tkman*]
}
# wait for it to initialize
for {set ready 0} {!$ready} {after 200} {
if {![catch {set res [send tkman set manx(init)]} info]} {
if {$res=="1"} {set ready 1}
} elseif {[string match "*insecure*" info]} {
puts stderr "can't talk to an insecure server -- see send(n)"
exit 1
}
}
}
set tkman [lindex [winfo interps] $found]
# .man is the main window, guaranteed to exist
set w .man
send $tkman raise $w
send $tkman manShowMan $man
return
}
|