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 }