[PD-cvs] pd/src desire.tk, 1.1.2.600.2.154, 1.1.2.600.2.155 TODO, 1.1.2.28.2.26, 1.1.2.28.2.27
chunlee
chunlee at users.sourceforge.net
Sun Jan 7 14:39:11 CET 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16535
Modified Files:
Tag: desiredata
desire.tk TODO
Log Message:
some bug fixes
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.154
retrieving revision 1.1.2.600.2.155
diff -C2 -d -r1.1.2.600.2.154 -r1.1.2.600.2.155
*** desire.tk 5 Jan 2007 00:59:31 -0000 1.1.2.600.2.154
--- desire.tk 7 Jan 2007 13:39:06 -0000 1.1.2.600.2.155
***************
*** 1927,1933 ****
def Canvas new_object_insert_wire {obj} {
set wire [$self selection_wire]
! $wire selected?= 0
mset {obj1 outlet obj2 inlet} [$wire report]
$self disconnect [$wire connects]
set obj1_idx [$self children_idx $obj1]
set obj2_idx [$self children_idx $obj2]
--- 1927,1934 ----
def Canvas new_object_insert_wire {obj} {
set wire [$self selection_wire]
! $self selection_wire-= $wire
mset {obj1 outlet obj2 inlet} [$wire report]
$self disconnect [$wire connects]
+ $wire delete
set obj1_idx [$self children_idx $obj1]
set obj2_idx [$self children_idx $obj2]
***************
*** 3622,3625 ****
--- 3623,3629 ----
def Canvas click_on_object {id f} {
+ set c [$self widget]; set text $c.${id}text
+ # so that if one clicks on the objectbox when editing the objectname, the focus won't get lost
+ if {[winfo exists $text]} {focus $text; return}
switch [expr $f&255] {
0 {
***************
*** 3674,3677 ****
--- 3678,3682 ----
def Canvas click_on_nothing {f target x y} {
if {$@focus != ""} {if {[[$@focus class] <= TextBox]} {$@focus unedit}}
+ if {$@action == "insert"} {return}
if {![expr $f&255]} {
$self deselect_all
***************
*** 7631,7635 ****
def Box deconstruct {} {
global fields
! if {[array names -exact fields $@pdclass] == ""} {
return [concat [list #X obj $@x1 $@y1] $@text]
} {
--- 7636,7640 ----
def Box deconstruct {} {
global fields
! if {[array names fields -exact $@pdclass] == ""} {
return [concat [list #X obj $@x1 $@y1] $@text]
} {
Index: TODO
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v
retrieving revision 1.1.2.28.2.26
retrieving revision 1.1.2.28.2.27
diff -C2 -d -r1.1.2.28.2.26 -r1.1.2.28.2.27
*** TODO 3 Jan 2007 14:14:47 -0000 1.1.2.28.2.26
--- TODO 7 Jan 2007 13:39:09 -0000 1.1.2.28.2.27
***************
*** 28,31 ****
--- 28,35 ----
[x] firefox style find bar + Breadth-first search
[x] fix client editor key not showing up
+ [x] the original wire don't delete after object insertion
+ [ ] "click off" should also work with object insertion
+ [x] after ctrl+1 focus gets lost if click on the ObjectBox
+ [x] ctrl+c brok for GUI objects
---------------------------------------------------------------- 0.40.pre7-...
More information about the Pd-cvs
mailing list