1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
|
#catch {font delete myfont}
#font create myfont -family $::Pref(fontfamily) -size $::Pref(fontsize)
ttk::entryX $win.e1 -textvariable dirdiff(leftDir) -width 30
ttk::button $win.bu1 -image $::img(up) -command [mymethod UpDir 1]
addBalloon $win.bu1 "Up in left."
ttk::button $win.bb1 -image $::img(browse) \
-command "[list BrowseDir dirdiff(leftDir) $win.e1]
[mymethod DoDirCompare]"
addBalloon $win.bb1 "Browse left."
after 50 [list after idle [list $win.e1 xview end]]
ttk::entryX $win.e2 -textvariable dirdiff(rightDir) -width 30
ttk::button $win.bu2 -image $::img(up) -command [mymethod UpDir 2]
addBalloon $win.bu2 "Up in right."
ttk::button $win.bb2 -image $::img(browse) \
-command "[list BrowseDir dirdiff(rightDir) $win.e2]
[mymethod DoDirCompare]"
addBalloon $win.bb2 "Browse right."
after 50 [list after idle [list $win.e2 xview end]]
bind $win.e1 <Return> [mymethod DoDirCompare]
bind $win.e2 <Return> [mymethod DoDirCompare]
ttk::label $win.sl -anchor w -textvariable [myvar statusVar]
|
|
|
|
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
|
#catch {font delete myfont}
#font create myfont -family $::Pref(fontfamily) -size $::Pref(fontsize)
ttk::entryX $win.e1 -textvariable dirdiff(leftDir) -width 30
ttk::button $win.bu1 -image $::img(up) -command [mymethod UpDir 1]
addBalloon $win.bu1 "Up in left."
ttk::button $win.bb1 -image $::img(browse) \
-command "[list BrowseDir "dirdiff(leftDir)" $win.e1]
[mymethod DoDirCompare]"
addBalloon $win.bb1 "Browse left."
after 50 [list after idle [list $win.e1 xview end]]
ttk::entryX $win.e2 -textvariable dirdiff(rightDir) -width 30
ttk::button $win.bu2 -image $::img(up) -command [mymethod UpDir 2]
addBalloon $win.bu2 "Up in right."
ttk::button $win.bb2 -image $::img(browse) \
-command "[list BrowseDir "dirdiff(rightDir)" $win.e2]
[mymethod DoDirCompare]"
addBalloon $win.bb2 "Browse right."
after 50 [list after idle [list $win.e2 xview end]]
bind $win.e1 <Return> [mymethod DoDirCompare]
bind $win.e2 <Return> [mymethod DoDirCompare]
ttk::label $win.sl -anchor w -textvariable [myvar statusVar]
|