1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
if {![package vsatisfies [package provide Tcl] 8.4-]} {return}
package ifneeded canvas::sqmap 0.3.1 [list source [file join $dir canvas_sqmap.tcl]]
package ifneeded canvas::zoom 0.2.1 [list source [file join $dir canvas_zoom.tcl]]
if {![package vsatisfies [package provide Tcl] 8.5-]} { return }
package ifneeded canvas::drag 0.1 [list source [file join $dir canvas_drag.tcl]]
package ifneeded canvas::edit::circle 0.1 [list source [file join $dir canvas_ecircle.tcl]]
package ifneeded canvas::edit::points 0.3 [list source [file join $dir canvas_epoints.tcl]]
package ifneeded canvas::edit::polyline 0.2 [list source [file join $dir canvas_epolyline.tcl]]
package ifneeded canvas::edit::quadrilateral 0.2 [list source [file join $dir canvas_equad.tcl]]
package ifneeded canvas::edit::rectangle 0.1 [list source [file join $dir canvas_erectangle.tcl]]
package ifneeded canvas::gradient 0.2 [list source [file join $dir canvas_gradient.tcl]]
package ifneeded canvas::highlight 0.1 [list source [file join $dir canvas_highlight.tcl]]
package ifneeded canvas::mvg 1 [list source [file join $dir canvas_mvg.tcl]]
package ifneeded canvas::pdf 1.0.1 [list source [file join $dir canvas_pdf.tcl]]
package ifneeded canvas::snap 1.0.1 [list source [file join $dir canvas_snap.tcl]]
package ifneeded canvas::tag 0.1 [list source [file join $dir canvas_tags.tcl]]
package ifneeded canvas::track::lines 0.1 [list source [file join $dir canvas_trlines.tcl]]
|
