B v9a8@sdZddlmZmZmZmZmZddlmZm Z m Z m Z m Z m Z ddlmZddlZddlZdZeejejZedZdZd Zd ZeeeeeeZd d ZGd ddeZedkrddlmZeddddddl m!Z!e!edS)z6 Dialog for building Tkinter accelerator key bindings )ToplevelListboxText StringVarTclError)FrameButton CheckbuttonEntryLabel Scrollbar) messageboxN) ZF1ZF2ZF3ZF4ZF5ZF6ZF7ZF8ZF9ZF10ZF11ZF12z~!@#%^&*()_-+={}[]|;:,.<>/?)TabSpaceZReturn)Z BackSpaceZDeleteZInsert)ZHomeZEndzPage Upz Page Downz Left Arrowz Right ArrowzUp Arrowz Down Arrowc$Cs|ddddddddd d d d d ddddddddddddddddddd d!d"d#d$#}|||}d%|krr|tjkrr|}d&|S)'z3Translate from keycap symbol to the Tkinter keysym.ZspaceZ asciitildeZexclamZatZ numbersignpercentZ asciicircumZ ampersandZasteriskZ parenleftZ parenrightZ underscoreZminusZplusZequalZ braceleftZ bracerightZ bracketleftZ bracketrightZbarZ semicolonZcolonZcommaZperiodZlessZgreaterZslashZquestionZPriorZNextZLeftZRightZUpZDownr)#r~!@#%^&*()_-+={}[]|;:,.<>/?zPage Upz Page Downz Left Arrowz Right ArrowzUp Arrowz Down ArrowrShiftzKey-)getstringascii_lowercaseupper)key modifiersmappingr4 /usr/lib/python3.7/config_key.py translate_keys   r6c@seZdZdZdddddZddZdd Zd d Zd d ZdddZ ddZ ddZ ddZ d ddZ d!ddZddZddZdS)" GetKeysDialogzKey Sequence ErrorF)_htest_utestc CsFt||||jdd|jddd||||||d|j ||_ ||_ ||_ d|_ t||_|jd|g|_x,|jD]"}t|}|d|j|qWd|_|||d||d|d||s |d|dnd 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_WINDOWz+%d+%dN)!r__init__ZwithdrawZ configureZ resizabletitleZ transientZgrab_setZprotocolcancelparentactioncurrent_key_sequencesresultr key_stringsetset_modifiers_for_platform modifier_varsr2appendadvancedcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) selfrDrBrErFr8r9modifiervariabler4r4r5rA0s@        *zGetKeysDialog.__init__cOstj||dS)N)r showerror)rOargskwargsr4r4r5rR`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}xft|j|jD]T\}}|j||}t|j |j|||d!d"} | jd|ddd#| |j|<|d7}q0Wt |j dd$d%} | jddd&ddd't|j d(d)d*d+|_|jjdBt|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)CNr?Zsunken)r;relieftopTZboth)sideexpandfillZbottomx)rWrYZOK)textr=commandrr:)rowcolumnpadxpadyZCancelZ keyseq_basic)nameZnsew)r^r_stickyr`razNew keys for 'z' :)r\w)anchorleftZgroove)justify textvariablerUr;)ZipadxZipadyrY)r^r_rdr`r>)r]r\rQZonvalueZoffvalue)r^r_r`rdzSelect 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.))rhr\)r^r_ columnspanr`rd Zsingle)r=r<Z selectmodeendzns)r^r_ZrowspanrdZvertical)Zorientr])Zyscrollcommandz Clear Keys)r\r])r^r_rkZkeyseq_advancedzEnter new binding(s) for 'z' : z2(These bindings will not be checked for validity!))ri)rYaKey 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_rdz<< Basic Key Binding Entry)r]r\Zew)r^r_Zstickr`ra)rn)(rframepackrokZ button_okZgridrCZ button_cancelframe_keyseq_basicr rErHframe_controls_basicZmodifier_checkbuttonszipr2rKmodifier_labelr-r build_key_stringrlist_keys_finalinsertAVAILABLE_KEYSbindfinal_key_selectedr yviewconfigrI clear_key_seqZ button_clearframe_keyseq_advancedr advanced_keysframe_help_advanced toggle_level button_level)rOrpZ frame_buttonsZ basic_titleZ basic_keysr_rPrQZlabelZcheckZ help_basicZscroll_keys_finalZadvanced_titleZ help_advancedr4r4r5rNds                 zGetKeysDialog.create_widgetscCs4tjdkrddddg|_n dddg|_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. darwinr,ZControlZOptionZCommandZAltZCtrlN)sysplatformr2rv)rOr4r4r5rJs  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.r\ZAdvancedz<< Basic Key Binding Entry)r\TzAdvanced Key Binding Entry >>FN) rZcget startswithrr~rZliftrrZ focus_setrMrsrt)rOr4r4r5rs     zGetKeysDialog.toggle_levelNcCs |dS)z3Handler for clicking on key in basic settings list.N)rw)rOeventr4r4r5r|sz GetKeysDialog.final_key_selectedcCsN|}}|jd}|r0t||}|||jdd|ddS)z2Create formatted string of modifiers plus the key.rfr(rr)N) get_modifiersrxr-r6rLrHrIjoin)rOkeylistr2 final_keyr4r4r5rws     zGetKeysDialog.build_key_stringcCsdd|jD}dd|DS)z9Return ordered list of modifiers that have been selected.cSsg|] }|qSr4)r-).0rQr4r4r5 sz/GetKeysDialog.get_modifiers..cSsg|] }|r|qSr4r4)rmodr4r4r5rs)rK)rOZmod_listr4r4r5rszGetKeysDialog.get_modifierscCsF|jdd|jddx|jD]}|dq$W|jddS)z#Clear modifiers and keys selection.rrnZmovetoz0.0r>N)rxZ select_clearr}rKrIrH)rOrQr4r4r5rs  zGetKeysDialog.clear_key_seqcCs\|j}|s(|j|j|dddS|js8||rH||rH||_| | dS)NzNo key specified.)rBrDmessage) rHr-striprRkeyerror_titlerMkeys_okbind_okrG grab_releasedestroy)rOrkeysr4r4r5rrs zGetKeysDialog.okcCsd|_||dS)Nr>)rGrr)rOrr4r4r5rC szGetKeysDialog.cancelcCs|jd}|}|j}dd|jD}|dsF|j||ddnt|sh|ttkrh|j||ddnR|d gkr|ttd krd }|j|||dn"||krd }|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. rfcSsg|]}|D]}|q qSr4r4)rrr1r4r4r5rsz)GetKeysDialog.keys_ok..r)zMissing the final Key)rDrzNo modifier key(s) specified.)rBrDrr,)rrzBThe shift modifier by itself may not be used with this key symbol.z'This key combination is already in use.TF) rxr-rrrFendswithrR FUNCTION_KEYS MOVE_KEYS)rOrrr2rBZ key_sequencesmsgr4r4r5rs*      zGetKeysDialog.keys_okc Csdy||dd}Wn:tk rN}z|j|j|d|ddSd}~XYnX|||dSdS)z:Return True if Tcl accepts the new keys else show message.cSsdS)Nr4r4r4r4r54z'GetKeysDialog.bind_ok..z2The entered key sequence is not accepted. Error: )rBrDrFNT)r{rrRrZunbind)rOrZbindingerrr4r4r5r1s zGetKeysDialog.bind_ok)N)N)N)__name__ __module__ __qualname__rrArRrNrJrr|rwrrrrrCrrr4r4r4r5r7+s/f   r7__main__)mainz!idlelib.idle_test.test_config_keyr?F) verbosityexit)run)"__doc__ZtkinterrrrrrZ tkinter.ttkrrr r r r r r.rrtupler/digitsZ ALPHANUM_KEYSZPUNCTUATION_KEYSZWHITESPACE_KEYSZ EDIT_KEYSrrzr6r7rZunittestrZidlelib.idle_test.htestrr4r4r4r5s*