1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
|
$win.m.mo.mc add radiobutton -variable ::Pref(dir,comparelevel) -value 1 \
-label "Normal compare"
$win.m.mo.mc add radiobutton -variable ::Pref(dir,comparelevel) -value 2 \
-label "Exact compare"
$win.m.mo.mc add checkbutton -variable ::Pref(dir,ignorekey) \
-label "Ignore \$Keyword:\$"
$win.m.mo add cascade -label "Nice" -menu $win.m.mo.mn
menu $win.m.mo.mn
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 1 \
-command [mymethod DoNice] -label 1
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 50 \
-command [mymethod DoNice] -label 50
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 100 \
|
>
>
|
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
|
$win.m.mo.mc add radiobutton -variable ::Pref(dir,comparelevel) -value 1 \
-label "Normal compare"
$win.m.mo.mc add radiobutton -variable ::Pref(dir,comparelevel) -value 2 \
-label "Exact compare"
$win.m.mo.mc add checkbutton -variable ::Pref(dir,ignorekey) \
-label "Ignore \$Keyword:\$"
#$win.m.mo add command -label "Plugins..." -underline 1 \
# -command [list EditPrefPlugins $win]
$win.m.mo add cascade -label "Nice" -menu $win.m.mo.mn
menu $win.m.mo.mn
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 1 \
-command [mymethod DoNice] -label 1
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 50 \
-command [mymethod DoNice] -label 50
$win.m.mo.mn add radiobutton -variable [myvar nice] -value 100 \
|