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
|
#
# defaults.tk
#
proc defaults(build) name {
build_Title $name "Defaults"
build_DismissButtonbar $name dbbar "window(dismiss) defaults"
set cmd [build_CmdFrame $name cmd]
build_Optionslist $cmd olist \
{"Save points" Defaults(Recording) } \
{"Auto refresh 2-D view windows" Defaults(Auto_Refresh)}
build_PopupMenu $cmd p1 "Plotting symbol:" \
Defaults(Symbol_Index) defaults(update) \
[array_to_listvalues Defaults Symbols]
build_LabelEntryColumns $cmd le0 \
{text {} {"Display points after computing:"}} \
{ientry {} {Defaults(Disp_Points)}}
bind_LabelEntryColumns $cmd.le0 1 <Return> defaults(update)
build_LabelEntryColumns $cmd le1 \
{text {} {"Diverging orbit cutoff:"}} \
{dentry {} {Defaults(Diverg_Cutoff)}}
bind_LabelEntryColumns $cmd.le1 1 <Return> defaults(update)
build_LabelEntryColumns $cmd le2 \
{text {} {"Auto-scaling factor:"}} \
{dentry {} {Defaults(Plot_Scale_Factor)}}
bind_LabelEntryColumns $cmd.le2 1 <Return> defaults(update)
build_LabelEntryColumnsScroll $cmd le3 250\
[list label "Range" [concat \
[array_to_list Model Varb_Names] \
[array_to_list Model Param_Names] \
[array_to_list Model Funct_Names]]] \
[list dentry "Minimum" [concat \
[array_to_list Defaults Varb_Min] \
[array_to_list Defaults Param_Min] \
[array_to_list Defaults Funct_Min]]] \
[list dentry "Maximum" [concat \
[array_to_list Defaults Varb_Max] \
[array_to_list Defaults Param_Max] \
[array_to_list Defaults Funct_Max]]]
bind_LabelEntryColumns $cmd.le3 1 <Return> defaults(update)
bind_LabelEntryColumns $cmd.le3 2 <Return> defaults(update)
pack $cmd -fill both -expand 1
}
proc defaults(update) {} {
tcl_to_pm Defaults
pm_to_tcl Defaults
}
proc defaults(leave) {} {
defaults(update)
}
proc defaults(enter) {} {
pm_to_tcl Defaults
}
|
