o *j~;@s dZddlmZmZmZmZddlmZmZm Z m Z m Z m Z ddlm Z ddlmZddlZddlZdZeejejZedZd Zd Zd ZeeeeeeZd d ZGdddeZGdddeZedkrddl m!Z!e!ddddddl"m#Z#e#e$dSdS)z6 Dialog for building Tkinter accelerator key bindings )ToplevelListbox StringVarTclError)FrameButton CheckbuttonEntryLabel Scrollbar) messagebox) _setup_dialogN) ZF1ZF2ZF3ZF4ZF5ZF6ZF7ZF8ZF9ZF10ZF11ZF12z~!@#%^&*()_-+={}[]|;:,.<>/?)TabSpaceZReturn)Z BackSpaceZDeleteZInsert)ZHomeZEndPage Up Page Down Left Arrow Right ArrowUp Arrow Down ArrowcCs iddddddddd d d d d ddddddddddddddddddd d!d"id#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdEi}|||}dF|vr|tjvr|}dG|S)Hz3Translate from keycap symbol to the Tkinter keysym.rZspace~Z asciitilde!Zexclam@Zat#Z numbersign%percent^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.ZperiodZgreater/Zslash?ZquestionrZPriorrZNextrZLeftrZRightrZUprZDownrShiftzKey-)getstringascii_lowercaseupper)key modifiersmappingr:$lib/python3.10/idlelib/config_key.py translate_keys         r<cszeZdZdZfddZddZddZdd Zd d Zdd dZ ddZ ddZ ddZ ddZ ddZddZZS) GetKeysFramezKey Sequence Errorcst|d|d<d|d<||_||_||_d|_t||_|jd| 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  borderwidthZsunkenreliefFN)super__init__parentactioncurrent_key_sequencesresultr key_stringsetset_modifiers_for_platform modifier_varsr8appendadvancedcreate_widgets)selfrDrErFmodifiervariable __class__r:r;rC1s"      zGetKeysFrame.__init__cOstj|i|dSN)r showerror)rOargskwargsr:r:r;rULszGetKeysFrame.showerrorc Cst|dd|_|jjddddddt|jd|jdd }|jd d t|jd |jd dd}|jddddt||_|jjdddddi|_d}t |j |j D])\}}|j ||}t|j|j|||dd}|jd|dd d||j|<|d7}qRt|jd dd}|jddddd dt|jdddd|_|jjdgtR|jd |j|jjdddd!d"t|jd#|jjd$} |jj| jd%| jdddd!d"t|jd&|jd'|_|jjdddd(t|d)d|_|jjddddddt|jd d*|jd+d,d} | jd d t|j|jd-|_|jjdd.t||_ |j jdddddt|j d d/d} | jdddd0t||j!d1d2|_"|j"jddd3ddd4|!dS)5NZ keyseq_basic)namerZnsew)rowcolumnstickypadxpadyzNew keys for 'z' :textw)anchorleftZgroover>)justify textvariabler@r?x)ZipadxZipadyfill)rZr[r\r]rA)commandr`rQZonvalueZoffvalue)rZr[r]r\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.))rdr`)rZr[ columnspanr]r\ Zsingle)widthheightZ selectmodeendzns)rZr[Zrowspanr\Zvertical)Zorientri)Zyscrollcommandz Clear Keys)r`ri)rZr[rkZkeyseq_advancedzEnter new binding(s) for 'z' : z2(These bindings will not be checked for validity!))re)rgaKey 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., .)rZr[r\<< Basic Key Binding Entry)rir`Zew)rZr[Zstickr]r^)#rframe_keyseq_basicgridr rEpackrHframe_controls_basicZmodifier_checkbuttonszipr8rKmodifier_labelr3rbuild_key_stringrlist_keys_finalinsertAVAILABLE_KEYSbindfinal_key_selectedr yviewconfigrIr clear_key_seqZ button_clearframe_keyseq_advancedr advanced_keysframe_help_advanced toggle_level button_level) rOZ basic_titleZ basic_keysr[rPrQZlabelcheckZ help_basicZscroll_keys_finalZadvanced_titleZ help_advancedr:r:r;rNPs            zGetKeysFrame.create_widgetscCs.tjdkr gd|_ngd|_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)r2ControlZOptionZCommand)rZAltr2rZCtrlN)sysplatformr8rxrOr:r:r;rJs   z'GetKeysFrame.set_modifiers_for_platformcCs|jddr(||jjdd|j|j|j d|_ dS||jjdd|j |j d|_ dS) z'Toggle between basic and advanced keys.r`ZAdvancedrrr_TzAdvanced Key Binding Entry >>FN) rZcget startswithrrrZliftrrZ focus_setrMrsrvrr:r:r;rs       zGetKeysFrame.toggle_levelNcCs |dS)z3Handler for clicking on key in basic settings list.N)ryrOZeventr:r:r;r~ zGetKeysFrame.final_key_selectedcCsN|}}|jd}|rt||}|||jdd|ddS)z2Create formatted string of modifiers plus the key.rbr.r"r/N) get_modifiersrzr3r<rLrHrIjoin)rOkeylistr8 final_keyr:r:r;rys    zGetKeysFrame.build_key_stringcCsdd|jD}dd|DS)z9Return ordered list of modifiers that have been selected.cSsg|]}|qSr:)r3).0rQr:r:r; z.GetKeysFrame.get_modifiers..cSsg|]}|r|qSr:r:)rmodr:r:r;rr)rK)rOZmod_listr:r:r;rszGetKeysFrame.get_modifierscCsB|jdd|jdd|jD]}|dq|jddS)z#Clear modifiers and keys selection.rrpZmovetoz0.0rAN)rzZ select_clearrrKrIrH)rOrQr:r:r;rs   zGetKeysFrame.clear_key_seqcCsRd|_|j}|s|j|j|dddS|js||r'||r'||_dS)NrAzNo key specified.titlerDmessage) rGrHr3striprUkeyerror_titlerMkeys_okbind_ok)rOkeysr:r:r;oks zGetKeysFrame.okcCs|jd}|}|j}dd|jD}|ds$|j||dddS|s6|ttvr6|j||dddS|d gkrO|ttd vrOd }|j|||ddS||vr_d }|j|||ddSd S)zValidity check on user's 'basic' keybinding selection. Doesn't check the string produced by the advanced dialog because 'modifiers' isn't set. rbcSsg|] }|D]}|qqSr:r:)rrr7r:r:r;rs  z(GetKeysFrame.keys_ok..r/zMissing the final Key)rDrzNo modifier key(s) specified.rr2)rrzBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) rzr3rrrFendswithrU FUNCTION_KEYS MOVE_KEYS)rOrrr8rZ key_sequencesmsgr:r:r;rs6     zGetKeysFrame.keys_okc Csdz ||dd}Wnty)}z|j|j|d|dWYd}~dSd}~ww|||dS)z:Return True if Tcl accepts the new keys else show message.cSsdSrTr:r:r:r:r;sz&GetKeysFrame.bind_ok..z2The entered key sequence is not accepted. Error: rNFT)r}rrUrZunbind)rOrZbindingerrr:r:r;r s zGetKeysFrame.bind_okrT)__name__ __module__ __qualname__rrCrUrNrJrr~ryrrrrr __classcell__r:r:rRr;r=,s Y   r=csReZdZdddfdd ZeddZejddZd d d Zd d d ZZ S) GetKeysWindowF)_htest_utestc sft||d|d<|jddd|||d|d}||s:| d| dnd}| d|d|| |t ||||_} |d|jt|} t| d d |jd |_t| d d |jd |_|jjd d ddd|jjd dddd| jdddd| jddd||t|||s||dSdS)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 rYr?F)rornr>r#ZWM_DELETE_WINDOWZOK)r`rnriZCancelr)rZr[r]r^rhtopTZboth)sideexpandrgZbottomrf)rrgN)rBrCZwithdrawZ resizableZupdate_idletasksZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZgeometryrr=frameZprotocolcancelrrrZ button_okZ button_cancelrtruZ transientr Zgrab_setZ deiconifyZ wait_window) rOrDrrErFrrrfyrZ frame_buttonsrRr:r;rCsF    zGetKeysWindow.__init__cCs|jjSrTrrGrr:r:r;rGJszGetKeysWindow.resultcCs ||j_dSrTr)rOvaluer:r:r;rGNrNcCs|j||dSrT)rr grab_releasedestroyrr:r:r;rRs  zGetKeysWindow.okcCsd|_||dS)NrA)rGrrrr:r:r;rWs zGetKeysWindow.cancelrT) rrrrCpropertyrGsetterrrrr:r:rRr;rs.   r__main__)mainz!idlelib.idle_test.test_config_keyr>F) verbosityexit)run)%__doc__ZtkinterrrrrZ tkinter.ttkrrrr r r r Ztkinter.simpledialogr r4rrtupler5digitsZ ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSrr|r<r=rrZunittestrZidlelib.idle_test.htestrZ GetKeysDialogr:r:r:r;s<    oC