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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
# Copyright (C) 1987-2015 by Jeffery P. Hansen
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License 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.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
# Last edit by hansen on Wed Mar 30 00:19:59 2005
#
proc showDocFile {label file L} {
set w .docwin
set i 0
while { [catch { toplevel $w$i}] } {
incr i
}
set w $w$i
wm resizable $w 0 0
wm title $w $label
wm transient $w .
button $w.dismiss -text [m b.dismiss] -command "destroy $w"
scrollbar $w.scroll -command "$w.text yview"
text $w.text -yscrollcommand "$w.scroll set"
pack $w.dismiss -side bottom -fill x
pack $w.text $w.scroll -side left -fill y
foreach s $L {
$w.text insert end "$s\n"
}
if { $file != "" } {
set f [open $file r]
$w.text insert end [read $f]
close $f
}
$w.text configure -state disabled
}
proc showLicense {} {
global bd tkg_progVer tkg_copyright tkg_mailContact tkg_description lang tkg_gateHome
set L {}
lappend L "TkGate $tkg_progVer - [m cprt.descr]"
lappend L ""
lappend L "$tkg_copyright"
lappend L ""
lappend L "[m license1]"
lappend L ""
lappend L "[m license2]"
lappend L ""
lappend L "[m license3]"
lappend L ""
showDocFile [m cprt.lic] "" $L
# set licensePath "$tkg_gateHome/locale/$lang/license.txt"
# if { [file exists $licensePath] == 0 } {
# puts "Cannot locate $licensePath, using en version"
# set licensePath "$tkg_gateHome/locale/en/license.txt"
# }
# showDocFile [m cprt.lic] $licensePath $L
}
proc showDocumentation {} {
global bd tkg_progVer tkg_copyright tkg_mailContact tkg_description tkg_homepage tkg_localdoc
gat_dohyperlink $tkg_localdoc
if {0} {
set L {}
lappend L "TkGate $tkg_progVer - [m cprt.descr]"
lappend L ""
lappend L "$tkg_copyright"
lappend L ""
lappend L "Currently there is no built-in documentation for TkGate other than the"
lappend L "balloon help which can be activated by placing the mouse cursor over"
lappend L "interface elements, and the online tutorials availble. Documentation"
lappend L "can be found by pointing your Web browser at the TkGate home page:"
lappend L ""
lappend L " $tkg_homepage"
lappend L ""
lappend L "or through the copy of the documentation included in this distribution at:"
lappend L ""
lappend L " $tkg_localdoc"
showDocFile "TkGate Documentation" "" $L
}
}
proc showAbout {} {
global bd tkg_progVer tkg_copyright tkg_mailContact tkg_description
if { [catch { toplevel .about}] } {
catch { raise .about }
return;
}
wm title .about "[m cprt.about] $tkg_progVer"
button .about.dismiss -text [m b.dismiss] -command "destroy .about"
label .about.logo -relief groove -image [gifI biggatelogo.gif]
label .about.label -text "TKGate $tkg_progVer - [m cprt.descr]\n$tkg_copyright\n$tkg_mailContact"
pack .about.logo -padx 10 -pady 10 -ipadx 10 -ipady 10
pack .about.label -padx 10 -pady 10
pack .about.dismiss -padx 10 -pady 10
}
|
