B
3[X @ s d Z ddlmZmZmZmZ ddlmZmZm Z m
Z
m Z m Z ddlm
Z
ddlZddlZdZeejej ZedZdZd Zd
Zee e e e e Zd d ZG d
d deZe dkrddl m Z e dddd ddl m Z e e dS )z6
Dialog for building Tkinter accelerator key bindings
)ToplevelListbox StringVarTclError)FrameButton CheckbuttonEntryLabel Scrollbar)
messageboxN) ZF1ZF2ZF3ZF4ZF5ZF6ZF7ZF8ZF9ZF10ZF11ZF12z~!@#%^&*()_-+={}[]|;:,.<>/?)TabSpaceZReturn)Z BackSpaceZDeleteZInsert)ZHomeZEndzPage Upz Page Downz
Left Arrowz Right ArrowzUp Arrowz
Down Arrowc $ C s| ddddddddd d
d d d
ddddddddddddddd d d d d d!d"d#d$#}| | | } d%|krr| tjkrr| } d&| S )'z3Translate from keycap symbol to the Tkinter keysym.ZspaceZ
asciitildeZexclamZatZ
numbersignZpercentZ asciicircumZ ampersandZasteriskZ parenleftZ
parenrightZ
underscoreZminusZplusZequalZ braceleftZ
bracerightZ bracketleftZ bracketrightZbarZ semicolonZcolonZcommaZperiodZlessZgreaterZslashZquestionZPriorZNextZLeftZRightZUpZDownr
)#r ~!@#%^&*()_-+={}[]|;:,.<>/?zPage Upz Page Downz
Left Arrowz Right ArrowzUp Arrowz
Down Arrowr
ShiftzKey-)getstringascii_lowercaseupper)key modifiersmapping r2 7/opt/alt/python37/lib64/python3.7/idlelib/config_key.py
translate_key s r4 c @ s e Zd ZdZdddddZdd Zdd Zd
d Zd d
Zd ddZ dd Z
dd Z dd Z d ddZ
d!ddZdd Zd d ZdS )"
GetKeysDialogzKey Sequence ErrorF)_htest_utestc C sF t | | | | jdd | jddd | | | | | | d| j || _
|| _ || _ d| _
t| | _| jd | g | _x,| jD ]"}t| }|d | j| qW d| _| | | d| | d | d | |s | d | d nd f |sB| | d
S ) a
parent - parent of this dialog
title - string which is the title of the popup dialog
action - string, the name of the virtual event these keys will be
mapped to
current_key_sequences - list, a list of all key sequence lists
currently mapped to virtual events, for overlap checking
_htest - bool, change box location when running htest
_utest - bool, do not wait when running unittest
) borderwidthF)heightwidthZWM_DELETE_WINDOW z+%d+%d N)!r __init__ZwithdrawZ configureZ resizabletitleZ transientZgrab_setZprotocolcancelparentactioncurrent_key_sequencesresultr
key_stringsetset_modifiers_for_platform
modifier_varsr0 appendadvancedcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) selfrB r@ rC rD r6 r7 modifiervariabler2 r2 r3 r? 0 s@
*zGetKeysDialog.__init__c O s t j|| d S )N)r showerror)rM argskwargsr2 r2 r3 rP ` s zGetKeysDialog.showerrorc C s0 t | ddd | _}|jdddd t | }|jdd d
t|d d | jd
| _| jjddddd t|dd | jd
| _| jjddddd t |dd| _ | j jdddddd t
| j d| j dd}|jdd t
| j d | j d dd }|jddd d t || _
| j
jddddd i | _d}xft| j| jD ]T\}}| j||}t| j
| j|||d!d"} | jd|ddd# | | j|< |d7 }q0W t
| j
d d$d%}
|
jddd&ddd' t| j
d(d)d*d+| _| jjdBt | jd-| j | jjdd&d&d.d/ t | j
d0| jj d1} | jj | j d2 | jddd&d.d/ t| j
d3| j d4| _!| j!jddd&d5 t |d6d| _"| j"jdddddd t
| j"d d7| j d8d9 d%} | jdd t#| j"| j d:| _$| j$jd d; t || _%| j%jddddd t
| j%d dd?| _'| j'jddd@dddA | & d S )CNr= Zsunken)r9 relieftopTZboth)sideexpandfillZbottomx)rU rW ZOK )textr; commandr r8 )rowcolumnpadxpadyZCancel Z keyseq_basic)nameZnsew)r\ r] stickyr^ r_ zNew keys for 'z' :)rZ w)anchorleftZgroove)justify textvariablerS r9 )ZipadxZipadyrW )r\ r] rb r^ r< )r[ rZ rO ZonvalueZoffvalue)r\ r] r^ rb zSelect the desired modifier keys
above, and the final key from the
list on the right.
Use upper case Symbols when using
the Shift modifier. (Letters will be
converted automatically.))rf rZ )r\ r]
columnspanr^ rb
Zsingle)r; r: Z
selectmodeendzns)r\ r] Zrowspanrb Zvertical)Zorientr[ )Zyscrollcommandz
Clear Keys)rZ r[ )r\ r] ri Zkeyseq_advancedzEnter new binding(s) for 'z' :
z2(These bindings will not be checked for validity!))rg )rW a Key bindings are specified using Tkinter keysyms as
in these samples: , , ,
, , .
Upper case is used when the Shift modifier is present!
'Emacs style' multi-keystroke bindings are specified as
follows: , where the first key
is the 'do-nothing' keybinding.
Multiple separate bindings for one action should be
separated by a space, eg., .)r\ r] rb z<< Basic Key Binding Entry)r[ rZ Zew)r\ r] Zstickr^ r_ )rl )(r frameZpackr okZ button_okZgridrA Z
button_cancelframe_keyseq_basicr
rC rF frame_controls_basicZmodifier_checkbuttonszipr0 rI modifier_labelr+ r build_key_stringr list_keys_finalinsertAVAILABLE_KEYSbindfinal_key_selectedr yviewconfigrG
clear_key_seqZ button_clearframe_keyseq_advancedr
advanced_keysframe_help_advanced toggle_level button_level)rM rn Z
frame_buttonsZ basic_titleZ
basic_keysr] rN rO ZlabelZcheckZ
help_basicZscroll_keys_finalZadvanced_titleZ
help_advancedr2 r2 r3 rL d s
z GetKeysDialog.create_widgetsc C s4 t jdkrddddg| _n dddg| _ddi| _dS ) aV Determine list of names of key modifiers for this platform.
The names are used to build Tk bindings -- it doesn't matter if the
keyboard has these keys; it matters if Tk understands them. The
order is also important: key binding equality depends on it, so
config-keys.def must use the same ordering.
darwinr* ZControlZOptionZCommandZAltZCtrlN)sysplatformr0 rs )rM r2 r2 r3 rH s
z(GetKeysDialog.set_modifiers_for_platformc C s | j ddrN| | j jdd | j | j | j d| _
n0| | j jdd | j | j d| _
dS ) z'Toggle between basic and advanced keys.rZ ZAdvancedz<< Basic Key Binding Entry)rZ Tz Advanced Key Binding Entry >>FN)
r Zcget
startswithr| r{ r} Zliftr r~ Z focus_setrK rp rq )rM r2 r2 r3 r s
zGetKeysDialog.toggle_levelNc C s | dS )z3Handler for clicking on key in basic settings list.N)rt )rM eventr2 r2 r3 ry s z GetKeysDialog.final_key_selectedc C sN | }}| jd}|r0t||}|| | jdd| d dS )z2Create formatted string of modifiers plus the key.rd r& r r' N)
get_modifiersru r+ r4 rJ rF rG join)rM keylistr0 final_keyr2 r2 r3 rt s
z GetKeysDialog.build_key_stringc C s dd | j D }dd |D S )z9Return ordered list of modifiers that have been selected.c S s g | ] }| qS r2 )r+ ).0rO r2 r2 r3
s z/GetKeysDialog.get_modifiers..c S s g | ] }|r|qS r2 r2 )r modr2 r2 r3 r s )rI )rM Zmod_listr2 r2 r3 r s zGetKeysDialog.get_modifiersc C sF | j dd | j dd x| jD ]}|d q$W | jd dS )z#Clear modifiers and keys selection.r rl Zmovetoz0.0r< N)ru Z select_clearrz rI rG rF )rM rO r2 r2 r3 r| s
zGetKeysDialog.clear_key_seqc C s\ | j }|s(| j| j| dd d S | js8| |rH| |rH|| _| |
d S )NzNo key specified.)r@ rB message) rF r+ striprP keyerror_titlerK keys_okbind_okrE grab_releasedestroy)rM r keysr2 r2 r3 ro s
zGetKeysDialog.okc C s d| _ | | d S )Nr< )rE r r )rM r r2 r2 r3 rA
s zGetKeysDialog.cancelc C s | j d}| }| j}dd | jD }|dsF| j|| dd nt|sh|tt krh| j|| dd nR|d gkr|tt d
krd }| j|| |d n"||krd }| j|| |d nd
S dS )zValidity check on user's 'basic' keybinding selection.
Doesn't check the string produced by the advanced dialog because
'modifiers' isn't set.
rd c S s g | ]}|D ]}|q qS r2 r2 )r r r/ r2 r2 r3 r s z)GetKeysDialog.keys_ok..r' zMissing the final Key)rB r z No modifier key(s) specified.)r@ rB r r* )r
r zBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) ru r+ r r rD endswithrP
FUNCTION_KEYS MOVE_KEYS)rM r r r0 r@ Z
key_sequencesmsgr2 r2 r3 r s*
zGetKeysDialog.keys_okc
C sd y| |dd }W n: tk
rN } z | j| j| d| d dS d}~X Y nX | || dS dS )z:Return True if Tcl accepts the new keys else show message.c S s d S )Nr2 r2 r2 r2 r3 4 z'GetKeysDialog.bind_ok..z2The entered key sequence is not accepted.
Error: )r@ rB r FNT)rx r rP r Zunbind)rM r Zbindingerrr2 r2 r3 r 1 s zGetKeysDialog.bind_ok)N)N)N)__name__
__module__ __qualname__r r? rP rL rH r ry rt r r| ro rA r r r2 r2 r2 r3 r5 + s /f
r5 __main__)mainz!idlelib.idle_test.test_config_keyr= F) verbosityexit)run)!__doc__Ztkinterr r r r Z tkinter.ttkr r r r r
r r r, r r tupler- ZdigitsZ
ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSr rw r4 r5 r Zunittestr Zidlelib.idle_test.htestr r2 r2 r2 r3 s*