[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