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
|
#
# selected.tk
#
proc selected(build) name {
build_Title $name "Selected point"
build_DismissButtonbar $name dbbar "window(dismiss) selected" \
{"Copy final to initial" selected(copy) } \
{"Save point" selected(save_point)}
set cmd [build_CmdFrame $name cmd]
build_LabelEntryColumnsScroll $cmd le0 250 \
[list label " " [ concat \
[array_to_list Model Varb_Names] \
[array_to_list Model Param_Names] ] \
] \
[list dentry "Initial" [ concat \
[array_to_list Selected Varb_Ic] \
[array_to_list Selected Param_Ic] ] \
] \
[list dlabel "Final" [ concat \
[array_to_list Selected Varb_Fc] \
[array_to_list Selected Param_Fc] ] \
]
bind_LabelEntryColumns $cmd.le0 1 <Return> selected(update)
pack $cmd -fill both -expand 1
}
proc selected(update) {} {
tcl_to_pm Selected
pm EXEC Selected.Funct
pm EXEC Geomview.Selected
pm_to_tcl Selected
}
proc selected(enter) {} {
pm EXEC Selected.Funct
pm EXEC Geomview.Selected
pm_to_tcl Selected
}
proc selected(leave) {} {
selected(update)
}
proc selected(copy) {} {
pm EXEC Selected.Copy
pm_to_tcl Selected
message_show "Final point copied to initial point."
}
proc selected(save_point) {} {
tcl_to_pm Selected
pm EXEC Selected.Save_Point
pm_to_tcl Selected Memory
message_show "Initial point saved."
}
|
