|
Server : LiteSpeed System : Linux server51.dnsbootclub.com 4.18.0-553.62.1.lve.el8.x86_64 #1 SMP Mon Jul 21 17:50:35 UTC 2025 x86_64 User : nandedex ( 1060) PHP Version : 8.1.33 Disable Function : NONE Directory : /opt/cppython/lib/python3.8/idlelib/__pycache__/ |
U
@��g�8 � @ 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 e dkr�ddl m Z e dddd� ddl!m"Z" e"e � 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| 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
numbersign�percentZ asciicircumZ ampersandZasteriskZ parenleftZ
parenrightZ
underscoreZminusZplusZequalZ braceleftZ
bracerightZ bracketleftZ bracketrightZbarZ semicolonZcolonZcommaZperiodZlessZgreaterZslashZquestionZPriorZNextZLeftZRightZUpZDownr )#r �~�!�@�#�%�^�&�*�(�)�_�-�+�=�{�}�[�]�|�;�:�,�.�<�>�/�?r r r r r r r �ShiftzKey-)�get�string�ascii_lowercase�upper)�key� modifiers�mapping� r: �1/opt/cppython/lib/python3.8/idlelib/config_key.py�
translate_key sP � r< c @ s� e Zd ZdZddd�dd�Zdd� Zdd � Zd
d � Zd d
� Zd dd�Z dd� Z
dd� Z dd� Z d dd�Z
d!dd�Zdd � Zd d � ZdS )"�
GetKeysDialogzKey Sequence ErrorF)�_htest�_utestc C sJ t �| |� | �� | jdd� | jddd� | �|� | �|� t| � | �� | � d| j
� || _ || _ || _
d| _t| �| _| j�d� | �� g | _| jD ]"}t| �}|�d� | j�|� q�d| _| �� | �� | �d|�� |�� d | � � d |� � |�s$|� � d | � � d nd f � |�sF| � � | �!� 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)�height�widthZWM_DELETE_WINDOW� z+%d+%d� � N)"r �__init__ZwithdrawZ configureZ resizable�titleZ transientr
Zgrab_set�protocol�cancel�parent�action�current_key_sequences�resultr �
key_string�set�set_modifiers_for_platform�
modifier_varsr8 �append�advanced�create_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) �selfrK rH rL rM r> r? �modifier�variabler: r: r; rG 1 sN
�� ���zGetKeysDialog.__init__c O s t j||� d S �N)r � showerror)rV �args�kwargsr: r: r; rZ b s zGetKeysDialog.showerrorc C s, t | ddd� | _}|jdddd� t | �}|jdd d
� t|d d | jd
�| _| jjddddd� t|dd | jd
�| _| jjddddd� t |dd�| _ | j jdddddd� t
| j d| j � d�d�}|jdd� t
| j d | j d dd �}|jddd d � t |�| _
| j
jddddd � i | _d}t| j| j�D ]T\}}| j�||�}t| j
| j|||d!d"�} | jd|ddd#� | | j|< |d7 }�q.t
| j
d d$d%�}
|
jddd&ddd'� t| j
d(d)d*d+�| _| jjdBt�� | j�d-| 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 � d8�d9 d%�} | jdd� t#| j"| j d:�| _$| j$jd d;� t |�| _%| j%jddddd � t
| j%d d<d%�}
|
jdddd=� t|| j&d>d?�| _'| j'jddd@dddA� | �&� d S )CNrE Zsunken)rA �relief�topTZboth)�side�expand�fillZbottom�x)r_ ra ZOK� )�textrC �commandr r@ )�row�column�padx�padyZCancel� Z keyseq_basic)�nameZnsew)rf rg �stickyrh ri zNew keys for 'z' :�rd �w)�anchor�leftZgroove)�justify� textvariabler] rA )ZipadxZipadyra )rf rg rl rh rD )re rd rX ZonvalueZoffvalue)rf rg rh rl 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.))rq rd � )rf rg �
columnspanrh rl � �
Zsingle)rC rB Z
selectmode�endz<ButtonRelease-1>�ns)rf rg Zrowspanrl Zvertical)Zorientre )Zyscrollcommandz
Clear Keys)rd re )rf rg rt Zkeyseq_advancedzEnter new binding(s) for 'z' :
z2(These bindings will not be checked for validity!))rr )ra 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>.)rf rg rl �<< Basic Key Binding Entry)re rd Zew)rf rg Zstickrh ri )rw )(r �frame�packr �okZ button_okZgridrJ Z
button_cancel�frame_keyseq_basicr
rL rO �frame_controls_basicZmodifier_checkbuttons�zipr8 rR �modifier_labelr3 r �build_key_stringr �list_keys_final�insert�AVAILABLE_KEYS�bind�final_key_selectedr �yview�configrP �
clear_key_seqZ button_clear�frame_keyseq_advancedr �
advanced_keys�frame_help_advanced� toggle_level� button_level)rV rz Z
frame_buttonsZ basic_titleZ
basic_keysrg rW rX Zlabel�checkZ
help_basicZscroll_keys_finalZadvanced_titleZ
help_advancedr: r: r; rU f 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.
�darwinr2 ZControlZOptionZCommandZAltZCtrlN)�sys�platformr8 r� �rV r: r: r; rQ � s
z(GetKeysDialog.set_modifiers_for_platformc C s� | j �d��d�rN| �� | j jdd� | j�� | j�� | j� � d| _
n0| �� | j jdd� | j �� | j �� d| _
dS ) z'Toggle between basic and advanced keys.rd ZAdvancedry rm Tz Advanced Key Binding Entry >>FN)
r� Zcget�
startswithr� r� r� Zliftr� r� Z focus_setrT r} r~ r� r: r: r; r� � s
zGetKeysDialog.toggle_levelNc C s | � � dS )z3Handler for clicking on key in basic settings list.N)r� �rV �eventr: r: r; r� � s z GetKeysDialog.final_key_selectedc C sN | � � }}| j�d�}|r0t||�}|�|� | j�dd�|�� d�� dS )z2Create formatted string of modifiers plus the key.ro r. r" r/ N)�
get_modifiersr� r3 r< rS rO rP �join)rV �keylistr8 � final_keyr: r: r; r� � 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 r: )r3 )�.0rX r: r: r; �
<listcomp>� s z/GetKeysDialog.get_modifiers.<locals>.<listcomp>c S s g | ] }|r|�qS r: r: )r� �modr: r: r; r� � s )rR )rV Zmod_listr: r: r; r� � s zGetKeysDialog.get_modifiersc C sB | j �dd� | j �dd� | jD ]}|�d� q"| j�d� dS )z#Clear modifiers and keys selection.r rw Zmovetoz0.0rD N)r� Z select_clearr� rR rP rO )rV rX r: r: r; r� � s
zGetKeysDialog.clear_key_seqc C s\ | j �� �� }|s(| j| j| dd� d S | js8| �|�rH| �|�rH|| _| � � | �
� d S )NzNo key specified.�rH rK �message) rO r3 �striprZ �keyerror_titlerT �keys_ok�bind_okrN � grab_release�destroy)rV r� �keysr: r: r; r| s
�zGetKeysDialog.okc C s d| _ | �� | �� d S )NrD )rN r� r� r� r: r: r; rJ s zGetKeysDialog.cancelc C s� | j �d�}| �� }| j}dd� | jD �}|�d�sF| j|| dd� nt|sh|tt krh| j|| dd� nR|d gkr�|tt d
kr�d }| j|| |d� n"||kr�d }| j|| |d� nd
S dS )z�Validity check on user's 'basic' keybinding selection.
Doesn't check the string produced by the advanced dialog because
'modifiers' isn't set.
ro c S s g | ]}|D ]}|�q qS r: r: )r� r� r7 r: r: r; r� s �z)GetKeysDialog.keys_ok.<locals>.<listcomp>r/ zMissing the final Key)rK r� z No modifier key(s) specified.r� r2 )r r zBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) r� r3 r� r� rM �endswithrZ �
FUNCTION_KEYS� MOVE_KEYS)rV r� r� r8 rH Z
key_sequences�msgr: r: r; r� s4
�
��
��zGetKeysDialog.keys_okc
C sj z| � |dd� �}W n@ tk
rT } z"| j| j| d|� �d� W Y �dS d}~X Y nX | �||� dS dS )z:Return True if Tcl accepts the new keys else show message.c S s d S rY r: r: r: r: r; �<lambda>6 � z'GetKeysDialog.bind_ok.<locals>.<lambda>z2The entered key sequence is not accepted.
Error: r� FNT)r� r rZ r� Zunbind)rV r� Zbinding�errr: r: r; r� 3 s � zGetKeysDialog.bind_ok)N)N)N)�__name__�
__module__� __qualname__r� rG rZ rU rQ r� r� r� r� r� r| rJ r� r� r: r: r: r; r= , s � 1f
r= �__main__)�mainz!idlelib.idle_test.test_config_keyrE F)� verbosity�exit)�run)#�__doc__�tkinterr r r r Z tkinter.ttkr r r r r
r r Ztkinter.simpledialogr
r4 r� r� �tupler5 �digitsZ
ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSr� r� r< r= r� Zunittestr� Zidlelib.idle_test.htestr� r: r: r: r; �<module> s8
���