pd/src desire.tk,1.1.2.396,1.1.2.397 - Pd-cvs

23 Aug 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]