🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.tcl
Article #206

[Q] How to distinguish "a" and "Alt-a" on bind command?

#206
From: Motomu Nakashima o-2417
Date: Tue, 02 Dec 1997 00:00
27 lines
1697 bytes
$BCfEg!wEl9)Bg$H?=$7$^$9!%(B

Tcl7.6jp/Tk4.2jp $B>e$G(B Tk $B%"%W%j$r:n$C$F$$$k$N$G$9$,!$(B
bind $B%3%^%s%I$K$*$$$F!$(B"a" $B$H(B "Alt-a" ($B$b$7$/$O(B "Ctrl-a"$B$J$I(B)$B$r(B
$B6hJL$7$FJL!9$N(B procedure $B$r<B9T$5$;$k$K$O$I$&$9$l$PNI$$$N$G$7$g(B
$B$&$+!)(B

$BNc$($P!$(B
        bind .foo <a>     { honya }
        bind .foo <Alt-a> { munya }

$B$H=q$$$?$H$7$^$9!%$3$l$O!$(Ba $B%-!<$r2!$7$?;~$O(B honya $B$r<B9T!$(B
Alt $B%-!<$r2!$7$J$,$i(B a $B$r2!$7$?;~$O(B munya $B$r<B9T!$$H$$$&F0:n$r(B
$B4|BT$7$F$$$^$9!%(B

$B$H$3$m$,<B:]$O!$(Ba $B%-!<$r2!$7$?;~$O(B honya $B$@$1$,<B9T$5$l$^$9$,!$(B
Alt $B%-!<$r2!$7$J$,$i(B a $B%-!<$r2!$9$H!$(Bhonya $B$H(B munya $B$NN>J}$,(B
$B<B9T$5$l$F$7$^$$$^$9!%(B
$B3N$+$K!$$3$l$O$3$l$G(B reasonable $B$@$H$O;W$&$N$G$9$,!$$=$l$J$i$P!$(B
<only-a> $B$_$?$$$J(B (^^; $B9%ET9g$J%$%Y%s%HL>$OL5$$$s$G$7$g$&$+(B...

-----------------------------
 $BCfEg!!5a(B                   Motomu Nakashima
 $BEl5~9)6HBg3X(B $B5!3#2J3X2J(B    Dept. of Mech. Eng.& Science
 $B1?F0@)8f3X9V:B(B             Tokyo Institute of Technology
 Fingerprint: 0D E6 6B 56 2A 98 A7 61  0A 38 33 43 BA C3 97 1D
Technical Details
Message-ID: <MNAKASHI.97Dec2161944@cpus-f0.cc.titech.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 15a83d,55ceaf8141eec0b7,start
X-Google-Attributes: gid15a83d,public
From: mnakashi@o.cc.titech.ac.jp (Motomu Nakashima o-2417)
Subject: [Q] How to distinguish "a" and "Alt-a" on bind command?
Date: 1997/12/02
Message-ID: <MNAKASHI.97Dec2161944@cpus-f0.cc.titech.ac.jp>
X-Deja-AN: 294436653
Followup-To: fj.lang.tcl
Distribution: world
Organization: Computer Center, Tokyo Institute of Technology, JAPAN
Newsgroups: fj.lang.tcl