open-dsi
/
postgres
mirror of https://github.com/postgres/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix kanji-coversion key binding. This has been broken since 7.1

Browse Source 
Per Yoshinori Ariie's report.
REL7_2_STABLE
Tatsuo Ishii 24 years ago
parent 62feef6c95
commit 39821d12cc
1 changed files with 2 additions and 2 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 4
      src/bin/pgaccess/lib/tables.tcl

4
src/bin/pgaccess/lib/tables.tcl
Unescape View File

@ -815,7 +815,7 @@ if {$PgAcVar(mw,$wn,updatable)} then {
$wn.c bind q <Key> "Tables::editText $wn %A %K" $wn.c bind q <Key> "Tables::editText $wn %A %K"
if {[info commands kanjiInput] == "kanjiInput"} then { if {[info commands kanjiInput] == "kanjiInput"} then {
$wn.c bind q <Control-backslash> "pgaccess_kinput_start %W"; $wn.c bind q <Control-backslash> "pgaccess_kinput_start %W";
$wn.c bind q <Control-Kanji> "pg_access_kinput_start %W"; $wn.c bind q <Control-Kanji> "pgaccess_kinput_start %W";
} }
} else { } else {
$wn.c bind q <Key> {} $wn.c bind q <Key> {}
@ -2175,7 +2175,7 @@ proc vTclWindow.pgaw:Permissions {base} {
# #
# This file contains Tcl procedures used to input Japanese text. # This file contains Tcl procedures used to input Japanese text.
# #
# $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.10 2001/08/10 23:29:46 tgl Exp $ # $Header: /cvsroot/pgsql/src/bin/pgaccess/lib/Attic/tables.tcl,v 1.10.2.1 2002/02/18 04:12:34 ishii Exp $
# #
# Copyright (c) 1993 Software Research Associates, Inc. # Copyright (c) 1993 Software Research Associates, Inc.
# #

Write Preview
Loading…
Cancel
Save