Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13551
Modified Files: Tag: devel_0_39 desire.tk Log Message: .
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.68 retrieving revision 1.1.2.69 diff -C2 -d -r1.1.2.68 -r1.1.2.69 *** desire.tk 18 Sep 2005 19:43:37 -0000 1.1.2.68 --- desire.tk 19 Sep 2005 04:13:55 -0000 1.1.2.69 *************** *** 14,17 **** --- 14,20 ---- #-----------------------------------------------------------------------------------#
+ # for future use + # if {$tcl_version < 8.5} {source pre8.5.tcl} + #-----------------------------------------------------------------------------------# # OBJECT ORIENTED PROGRAMMING IN TCL (by Mathieu Bouchard) *************** *** 67,71 **** [...1432 lines suppressed...] proc propose_completions2 {} { global class_list completion_closure ! mset {self canvas x y text} $completion_closure set r {} set n 0 *************** *** 3166,3167 **** --- 3018,3028 ---- } } + + #c proc updatesel {_ sel} { + #c variable "" + #c set os [getsel $_] + #c up $_ canvas sel + #c redraw $_ [lsort -unique [concat $os $sel]] + #c } + #c that thing..redraws anythign that is currently selected or was currently selected + #c lsort proably does what u want (has an integer flag too) \ No newline at end of file