Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch crosshair-bboxes-3603562 Excluding Merge-Ins
This is equivalent to a diff from 6205def19e to 9804fb212f
2013-03-11
| ||
20:05 | Merged latest crosshair work to the pending release. check-in: 22070c5233 user: andreask tags: tklib-0-6-rc | |
2013-02-25
| ||
20:13 | Do not invoke the tracking callback while the crosshairs are out of bounds. Closed-Leaf check-in: 9804fb212f user: andreask tags: crosshair-bboxes-3603562 | |
19:59 | Accepted changes by Frank Gover for robustness of bbox handles. Accepted plotchart based examples for multiple bounded crosshairs. check-in: 6548d8e6e5 user: andreask tags: crosshair-bboxes-3603562 | |
2013-02-14
| ||
05:34 | [Bug 3603562]: Allow the confinement of the crosshairs to one or more rectangular bounding boxes. Bumped version to 1.1. check-in: 9382d1e073 user: aku tags: crosshair-bboxes-3603562 | |
2013-02-13
| ||
23:43 | Embedded documentation for tklib. Tweaks to sak/localdoc (different toplevel nav, dtplite not local) check-in: 852b377e68 user: andreask tags: trunk | |
23:29 | Started work on the Tklib 0.6 release. check-in: 13199048b4 user: andreask tags: tklib-0-6-rc | |
23:27 | Switched deprecated nl markup command to para(graph). check-in: 6205def19e user: andreask tags: trunk | |
23:16 | Brought the latest changes to tcllib's sak.tcl over to tklib's copy of it. check-in: d9cb27434d user: andreask tags: trunk | |
Changes to examples/canvas/city.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + + + | #!/bin/sh # -*- tcl -*- \ exec tclsh "$0" ${1+"$@"} # ### ### ### ######### ######### ######### ## DEMO. Show pseudo-city map using semi-random (*) street tiles. ## (*) Random + restrictions about what tiles can be neighbours. ## This part in citygrid.tcl # ### ### ### ######### ######### ######### ## For data files found relative to the example's location. set selfdir [file dirname [file normalize [info script]]] #lappend auto_path $selfdir/../../modules source $selfdir/citygrid.tcl # ### ### ### ######### ######### ######### ## Other requirements for this example. package require Tk package require widget::scrolledwindow package require canvas::sqmap package require crosshair package require struct::set ; # citygrid.tcl package require snit ; # canvas::sqmap dependency package require uevent::onidle ; # ditto package require cache::async 0.2 ; # ditto #puts [package ifneeded crosshair [package present crosshair]] # ### ### ### ######### ######### ######### set location {} proc GUI {} { widget::scrolledwindow .sw |
︙ | |||
45 46 47 48 49 50 51 52 53 54 55 56 57 58 | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | + + + + | bind .map <ButtonPress-2> {%W scan mark %x %y} bind .map <B2-Motion> {%W scan dragto %x %y} # Cross hairs ... .map configure -cursor tcross crosshair::crosshair .map -width 0 -fill \#999999 -dash {.} crosshair::track on .map TRACK puts [crosshair::bbox_add .map {100 100 300 300}] puts [crosshair::bbox_add .map {50 50 150 150}] set tile [city::tile] set city [expr {$tile * 64}] #.map configure -grid-show-borders 1 ;# This leaks items = memory if 0 { # This routes the requests and results through GOT/GET logging |
︙ |
Added examples/canvas/crosshairs_for_axes.tcl.