teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

3

tcl/tk wiki の mousewheel の情報を追記

2020/11/19 05:16

投稿

teamikl
teamikl

スコア8817

answer CHANGED
@@ -11,4 +11,21 @@
11
11
 
12
12
  - 1 左クリック
13
13
  - 2 中央 (ホィール)
14
- - 3 右クリック
14
+ - 3 右クリック
15
+ - 4 (unix) ホィール 上
16
+ - 5 (unix) ホィール 下
17
+
18
+ ----
19
+ 追記: Pre tk 8.4 Focus
20
+
21
+ https://wiki.tcl-lang.org/page/mousewheel
22
+
23
+ ```tcl
24
+ MGS Here's a quick little hack to get MouseWheel events on X (Linux):
25
+
26
+ bind all <Button-4> \
27
+ {event generate [focus -displayof %W] <MouseWheel> -delta 120}
28
+
29
+ bind all <Button-5> \
30
+ {event generate [focus -displayof %W] <MouseWheel> -delta -120}
31
+ ```

2

補足

2020/11/19 05:16

投稿

teamikl
teamikl

スコア8817

answer CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
  > <ButtonPress>や<ButtonRelease>でマウスホイールスクロール時にも反応してしまうのですが、そういう仕様なのでしょうか?
4
4
 
5
- マウスホイール操作時にボタンを抑え込んでるという事はないですか?
5
+ マウスホイール操作時に(ホィールの)ボタン自体を抑え込んでるという事はないですか?
6
6
  ホイール操作自体は `<Button>` には反応しないはずです。
7
7
 
8
8
  `<Button>` は、全てのボタンのクリックに反応するので、その点は仕様です。

1

補足

2020/11/19 01:11

投稿

teamikl
teamikl

スコア8817

answer CHANGED
@@ -7,4 +7,8 @@
7
7
 
8
8
  `<Button>` は、全てのボタンのクリックに反応するので、その点は仕様です。
9
9
  区別が必要な場合は、`<Button-1>` と同様に、サフィックスを付けます
10
- 例: `<ButtonPress-1>`
10
+ 例: `<ButtonPress-1>`
11
+
12
+ - 1 左クリック
13
+ - 2 中央 (ホィール)
14
+ - 3 右クリック