pd/src desire.tk,1.1.2.353,1.1.2.354 - Pd-cvs

16 Aug 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28999
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
some silly bugs
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.353
retrieving revision 1.1.2.354
diff -C2 -d -r1.1.2.353 -r1.1.2.354
*** desire.tk	16 Aug 2006 18:24:34 -0000	1.1.2.353
--- desire.tk	16 Aug 2006 20:06:31 -0000	1.1.2.354
***************
*** 1039,1042 ****
--- 1039,1043 ----
    foreach s $suffixes {lappend tags "$self$s"}
    set ss [lindex $tags 0]
+ 	lappend tags list $self
    if {![llength [$c gettags $ss]]} {
    	eval  [concat [list $c create $type $coords  -tags $tags] $args]
***************
*** 1932,1936 ****
  }
- #!@#$ this method is too long
  def Canvas motion {x y f target} {
      global font canvas tooltip crosshair
--- 1933,1936 ----
***************
*** 1947,1951 ****
      set oldpos $@curpos
      set @curpos [list $x $y]
!     # detects if the focus is not on the canvas itself in run mode, ie. numbox 
      if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target}
      mset {type id detail} $target
--- 1947,1951 ----
      set oldpos $@curpos
      set @curpos [list $x $y]
!     # detects if the focus is not on the canvas itself in run mode, ie. numbox
      if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target}
      mset {type id detail} $target
***************
*** 2183,2187 ****
  }
! def Canvas end_action {} {
    $@action _delete
    set @action "none"
--- 2183,2187 ----
  }
! def* Canvas end_action {} {
    $@action _delete
    set @action "none"
***************
*** 2291,2297 ****
    focus $c
    set @click_at [list $x $y]
    if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
- 	mset {type id detail} $target
    if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
    if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
--- 2291,2297 ----
    focus $c
    set @click_at [list $x $y]
+ 	mset {type id detail} $target
    if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
    if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
***************
*** 2299,2306 ****
    switch $type {
      outlet {set @action [FutureWire new $self $x $y $f $target]; return}
! 	  object {
! 	     $self selection+= $id
! 	     set @action edit
! 	  }
      wire {
        switch [expr $f&255] {
--- 2299,2303 ----
    switch $type {
      outlet {set @action [FutureWire new $self $x $y $f $target]; return}
! 	  object {$self selection+= $id; set @action edit}
      wire {
        switch [expr $f&255] {
***************
*** 3079,3091 ****
  ############ rendering
- # fix me
- class_new Shadow {} ;# make a Box class inherit from this
- def Shadow draw {coords} {
- 	set light [darker [look objectbg]]
- 	set dark [darker $light]
- 	$self item SHAD rectangle $coords -fill $dark -outline $light -width 2
- 	$@canvas move ${self}SHAD 4 4
- }
- 
  class_new MessageBox {TextBox}
--- 3076,3079 ----
***************
*** 3095,3099 ****
    set @w 15
    set @xs $@w
! 	set @ys $@w
    set @text ""
  }
--- 3083,3087 ----
    set @w 15
    set @xs $@w
! 	set @ys $@w ;# this is a bug
    set @text ""
  }