Back to files

### Tcl/Tk¤Ë¤ª¤±¤ëÆüËܸìÆþÎϤˤĤ¤¤Æ
# 8 Sep 2001 by Makaski SHINOMIYA <shino@pos.to> #
# Tk-8.0jp¤Çkinput2¤òÍѤ¤¤ÆÆüËܸìÆþÎϤ¹¤ë¾ì¹ç # <Control-backslash> (Ctrl¥­¡¼¤È "\"¥­¡¼¤òƱ»þ¤Ë²¡¤¹¡Ë¤¬ # ÆüËܸìÆþÎÏÀÚÂؤ¨¤Îɸ½àÀßÄê¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ # <Shift-space>¡ÊShift¥­¡¼¤ÈSpacebar¤òƱ»þ¤Ë²¡¤¹¡Ë¤ÇƱ¤¸¤³¤È¤ò¤¹¤ë¤¿¤á¤Ë¤Ï # ¥³¥Þ¥ó¥É¥é¥¤¥ó¤«¤é¤³¤Î¥Õ¥¡¥¤¥ë¤Î¤¢¤ë¥Ñ¥¹¤Ø°ÜÆ°¤· # root¸¢¸Â¤Ç°Ê²¼¤Î¥¹¥&hibar;¥ê¥×¥È¤ò°ìÅټ¹Ԥ·¤Æ¤&hibar;¤À¤µ¤¤¡£ #
# sh README.ja
#
# Tk-8.3 °Ê¹ß¤Ç¤Ï¤³¤ÎɬÍפϤ¢¤ê¤Þ¤»¤ó¡£¼Â¹Ô¤·¤Ê¤¤¤Ç¤&hibar;¤À¤µ¤¤¡£ #
# This script enables <Shift-space> to start kinput2 in tcl/tk #
tkpath="/usr/lib/tk8.0jp"
if [ -f ${tkpath}/kinput.tcl -a -x /bin/grep ]; then

        if ( grep -q "set KIStart .<Shift-space>" ${tkpath}/kinput.tcl )
           then echo "<Shift-space> is already set for KIStart."
           else
              cat ${tkpath}/kinput.tcl  | \
              sed 's/set KIStart "<Control-backslash>/set KIStart "<Shift-space> <Control-backslash>/' > ${tkpath}/kinput.tmp
              mv  ${tkpath}/kinput.tcl ${tkpath}/kinput.tcl.rpmsave
             echo Original file is saved as ${tkpath}/kinput.tcl.rpmsave
             mv  ${tkpath}/kinput.tmp ${tkpath}/kinput.tcl
          fi

fi