B
äZ Îuä ã @ s d Z ddlZddlZddlZddlmZmZ ddlmZm Z m
Z
m Z m Z m
Z
ddlmZmZmZmZmZ ddlmZ ddlmZ G dd „ d eƒZG d
d „ d eƒZG d d
„ d
eƒZG dd„ deƒZG dd„ deƒZG dd„ deƒZ e dkr ddl m Z e dddd ddl m!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)ÚFontc sl e Zd ZdZdi dddœ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 C sX || _ || _|| _|| _t | |¡ | ¡ | |¡ | |¡ | ¡ | j
dd¡}|dkr”y| j
dd| j dd¡ W n Y nX |
d| j¡ |
d | j¡ | d
| j¡ |
d | j¡ |
d | j¡ | ¡ | ¡ | d
| ¡ | ¡ d | ¡ d | ¡ |s$| ¡ d | ¡ d nd f ¡ | 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
moveableModalr z z ZWM_DELETE_WINDOWz z
z+%d+%dé é– F)ZheightÚwidthN) ÚparentÚmessager r r Ú__init__ZwithdrawÚtitleZ transientZgrab_setr ZcallZ_wZbindÚcancelZprotocolÚokÚcreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ resizableZ deiconifyZ wait_window) Úselfr r r r r r r r © r$ ú2/opt/alt/python37/lib64/python3.7/idlelib/query.pyr % sB
*zQuery.__init__ÚOKc C s6 t | dd | _}|jdddd |jddd t|dd | jd
}t| | jƒ| _t |d | jd | _
| j
¡ t d
d| j
d| _t|dd| jd| _|jddddtd | j
jddddtt ddgd | jjddddtt d | ¡ t||d| jd| _t|d| jd| _| jjdd dd | jjdd dd d S ) zˆCreate entry (rows, extras, buttons.
Entry stuff on rows 0-2, spanning cols 0-2.
Buttons on row 99, cols 1, 2.
é
)Zpaddingr Znews)Ú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* Úpadyr Zactive)r0 ÚdefaultÚcommandZCancel)r0 r@ éc )r( r) r= N)r
ÚframeÚgridZgrid_columnconfigurer
r r r Zentryvarr ÚentryÚ focus_setr r Ú
error_fontÚ entry_errorr r Ú create_extrar r! Z button_okr Z
button_cancel)r# Zok_textrB Z
entrylabelr$ r$ r% r" [ s0
zQuery.create_widgetsc C s d S )Nr$ )r# r$ r$ r% rH € ó zQuery.create_extraNc C s d| |p| j d< d S )NzERROR: r0 )rG )r# r Zwidgetr$ r$ r% Ú showerror‚ s zQuery.showerrorc C s$ | j ¡ ¡ }|s | d¡ dS |S )z Return non-blank entry or None.z blank line.N)rD ÚgetÚstriprJ )r# rD r$ r$ r% Úentry_ok† s
zQuery.entry_okc C s8 d| j d< | ¡ }|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.
r r0 N)rG rM ÚresultÚdestroyrD rE )r# ÚeventrD r$ r$ r% r! Ž s
zQuery.okc C s d| _ | ¡ dS )z0Set dialog result to None and destroy tk widget.N)rN rO )r# rP r$ r$ r% r œ s z Query.cancelc s | ¡ tƒ ¡ d S )N)Z grab_releaseÚsuperrO )r# )Ú __class__r$ r% rO ¡ s z
Query.destroy)r& )N)N)N)
Ú__name__Ú
__module__Ú __qualname__Ú__doc__r r" rH rJ rM r! r rO Ú
__classcell__r$ r$ )rR r% r s 5
%
r c s0 e Zd ZdZdddœ‡ fdd„
Zdd„ Z‡ ZS )Ú SectionNamez*Get a name for a config file section name.F)r r c s t ƒ j||||||d d S )N)r r r )rQ r )r# r r r r r r )rR r$ r% r ª s zSectionName.__init__c C sV | j ¡ ¡ }|s | d¡ dS t|ƒdkr:| d¡ dS || jkrR| d¡ dS |S )z2Return sensible ConfigParser section name or None.zno name specified.Nr1 z"name is longer than 30 characters.zname is already in use.)rD rK rL rJ Úlenr )r# r3 r$ r$ r% rM ¯ s
zSectionName.entry_ok)rS rT rU rV r rM rW r$ r$ )rR r% rX ¦ s rX c s0 e Zd ZdZdddœ‡ fdd„
Zdd„ Z‡ ZS )Ú
ModuleNamez-Get a module name for Open Module menu entry.F)r r c s t ƒ j||||||d d S )N)r r r )rQ r )r# r r r r r r )rR r$ r% r  s zModuleName.__init__c
C sÒ | j ¡ ¡ }|s | d¡ dS ytj |¡}W n4 ttfk
rd } z| t |ƒ¡ dS d}~X Y nX |dkr|| d¡ dS t
|j tj j
ƒsš| d¡ dS y|j |¡}W n" tk
rÌ | jd| d dS X |S )z0Return entered module name as file path or None.zno name specified.Nzmodule not foundznot a source-based modulez$loader does not support get_filename)r )rD rK rL rJ Ú 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)rS rT rU rV r rM rW r$ r$ )rR r% rZ ¾ s rZ c @ s e Zd ZdZdd„ ZdS )ÚGotoz1Get a positive line number for editor Go To Line.c C sL yt | j ¡ ƒ}W n tk
r0 | d¡ d S X |dkrH| d¡ d S |S )Nznot a base 10 integer.r znot a positive integer.)ÚintrD rK r^ rJ )r# Úlinenor$ r$ r% rM æ s
z
Goto.entry_okN)rS rT rU rV rM r$ r$ r$ r% ri â s ri c s\ e Zd ZdZddi dddœ‡ 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.r F)ÚmenuitemÚfilepathr r r c s( || _ d}tƒ j|||||||d dS )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:)r r r r N)rn rQ r ) r# r r rm rn r r r r )rR r$ r% r ö s
zHelpSource.__init__c C sÊ | 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 t d | j
j d
dddt t
d dS )z Add path widjets to rows 10-12.r, r- z,Help File Path: Enter URL or browse for file)r. r/ r0 é( )r2 r ZBrowseé )r0 r r@ r6 r7 )r0 r8 r9 r r' 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)rB r
r rn Úpathvarr Úpathr Ú browse_filerF Ú
path_errorrC r r r )r# rB Z pathlabelZbrowser$ r$ r% rH s
zHelpSource.create_extrac C s t j| |dj||dS )N)r Ú filetypes)Z
initialdirZ initialfile)r ZOpenZshow)r# rw ZinitdirZinitfiler$ r$ r% Ú askfilename s zHelpSource.askfilenamec C s˜ dddddg}| j ¡ }|r.tj |¡\}}nHd }td d… dkrntj tj t¡d¡}tj |¡svt
¡ }nt
¡ }| |||¡}|r”| j |¡ d S ) N)z
HTML Filesz *.htm *.htmlÚTEXT)z PDF Filesz*.pdfry )zWindows Help Filesz*.chm)z
Text Filesz*.txtry )z All FilesÚ*r: ÚwinZDoc)
rs rK Úosrt Úsplitr ÚjoinÚdirnamer ÚisdirÚgetcwdrx Úset)r# rw rt ÚdirÚbaseÚfiler$ r$ r% ru s"
zHelpSource.browse_filec C s| | j ¡ ¡ }|s$| d| j¡ dS | d¡sx|dd… dkrJ|dd… }tj |¡sh| d| j¡ dS tdkrxd| }|S ) z(Simple validity check for menu file pathz no help file path specified.N)zwww.Zhttpr; zfile:z help file path does not exist.Údarwinzfile://) rt rK rL rJ rv Ú
startswithr| r4 r )r# rt r$ r$ r% Úpath_ok6 s
zHelpSource.path_okc C s6 d| j d< | ¡ }| ¡ }|dks*|dkr.dS ||fS )z,Return apparently valid (name, path) or Noner r0 N)rv Úitem_okrˆ )r# r3 rt r$ r$ r% rM G s
zHelpSource.entry_ok)
rS rT rU rV r rH rx ru rX rM r‰ rˆ rW r$ r$ )rR r% rl ò s rl c sB e Zd ZdZg dddœ‡ 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_argsr r c s d}t ƒ j||||||d dS )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:)r r r N)rQ r )r# r r r‹ r r r )rR r$ r% r V s zCustomRun.__init__c C sj | j }t| dd| _t|| jdddd}t|dd| jd| _|jd d
d d d
d | jjd dd d dd dS )zAdd run mode on rows 10-12.T)ÚvalueFz
Restart shell)ZvariableZonvalueZoffvaluer0 r6 r7 )r0 r8 r9 r r' r: r; r, )r( r) r< r= r* rr ZweN)rB r Ú
restartvarr r
rF Z
args_errorrC )r# rB Úrestartr$ r$ r% rH b s
zCustomRun.create_extrac
C sV | j ¡ ¡ }ytj|dd}W n0 tk
rP } z| t|ƒ¡ dS d}~X Y nX |S )z6Validity check and parsing for command line arguments.T)ÚposixN)rD rK rL Úshlexr} r^ rJ r` )r# Z
cli_stringr‹ Úerrr$ r$ r% Ú cli_args_oko s zCustomRun.cli_args_okc C s& | ¡ }| j ¡ }|dkr dS ||fS )z3Return apparently valid (cli_args, restart) or NoneN)r’ r rK )r# r‹ rŽ r$ r$ r% rM y s
zCustomRun.entry_ok) rS rT rU rV r rH r’ rM rW r$ r$ )rR r% rŠ N s
rŠ Ú__main__)Úmainz idlelib.idle_test.test_queryr F)Ú verbosityÚexit)Úrun)"rV r[ r| r Úsysr r Ztkinterr r r r r r Z tkinter.ttkr
r r r
r r Z tkinter.fontr r rX rZ ri rl rŠ rS Zunittestr” Zidlelib.idle_test.htestr— r$ r$ r$ r% Ú s( $\2