33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
-
+
|
# Stop Tk from meddling with the command line by copying it first.
set ::eskil(argv) $::argv
set ::eskil(argc) $::argc
set ::argv {}
set ::argc 0
set ::eskil(debug) 0
set ::eskil(diffver) "Version 2.7 2015-02-24"
set ::eskil(diffver) "Version 2.7 2015-02-25"
set ::eskil(thisScript) [file join [pwd] [info script]]
namespace import tcl::mathop::+
namespace import tcl::mathop::-
namespace import tcl::mathop::*
namespace import tcl::mathop::/
|
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
|
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
|
+
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
+
-
-
-
-
+
+
+
+
+
+
+
|
}
}
return $top
}
# Save options to file ~/.eskilrc
proc saveOptions {top} {
# Is this a diff win or some other win?
if {[info exists ::widgets($top,wDiff1)]} {
# Check if the window size has changed
set w $::widgets($top,wDiff1)
if {[winfo reqwidth $w] != [winfo width $w] || \
[winfo reqheight $w] != [winfo height $w]} {
set dx [expr {[winfo width $w] - [winfo reqwidth $w]}]
set dy [expr {[winfo height $w] - [winfo reqheight $w]}]
set cx [font measure myfont 0]
set cy [font metrics myfont -linespace]
set neww [expr {[$w cget -width] + $dx / $cx}]
set newh [expr {[$w cget -height] + $dy / $cy}]
if {$neww != $::Pref(linewidth) || $newh != $::Pref(lines)} {
# Check if the window size has changed
set w $::widgets($top,wDiff1)
if {[winfo reqwidth $w] != [winfo width $w] || \
[winfo reqheight $w] != [winfo height $w]} {
set dx [expr {[winfo width $w] - [winfo reqwidth $w]}]
set dy [expr {[winfo height $w] - [winfo reqheight $w]}]
set cx [font measure myfont 0]
set cy [font metrics myfont -linespace]
set neww [expr {[$w cget -width] + $dx / $cx}]
set newh [expr {[$w cget -height] + $dy / $cy}]
if {$neww != $::Pref(linewidth) || $newh != $::Pref(lines)} {
set apa [tk_messageBox -title "Save Preferences" -icon question \
-type yesno -message "Should I save the current window\
$::Pref(linewidth) x $::Pref(lines)"]
if {$apa == "yes"} {
set ::Pref(linewidth) $neww
set ::Pref(lines) $newh
$::Pref(linewidth) x $::Pref(lines)"
set apa [tk_messageBox -title "Save Preferences" \
-icon question -type yesno -message $msg]
if {$apa == "yes"} {
set ::Pref(linewidth) $neww
set ::Pref(lines) $newh
}
}
}
}
set rcfile "~/.eskilrc"
if {[catch {set ch [open $rcfile "w"]} err]} {
tk_messageBox -icon error -title "File error" -message \
|
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
|
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
|
+
|
set ::DefaultPref(dir,comparelevel) 1
set ::DefaultPref(dir,ignorekey) 0
set ::DefaultPref(dir,incfiles) ""
set ::DefaultPref(dir,exfiles) "*.o"
set ::DefaultPref(dir,incdirs) ""
set ::DefaultPref(dir,exdirs) "RCS CVS .git .svn .hg"
set ::DefaultPref(dir,onlyrev) 0
set ::DefaultPref(dir,nice) 1
# Start with default preferences, before loading setup file
array set ::Pref [array get ::DefaultPref]
# Backward compatibilty options
set ::Pref(onlydiffs) -1
set ::Pref(regsub) {}
|