Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23279
Modified Files: Tag: devel_0_39 desire.tk Log Message: Escape key cancels a TextBox edition
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.481 retrieving revision 1.1.2.482 diff -C2 -d -r1.1.2.481 -r1.1.2.482 *** desire.tk 22 Sep 2006 23:37:36 -0000 1.1.2.481 --- desire.tk 26 Sep 2006 06:20:53 -0000 1.1.2.482 *************** *** 1696,1700 **** set @tab_repeats 0 # stores which line is the longest if multiple line ! set @longline 1 $@canvas obj_in_edit= $self set @selected? 1 --- 1696,1700 ---- set @tab_repeats 0 # stores which line is the longest if multiple line ! set @longline 1 $@canvas obj_in_edit= $self set @selected? 1 *************** *** 1730,1733 **** --- 1730,1734 ---- bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" + bind $t <Escape> "$self unedit 0" #bind $t <Any-Enter> "puts "keep compltion box please.........." " #bind $t <Any-Leave> "puts "destroy the compltion box please.........." " *************** *** 1900,1913 **** }
! def TextBox unedit {} { if {!$@edit} {return} set @edit 0 set c [$@canvas widget] set t $c.${self}text ! set propose $c.${self}propose ! $self setto [$t get 1.0 "end - 1 chars"] after 1 "destroy $t" if {[winfo exists .completion]} {$@action cancel} focus $c }
--- 1901,1914 ---- }
! def TextBox unedit {{accept 1}} { if {!$@edit} {return} set @edit 0 set c [$@canvas widget] set t $c.${self}text ! if {$accept} {$self setto [$t get 1.0 "end - 1 chars"]} after 1 "destroy $t" if {[winfo exists .completion]} {$@action cancel} focus $c + $self changed }