[PD-cvs] pd/src desire.tk,1.1.2.396,1.1.2.397
chunlee
chunlee at users.sourceforge.net
Wed Aug 23 16:39:45 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7134
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
objectbox size fix
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.396
retrieving revision 1.1.2.397
diff -C2 -d -r1.1.2.396 -r1.1.2.397
*** desire.tk 23 Aug 2006 02:08:04 -0000 1.1.2.396
--- desire.tk 23 Aug 2006 14:39:43 -0000 1.1.2.397
***************
*** 1928,1933 ****
set c .$@canvas.c
$c itemconfigure ${self}BASE -outline $frcol -dash [if {$@valid} {list 8 8 8 8} {list}]
if {$@isnew} {$self edit} ;# why this here ?
! catch {$c raise ${self}TEXT $self} ;# shouldn't this be in $self edit ?
$self draw_wires ;# why this here ?
}
--- 1928,1935 ----
set c .$@canvas.c
$c itemconfigure ${self}BASE -outline $frcol -dash [if {$@valid} {list 8 8 8 8} {list}]
+ #this is here to allow editing the newly created objectbox
if {$@isnew} {$self edit} ;# why this here ?
! #catch {$c raise ${self}TEXT $self} ;# shouldn't this be in $self edit ?
! #this is here to redraw the connected wires after the objectbox is drawn/updated
$self draw_wires ;# why this here ?
}
***************
*** 2601,2605 ****
if {$@editmode} {
switch $@action {
! edit {set @obj_in_edit $id; $id edit; set @action none}
move {
foreach obj $@selection {
--- 2603,2607 ----
if {$@editmode} {
switch $@action {
! edit {set @obj_in_edit $id; $id edit; set @action none; $id changed}
move {
foreach obj $@selection {
***************
*** 3015,3018 ****
--- 3017,3021 ----
}
+
def Box draw_wires {} {foreach wire $@wires {$wire draw}}
***************
*** 3149,3153 ****
def Wire report {} {list $@obj1 $@port1 $@obj2 $@port2}
! def Wire draw {} {
set scale [$@canvas scale]
set bbox1 [lmap / [.$@canvas.c bbox [join [list "$@obj1" o "$@port1"] ""]] $scale]
--- 3152,3156 ----
def Wire report {} {list $@obj1 $@port1 $@obj2 $@port2}
! def* Wire draw {} {
set scale [$@canvas scale]
set bbox1 [lmap / [.$@canvas.c bbox [join [list "$@obj1" o "$@port1"] ""]] $scale]
More information about the Pd-cvs
mailing list