B v9ap7ã@sdZddlZddlZddlZddlmZmZddlmZm Z m Z m Z m Z m Z ddlmZmZmZmZmZddlmZddlmZGdd „d eƒZGd d „d eƒZGd d „d eƒZGdd„deƒZGdd„deƒZedkr ddlmZeddddddlm Z e eeeƒdS)a| Dialogs that query users and verify the answer before accepting. Query is the generic base class for a popup dialog. The user must either enter a valid answer or close the dialog. Entries are validated when is entered or [Ok] is clicked. Entries are ignored when [Cancel] or [X] are clicked. The 'return value' is .result set to either a valid answer or None. Subclass SectionName gets a name for a new config file section. Configdialog uses it for new highlight theme and keybinding set names. Subclass ModuleName gets a name for File => Open Module. Subclass HelpSource gets menu item and path for additions to Help menu. éN)Ú executableÚplatform)ÚToplevelÚ StringVarÚ BooleanVarÚWÚEÚS)ÚFrameÚButtonÚEntryÚLabelÚ Checkbutton)Ú filedialog)ÚFontcsdeZdZdZdidddœdd„Zddd „Zdd d „Zd d„Zddd„Zddd„Z ‡fdd„Z ‡Z S)ÚQueryzoBase class for getting verified answer from a user. For this base class, accept any non-blank string. ÚF)Útext0Ú used_namesÚ_htestÚ_utestc CsXt ||¡| ¡||_| |¡||_||_||_| |¡|  ¡|j   dd¡}|dkr”y|j   dd|j dd¡Wn YnX|  d|j¡|  d |j¡| d |j¡|  d |j¡|  d |j¡|jd d d| ¡| ¡| d| ¡| ¡d| ¡d| ¡|s2| ¡d| ¡dndf¡|sT| ¡| ¡dS)aöCreate popup, do not return until tk widget destroyed. Additional subclass init must be done before calling this unless _utest=True is passed to suppress wait_window(). title - string, title of popup dialog message - string, informational message to display text0 - initial value for entry used_names - names already in use _htest - bool, change box location when running htest _utest - bool, leave window hidden and not modal ÚtkÚwindowingsystemZaquaz!::tk::unsupported::MacWindowStyleZstyleZ moveableModalrz z ZWM_DELETE_WINDOWz z F)ZheightÚwidthz+%d+%déé–N)rÚ__init__ZwithdrawÚparentÚtitleÚmessagerrZ transientZgrab_setrZcallZ_wZbindÚcancelZprotocolÚokZ resizableÚcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) Úselfrrrrrrrr©r$ú/usr/lib/python3.7/query.pyr%sB    *zQuery.__init__ÚOKcCs.t|dd|_}|jdddd|jdddt|dd |jd }t||jƒ|_t |d |jd |_ |j   ¡t d d|j d|_t|dd|jd|_t||d|jd|_t|d|jd|_|jddddtd|j jddddttddgd|jjddddttd|jjdddd|jjdddddS)Né )ZpaddingrZnews)ÚcolumnÚrowÚstickyé)ZweightÚwÚleft)ÚanchorÚjustifyÚtexté)rÚ textvariableZ TkCaptionFontT)ÚnameÚexistsÚrootú Úred)r0Ú foregroundÚfontZactive)r0ÚdefaultÚcommandZCancel)r0r;éé)r(r)Ú columnspanÚpadxr*)r(r)r>r?r*Úpadyréc)r(r)r?)r ÚframeÚgridZgrid_columnconfigurer rrrZentryvarr ÚentryÚ focus_setrrÚ error_fontÚ entry_errorr r!Z button_okr Z button_cancelrr)r#Úok_textrBZ entrylabelr$r$r%r"Ws.     zQuery.create_widgetsNcCsd||p|jd<dS)NzERROR: r0)rG)r#rZwidgetr$r$r%Ú showerrorsszQuery.showerrorcCs.d|jd<|j ¡ ¡}|s*| d¡dS|S)zReturn non-blank entry or None.rr0z blank line.N)rGrDÚgetÚstriprI)r#rDr$r$r%Úentry_okws   zQuery.entry_okcCs.| ¡}|dk r ||_| ¡n |j ¡dS)zIf entry is valid, bind it to 'result' and destroy tk widget. Otherwise leave dialog open for user to correct entry or cancel. N)rLÚresultÚdestroyrDrE)r#ÚeventrDr$r$r%r!€s  zQuery.okcCsd|_| ¡dS)z0Set dialog result to None and destroy tk widget.N)rMrN)r#rOr$r$r%r sz Query.cancelcs| ¡tƒ ¡dS)N)Z grab_releaseÚsuperrN)r#)Ú __class__r$r%rN’sz Query.destroy)r&)N)N)N) Ú__name__Ú __module__Ú __qualname__Ú__doc__rr"rIrLr!r rNÚ __classcell__r$r$)rQr%r s1   rcs0eZdZdZdddœ‡fdd„ Zdd„Z‡ZS)Ú SectionNamez*Get a name for a config file section name.F)rrcstƒj||||||ddS)N)rrr)rPr)r#rrrrrr)rQr$r%r›szSectionName.__init__cCs`d|jd<|j ¡ ¡}|s*| d¡dSt|ƒdkrD| d¡dS||jkr\| d¡dS|S)z2Return sensible ConfigParser section name or None.rr0zno name specified.Nr1z"name is longer than 30 characters.zname is already in use.)rGrDrJrKrIÚlenr)r#r3r$r$r%rL s      zSectionName.entry_ok)rRrSrTrUrrLrVr$r$)rQr%rW—srWcs0eZdZdZdddœ‡fdd„ Zdd„Z‡ZS)Ú ModuleNamez-Get a module name for Open Module menu entry.F)rrcstƒj||||||ddS)N)rrr)rPr)r#rrrrrr)rQr$r%r´szModuleName.__init__c CsÜd|jd<|j ¡ ¡}|s*| d¡dSytj |¡}Wn4tt fk rn}z| t |ƒ¡dSd}~XYnX|dkr†| d¡dSt |j tj jƒs¤| d¡dSy|j  |¡}Wn"tk rÖ|jd|ddSX|S) z0Return entered module name as file path or None.rr0zno name specified.Nzmodule not foundznot a source-based modulez$loader does not support get_filename)r)rGrDrJrKrIÚ importlibÚutilÚ find_specÚ ValueErrorÚ ImportErrorÚstrÚ isinstanceÚloaderÚabcÚ SourceLoaderÚ get_filenameÚAttributeError)r#r3ÚspecÚmsgZ file_pathr$r$r%rL¹s.    zModuleName.entry_ok)rRrSrTrUrrLrVr$r$)rQr%rY°srYcs`eZdZdZddidddœ‡fdd„ Z‡fdd„Zd d „Zd d „Zej Z d d„Z dd„Z ‡Z S)Ú HelpSourcez,Get menu name and help source for Help menu.rF)ÚmenuitemÚfilepathrrrc s(||_d}tƒj|||||||ddS)z·Get menu entry and url/local file for Additional Help. User enters a name for the Help resource and a web url or file name. The user can browse for the file. zName for item on Help menu:)rrrrN)rjrPr) r#rrrirjrrrr)rQr$r%rÙs zHelpSource.__init__csÔtƒ ¡|j}t|dddd}t||jƒ|_t||jdd|_t |dd|j d }t|d d |j d |_ |j d ddddd gtd|jj d dddttdd gd|j dddttd|j j d dddttddS)Nr,r-z,Help File Path: Enter URL or browse for file)r.r/r0é()r2rZBrowseé)r0rr;r6r7)r0r8r9rr'r<r=)r(r)r>r?r@r*é r)r(r)r>r?r*r@)r(r)r?r*é )r(r)r>r?r*)rPr"rBr rrjÚpathvarr Úpathr Ú browse_filerFÚ path_errorrCrrr )r#rBZ pathlabelZbrowse)rQr$r%r"æs"    zHelpSource.create_widgetscCstj||dj||dS)N)rÚ filetypes)Z initialdirZ initialfile)rZOpenZshow)r#rsZinitdirZinitfiler$r$r%Ú askfilenameúszHelpSource.askfilenamecCs˜dddddg}|j ¡}|r.tj |¡\}}nHd}tdd…dkrntj tj t¡d¡}tj  |¡svt  ¡}nt  ¡}|  |||¡}|r”|j  |¡dS) N)z HTML Filesz *.htm *.htmlÚTEXT)z PDF Filesz*.pdfru)zWindows Help Filesz*.chm)z Text Filesz*.txtru)z All FilesÚ*r<ÚwinZDoc) rorJÚosrpÚsplitrÚjoinÚdirnamerÚisdirÚgetcwdrtÚset)r#rsrpÚdirÚbaseÚfiler$r$r%rqs"   zHelpSource.browse_filecCs||j ¡ ¡}|s$| d|j¡dS| d¡sx|dd…dkrJ|dd…}tj |¡sh| d|j¡dStdkrxd|}|S) z(Simple validity check for menu file pathzno help file path specified.N)zwww.Zhttpr=zfile:zhelp file path does not exist.Údarwinzfile://) rprJrKrIrrÚ startswithrxr4r)r#rpr$r$r%Úpath_oks   zHelpSource.path_okcCs@d|jd<d|jd<| ¡}| ¡}|dks4|dkr8dS||fS)z,Return apparently valid (name, path) or Nonerr0N)rGrrÚitem_okr„)r#r3rpr$r$r%rL*s   zHelpSource.entry_ok) rRrSrTrUrr"rtrqrWrLr…r„rVr$r$)rQr%rhÕs rhcsFeZdZdZddddœ‡fdd„ Z‡fdd„Zd d „Zd d „Z‡ZS) Ú CustomRunz†Get settings for custom run of module. 1. Command line arguments to extend sys.argv. 2. Whether to restart Shell or not. rF)Úcli_argsrrcs d}tƒj||||||ddS)Nz$Command Line Arguments for sys.argv:)rrr)rPr)r#rrr‡rrr)rQr$r%r:szCustomRun.__init__csxtƒjdd|j}t|dd|_t||jdddd}t|dd |jd |_|j d d d ddd|jj d dd ddddS)NZRun)rHT)ÚvalueFz Restart shell)ÚvariableZonvalueZoffvaluer0r6r7)r0r8r9rér<r=r,)r(r)r>r?r*rnZwe) rPr"rBrÚ restartvarrr rFZ args_errorrC)r#rBÚrestart)rQr$r%r"Bs   zCustomRun.create_widgetsc CsV|j ¡ ¡}ytj|dd}Wn0tk rP}z| t|ƒ¡dSd}~XYnX|S)z6Validity check and parsing for command line arguments.T)ÚposixN)rDrJrKÚshlexryr]rIr_)r#Z cli_stringr‡Úerrr$r$r%Ú cli_args_okOszCustomRun.cli_args_okcCs0d|jd<| ¡}|j ¡}|dkr(dS||fS)z3Return apparently valid (cli_args, restart) or Nonerr0N)rGrr‹rJ)r#r‡rŒr$r$r%rLYs  zCustomRun.entry_ok) rRrSrTrUrr"rrLrVr$r$)rQr%r†2s   r†Ú__main__)Úmainzidlelib.idle_test.test_queryrF)Ú verbosityÚexit)Úrun)!rUrZrxrŽÚsysrrZtkinterrrrrrr Z tkinter.ttkr r r r rrZ tkinter.fontrrrWrYrhr†rRZunittestr’Zidlelib.idle_test.htestr•r$r$r$r%Ús$   w%]/