Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | improve touch calibration package |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5af8100ac6a17b1db6d3c974a2da5ec3 |
| User & Date: | chw 2020-01-15 19:34:05.429 |
Context
|
2020-01-15
| ||
| 19:35 | improve vncviewer demo check-in: 3368bc1809 user: chw tags: trunk | |
| 19:34 | improve touch calibration package check-in: 5af8100ac6 user: chw tags: trunk | |
| 19:33 | more gamecontroller mappings and fix in linux evdev support check-in: a8cd20c93d user: chw tags: trunk | |
Changes
Changes to assets/touchcal0.1/touchcal.tcl.
| ︙ | ︙ | |||
150 151 152 153 154 155 156 |
[namespace current]::calib_seq $top 3 %x %y
}
}]
} elseif {$which == 3} {
$top.bottomleft.m configure -background "#505075"
bind $top <<FingerUp>> {}
| | < | | < | 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
[namespace current]::calib_seq $top 3 %x %y
}
}]
} elseif {$which == 3} {
$top.bottomleft.m configure -background "#505075"
bind $top <<FingerUp>> {}
set thresh [expr {abs(round($xrange * 0.1))}]
set swapxy 0
if {abs($cdata(xdev,0) - $cdata(xdev,3)) > $thresh ||
abs($cdata(xdev,1) - $cdata(xdev,2)) > $thresh} {
set swapxy 1
swap cdata(xdev,0) cdata(ydev,0)
swap cdata(xdev,1) cdata(ydev,1)
swap cdata(xdev,2) cdata(ydev,2)
swap cdata(xdev,3) cdata(ydev,3)
}
|
| ︙ | ︙ | |||
327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 |
bind $top <x> [list $top.cal.quit invoke]
bind $top <X> [list $top.cal.quit invoke]
bind $top <c> [list $top.cal.doit invoke]
bind $top <C> [list $top.cal.doit invoke]
set running 1
update idletasks
raise $top
grab $top
update idletasks
focus -force $top
set RESULT {}
while {[winfo exists $top]} {
tkwait window $top
}
set running 0
return $RESULT
}
}
package provide touchcal 0.1
| > > | 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 |
bind $top <x> [list $top.cal.quit invoke]
bind $top <X> [list $top.cal.quit invoke]
bind $top <c> [list $top.cal.doit invoke]
bind $top <C> [list $top.cal.doit invoke]
set running 1
update idletasks
set oldfocus [focus]
raise $top
grab $top
update idletasks
focus -force $top
set RESULT {}
while {[winfo exists $top]} {
tkwait window $top
}
set running 0
catch {focus $oldfocus}
return $RESULT
}
}
package provide touchcal 0.1
|