equal
deleted
inserted
replaced
295 foreach d $dirs { |
295 foreach d $dirs { |
296 set dir [file tail $d] |
296 set dir [file tail $d] |
297 if {[lsearch -exact $excl $dir] >= 0} continue |
297 if {[lsearch -exact $excl $dir] >= 0} continue |
298 readotherrefs [file join $base $dir] "$dname$dir/" {} |
298 readotherrefs [file join $base $dir] "$dname$dir/" {} |
299 } |
299 } |
|
300 } |
|
301 |
|
302 proc allcansmousewheel {delta} { |
|
303 set delta [expr -5*(int($delta)/abs($delta))] |
|
304 allcanvs yview scroll $delta units |
300 } |
305 } |
301 |
306 |
302 proc error_popup msg { |
307 proc error_popup msg { |
303 set w .error |
308 set w .error |
304 toplevel $w |
309 toplevel $w |
468 |
473 |
469 pack .ctop -side top -fill both -expand 1 |
474 pack .ctop -side top -fill both -expand 1 |
470 |
475 |
471 bindall <1> {selcanvline %W %x %y} |
476 bindall <1> {selcanvline %W %x %y} |
472 #bindall <B1-Motion> {selcanvline %W %x %y} |
477 #bindall <B1-Motion> {selcanvline %W %x %y} |
|
478 bindall <MouseWheel> "allcansmousewheel %D" |
473 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units" |
479 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units" |
474 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units" |
480 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units" |
475 bindall <2> "allcanvs scan mark 0 %y" |
481 bindall <2> "allcanvs scan mark 0 %y" |
476 bindall <B2-Motion> "allcanvs scan dragto 0 %y" |
482 bindall <B2-Motion> "allcanvs scan dragto 0 %y" |
477 bind . <Key-Up> "selnextline -1" |
483 bind . <Key-Up> "selnextline -1" |