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

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
added arrow icons for KeyboardDialog


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.375
retrieving revision 1.1.2.600.2.376
diff -C2 -d -r1.1.2.600.2.375 -r1.1.2.600.2.376
*** desire.tk	15 Aug 2007 17:11:49 -0000	1.1.2.600.2.375
--- desire.tk	15 Aug 2007 17:27:06 -0000	1.1.2.600.2.376
***************
*** 550,559 ****
  	# very small icons:
  	foreach {name w h values} {
! 		icon_empty   7 7 "0,0,0,0,0,0,0"
! 		icon_plus    7 7 "8,8,8,127,8,8,8"
! 		icon_minus   7 7 "0,0,0,127,0,0,0"
! 		icon_close   7 7 "99,119,62,28,62,119,99"
! 		icon_uparrow   7 5 "8,28,62,127,0"
! 		icon_downarrow 7 5 "0,127,62,28,8"
  	} {
  		image create bitmap $name -data "#define z_width $w\n#define z_height $h
--- 550,563 ----
  	# very small icons:
  	foreach {name w h values} {
! 		icon_empty      7 7 "0,0,0,0,0,0,0"
! 		icon_plus       7 7 "8,8,8,127,8,8,8"
! 		icon_minus      7 7 "0,0,0,127,0,0,0"
! 		icon_close      7 7 "99,119,62,28,62,119,99"
! 		icon_wedge_up   7 5 "8,28,62,127,0"
! 		icon_wedge_down 7 5 "0,127,62,28,8"
! 		icon_up         7 7 "8,28,62,127,28,28,28"
! 		icon_down       7 7 "28,28,28,127,62,28,8"
! 		icon_right      7 7 "8,24,63,127,63,24,8"
! 		icon_left       7 7 "8,12,126,127,126,12,8"
  	} {
  		image create bitmap $name -data "#define z_width $w\n#define z_height $h
***************
*** 7405,7410 ****
  					integer|float|fontsize {
  						frame $f.b -borderwidth 0
! 						button $f.b.1 -image icon_uparrow   -command "change_entry $f.entry +1"
! 						button $f.b.2 -image icon_downarrow -command "change_entry $f.entry -1"
  						pack $f.b.1 $f.b.2 -side top
  						pack $f.b -side left
--- 7409,7414 ----
  					integer|float|fontsize {
  						frame $f.b -borderwidth 0
! 						button $f.b.1 -image icon_wedge_up   -command "change_entry $f.entry +1"
! 						button $f.b.2 -image icon_wedge_down -command "change_entry $f.entry -1"
  						pack $f.b.1 $f.b.2 -side top
  						pack $f.b -side left
***************
*** 8481,8485 ****
      } {
  	{" " " " 98 " "}
! 	{100 " " 102}
  	{" " " " 104 " "}
  	{" "}
--- 8485,8489 ----
      } {
  	{" " " " 98 " "}
! 	{100 " " " " 102}
  	{" " " " 104 " "}
  	{" "}
***************
*** 8497,8500 ****
--- 8501,8505 ----
  	50 8 62 8
  	37 4 115 4 64 4 65 24 113 4 116 4 117 4 109 4
+         98 2 100 2 102 2 104 2
  	1 2 2 2 3 2 4 2 5 2
  } {set keyboard_width_of($k) $v}
***************
*** 8519,8526 ****
  namekey 116 Sup Menu
  namekey 109 Ctrl
! namekey 98 U
! namekey 100 L
! namekey 102 R
! namekey 104 D
  namekey 1 1 2 3 4 5
  #mouse clicks
--- 8524,8531 ----
  namekey 116 Sup Menu
  namekey 109 Ctrl
! namekey 98 (up)
! namekey 100 (left)
! namekey 102 (right)
! namekey 104 (down)
  namekey 1 1 2 3 4 5
  #mouse clicks
***************
*** 8563,8568 ****
  				set text  $::keyboard_text_of($key)
  			} else  {set text $key}
! 			pack [label .$self.board.$name.$i.key$key -text " $text " -relief raise -border 4 \
! 				  -bg "#dddddd" -width $width -font [$self look font]] -side left
  		}
  		pack .$self.board.$name.$i -fill x
--- 8568,8580 ----
  				set text  $::keyboard_text_of($key)
  			} else  {set text $key}
! 			if {[regexp {\((\w+)\)} $text foo bar]} {
! 				set font [$self look font]
! 				pack [label .$self.board.$name.$i.key$key -image icon_$bar -relief raise -border 4 -bg \
! 					"#dddddd" -width [expr $width*[font measure $font 0]] \
! 					-height [font metrics $font -linespace]] -side left
! 			} else {
! 				pack [label .$self.board.$name.$i.key$key -text " $text " -relief raise -border 4 \
! 				  	-bg "#dddddd" -width $width -font [$self look font]] -side left
! 			}
  		}
  		pack .$self.board.$name.$i -fill x