B S]p7@sdZddlZddlZddlZddlmZmZddlmZm Z m Z m Z m Z m Z ddlmZmZmZmZmZddlmZddlmZGdd d eZGd d d eZGd d d eZGdddeZGdddeZedkr ddlmZeddddddlm Z e eeedS)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) executableplatform)Toplevel StringVar BooleanVarWES)FrameButtonEntryLabel Checkbutton) filedialog)FontcsdeZdZdZdidddddZddd Zdd d Zd dZdddZdddZ fddZ 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}|dkry|j dd|j ddWn YnX| d|j| d |j|d |j| d |j| d |j|jd d d|||d||d|d||s2|d|dndf|sT||dS)aCreate 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 tkwindowingsystemZaquaz!::tk::unsupported::MacWindowStyleZstyleZ moveableModalrz z ZWM_DELETE_WINDOWz z F)Zheightwidthz+%d+%dN)r__init__ZwithdrawparenttitlemessagerrZ transientZgrab_setrZcallZ_wZbindcancelZprotocolokZ resizablecreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) selfrrrrrrrrr$lib/python3.7/idlelib/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)columnrowsticky)Zweightwleft)anchorjustifytext)r textvariableZ TkCaptionFontT)nameexistsroot red)r0 foregroundfontZactive)r0defaultcommandZCancel)r0r;)r(r) columnspanpadxr*)r(r)r>r?r*padyrc)r(r)r?)r framegridZgrid_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*|ddS|S)zReturn non-blank entry or None.rr0z blank line.N)rGrDgetstriprI)r#rDr$r$r%entry_okws   zQuery.entry_okcCs.|}|dk r ||_|n |jdS)zIf entry is valid, bind it to 'result' and destroy tk widget. Otherwise leave dialog open for user to correct entry or cancel. N)rLresultdestroyrDrE)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|tdS)N)Z grab_releasesuperrN)r#) __class__r$r%rNsz Query.destroy)r&)N)N)N) __name__ __module__ __qualname____doc__rr"rIrLr!r rN __classcell__r$r$)rQr%r s1   rcs0eZdZdZdddfdd ZddZZS) SectionNamez*Get a name for a config file section name.F)rrcstj||||||ddS)N)rrr)rPr)r#rrrrrr)rQr$r%rszSectionName.__init__cCs`d|jd<|j}|s*|ddSt|dkrD|ddS||jkr\|ddS|S)z2Return sensible ConfigParser section name or None.rr0zno name specified.Nr1z"name is longer than 30 characters.zname is already in use.)rGrDrJrKrIlenr)r#r3r$r$r%rLs      zSectionName.entry_ok)rRrSrTrUrrLrVr$r$)rQr%rWsrWcs0eZdZdZdddfdd ZddZZS) ModuleNamez-Get a module name for Open Module menu entry.F)rrcstj||||||ddS)N)rrr)rPr)r#rrrrrr)rQr$r%rszModuleName.__init__c Csd|jd<|j}|s*|ddSytj|}Wn4tt fk rn}z|t |dSd}~XYnX|dkr|ddSt |j tj js|ddSy|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 importlibutil find_spec ValueError ImportErrorstr isinstanceloaderabc SourceLoader get_filenameAttributeError)r#r3specmsgZ file_pathr$r$r%rLs.    zModuleName.entry_ok)rRrSrTrUrrLrVr$r$)rQr%rYsrYcs`eZdZdZddidddfdd ZfddZd d Zd d Zej Z d dZ ddZ Z S) HelpSourcez,Get menu name and help source for Help menu.rF)menuitemfilepathrrrc s(||_d}tj|||||||ddS)zGet 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%rs zHelpSource.__init__cst|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 rrjpathvarr 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% askfilenameszHelpSource.askfilenamecCsdddddg}|j}|r.tj|\}}nHd}tdddkrntjtjtd}tj |svt }nt }| |||}|r|j |dS) N)z HTML Filesz *.htm *.htmlTEXT)z PDF Filesz*.pdfru)zWindows Help Filesz*.chm)z Text Filesz*.txtru)z All Files*r<winZDoc) rorJosrpsplitrjoindirnamerisdirgetcwdrtset)r#rsrpdirbasefiler$r$r%rqs"   zHelpSource.browse_filecCs||j}|s$|d|jdS|dsx|dddkrJ|dd}tj|sh|d|jdStdkrxd|}|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)rGrritem_okr)r#r3rpr$r$r%rL*s   zHelpSource.entry_ok) rRrSrTrUrr"rtrqrWrLrrrVr$r$)rQr%rhs rhcsFeZdZdZddddfdd ZfddZd d Zd d ZZS) CustomRunzGet 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}tj||||||ddS)Nz$Command Line Arguments for sys.argv:)rrr)rPr)r#rrrrrr)rQr$r%r:szCustomRun.__init__csxtjdd|j}t|dd|_t||jdddd}t|dd |jd |_|j d d d ddd|jj d dd ddddS)NZRun)rHT)valueFz Restart shell)ZvariableZonvalueZoffvaluer0r6r7)r0r8r9rr<r=r,)r(r)r>r?r*rnZwe) rPr"rBr restartvarrr rFZ args_errorrC)r#rBrestart)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)rDrJrKshlexryr]rIr_)r#Z cli_stringrerrr$r$r% cli_args_okOszCustomRun.cli_args_okcCs0d|jd<|}|j}|dkr(dS||fS)z3Return apparently valid (cli_args, restart) or Nonerr0N)rGrrrJ)r#rrr$r$r%rLYs  zCustomRun.entry_ok) rRrSrTrUrr"rrLrVr$r$)rQr%r2s   r__main__)mainzidlelib.idle_test.test_queryrF) verbosityexit)run)!rUrZrxrsysrrZtkinterrrrrrr Z tkinter.ttkr r r r rrZ tkinter.fontrrrWrYrhrrRZunittestrZidlelib.idle_test.htestrr$r$r$r%s$   w%]/