a c_8@sdZddlmZmZmZmZddlmZmZm Z m Z m Z m Z ddlm Z ddlZddlZdZeejejZedZdZd Zd ZeeeeeeZd d ZGd ddeZedkrddlmZeddddddlm Z e edS)z6 Dialog for building Tkinter accelerator key bindings )ToplevelListbox StringVarTclError)FrameButton CheckbuttonEntryLabel Scrollbar) messageboxN) ZF1ZF2ZF3ZF4ZF5ZF6ZF7ZF8ZF9ZF10ZF11ZF12z~!@#%^&*()_-+={}[]|;:,.<>/?)TabSpaceZReturn)Z BackSpaceZDeleteZInsert)ZHomeZEndPage Up Page Down Left Arrow Right ArrowUp Arrow Down Arrowc$Cs|ddddddddd d d d d ddddddddddddddddddd d!d"d#d$#}|||}d%|vrr|tjvrr|}d&|S)'z3Translate from keycap symbol to the Tkinter keysym.ZspaceZ asciitildeZexclamZatZ numbersignZpercentZ asciicircumZ ampersandZasteriskZ parenleftZ parenrightZ underscoreZminusZplusZequalZ braceleftZ bracerightZ bracketleftZ bracketrightZbarZ semicolonZcolonZcommaZperiodZlessZgreaterZslashZquestionZPriorZNextZLeftZRightZUpZDownr )#r~!@#%^&*()_-+={}[]|;:,.<>/?rrrrrrr ShiftzKey-)getstringascii_lowercaseupper)key modifiersmappingr8#lib/python3.9/idlelib/config_key.py translate_keys" r:c@seZdZdZdddddZddZdd Zd d Zd d ZdddZ ddZ ddZ ddZ d ddZ d!ddZddZddZdS)" GetKeysDialogzKey Sequence ErrorF)_htest_utestc CsBt||||jdd|jddd||||||d|j ||_ ||_ ||_ d|_ t||_|jd|g|_|jD]"}t|}|d|j|qd|_|||d||d|d||s|d|dnd f|s>|| 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_WINDOWz+%d+%dN)!r__init__ZwithdrawZ configureZ resizabletitleZ transientZgrab_setZprotocolcancelparentactioncurrent_key_sequencesresultr key_stringsetset_modifiers_for_platform modifier_varsr6appendadvancedcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) selfrHrFrIrJr<r=modifiervariabler8r8r9rE0sL        zGetKeysDialog.__init__cOstj|i|dSN)r showerror)rSargskwargsr8r8r9rW`szGetKeysDialog.showerrorc Cs0t|ddd|_}|jddddt|}|jdd d t|d d |jd |_|jjdddddt|dd |jd |_|jjdddddt|dd|_ |j jddddddt |j d|j dd}|jddt |j d|j ddd}|jddd dt||_ |j jddddd i|_d}t|j|jD]T\}}|j||}t|j |j|||d!d"} | jd|ddd#| |j|<|d7}q.t |j dd$d%} | jddd&ddd't|j d(d)d*d+|_|jjd,gtR|jd-|j|jjdd&d&d.d/t|j d0|jjd1} |jj| jd2| jddd&d.d/t|j d3|j d4|_!|j!jddd&d5t|d6d|_"|j"jddddddt |j"dd7|j d8d9d%} | jddt#|j"|j d:|_$|j$jd d;t||_%|j%jddddd t |j%ddd?|_'|j'jddd@dddA|&dS)BNrCZsunken)r?relieftopTZboth)sideexpandfillZbottomx)r\r^ZOK)textrAcommandrr>)rowcolumnpadxpadyZCancelZ keyseq_basic)nameZnsew)rcrdstickyrerfzNew keys for 'z' :raw)anchorleftZgroove)justify textvariablerZr?)ZipadxZipadyr^)rcrdrirerB)rbrarUZonvalueZoffvalue)rcrdrerizSelect 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.))rnra)rcrd columnspanreri Zsingle)rAr@Z selectmodeendzns)rcrdZrowspanriZvertical)Zorientrb)Zyscrollcommandz Clear Keys)rarb)rcrdrqZkeyseq_advancedzEnter new binding(s) for 'z' : z2(These bindings will not be checked for validity!))ro)r^aKey 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., .)rcrdri<< Basic Key Binding Entry)rbraZew)rcrdZstickrerf)(rframeZpackrokZ button_okZgridrGZ button_cancelframe_keyseq_basicr rIrLframe_controls_basicZmodifier_checkbuttonszipr6rOmodifier_labelr1rbuild_key_stringrlist_keys_finalinsertAVAILABLE_KEYSbindfinal_key_selectedr yviewconfigrM clear_key_seqZ button_clearframe_keyseq_advancedr advanced_keysframe_help_advanced toggle_level button_level)rSrwZ frame_buttonsZ basic_titleZ basic_keysrdrTrUZlabelZcheckZ help_basicZscroll_keys_finalZadvanced_titleZ help_advancedr8r8r9rRds           zGetKeysDialog.create_widgetscCs.tjdkrgd|_n gd|_ddi|_dS)aVDetermine 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)r0ControlZOptionZCommand)rZAltr0rZCtrlN)sysplatformr6r|rSr8r8r9rNs   z(GetKeysDialog.set_modifiers_for_platformcCs|jddrN||jjdd|j|j|j d|_ n0||jjdd|j |j d|_ dS) z'Toggle between basic and advanced keys.raZAdvancedrvrjTzAdvanced Key Binding Entry >>FN) rZcget startswithrrrZliftrrZ focus_setrQryrzrr8r8r9rs     zGetKeysDialog.toggle_levelNcCs |dS)z3Handler for clicking on key in basic settings list.N)r}rSeventr8r8r9rsz GetKeysDialog.final_key_selectedcCsN|}}|jd}|r0t||}|||jdd|ddS)z2Create formatted string of modifiers plus the key.rlr,r r-N) get_modifiersr~r1r:rPrLrMjoin)rSkeylistr6 final_keyr8r8r9r}s     zGetKeysDialog.build_key_stringcCsdd|jD}dd|DS)z9Return ordered list of modifiers that have been selected.cSsg|] }|qSr8)r1).0rUr8r8r9 z/GetKeysDialog.get_modifiers..cSsg|] }|r|qSr8r8)rmodr8r8r9rr)rO)rSZmod_listr8r8r9rszGetKeysDialog.get_modifierscCsB|jdd|jdd|jD]}|dq"|jddS)z#Clear modifiers and keys selection.rrtZmovetoz0.0rBN)r~Z select_clearrrOrMrL)rSrUr8r8r9rs   zGetKeysDialog.clear_key_seqcCs\|j}|s(|j|j|dddS|js8||rH||rH||_| | dS)NzNo key specified.rFrHmessage) rLr1striprWkeyerror_titlerQkeys_okbind_okrK grab_releasedestroy)rSrkeysr8r8r9rxs zGetKeysDialog.okcCsd|_||dS)NrB)rKrrrr8r8r9rG szGetKeysDialog.cancelcCs|jd}|}|j}dd|jD}|dsF|j||ddnt|sh|ttvrh|j||ddnR|d gkr|ttd vrd }|j|||dn"||vrd }|j|||dnd SdS)zValidity check on user's 'basic' keybinding selection. Doesn't check the string produced by the advanced dialog because 'modifiers' isn't set. rlcSsg|]}|D]}|q qSr8r8)rrr5r8r8r9rsz)GetKeysDialog.keys_ok..r-zMissing the final Key)rHrzNo modifier key(s) specified.rr0)r rzBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) r~r1rrrJendswithrW FUNCTION_KEYS MOVE_KEYS)rSrrr6rFZ key_sequencesmsgr8r8r9rs4     zGetKeysDialog.keys_okc Cshz||dd}Wn>tyR}z&|j|j|d|dWYd}~dSd}~00|||dSdS)z:Return True if Tcl accepts the new keys else show message.cSsdSrVr8r8r8r8r94rz'GetKeysDialog.bind_ok..z2The entered key sequence is not accepted. Error: rNFT)rrrWrZunbind)rSrZbindingerrr8r8r9r1s zGetKeysDialog.bind_ok)N)N)N)__name__ __module__ __qualname__rrErWrRrNrrr}rrrxrGrrr8r8r8r9r;+s 0f   r;__main__)mainz!idlelib.idle_test.test_config_keyrCF) verbosityexit)run)!__doc__ZtkinterrrrrZ tkinter.ttkrrrr r r r r2rrtupler3ZdigitsZ ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSrrr:r;rZunittestrZidlelib.idle_test.htestrr8r8r8r9s6