blob: c7237255200ab498346f9dd6c5349805b849abfe (
plain)
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
|
# Open a viewer for HTML help info
# Copyright 2002, Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# the Free Software Foundation; either version 2 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# ------------------------------------------------------------------------------
# NAME: public proc open_help
# SYNOPSIS: open_help file
# DESC: Opens html help file using an appropriate
# browser.
# ------------------------------------------------------------------------------
proc open_help {hfile} {
debug $hfile
# create full pathname link
set link file://[file join $::GDBTK_LIBRARY help $hfile]
# windows is easy
if {$::tcl_platform(platform) == "windows"} {
ide_shell_execute open $link
return
}
#
# for Unix, we never know what is installed
#
# set list of viewer apps to try
switch [pref get gdb/compat] {
"KDE" {
set apps {htmlview khelpcenter mozilla}
}
"GNOME" {
set apps {htmlview mozilla gnome-help khelpcenter}
}
default {
set apps {htmlview mozilla gnome-help khelpcenter netscape}
}
}
# If the user has previously entered a browser name, append it
# to the list. Should it go first or last?
set bname [pref get gdb/help/browsername]
if {$bname != ""} {
lappend apps $bname
}
# now loop through list checking each application
foreach app $apps {
debug "app=$app"
if {[catch "exec $app $link &" result]} {
debug "$app failed: $result"
} else {
return
}
}
# if we reached here, nothing worked, so prompt for a name
set text "No help browser was found on your system.\n\
Please enter the name of an HTML viewer application."
while {[set app [prompt_helpname $text]] != "0"} {
if {$app != ""} {
if {[catch "exec $app $link &" result]} {
dbug W "$app failed: $result"
set text "Could not run application $app.\n\
Please enter the name of an HTML viewer application."
} else {
pref set gdb/help/browsername $app
return
}
}
}
}
# displays an entry dialog and asks for the name of an application
# returns 0 on cancel
# name on success
proc prompt_helpname {text} {
iwidgets::promptdialog .pd -title "Browser Query" -modality application \
-labeltext $text
if {[.pd activate]} {
set app [string trim [.pd get]]
destroy .pd
return $app
}
destroy .pd
debug "cancelled"
return 0
}
|
