18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
-
+
-
+
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
proc MakeRegistryFrame {w label key newvalue} {
proc MakeRegistryFrame {W label key newvalue} {
set old {}
catch {set old [registry get $key {}]}
set l [ttk::labelframe $w -text $label -padding 4]
set l [ttk::labelframe $W -text $label -padding 4]
ttk::label $l.key1 -text "Key:"
ttk::label $l.key2 -text $key
ttk::label $l.old1 -text "Old value:"
ttk::label $l.old2 -text $old
ttk::label $l.new1 -text "New value:"
ttk::label $l.new2 -text $newvalue
|