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 }