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