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