[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