[PD-cvs] pd/src desire.tk,1.1.2.68,1.1.2.69

[Mathieu Bouchard]

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