[CM] Re: Re: Re: Play Head (SND-8.3)
Kjetil Svalastog Matheussen
k.s.matheussen@notam02.no
Tue, 15 Aug 2006 17:42:43 +0200 (CEST)
This message is in MIME format. The first part should be readable text,
while the remaining parts are likely unreadable without MIME-aware tools.
---1463809280-1933900525-1155656563=:16140
Content-Type: TEXT/PLAIN; charset=US-ASCII
"Bill Schottstaedt":
> To: Kjetil Svalastog Matheussen <k.s.matheussen@notam02.no>,
> cmdist@ccrma.Stanford.EDU
> Subject: Re: [CM] Re: Re: Play Head (SND-8.3)
> Date: Sun, 13 Aug 2006 04:28:27 -0700
>
> > Anyone knows how to do this with gtk, if possible?
>
> ;; report on mouse scroll wheel changes when in the channel graph
> (g_signal_connect
> (car (channel-widgets)) "scroll_event"
> (lambda (w e i)
> (snd-print (format #f "~%state: ~A, x: ~A, y: ~A, direction: ~A"
> (.state (GDK_EVENT_SCROLL e))
> (.x (GDK_EVENT_SCROLL e))
> (.y (GDK_EVENT_SCROLL e))
> (.direction (GDK_EVENT_SCROLL e))))
> #f))
>
> ;; report which kind of click was received in the channel graph
> (g_signal_connect
> (car (channel-widgets)) "button_press_event"
> (lambda (w e i)
> (snd-print (format #f "~%button: ~A, ~A click"
> (.type (GDK_EVENT_BUTTON e))
> (if (= (.type (GDK_EVENT_BUTTON e)) GDK_BUTTON_PRESS)
> "single"
> (if (= (.type (GDK_EVENT_BUTTON e)) GDK_2BUTTON_PRESS)
> "double"
> (if (= (.type (GDK_EVENT_BUTTON e)) GDK_3BUTTON_PRESS)
> "triple"
> "unknown")))))
> #f))
>
> ;; a double click is reported as single/single/double
>
> ;; double-click time in milliseconds(?)
> (define (double-click-time)
> (g_object_get (GPOINTER (gtk_settings_get_for_screen
> (gdk_display_get_default_screen
> (gdk_display_get_default))))
> "gtk-double-click-time" #f))
>
Thank you very much! Attached is a diff for gui.scm that fixes the state
for the scroll button and adds a new hook for double-click:
(-> mouse-doubleclick-hook add!
(lambda (snd x y stat)
(c-display "double-click" snd x y stat)))
---1463809280-1933900525-1155656563=:16140
Content-Type: TEXT/PLAIN; charset=US-ASCII; name=gui.scm.diff
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.64.0608151742430.16140@leon.localdomain>
Content-Description:
Content-Disposition: attachment; filename=gui.scm.diff
LS0tIGd1aS5zY20/cmV2aXNpb249MS4zOQkyMDA2LTA4LTE1IDE3OjQwOjIw
LjAwMDAwMDAwMCArMDIwMA0KKysrIGd1aS5zY20JMjAwNi0wOC0xNSAxNzoz
NToxMy4wMDAwMDAwMDAgKzAyMDANCkBAIC04OSw2ICs4OSwxNyBAQA0KIAkg
I2YpKSkNCiANCiANCis7OyBDb3BpZWQgZnJvbSBndGstcG9wdXAuc2NtDQor
KGRlZmluZSogKGMtZ19zaWduYWxfY29ubmVjdCBvYmogbmFtZSBmdW5jICM6
b3B0aW9uYWwgZGF0YSkNCisgIChnX3NpZ25hbF9jb25uZWN0X2Nsb3N1cmVf
YnlfaWQgKEdQT0lOVEVSIG9iaikNCisJCQkJICAoZ19zaWduYWxfbG9va3Vw
IG5hbWUgKEdfT0JKRUNUX1RZUEUgKEdUS19PQkpFQ1Qgb2JqKSkpDQorCQkJ
CSAgMA0KKwkJCQkgIChnX2NjbG9zdXJlX25ldyBmdW5jIGRhdGEgI2YpDQor
CQkJCSAgI2YpKQ0KKw0KKw0KKw0KKw0KIChkZWZpbmUtYyA8ZmxvYXQ+IChj
LXNjYWxlICgoPGZsb2F0PiB4KQ0KIAkJCSAgICAoPGZsb2F0PiB4MSkNCiAJ
CQkgICAgKDxmbG9hdD4geDIpDQpAQCAtMzU5LDYgKzM3MCw3IEBADQogDQog
DQogKGRlZmluZSBtb3VzZS1idXR0b24tcHJlc3MtaG9vayAoPGhvb2s+KSkN
CisoZGVmaW5lIG1vdXNlLWRvdWJsZWNsaWNrLWhvb2sgKDxob29rPikpDQog
KGRlZmluZSBtb3VzZS1tb3ZlLWhvb2sgKDxob29rPikpDQogKGRlZmluZSBt
b3VzZS1kcmFnMi1ob29rICg8aG9vaz4pKQ0KIChkZWZpbmUgbW91c2UtYnV0
dG9uLXJlbGVhc2UtaG9vayAoPGhvb2s+KSkNCkBAIC00MjEsMjQgKzQzMywz
NSBAQA0KIAkJCQkJICAgKGZvY3VzLXdpZGdldCB3KQ0KIAkJCQkJICAgKHNl
dCEgaXNwcmVzc2VkICN0KQ0KIAkJCQkJICAgKHNldCEgaXNtb3ZlZCAjZikN
Ci0JCQkJCSAgIChpZiAoYW5kIChub3QgKGVxPyAnc3RvcCENCi0JCQkJCQkJ
ICAgICAgKC0+IG1vdXNlLWJ1dHRvbi1wcmVzcy1ob29rIHJ1bg0KLQkJCQkJ
CQkJICBzbmQgKC54IChHREtfRVZFTlRfQlVUVE9OIGUpKSAoLnkgKEdES19F
VkVOVF9CVVRUT04gZSkpDQotCQkJCQkJCQkgICguYnV0dG9uIChHREtfRVZF
TlRfQlVUVE9OIGUpKSAoLnN0YXRlIChHREtfRVZFTlRfQlVUVE9OIGUpKSkp
KQ0KLQkJCQkJCSAgICAoPSAoLmJ1dHRvbiAoR0RLX0VWRU5UX0JVVFRPTiBl
KSkgMykpDQotCQkJCQkgICAgICAgKHJ1bi1ob29rIGd0ay1wb3B1cC1ob29r
IHcgZSBpIHNuZCAwKSkpKQ0KKwkJCQkJICAgKGxldCAoKGRpZC1kb3VibGVj
bGljaz8gJ25vcGUpDQorCQkJCQkJIChkaWQtc2luZ2xlY2xpY2s/ICdub3Bl
KSkNCisJCQkJCSAgICAgKGlmICg9ICgudHlwZSAoR0RLX0VWRU5UX0JVVFRP
TiBlKSkgR0RLXzJCVVRUT05fUFJFU1MpDQorCQkJCQkJIChzZXQhIGRpZC1k
b3VibGVjbGljaz8gKC0+IG1vdXNlLWRvdWJsZWNsaWNrLWhvb2sgcnVuDQor
CQkJCQkJCQkJICAgIHNuZCANCisJCQkJCQkJCQkgICAgKC54IChHREtfRVZF
TlRfQlVUVE9OIGUpKQ0KKwkJCQkJCQkJCSAgICAoLnkgKEdES19FVkVOVF9C
VVRUT04gZSkpDQorCQkJCQkJCQkJICAgICguc3RhdGUgKEdES19FVkVOVF9C
VVRUT04gZSkpKSkpDQorCQkJCQkgICAgIChpZiAobm90IChlcT8gJ3N0b3Ah
IGRpZC1kb3VibGVjbGljaz8pKQ0KKwkJCQkJCSAoc2V0ISBkaWQtc2luZ2xl
Y2xpY2s/ICgtPiBtb3VzZS1idXR0b24tcHJlc3MtaG9vayBydW4NCisJCQkJ
CQkJCQkgICAgc25kICgueCAoR0RLX0VWRU5UX0JVVFRPTiBlKSkgKC55IChH
REtfRVZFTlRfQlVUVE9OIGUpKQ0KKwkJCQkJCQkJCSAgICAoLmJ1dHRvbiAo
R0RLX0VWRU5UX0JVVFRPTiBlKSkgKC5zdGF0ZSAoR0RLX0VWRU5UX0JVVFRP
TiBlKSkpKSkNCisJCQkJCSAgICAgDQorCQkJCQkgICAgIChpZiAoYW5kIChu
b3QgKGVxPyAnc3RvcCEgZGlkLWRvdWJsZWNsaWNrPykpDQorCQkJCQkJICAg
ICAgKG5vdCAoZXE/ICdzdG9wISBkaWQtc2luZ2xlY2xpY2s/KSkNCisJCQkJ
CQkgICAgICAoPSAoLmJ1dHRvbiAoR0RLX0VWRU5UX0JVVFRPTiBlKSkgMykp
DQorCQkJCQkJIChydW4taG9vayBndGstcG9wdXAtaG9vayB3IGUgaSBzbmQg
MCkpKSkpDQogCQkgICAgIChjLWdfc2lnbmFsX2Nvbm5lY3QgdyAibW90aW9u
X25vdGlmeV9ldmVudCINCi0JCQkJICAgICAgIChsYW1iZGEgKHcgZSBpKQ0K
LQkJCQkJIChzZXQhIGlzbW92ZWQgI3QpDQotCQkJCQkgOzsoYy1kaXNwbGF5
IHNuZCAoLnggKEdES19FVkVOVF9CVVRUT04gZSkpICgueSAoR0RLX0VWRU5U
X0JVVFRPTiBlKSkgKC5idXR0b24gKEdES19FVkVOVF9CVVRUT04gZSkpICgu
c3RhdGUgKEdES19FVkVOVF9CVVRUT04gZSkpKQ0KLQkJCQkJIChsZXQgKChh
cmdzIChpZiAoLmlzX2hpbnQgKEdES19FVkVOVF9NT1RJT04gZSkpDQotCQkJ
CQkJCSAobGV0ICgocyAoY2RyIChnZGtfd2luZG93X2dldF9wb2ludGVyICgu
d2luZG93IGUpKSkpKQ0KLQkJCQkJCQkgICAobGlzdCBzbmQgKGNhciBzKSAo
Y2FkciBzKSAoLmJ1dHRvbiAoR0RLX0VWRU5UX0JVVFRPTiBlKSkgKGNhZGRy
IHMpKSkNCi0JCQkJCQkJIChsaXN0IHNuZCAoLnggKEdES19FVkVOVF9CVVRU
T04gZSkpICgueSAoR0RLX0VWRU5UX0JVVFRPTiBlKSkNCi0JCQkJCQkJICAg
ICAgICguYnV0dG9uIChHREtfRVZFTlRfQlVUVE9OIGUpKSAoLnN0YXRlIChH
REtfRVZFTlRfQlVUVE9OIGUpKSkpKSkNCi0JCQkJCSAgIChpZiAoYW5kIChu
b3QgKGVxPyAnc3RvcCEgKGFwcGx5ICg8LSBtb3VzZS1tb3ZlLWhvb2sgcnVu
KSBhcmdzKSkpDQotCQkJCQkJICAgIGlzcHJlc3NlZCkNCi0JCQkJCSAgICAg
ICAoYXBwbHkgKDwtIG1vdXNlLWRyYWcyLWhvb2sgcnVuKSBhcmdzKSkpKSkN
CisJCQkJCSAobGFtYmRhICh3IGUgaSkNCisJCQkJCSAgIChzZXQhIGlzbW92
ZWQgI3QpDQorCQkJCQkgICA7OyhjLWRpc3BsYXkgc25kICgueCAoR0RLX0VW
RU5UX0JVVFRPTiBlKSkgKC55IChHREtfRVZFTlRfQlVUVE9OIGUpKSAoLmJ1
dHRvbiAoR0RLX0VWRU5UX0JVVFRPTiBlKSkgKC5zdGF0ZSAoR0RLX0VWRU5U
X0JVVFRPTiBlKSkpDQorCQkJCQkgICAobGV0ICgoYXJncyAoaWYgKC5pc19o
aW50IChHREtfRVZFTlRfTU9USU9OIGUpKQ0KKwkJCQkJCQkgICAobGV0ICgo
cyAoY2RyIChnZGtfd2luZG93X2dldF9wb2ludGVyICgud2luZG93IGUpKSkp
KQ0KKwkJCQkJCQkgICAgIChsaXN0IHNuZCAoY2FyIHMpIChjYWRyIHMpICgu
YnV0dG9uIChHREtfRVZFTlRfQlVUVE9OIGUpKSAoY2FkZHIgcykpKQ0KKwkJ
CQkJCQkgICAobGlzdCBzbmQgKC54IChHREtfRVZFTlRfQlVUVE9OIGUpKSAo
LnkgKEdES19FVkVOVF9CVVRUT04gZSkpDQorCQkJCQkJCQkgKC5idXR0b24g
KEdES19FVkVOVF9CVVRUT04gZSkpICguc3RhdGUgKEdES19FVkVOVF9CVVRU
T04gZSkpKSkpKQ0KKwkJCQkJICAgICAoaWYgKGFuZCAobm90IChlcT8gJ3N0
b3AhIChhcHBseSAoPC0gbW91c2UtbW92ZS1ob29rIHJ1bikgYXJncykpKQ0K
KwkJCQkJCSAgICAgIGlzcHJlc3NlZCkNCisJCQkJCQkgKGFwcGx5ICg8LSBt
b3VzZS1kcmFnMi1ob29rIHJ1bikgYXJncykpKSkpDQogCQkgICAgIChjLWdf
c2lnbmFsX2Nvbm5lY3QgdyAiYnV0dG9uX3JlbGVhc2VfZXZlbnQiDQogCQkJ
CQkgKGxhbWJkYSAodyBlIGkpDQogCQkJCQkgICAoc2V0ISBpc3ByZXNzZWQg
I2YpDQpAQCAtNDQ4LDcgKzQ3MSw3IEBADQogCQkJCQkgKGxhbWJkYSAodyBl
IGkpDQogCQkJCQkgICAoc2V0ISBpc3ByZXNzZWQgI2YpDQogCQkJCQkgICAo
LT4gbW91c2Utc2Nyb2xsLWhvb2sgcnVuDQotCQkJCQkgICAgICAgc25kICgu
eCAoR0RLX0VWRU5UX0JVVFRPTiBlKSkgKC55IChHREtfRVZFTlRfQlVUVE9O
IGUpKSAoLnN0YXRlIChHREtfRVZFTlRfQlVUVE9OIGUpKSkNCisJCQkJCSAg
ICAgICBzbmQgKC5kaXJlY3Rpb24gKEdES19FVkVOVF9TQ1JPTEwgZSkpICgu
eCAoR0RLX0VWRU5UX1NDUk9MTCBlKSkgKC55IChHREtfRVZFTlRfU0NST0xM
IGUpKSAoLnN0YXRlIChHREtfRVZFTlRfU0NST0xMIGUpKSkNCiAJCQkJCSAg
ICkpDQogCQkgICAgICkpKSkpDQogDQpAQCAtNTMwLDEyICs1NTMsMTIgQEAN
CiAgICAgICAobGFtYmRhIChzbmQgeCB5IGJ1dHRvbiBzdGF0KQ0KIAkoc2V0
ISBpc2RyYWdnZWQgI3QpKSkNCiAgICgtPiBtb3VzZS1zY3JvbGwtaG9vayBh
ZGQhDQotICAgICAgKGxhbWJkYSAoc25kIG9yZ3ggeSBzdGF0KQ0KKyAgICAg
IChsYW1iZGEgKHNuZCBkaXJlY3Rpb24gb3JneCB5IHN0YXQpDQogCShjLWdl
dC1tb3VzZS1pbmZvIHNuZCBvcmd4IHkgI3QNCiAJCQkgIChsYW1iZGEgKGNo
IHggeSkNCiAJCQkgICAgKGZvY3VzLXdpZGdldCAoYy1lZGl0b3Itd2lkZ2V0
IHNuZCkpDQogCQkJICAgIChydW4taG9vayBtb3VzZS1jbGljay1ob29rDQot
CQkJCSAgICAgIHNuZCBjaCAoKyBzdGF0IDQpIDAgb3JneCB5IHRpbWUtZ3Jh
cGgpKSkpKQ0KKwkJCQkgICAgICBzbmQgY2ggKCsgZGlyZWN0aW9uIDQpIHN0
YXQgb3JneCB5IHRpbWUtZ3JhcGgpKSkpKQ0KICAgKC0+IG1vdXNlLWJ1dHRv
bi1yZWxlYXNlLWhvb2sgYWRkIQ0KICAgICAgIChsYW1iZGEgKHNuZCBvcmd4
IHkgYnV0dG9uIHN0YXQpDQogCShpZiAobm90IGlzZHJhZ2dlZCkNCg==
---1463809280-1933900525-1155656563=:16140--