[PD-cvs] pd/src desire.tk,1.1.2.600.2.241,1.1.2.600.2.242

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15410

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
change mouse pointer shape when editing object, so it doesn't block the initial view


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.241
retrieving revision 1.1.2.600.2.242
diff -C2 -d -r1.1.2.600.2.241 -r1.1.2.600.2.242
*** desire.tk	15 Jul 2007 22:56:18 -0000	1.1.2.600.2.241
--- desire.tk	17 Jul 2007 01:09:45 -0000	1.1.2.600.2.242
***************
*** 2243,2246 ****
--- 2243,2250 ----
  def TextBox draw_edit {} {
  	set c [$self cwidget]
+ 	switch $::tcl_platform(os) {
+ 		Linux {$c configure -cursor crosshair}
+ 		#need to find equivalent names for other os
+ 	}
  	if {[lsearch [$@canvas selection] $self] < 0} {$@canvas selection+= $self}
  	set t $c.${self}text
***************
*** 2443,2446 ****
--- 2447,2451 ----
  def TextBox setto {text} {
  	[$@canvas history] add [list $self setto $@text]
+ 	[$@canvas widget] configure -cursor {}
  	set @text $text
  	set l {}