[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