[PD-cvs] pd/src desire.tk,1.1.2.600.2.224,1.1.2.600.2.225
Mathieu Bouchard
matju at users.sourceforge.net
Thu Jul 12 18:08:42 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28106
Modified Files:
Tag: desiredata
desire.tk
Log Message:
KeyboardView: fixed def delete and added spaces between the two characters of the keys that have two of them
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.224
retrieving revision 1.1.2.600.2.225
diff -C2 -d -r1.1.2.600.2.224 -r1.1.2.600.2.225
*** desire.tk 12 Jul 2007 16:07:40 -0000 1.1.2.600.2.224
--- desire.tk 12 Jul 2007 16:08:39 -0000 1.1.2.600.2.225
***************
*** 5652,5658 ****
}
-
- #def Radio unclick {x y f target} {$@canvas focus= ""}
-
class_new Slider {BlueBox}
--- 5652,5655 ----
***************
*** 5763,5767 ****
mset {clx cly} $@click_at
set d [$self calc $x $y $clx $cly]
! set value [min $@max [max $@min [expr $@ovalue+$d*$@rate]]]
netsend [list .$self float $value]
}
--- 5760,5764 ----
mset {clx cly} $@click_at
set d [$self calc $x $y $clx $cly]
! set value [clip [expr $@ovalue+$d*$@rate] $@min $@max]
netsend [list .$self float $value]
}
***************
*** 7957,7968 ****
namekey 95 F11 F12
namekey 49 `
! namekey 10 1! 2@ 3# 4\$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSp
! namekey 23 Tab Q W E R T Y U I O P \{\[ \}\]
! namekey 51 \\|
namekey 66 Caps
! namekey 38 A S D F G H J K L \;: '\"
namekey 36 Return
namekey 50 Shift
! namekey 52 Z X C V B N M ,< .> /? Shift
namekey 37 Ctrl
namekey 115 Sup
--- 7954,7965 ----
namekey 95 F11 F12
namekey 49 `
! namekey 10 "1 !" "2 @" "3 #" "4 \$" "5 %" "6 ^" "7 &" "8 *" "9 (" "0 )" "- _" "= +" BkSp
! namekey 23 Tab Q W E R T Y U I O P "\{ \[" "\} \]"
! namekey 51 "\\ |"
namekey 66 Caps
! namekey 38 A S D F G H J K L "\; :" "' \""
namekey 36 Return
namekey 50 Shift
! namekey 52 Z X C V B N M ", <" ". >" "/ ?" Shift
namekey 37 Ctrl
namekey 115 Sup
***************
*** 8016,8024 ****
if {$v} {dict set @fade $k $v} {dict unset @fade $k}
}
! after 100 "$self fade"
}
def KeyboardDialog delete {} {
$@history unsubscribe $self
super
}
--- 8013,8022 ----
if {$v} {dict set @fade $k $v} {dict unset @fade $k}
}
! set @after [after 100 "$self fade"]
}
def KeyboardDialog delete {} {
$@history unsubscribe $self
+ after cancel $@after
super
}
More information about the Pd-cvs
mailing list