@ -813,6 +813,10 @@ set PgAcVar(mw,$wn,toprec) 0
setScrollbar $wn
if { $PgAcVar ( mw , $wn , updatable) } then {
$wn.c bind q < Key> " T a b l e s : : e d i t T e x t $ w n % A % K "
if { [ info commands kanjiInput] == " k a n j i I n p u t " } then {
$wn.c bind q < Control-backslash> " p g a c c e s s _ k i n p u t _ s t a r t % W " ;
$wn.c bind q < Control-Kanji> " p g _ a c c e s s _ k i n p u t _ s t a r t % W " ;
}
} else {
$wn.c bind q < Key> { }
}
@ -2161,3 +2165,80 @@ proc vTclWindow.pgaw:Permissions {base} {
grid $base.fb.btncancel \
-in .pgaw:Permissions.fb - column 1 - row 0 - columnspan 1 - rowspan 1
}
#
# N O T E : f o l l o w i n g t w o p r o c e d u r e s _ k i n p u t _ t r a c e _ r o o t a n d _ k i n p u t _ t r a c e _ o v e r
# w e r e o r i g i n a l y p a r t o f k i n p u t . t c l .
# - - T a t u s o I s h i i 2 0 0 0 / 0 8 / 1 8
# k i n p u t . t c l - -
#
# T h i s f i l e c o n t a i n s T c l p r o c e d u r e s u s e d t o i n p u t J a p a n e s e t e x t .
#
# $ H e a d e r : / c v s r o o t / p g s q l / s r c / b i n / p g a c c e s s / l i b / A t t i c / t a b l e s . t c l , v 1 . 7 2 0 0 1 / 0 2 / 2 6 0 5 : 1 5 : 4 8 i s h i i E x p $
#
# C o p y r i g h t ( c ) 1 9 9 3 S o f t w a r e R e s e a r c h A s s o c i a t e s , I n c .
#
# P e r m i s s i o n t o u s e , c o p y , m o d i f y , a n d d i s t r i b u t e t h i s s o f t w a r e a n d i t s
# d o c u m e n t a t i o n f o r a n y p u r p o s e a n d w i t h o u t f e e i s h e r e b y g r a n t e d , p r o v i d e d
# t h a t t h e a b o v e c o p y r i g h t n o t i c e a p p e a r i n a l l c o p i e s a n d t h a t b o t h t h a t
# c o p y r i g h t n o t i c e a n d t h i s p e r m i s s i o n n o t i c e a p p e a r i n s u p p o r t i n g
# d o c u m e n t a t i o n , a n d t h a t t h e n a m e o f S o f t w a r e R e s e a r c h A s s o c i a t e s n o t b e
# u s e d i n a d v e r t i s i n g o r p u b l i c i t y p e r t a i n i n g t o d i s t r i b u t i o n o f t h e
# s o f t w a r e w i t h o u t s p e c i f i c , w r i t t e n p r i o r p e r m i s s i o n . S o f t w a r e R e s e a r c h
# A s s o c i a t e s m a k e s n o r e p r e s e n t a t i o n s a b o u t t h e s u i t a b i l i t y o f t h i s s o f t w a r e
# f o r a n y p u r p o s e . I t i s p r o v i d e d " a s i s " w i t h o u t e x p r e s s o r i m p l i e d
# w a r r a n t y .
#
# T h e p r o c e d u r e b e l o w i s i n v o k e d i n o r d e r t o s t a r t J a p a n e s e t e x t i n p u t
# f o r t h e s p e c i f i e d w i d g e t . I t s e n d s a r e q u e s t t o t h e i n p u t s e r v e r t o
# s t a r t c o n v e r s i o n o n t h a t w i d g e t .
# S e c o n d a r g u m e n t s p e c i f i e s i n p u t s t y l e . V a l i d v a l u e s a r e " o v e r " ( f o r
# o v e r - t h e - s p o t s t y l e ) a n d " r o o t " ( f o r r o o t w i n d o w s t y l e ) . S e e X 1 1 R 5
# X l i b m a n u a l f o r t h e m e a n i n g o f t h e s e s t y l e s ) . T h e d e f a u l t i s r o o t
# w i n d o w s t y l e .
proc pgaccess_kinput_start { w { style root} } {
global _kinput_priv
catch { unset _kinput_priv( $w ) }
if { $style == " o v e r " } then {
set spot [ _kinput_spot $w ]
if { " $ s p o t " != " " } then {
trace variable _kinput_priv( $w ) w _pgaccess_kinput_trace_$style
kanjiInput start $w \
-variable _kinput_priv( $w ) \
-inputStyle over \
-foreground [ _kinput_attr $w - foreground] \
-background [ _kinput_attr $w - background] \
-fonts [ list [ _kinput_attr $w - font] \
[ _kinput_attr $w - kanjifont] ] \
-clientArea [ _kinput_area $w ] \
-spot $spot
return
}
}
trace variable _kinput_priv( $w ) w _pgaccess_kinput_trace_root
kanjiInput start $w - variable _kinput_priv( $w ) - inputStyle root
}
# f o r r o o t s t y l e
proc _pgaccess_kinput_trace_root { name1 name2 op} {
global PgAcVar
set wn [ string trimright $name2 " . c " ]
upvar # 0 $name1 trvar
set c $trvar ( $name2 )
Tables : : editText $wn $c $c
unset $trvar ( $name2 )
}
# f o r o v e r - t h e - s p o t s t y l e
proc _pgaccess_kinput_trace_over { name1 name2 op} {
global PgAcVar
set wn [ string trimright $name2 " . c " ]
upvar # 0 $name1 trvar
set c $trvar ( $name2 )
Tables : : editText $wn $c $c
kinput_send_spot $name2
unset $trvar ( $name2 )
}
Tatsuo Ishii
25 years ago