[PD-cvs] pd/src desire.tk,1.1.2.600.2.374,1.1.2.600.2.375

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7780

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
added mouse wheel support in KeyboardDialog


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.374
retrieving revision 1.1.2.600.2.375
diff -C2 -d -r1.1.2.600.2.374 -r1.1.2.600.2.375
*** desire.tk	15 Aug 2007 16:47:10 -0000	1.1.2.600.2.374
--- desire.tk	15 Aug 2007 17:11:49 -0000	1.1.2.600.2.375
***************
*** 8472,8476 ****
  
  set keyboard_layouts {
! {
  	{9 " " 67 68 69 70 " " 71 72 73 74 " " 75 76 95 96}
  	{49 10 11 12 13 14 15 16 17 18 19 20 21 22}
--- 8472,8476 ----
  
  set keyboard_layouts {
!     {
  	{9 " " 67 68 69 70 " " 71 72 73 74 " " 75 76 95 96}
  	{49 10 11 12 13 14 15 16 17 18 19 20 21 22}
***************
*** 8479,8491 ****
  	{50 52 53 54 55 56 57 58 59 60 61 62}
  	{37 115 64 65 113 116 117 109}
! }
! 
!  {
  	{" " " " 98 " "}
  	{100 " " 102}
  	{" " " " 104 " "}
  	{" "}
! 	{" " 1 2 3}
! }
  }
  
--- 8479,8491 ----
  	{50 52 53 54 55 56 57 58 59 60 61 62}
  	{37 115 64 65 113 116 117 109}
!     } {
  	{" " " " 98 " "}
  	{100 " " 102}
  	{" " " " 104 " "}
  	{" "}
!         {" " " " 4 " "}
! 	{1 2 3}
!         {" " " " 5 " "}
!     }
  }
  
***************
*** 8497,8501 ****
  	50 8 62 8
  	37 4 115 4 64 4 65 24 113 4 116 4 117 4 109 4
! 	1 1 2 1 3 1
  } {set keyboard_width_of($k) $v}
  
--- 8497,8501 ----
  	50 8 62 8
  	37 4 115 4 64 4 65 24 113 4 116 4 117 4 109 4
! 	1 2 2 2 3 2 4 2 5 2
  } {set keyboard_width_of($k) $v}
  
***************
*** 8523,8530 ****
  namekey 102 R
  namekey 104 D
  #mouse clicks
- namekey 1 1
- namekey 2 2
- namekey 3 3
  
  def KeyboardDialog init {history} {
--- 8523,8528 ----
  namekey 102 R
  namekey 104 D
+ namekey 1 1 2 3 4 5
  #mouse clicks
  
  def KeyboardDialog init {history} {
***************
*** 8569,8573 ****
  		}
  		pack .$self.board.$name.$i -fill x
! 		if {$i==0} {pack [label .$self.board.$name.shim -image icon_empty]}
  		incr i
  	}
--- 8567,8571 ----
  		}
  		pack .$self.board.$name.$i -fill x
! 		if {$i==0} {pack [label .$self.board.$name.shim -image icon_empty] -fill x -expand yes}
  		incr i
  	}