[PD-cvs] pd/src desire.tk,1.1.2.503,1.1.2.504

chunlee chunlee at users.sourceforge.net
Sat Oct 14 11:40:54 CEST 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13447

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
..


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.503
retrieving revision 1.1.2.504
diff -C2 -d -r1.1.2.503 -r1.1.2.504
*** desire.tk	13 Oct 2006 23:40:56 -0000	1.1.2.503
--- desire.tk	14 Oct 2006 09:40:50 -0000	1.1.2.504
***************
*** 1744,1748 ****
  
  def TextBox draw {} {
!     global font
      # "TEXT" is the text label while "text" is the the input text field tk widget.
      # the text should be drawn before, so that update_size works at the right time.
--- 1744,1748 ----
  
  def TextBox draw {} {
!     global font leet
      # "TEXT" is the text label while "text" is the the input text field tk widget.
      # the text should be drawn before, so that update_size works at the right time.
***************
*** 1753,1758 ****
  	#$t configure -width [string length [$t get $@longline.0 $@longline.end]]
      } {
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-font [$self look font] -text $@text \
  	        -fill [$self look fg] -anchor nw
      }
--- 1753,1763 ----
  	#$t configure -width [string length [$t get $@longline.0 $@longline.end]]
      } {
+ 	    if {$leet} {
+ 		    set text [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $@text]
+ 	    } else {
+ 		    set text $@text
+ 	    }
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-font [$self look font] -text $text \
  	        -fill [$self look fg] -anchor nw
      }
***************
*** 2207,2213 ****
  		$@crosshair erase
  	}
! 	if {$tooltip(visible)} {
  		if {[expr [distance $tooltip(curpos) [list $x $y]] > 10]} {
! 			$tooltip(canvas) hide_tooltip
  		}
  	}
--- 2212,2218 ----
  		$@crosshair erase
  	}
! 	if {[$self look tooltip]} {
  		if {[expr [distance $tooltip(curpos) [list $x $y]] > 10]} {
! 			$self hide_tooltip
  		}
  	}
***************
*** 2877,2881 ****
  	#puts "		selection::: $@selection"
  	puts "	keynav::: $@keynav"
! 	if {!$@keynav} {return}
  	switch $@keynav_tab_sel {
  	object {
--- 2882,2886 ----
  	#puts "		selection::: $@selection"
  	puts "	keynav::: $@keynav"
! 	if {!$@keynav} {$self tab_jump}
  	switch $@keynav_tab_sel {
  	object {
***************
*** 3401,3406 ****
  	set iowidth [$@obj1 look iowidth]
  	mset {ox1 oy1 ox2 oy2} [$@obj1 bbox]
  	set x1 [expr ($iowidth / 2) + ($iowidth * $@port1) + $ox1]
! 	set y1 [expr $oy1 + $_($@obj1:ys)]
  	mset {ix1 iy1 ix2 iy2} [$@obj2 bbox]
  	set x2 [expr ($iowidth / 2) + ($iowidth * $@port2) + $ix1]
--- 3406,3412 ----
  	set iowidth [$@obj1 look iowidth]
  	mset {ox1 oy1 ox2 oy2} [$@obj1 bbox]
+ 	set height1 [expr $oy2 - $oy1]
  	set x1 [expr ($iowidth / 2) + ($iowidth * $@port1) + $ox1]
! 	set y1 [expr $oy1 + $height1]
  	mset {ix1 iy1 ix2 iy2} [$@obj2 bbox]
  	set x2 [expr ($iowidth / 2) + ($iowidth * $@port2) + $ix1]
***************
*** 6192,6195 ****
--- 6198,6202 ----
      toggle Canvas buttonbar
      toggle Canvas statusbar
+     toggle View tooltip
      toggle Wire wirearrow
  }





More information about the Pd-cvs mailing list