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
|
#
# version.tk
#
proc version(build) name {
global COLOR Control
#
# nothing on this window is model dependent
#
if {[winfo exists $name.cmd]} {
return
}
build_Title $name Version
build_DismissButtonbar $name dbbar "window(dismiss) version"
set cmd [build_CmdFrame $name cmd]
build_Label $cmd l0 "DsTool"
$cmd.l0.label configure -font *-times-medium-i-normal--*-240-*-*-*-*-*-* \
-fg red
build_Label $cmd l1 "A DYNAMICAL SYSTEMS TOOLKIT"
$cmd.l1.label configure -font *-times-medium-i-normal--*-140-*-*-*-*-*-* \
-fg blue
pack $cmd.l0 $cmd.l1 -anchor n -ipadx 15m -ipady 2m
build_Label $cmd l2 "Center for Applied Mathematics\nCornell University"
build_Label $cmd l3 "The Geometry Center\nUniversity of Minnesota"
build_Label $cmd l4 "$Control(Version)\n$Control(Build_Info)\n"
pack $cmd.l2 $cmd.l3 $cmd.l4 -anchor n -ipady 1m
pack $cmd -expand 1 -fill both
#
# don't allow user to resize
#
update
window(fix_size) $name
}
|
