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
|
# Copyright (C) 1999-2021
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc HelpDef {} {
global help
global ds9
set help(refman) "$ds9(doc)/ref/index.html"
set help(command) "$ds9(doc)/ref/command.html"
set help(userman) "$ds9(doc)/user/index.html"
set help(faq) "$ds9(doc)/faq.html"
set help(release) "$ds9(doc)/release/r8.6.html"
set help(helpdesk) "$ds9(doc)/helpdesk.html"
set help(story) "$ds9(doc)/story.html"
set help(ack) "$ds9(doc)/acknowledgment.html"
set help(vo) "$ds9(doc)/ref/vo.html"
# remember to update macos/SAOImageDS9/Contents/Resources/Credits.html
set help(authors) "William Joye (Smithsonian Astrophysical Observatory)\nEric Mandel (Smithsonian Astrophysical Observatory)\nSteve Murray (Smithsonian Astrophysical Observatory)\n"
set help(about) "SAOImageDS9\nVersion $ds9(version,display)\n\nAuthors\n$help(authors)\nDevelopment funding\nNASA's Applied Information Systems Research Program (NASA/ETSO)\nChandra X-ray Science Center (CXC)\nHigh Energy Astrophysics Science Archive Center (NASA/HEASARC)"
}
proc HelpRef {} {
global help
HV hlpref [msgcat::mc {Reference Manual}] $help(refman)
}
proc HelpCommand {} {
global help
HV hlpcmd [msgcat::mc {Command}] $help(command)
}
proc HelpUser {} {
global help
HV hlpuser [msgcat::mc {User Manual}] $help(userman)
}
proc HelpFAQ {} {
global help
HV hlpfaq [msgcat::mc {FAQ}] $help(faq)
}
proc HelpRelease {} {
global help
HV hlprelease [msgcat::mc {Release Notes}] $help(release)
}
proc HelpDesk {} {
global help
HV hlpdsk [msgcat::mc {Help Desk}] $help(helpdesk)
}
proc HelpStory {} {
global help
HV hlpstory [msgcat::mc {Story of SAOImageDS9}] $help(story)
}
proc HelpAck {} {
global help
HV hlpack [msgcat::mc {Acknowledgment}] $help(ack)
}
proc HelpVO {} {
global help
HV hlvo [msgcat::mc {Virtual Observatory}] $help(vo)
}
proc ProcessSendAboutCmd {proc id param sock fn} {
global help
ProcessSend $proc $id $sock $fn {.txt} "$help(about)\n"
}
|
