Eskil

Check-in [9471daedb0]
Login

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

Overview
Comment:Make sure capture only starts on diff.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9471daedb04a44aaf5eb15bb6f6d50965cbaeaf6
User & Date: peter 2009-01-04 17:34:23.000
Context
2009-01-07
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
2008-11-10
19:16
Include twapi in windows executable. check-in: 092aae7ffb user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/clip.tcl.
︙︙
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76




77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

    puts "$lines1 $lines2"
    if {$lines1 < 30 && $lines2 < 30} {
        $t1 configure -height $lines1
        $::widgets($top,wLine1) configure -height 1
        $t2 configure -height $lines2
        $::widgets($top,wLine2) configure -height 1
    }
    #puts "[wm state [winfo toplevel $t1]]"
    #wm attributes .diff0 -zoomed 0
    #wm geometry [winfo toplevel $t1] {}
}

proc ArmCatch {} {
    #console show
    #source c:/Documents\ and\ Settings/spjutp/twapi-2.0.12.kit
    #package require twapi
    if {$::diff(armcatch)} {
        bind .clipdiff <FocusOut> { after 50 CatchFromWin }




    } else {
        bind .clipdiff <FocusOut> {}
    }
}

proc CatchFromWin {} {
    set ::diff(armcatch) 0
    bind .clipdiff <FocusOut> {}
    set win [twapi::get_foreground_window]
    if {$win eq ""} {
        #puts "No fg window"
        return
    }
    #puts "Locating windows"
    foreach {x1 y1 x2 y2} [twapi::get_window_coordinates $win] break








<
<
<



<
<
<

|
>
>
>
>







|








59
60
61
62
63
64
65



66
67
68



69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

    puts "$lines1 $lines2"
    if {$lines1 < 30 && $lines2 < 30} {
        $t1 configure -height $lines1
        $::widgets($top,wLine1) configure -height 1
        $t2 configure -height $lines2
        $::widgets($top,wLine2) configure -height 1
    }



}

proc ArmCatch {} {



    if {$::diff(armcatch)} {
        bind .clipdiff <FocusOut> {
            if {[string equal %W .clipdiff]} {
                after 50 CatchFromWin
            }
        }
    } else {
        bind .clipdiff <FocusOut> {}
    }
}

proc CatchFromWin {} {
    set ::diff(armcatch) 0
    ArmCatch
    set win [twapi::get_foreground_window]
    if {$win eq ""} {
        #puts "No fg window"
        return
    }
    #puts "Locating windows"
    foreach {x1 y1 x2 y2} [twapi::get_window_coordinates $win] break
︙︙