B f³]Ý8ã@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)ÚFontcsleZdZdZdidddœdd„Zddd „Zd d „Zdd d„Zdd„Zddd„Z ddd„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 CsX||_||_||_||_t ||¡| ¡| |¡| |¡|  ¡|j   dd¡}|dkr”y|j   dd|j dd¡Wn YnX|  d|j¡|  d |j¡| d |j¡|  d |j¡|  d |j¡| ¡| ¡| d | ¡| ¡d| ¡d| ¡|s$| ¡d| ¡dndf¡|jddd|sT| ¡| ¡dS)aáCreate modal popup, return when destroyed. Additional subclass init must be done before 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 z+%d+%déé–F)ZheightÚwidthN)ÚparentÚmessagerrrÚ__init__ZwithdrawÚtitleZ transientZgrab_setrZcallZ_wZbindÚcancelZprotocolÚokÚcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ resizableZ deiconifyZ wait_window) Úselfrrrrrrrr©r$úlib/python3.7/idlelib/query.pyr%sB    *zQuery.__init__ÚOKcCs6t|dd|_}|jdddd|jdddt|dd |jd }t||jƒ|_t |d |jd |_ |j   ¡t d d|j d|_t|dd|jd|_|jddddtd|j jddddttddgd|jjddddttd| ¡t||d|jd|_t|d|jd|_|jjdddd|jjdddddS)zˆCreate entry (rows, extras, buttons. Entry stuff on rows 0-2, spanning cols 0-2. Buttons on row 99, cols 1, 2. é )ZpaddingrZnews)ÚcolumnÚrowÚstickyé)ZweightÚwÚleft)ÚanchorÚjustifyÚtexté)rÚ textvariableZ TkCaptionFontT)ÚnameÚexistsÚrootú Úred)r0Ú foregroundÚfontéé)r(r)Ú columnspanÚpadxr*)r(r)r<r=r*ÚpadyrZactive)r0ÚdefaultÚcommandZCancel)r0r@éc)r(r)r=N)r ÚframeÚgridZgrid_columnconfigurer rrrZentryvarr ÚentryÚ focus_setrrÚ error_fontÚ entry_errorrrÚ create_extrar r!Z button_okr Z button_cancel)r#Zok_textrBZ entrylabelr$r$r%r"[s0     zQuery.create_widgetscCsdS)Nr$)r#r$r$r%rHózQuery.create_extraNcCsd||p|jd<dS)NzERROR: r0)rG)r#rZwidgetr$r$r%Ú showerrorszQuery.showerrorcCs.d|jd<|j ¡ ¡}|s*| d¡dS|S)zReturn non-blank entry or None.rr0z blank line.N)rGrDÚgetÚstriprJ)r#rDr$r$r%Úentry_ok…s   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)rMÚresultÚdestroyrDrE)r#ÚeventrDr$r$r%r!Žs  zQuery.okcCsd|_| ¡dS)z0Set dialog result to None and destroy tk widget.N)rNrO)r#rPr$r$r%r ›sz Query.cancelcs| ¡tƒ ¡dS)N)Z grab_releaseÚsuperrO)r#)Ú __class__r$r%rO sz Query.destroy)r&)N)N)N) Ú__name__Ú __module__Ú __qualname__Ú__doc__rr"rHrJrMr!r rOÚ __classcell__r$r$)rRr%r s5 $  rcs0eZdZdZdddœ‡fdd„ Zdd„Z‡ZS)Ú SectionNamez*Get a name for a config file section name.F)rrcstƒj||||||ddS)N)rrr)rQr)r#rrrrrr)rRr$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.)rGrDrKrLrJÚlenr)r#r3r$r$r%rM®s      zSectionName.entry_ok)rSrTrUrVrrMrWr$r$)rRr%rX¥srXcs0eZdZdZdddœ‡fdd„ Zdd„Z‡ZS)Ú ModuleNamez-Get a module name for Open Module menu entry.F)rrcstƒj||||||ddS)N)rrr)rQr)r#rrrrrr)rRr$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)rGrDrKrLrJÚ importlibÚutilÚ find_specÚ ValueErrorÚ ImportErrorÚstrÚ isinstanceÚloaderÚabcÚ SourceLoaderÚ get_filenameÚAttributeError)r#r3ÚspecÚmsgZ file_pathr$r$r%rMÇs.    zModuleName.entry_ok)rSrTrUrVrrMrWr$r$)rRr%rZ¾srZcs\eZdZdZddidddœ‡fdd„ Zdd„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)rkrQr) r#rrrjrkrrrr)rRr$r%rçs zHelpSource.__init__cCsÊ|j}t|dddd}t||jƒ|_t||jdd|_t|dd|jd }t|d d |j d |_ |j d ddddd gt d|jj d dddt t dd gd|j dddt td|j j d dddt t ddS)zAdd path widjets to rows 10-12.r,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*N)rBr rrkÚpathvarr Úpathr Ú browse_filerFÚ path_errorrCrrr )r#rBZ pathlabelZbrowser$r$r%rHôs    zHelpSource.create_extracCstj||dj||dS)N)rÚ filetypes)Z initialdirZ initialfile)rZOpenZshow)r#rtZinitdirZinitfiler$r$r%Ú askfilenameszHelpSource.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*.pdfrv)zWindows Help Filesz*.chm)z Text Filesz*.txtrv)z All FilesÚ*r:ÚwinZDoc) rprKÚosrqÚsplitrÚjoinÚdirnamerÚisdirÚgetcwdruÚset)r#rtrqÚdirÚbaseÚfiler$r$r%rrs"   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://) rqrKrLrJrsÚ startswithryr4r)r#rqr$r$r%Úpath_ok's   zHelpSource.path_okcCs@d|jd<d|jd<| ¡}| ¡}|dks4|dkr8dS||fS)z,Return apparently valid (name, path) or Nonerr0N)rGrsÚitem_okr…)r#r3rqr$r$r%rM8s   zHelpSource.entry_ok) rSrTrUrVrrHrurrrXrMr†r…rWr$r$)rRr%riãs ricsBeZdZdZgdddœ‡fdd„ Zdd„Zdd „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. F)Úcli_argsrrcs d}tƒj||||||ddS)z¢cli_args is a list of strings. The list is assigned to the default Entry StringVar. The strings are displayed joined by ' ' for display. z$Command Line Arguments for sys.argv:)rrrN)rQr)r#rrrˆrrr)rRr$r%rHszCustomRun.__init__cCsj|j}t|dd|_t||jdddd}t|dd|jd|_|jd d d d d d|jjd dd d dddS)zAdd run mode on rows 10-12.T)ÚvalueFz Restart shell)ZvariableZonvalueZoffvaluer0r6r7)r0r8r9rr'r:r;r,)r(r)r<r=r*roZweN)rBrÚ restartvarrr rFZ args_errorrC)r#rBÚrestartr$r$r%rHTs   zCustomRun.create_extrac CsV|j ¡ ¡}ytj|dd}Wn0tk rP}z| t|ƒ¡dSd}~XYnX|S)z6Validity check and parsing for command line arguments.T)ÚposixN)rDrKrLÚshlexrzr^rJr`)r#Z cli_stringrˆÚerrr$r$r%Ú cli_args_okaszCustomRun.cli_args_okcCs0d|jd<| ¡}|j ¡}|dkr(dS||fS)z3Return apparently valid (cli_args, restart) or Nonerr0N)rGrrŠrK)r#rˆr‹r$r$r%rMks  zCustomRun.entry_ok) rSrTrUrVrrHrrMrWr$r$)rRr%r‡@s    r‡Ú__main__)Úmainzidlelib.idle_test.test_queryrF)Ú verbosityÚexit)Úrun)!rVr[ryrÚsysrrZtkinterrrrrrr Z tkinter.ttkr r r r rrZ tkinter.fontrrrXrZrir‡rSZunittestr‘Zidlelib.idle_test.htestr”r$r$r$r%Ús&   %]3