# 8 Sep 2001 by Makaski SHINOMIYA <shino@pos.to>
#
# 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