3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
|
}
wm deiconify $top
raise $top
update
doDiff $top
}
# A thing to easily get to debug mode
proc backDoor {top aVal} {
append ::eskil(backdoor) $aVal
set ::eskil(backdoor) [string range $::eskil(backdoor) end-9 end]
if {$::eskil(backdoor) eq "EskilDebug"} {
set ::eskil(debug) 1
catch {console show}
set ::eskil(backdoor) ""
AddDebugMenu $top
}
}
# Add a debug menu to a toplevel window
proc AddDebugMenu {top} {
set dMenu [debugMenu $top.m]
$dMenu add checkbutton -label "Wrap" -variable wrapstate \
-onvalue char -offvalue none -command \
"$::widgets($top,wDiff1) configure -wrap \$wrapstate ;\
$::widgets($top,wDiff2) configure -wrap \$wrapstate"
psmenu::psmenu $dMenu -top $top {
---
"&Reread Source" -cmd EskilRereadSource
---
"Normal Cursor" -cmd "normalCursor $top"
"Fill X" -cmd "fillWindowX $top"
---
# Runtime disable of C version of DiffUtil
|
<
<
<
<
<
<
<
<
<
<
<
<
|
|
|
>
>
|
|
<
|
|
>
|
<
<
<
>
>
>
|
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
|
}
wm deiconify $top
raise $top
update
doDiff $top
}
# Runtime disable of C version of DiffUtil
proc DisableDiffUtilC {} {
uplevel \#0 [list source $::eskil(thisDir)/../lib/diffutil/tcl/diffutil.tcl]
}
# Organise a keyword to create backdoor menu
proc SetupBackDoor {top now} {
set menu {
"&Reread Source" -cmd EskilRereadSource
---
}
set cmd "$::widgets($top,wDiff1) configure -wrap \\\$wrapstate ;\
$::widgets($top,wDiff2) configure -wrap \\\$wrapstate"
set menu2 [list "Wrap" -cmd $cmd -var wrapstate -onvalue char -offvalue none]
append menu2 {
---
"Normal Cursor" -cmd "normalCursor $top"
"Fill X" -cmd "fillWindowX $top"
---
"Tcl DiffUtil" -cmd DisableDiffUtilC
"Evalstats" -cmd {evalstats}
"_stats" -cmd {parray _stats}
}
backDoor $top -keyword "EskilDebug" -escape 1 \
-callback [list set ::eskil(debug) 1] \
-menu $menu -postmenu $menu2 -now $now
}
# Build the main window
# "other" is related window. Currently unused
proc makeDiffWin {{other {}} args} {
global tcl_platform
|
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
|
bind $top <Key-l> [list scrollText $top xview scroll 5 u]
bind $top <Key-Home> [list scrollText $top yview moveto 0]
bind $top <Key-g> [list scrollText $top yview moveto 0]
bind $top <Key-End> [list scrollText $top yview moveto 1]
}
# Go out to toplevel with escape, whereever you are
bind $top <Key-Escape> [list focus $top]
if {$::eskil(debug) == 0} {
set val [bindtags $top]
lappend val backDoor$top
bindtags $top $val
# Keep this binding on a separate tag, so that other key
# bindings on the top does not steal the keys
bind backDoor$top <Key> "backDoor $top %A"
}
if {$::eskil(debug) == 1} {
AddDebugMenu $top
}
resetEdit $top
return $top
}
proc ValidateNewColors {} {
foreach item {colorchange bgchange colornew1 bgnew1
|
>
|
|
<
<
<
<
<
<
<
<
<
<
<
|
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
|
bind $top <Key-l> [list scrollText $top xview scroll 5 u]
bind $top <Key-Home> [list scrollText $top yview moveto 0]
bind $top <Key-g> [list scrollText $top yview moveto 0]
bind $top <Key-End> [list scrollText $top yview moveto 1]
}
# Go out to toplevel with escape, whereever you are
# Thus is handled by backdoor now
#bind $top <Key-Escape> [list focus $top]
SetupBackDoor $top $::eskil(debug)
resetEdit $top
return $top
}
proc ValidateNewColors {} {
foreach item {colorchange bgchange colornew1 bgnew1
|