aboutsummaryrefslogtreecommitdiff
path: root/extensions/gui/ix
diff options
context:
space:
mode:
authorcarmen rocco <ix9@users.sourceforge.net>2005-05-24 22:42:42 +0000
committercarmen rocco <ix9@users.sourceforge.net>2005-05-24 22:42:42 +0000
commit6bb83ed5e34dfd01516c3fce1c3f0ab7c8c9f67d (patch)
tree99511c2f98abdf9fda99ec6277874d616929ce15 /extensions/gui/ix
parentee5e8d47ee04cde05e28b0f950220869b22da97f (diff)
.CVSUX
---------------------------------------------------------------------- svn path=/trunk/; revision=3082
Diffstat (limited to 'extensions/gui/ix')
-rwxr-xr-xextensions/gui/ix/kbd.wid19
1 files changed, 10 insertions, 9 deletions
diff --git a/extensions/gui/ix/kbd.wid b/extensions/gui/ix/kbd.wid
index ab5f6a7f..bf624964 100755
--- a/extensions/gui/ix/kbd.wid
+++ b/extensions/gui/ix/kbd.wid
@@ -1,21 +1,22 @@
namespace eval ::ix {
proc kbd_play {t m b x y} {
variable _
- foreach a {{rs {0 sunken 1 raised}} {sr {0 raised 1 sunken}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]}
- set w [winfo containing $x $y]; set tp $t.rp
- if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} {
- $_($t:lp) config -relief raised;pd "$tp _cb [winfo name $_($t:lp)] 0 \;"}
- if {[$w cget -relief] eq $rs($b)} {
- eval $w config -relief $sr($b); pd "$tp _cb [winfo name $w] [eval expr $v($b)] \;"}
+ foreach a {{rs {0 sunken 1 raised}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]}
+ set w [winfo containing $x $y]
+ if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} {kbd_action $_($t:lp) $t 0}
+ if {[$w cget -relief] eq $rs($b)} {kbd_action $w $t [eval expr $v($b)]}
set _($t:lp) $w}
+ proc kbd_action {w t v} {
+ if {$v == 0} {set relief raised} {set relief sunken}
+ $w config -relief $relief
+ pd [concat $t.rp _cb [winfo name $w] $v \;]}
+
proc kbd_off {p t octaves} {
for {set o 0} {$o < $octaves} {incr o} {
for {set on 0} {$on < 12} {incr on} {
set no [expr $o * 12 + $on]
- if {[$p.f$o.$no cget -relief] eq "sunken"} {
- $p.f$o.$no config -relief raised
- pd "$t.rp _cb $no 0 \;"}}}}
+ if {[$p.f$o.$no cget -relief] eq "sunken"} {kbd_action $p.f$o.$no $t 0}}}}
proc kbd {path t octaves b f} {
if {![winfo exists $path.f0]} {