namazu-ml(avocado)

[Hajime BABA <baba@xxxxxxxxxxxxxxxxxxxxxx>]

馬場＠京大宇宙物理 です。

tknamazu で

  C-n で次行、C-p で前行、C-v で次ページ、C-z で前ページ、
  結果を表示するウィンドウにフォーカスがあるときは
  space で次ページ、BackSpace で前ページ

といったキーバインドを追加するパッチを作ってみました。

マウスに手を延ばすのが面倒な人にとってはたぶん結構便利だとおもうん
で、次のものには入れていただければありがたいです。ただ、実は一部の
挙動がなんかヘン(space と BackSpace の挙動)なんですが僕はTcl/Tkは
ゼンゼンわからんので直せません。_o_

もし取り入れる際には適宜直して下さいませ。＞広瀬さん

＃ こんなんばっかし。＞おれ (^_^;)
--
馬場  肇 ( Hajime BABA )            E-mail: baba@xxxxxxxxxxxxxxxxxxxxxx
京都大学理学部宇宙物理学教室 博士課程二回生
--


--- tknamazu.tcl.org	Wed Apr  8 00:06:15 1998
+++ tknamazu.tcl	Thu Apr  9 05:33:10 1998
@@ -790,6 +790,22 @@
 bind . <Alt-u> {focus .tknmz.option.summary ; break}
 bind . <Button-3> {ExtKicker}
 
+bind .tknmz.result.log <Button> {focus .tknmz.result.log}
+proc ScrollDownResult {number unit} {
+    .tknmz.result.log yview scroll $number $unit;
+}
+
+bind . <Control-n> {ScrollDownResult 1 unit}
+bind . <Control-p> {ScrollDownResult -1 unit}
+bind . <Control-v> {ScrollDownResult 1 page}
+bind . <Control-z> {ScrollDownResult -1 page}
+bind .tknmz.result.log <space> {ScrollDownResult 1 page}
+bind .tknmz.result.log <BackSpace> {ScrollDownResult -1 page}
+
+
+bind .tknmz.result.scroll <Control-n> {.tknmz.result.log yview scroll 1 unit}
+bind .tknmz.result.scroll <Control-p> {.tknmz.result.log yview scroll -1 unit}
+
 if {$tk_version < 4.0} {
     puts \
 "Warning: the script are based on Tk 8.1a1.  You have