Eskil

Check-in [af015a3a7b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Syntax fix
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: af015a3a7b3e2133df268e111ffd3412248fdf08
User & Date: peter 2009-01-07 23:08:37.000
Context
2009-01-07
23:09
Better interpretation of negative SVN versions check-in: 3c929eb1df user: peter tags: trunk
23:08
Syntax fix check-in: af015a3a7b user: peter tags: trunk
2009-01-04
17:34
Make sure capture only starts on diff. check-in: 9471daedb0 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/clip.tcl.
︙︙
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106


    set windows {}
    foreach x [list [expr {$x1 + $width / 4}] [expr {$x1 + 3*$width /4}]] {
        foreach y [list [expr {$y1 + $height / 4}] [expr {$y1 + 3*$height /4}]] {
            lappend windows [twapi::get_window_at_location $x $y]
        }
    }
    set windows [lsort -uniq $windows]
    #puts $windows
    after 50 "set ::CatchFromWinWait 1" ; vwait ::CatchFromWinWait
    set capturedData {}
    foreach win $windows {
        clipboard clear
        clipboard append ""
        twapi::set_focus $win








|








92
93
94
95
96
97
98
99
100
101
102
103
104
105
106


    set windows {}
    foreach x [list [expr {$x1 + $width / 4}] [expr {$x1 + 3*$width /4}]] {
        foreach y [list [expr {$y1 + $height / 4}] [expr {$y1 + 3*$height /4}]] {
            lappend windows [twapi::get_window_at_location $x $y]
        }
    }
    set windows [lsort -unique $windows]
    #puts $windows
    after 50 "set ::CatchFromWinWait 1" ; vwait ::CatchFromWinWait
    set capturedData {}
    foreach win $windows {
        clipboard clear
        clipboard append ""
        twapi::set_focus $win
︙︙