[PD-cvs] pd/src desire.tk,1.1.2.465,1.1.2.466

chunlee chunlee at users.sourceforge.net
Tue Sep 12 19:13:58 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
uncommnet a line in textbox unedit that brok a a few things


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.465
retrieving revision 1.1.2.466
diff -C2 -d -r1.1.2.465 -r1.1.2.466
*** desire.tk	12 Sep 2006 15:00:49 -0000	1.1.2.465
--- desire.tk	12 Sep 2006 17:13:55 -0000	1.1.2.466
***************
*** 1649,1652 ****
--- 1649,1653 ----
      if {$@edit} {
  	set t [$@canvas widget].${self}text
+ 	    puts [$t get 1.0 end]
  	#$t configure -width [string length [$t get 1.0 1.end]]
  	$t configure -width [string length [$t get $@longline.0 $@longline.end]]
***************
*** 1670,1674 ****
  	set @edit 1
  	set @tab_repeats 0
! 	set @longline 0
  	$@canvas obj_in_edit= $self
  	set @selected? 1
--- 1671,1675 ----
  	set @edit 1
  	set @tab_repeats 0
! 	set @longline 1
  	$@canvas obj_in_edit= $self
  	set @selected? 1
***************
*** 1683,1686 ****
--- 1684,1688 ----
  		-bg [$c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\
  		-font $font_str -fg [$self look fg]
+ 	#bind $t <Key>            "$self long_line; puts  \[$t get $@longline.0 $@longline.end\] ;$self key %W %x %y %K %A 0"
  	bind $t <Key>            "$self key %W %x %y %K %A 0"
  	bind $t <Control-Return> "$self key %W %x %y 10 %A 0"
***************
*** 1710,1714 ****
  
  def TextBox after_key {widget} {
! 	#$widget configure -state normal
  	$self long_line
  	$self changed
--- 1712,1716 ----
  
  def TextBox after_key {widget} {
! 	$widget configure -state normal
  	$self long_line
  	$self changed
***************
*** 1724,1727 ****
--- 1726,1730 ----
  		if {$len > $len2} {set @longline $line}
  	}
+ 	puts "   longline:::: $@longline"
  }
  
***************
*** 1836,1839 ****
--- 1839,1843 ----
  # this is called from the GUI; text= is reserved for server.
  def TextBox setto {text} {
+ 	puts "text:: $text"
  	[$@canvas history] add [list $self setto $@text]
  	set @text $text
***************
*** 4950,4953 ****
--- 4954,4958 ----
  	set i [$@listbox curselection]
  	set class [string range [lindex [$@listbox get $i] 0] 1 end-1]
+ 	puts "completion:::: $class"
  	$@textbox delete 1.0 1.end
  	$@textbox insert 1.0 $class





More information about the Pd-cvs mailing list