/usr/share/tcltk/tklib0.5/tkpiechart/objselec.tcl is in tklib 0.5-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # copyright (C) 1997-2004 Jean-Luc Fontaine (mailto:jfontain@free.fr)
# this program is free software: please read the COPYRIGHT file enclosed in this
# package or use the Help Copyright menu
package require Tk 8.3
package require stooop
# $Id: objselec.tcl,v 1.13 2006/01/27 19:05:52 andreas_kupries Exp $
# implements selection on a list of object identifiers (sortable list of
# integers), for a listbox implementation, for example
::stooop::class objectSelector {
proc objectSelector {this args} selector {$args} {}
proc ~objectSelector {this} {}
### public procedures follow:
proc extend {this id} {
if {[info exists selector::($this,lastSelected)]} {
set list [lsort -integer [selector::list $this]]
set last [lsearch -exact $list $selector::($this,lastSelected)]
set index [lsearch -exact $list $id]
selector::clear $this
if {$index > $last} {
selector::set $this [lrange $list $last $index] 1
} else {
selector::set $this [lrange $list $index $last] 1
}
} else {
selector::select $this $id
}
}
}
|