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 {}