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
|
#
# var.tk
#
proc var(build) name {
build_Title $name "Variational"
set cmd [build_CmdFrame $name cmd]
build_LabelEntryColumns $cmd le1 \
{text "" {"Partitions:" "Steps:"}} \
{ientry "" {Var(N_Partitions) Var(N_Steps)}}
build_LabelEntryColumns $cmd le2 \
{text "" {"Time:" "Delta T:"}} \
{dentry "" {"Var(Time)" "Var(Delta_T)"}}
build_LabelEntryColumns $cmd le3 \
[list label " " [ array_to_list Model Varb_Names ] ] \
[list dentry "Initial" [array_to_list Var IC] ] \
[list dentry "Final" [array_to_list Var FC] ]
pack $cmd -fill x
build_DismissButtonbar $name dbbar "window(dismiss) var" \
{"Go" var(go)} {"Copy Selected Initial to Initial" var(copy)}
}
proc var(go) {} {
tcl_to_pm Var
Var(Go)
pm_to_tcl Var Memory
}
proc var(copy) {} {
tcl_to_pm Var
Var(Copy)
pm_to_tcl Var Memory
}
|
