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
|
#
# fucntion.tk
#
proc function(build) name {
global Model
build_Title $name "Function values"
build_DismissButtonbar $name dbbar "window(dismiss) function"
set cmd [build_CmdFrame $name cmd]
if {$Model(Funct_Dim) > 0} {
if {[winfo exists $cmd.l0]} {
destroy $cmd.l0
}
build_LabelEntryColumns $cmd lentry \
[list label " " [array_to_list Model Funct_Names] ] \
[list dlabel "Initial" [array_to_list Selected Funct_Ic] ] \
[list dlabel "Final" [array_to_list Selected Funct_Fc] ]
} {
if {[winfo exists $cmd.lentry]} {
destroy $cmd.lentry
}
build_Label $cmd l0 "This model has no functions."
}
pack $cmd -fill both -expand 1
}
proc function(enter) {} {
pm EXEC Selected.Funct
pm_to_tcl Selected
}
|
