Your IP : 216.73.216.196
o
0�i~; � @ s
d Z ddlmZmZmZmZ ddlmZmZm Z m
Z
m Z m Z ddlm
Z
ddlmZ ddlZddlZdZeejej �Zed�Zd Zd
Zd Zee e e e e Zd d
� Z G dd� de�Z G dd� de�Z e dkr�ddl m!Z! e!dddd� ddl"m#Z# e#e$� dS dS )z6
Dialog for building Tkinter accelerator key bindings
� )�Toplevel�Listbox� StringVar�TclError)�Frame�Button� Checkbutton�Entry�Label� Scrollbar)�
messagebox)�
_setup_dialogN) ZF1ZF2ZF3ZF4ZF5ZF6ZF7ZF8ZF9ZF10ZF11ZF12z~!@#%^&*()_-+={}[]|;:,.<>/?)�Tab�SpaceZReturn)Z BackSpaceZDeleteZInsert)ZHomeZEnd�Page Up� Page Down�
Left Arrow� Right Arrow�Up Arrow�
Down Arrowc C s i dd�dd�dd�dd�d d
�d d �d
d�dd�dd�dd�dd�dd�dd�dd �d d �d d �d!d"�i d#d$�d%d&�d'd(�d)d*�d+d,�d-d.�d/d0�d1d2�d3d4�d5d6�d7d8�d9d:�d;d<�d=d>�d?d@�dAdB�dCdD��dEdEi�}|� | | �} dF|v r�| tjv r�| �� } dG| � �S )Hz3Translate from keycap symbol to the Tkinter keysym.r Zspace�~Z
asciitilde�!Zexclam�@Zat�#Z
numbersign�%Zpercent�^Z asciicircum�&Z ampersand�*Zasterisk�(Z parenleft�)Z
parenright�_Z
underscore�-Zminus�+Zplus�=Zequal�{Z braceleft�}Z
braceright�[Z bracketleft�]Z bracketright�|Zbar�;Z semicolon�:Zcolon�,Zcomma�.Zperiod�<Zless�>Zgreater�/Zslash�?Zquestionr ZPriorr ZNextr ZLeftr ZRightr ZUpr ZDownr �ShiftzKey-)�get�string�ascii_lowercase�upper)�key� modifiers�mapping� r9 �9/opt/alt/python310/lib64/python3.10/idlelib/config_key.py�
translate_key s� ��������������������������� � �
�
� � � �
r; c sz e Zd ZdZ� fdd�Zdd� Zdd� Zdd � Zd
d � Zdd
d�Z dd� Z
dd� Z dd� Z dd� Z
dd� Zdd� Z� ZS ) � GetKeysFramezKey Sequence Errorc s� t � �|� d| d< d| d< || _|| _|| _d| _t| �| _| j�d� | � � g | _
| j D ]}t| �}|�d� | j
� |� q/d| _
| �� dS )a
parent - parent of this dialog
action - the name of the virtual event these keys will be
mapped to
current_key_sequences - a list of all key sequence lists
currently mapped to virtual events, for overlap checking
� � borderwidthZsunken�relief� FN)�super�__init__�parent�action�current_key_sequences�resultr �
key_string�set�set_modifiers_for_platform�
modifier_varsr7 �append�advanced�create_widgets)�selfrC rD rE �modifier�variable�� __class__r9 r: rB 1 s"
zGetKeysFrame.__init__c O s t j|i |�� d S �N)r � showerror)rN �args�kwargsr9 r9 r: rT L s zGetKeysFrame.showerrorc C s� t | dd�| _| jjdddddd� t| jd| j� d�d �}|jd
d � t| jd | jd
dd�}|jdddd� t | �| _| jjddddd� i | _d}t | j
| j �D ])\}}| j �
||�}t| j| j|||dd�}|jd|dd
d� || j|< |d7 }qRt| jd dd�}|jddddd
d� t| jdd d d �| _| jjd gt�R � | j�d | j� | jjdddd!d"� t| jd#| jjd$�} | jj| jd%� | jdddd!d"� t| jd&| jd'�| _ | j jdddd(� t | d)d�| _ | j jdddddd� t| j d d*| j� d+�d, d�}
|
jd
d � t | j | jd-�| _ | j jdd.� t | �| _ | j jddddd� t| j d d/d�} | jdddd0� t| | j!d1d2�| _"| j"jddd3ddd4� | �!� d S )5NZ keyseq_basic)�namer Znsew� )�row�column�sticky�padx�padyzNew keys for 'z' :��text�w)�anchor�leftZgroover= )�justify� textvariabler? r> �x)ZipadxZipady�fill� )rY rZ r[ r\ r@ )�commandr_ rP ZonvalueZoffvalue)rY rZ r\ r[ z�Select 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.))rc r_ � )rY rZ �
columnspanr\ r[ � �
Zsingle)�width�heightZ
selectmode�endz<ButtonRelease-1>�ns)rY rZ Zrowspanr[ Zvertical)Zorientrh )Zyscrollcommandz
Clear Keys)r_ rh )rY rZ rj Zkeyseq_advancedzEnter new binding(s) for 'z' :
z2(These bindings will not be checked for validity!))rd )rf a� Key bindings are specified using Tkinter keysyms as
in these samples: <Control-f>, <Shift-F2>, <F12>,
<Control-space>, <Meta-less>, <Control-Alt-Shift-X>.
Upper case is used when the Shift modifier is present!
'Emacs style' multi-keystroke bindings are specified as
follows: <Control-x><Control-y>, where the first key
is the 'do-nothing' keybinding.
Multiple separate bindings for one action should be
separated by a space, eg., <Alt-v> <Meta-v>.)rY rZ r[ �<< Basic Key Binding Entry)rh r_ Zew)rY rZ Zstickr\ r] )#r �frame_keyseq_basic�gridr
rD �packrG �frame_controls_basicZmodifier_checkbuttons�zipr7 rJ �modifier_labelr2 r �build_key_stringr �list_keys_final�insert�AVAILABLE_KEYS�bind�final_key_selectedr �yview�configrH r �
clear_key_seqZ button_clear�frame_keyseq_advancedr �
advanced_keys�frame_help_advanced� toggle_level� button_level) rN Z basic_titleZ
basic_keysrZ rO rP ZlabelZcheckZ
help_basicZscroll_keys_finalZadvanced_titleZ
help_advancedr9 r9 r: rM P s� � � �
�
���� � �� �
�
� zGetKeysFrame.create_widgetsc C s. t jdkr g d�| _ng d�| _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.
�darwin)r1 �ControlZOptionZCommand)r� ZAltr1 r� ZCtrlN)�sys�platformr7 rw �rN r9 r9 r: rI � s
z'GetKeysFrame.set_modifiers_for_platformc C s� | j �d��d�r(| �� | j jdd� | j�� | j�� | j� � d| _
dS | �� | j jdd� | j �� | j �� d| _
dS ) z'Toggle between basic and advanced keys.r_ ZAdvancedrq r^ Tz Advanced Key Binding Entry >>FN)
r� Zcget�
startswithr� r r� Zliftr� r� Z focus_setrL rr ru r� r9 r9 r: r� � s
zGetKeysFrame.toggle_levelNc C s | � � dS )z3Handler for clicking on key in basic settings list.N)rx �rN Zeventr9 r9 r: r} � � z GetKeysFrame.final_key_selectedc C sN | � � }}| j�d�}|rt||�}|�|� | j�dd�|�� d�� dS )z2Create formatted string of modifiers plus the key.ra r- r! r. N)�
get_modifiersry r2 r; rK rG rH �join)rN �keylistr7 � final_keyr9 r9 r: rx � s
z GetKeysFrame.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 r9 )r2 )�.0rP r9 r9 r: �
<listcomp>� � z.GetKeysFrame.get_modifiers.<locals>.<listcomp>c S s g | ]}|r|�qS r9 r9 )r� �modr9 r9 r: r� � r� )rJ )rN Zmod_listr9 r9 r: r� � s zGetKeysFrame.get_modifiersc C sB | j �dd� | j �dd� | jD ]}|�d� q| j�d� dS )z#Clear modifiers and keys selection.r ro Zmovetoz0.0r@ N)ry Z select_clearr~ rJ rH rG )rN rP r9 r9 r: r� � s
zGetKeysFrame.clear_key_seqc C sR d| _ | j�� �� }|s| j| j| dd� d S | js | �|�r'| �|�r'|| _ d S )Nr@ zNo key specified.��titlerC �message) rF rG r2 �striprT �keyerror_titlerL �keys_ok�bind_ok)rN �keysr9 r9 r: �ok� s
�zGetKeysFrame.okc C s� | j �d�}| �� }| j}dd� | jD �}|�d�s$| j|| dd� dS |s6|tt vr6| j|| dd� dS |d gkrO|tt d
vrOd }| j|| |d� dS ||v r_d }| j|| |d� dS d
S )z�Validity check on user's 'basic' keybinding selection.
Doesn't check the string produced by the advanced dialog because
'modifiers' isn't set.
ra c S s g | ] }|D ]}|�qqS r9 r9 )r� r� r6 r9 r9 r: r� � s
�
�z(GetKeysFrame.keys_ok.<locals>.<listcomp>r. zMissing the final Key)rC r� z No modifier key(s) specified.r� r1 )r r zBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) ry r2 r� r� rE �endswithrT �
FUNCTION_KEYS� MOVE_KEYS)rN r� r� r7 r� Z
key_sequences�msgr9 r9 r: r� � s6
�� �
�
���zGetKeysFrame.keys_okc
C sd z
| � |dd� �}W n ty) } z| j| j| d|� �d� W Y d}~dS d}~ww | �||� dS )z:Return True if Tcl accepts the new keys else show message.c S s d S rS r9 r9 r9 r9 r: �<lambda> s z&GetKeysFrame.bind_ok.<locals>.<lambda>z2The entered key sequence is not accepted.
Error: r� NFT)r| r rT r� Zunbind)rN r� Zbinding�errr9 r9 r: r� s ���� zGetKeysFrame.bind_okrS )�__name__�
__module__� __qualname__r� rB rT rM rI r� r} rx r� r� r� r� r� �
__classcell__r9 r9 rQ r: r< , s Y
r< c sR e Zd Zddd�� fdd�
Zedd� �Zejdd� �Zd
d d
�Zd
d d �Z� Z S )�
GetKeysWindowF)�_htest�_utestc sf t � �|� | �� d| d< | jddd� | �� |�� |�� d | �� d }|�� |s:|� � d | �
� d nd }| � d|� d|� �� | � |� t
| ||� | _} | �d| j� t| �}
t|
d d
| jd �| _t|
d d
| jd �| _| jjd
d
ddd� | jjd
dddd� | jdddd� |
jddd� | �|� t| � | �� |s�| �� | � � dS dS )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
rX r> F)rn rm r= � r" ZWM_DELETE_WINDOWZOK� )r_ rm rh ZCancelr )rY rZ r\ r] rg �topTZboth)�side�expandrf Zbottomre )r� rf N) rA rB ZwithdrawZ resizableZupdate_idletasksZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZgeometryr� r< �frameZprotocol�cancelr r r� Z button_okZ
button_cancelrs rt Z transientr
Zgrab_setZ deiconifyZ wait_window) rN rC r� rD rE r� r� re �yr� Z
frame_buttonsrQ r9 r: rB sF ���
��
�zGetKeysWindow.__init__c C s | j jS rS �r� rF r� r9 r9 r: rF J s zGetKeysWindow.resultc C s || j _d S rS r� )rN �valuer9 r9 r: rF N r� Nc C s | j �� | �� | �� d S rS )r� r� � grab_release�destroyr� r9 r9 r: r� R s
zGetKeysWindow.okc C s d| _ | �� | �� d S )Nr@ )rF r� r� r� r9 r9 r: r� W s zGetKeysWindow.cancelrS )
r� r� r� rB �propertyrF �setterr� r� r� r9 r9 rQ r: r� s �.
r� �__main__)�mainz!idlelib.idle_test.test_config_keyr= F)� verbosity�exit)�run)%�__doc__Ztkinterr r r r Z tkinter.ttkr r r r r
r r Ztkinter.simpledialogr
r3 r� r� �tupler4 ZdigitsZ
ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSr� r{ r; r< r� r� Zunittestr� Zidlelib.idle_test.htestr� Z
GetKeysDialogr9 r9 r9 r: �<module> s<
��� oC �