3
f0 @ s d Z ddlZddlZddlmZmZ ddlmZmZm Z m
Z
m Z ddl m
Z
mZmZmZ ddlmZ ddlmZ G dd d eZG d
d d eZG d d
d
eZG dd deZedkrddlmZ edddd ddlm Z e ee dS )a
Dialogs that query users and verify the answer before accepting.
Use ttk widgets, limiting use to tcl/tk 8.5+, as in IDLE 3.6+.
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 StringVarWES)FrameButtonEntryLabel)
filedialog)Fontc sb e Zd ZdZdi dddddZdd Zdd
d Zd d
ZdddZdddZ 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
C sX t j| | | j || _| j| || _|| _|| _| j| | j | j
j dd}|dkry| j
j dd| j dd W n Y nX | j
d| j | j
d | j | jd
| j | j
d | j | j
d | j | jd
d
d | j | j | jd|j |j d | j d |j |s2|j d | j d nd f |sT| j | j 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
tkwindowingsystemZaquaz!::tk::unsupported::MacWindowStyleZstyleZ
moveableModalr z z ZWM_DELETE_WINDOWz z
F)Zheightwidthz+%d+%d N) r __init__Zwithdrawparenttitlemessager r Z transientZgrab_setr ZcallZ_wZbindcancelZprotocolokZ resizablecreate_widgetsZupdate_idletasksZgeometryZ winfo_rootxZ winfo_widthZwinfo_reqwidthZ winfo_rootyZ winfo_heightZwinfo_reqheightZ deiconifyZ wait_window) selfr r r r r r r r r" 2/opt/alt/python36/lib64/python3.6/idlelib/query.pyr % sB
*zQuery.__init__c C s. t | dd | _}|jdddd |jddd t|dd | jd
}t| | j| _t |d | jd | _
| j
j t d
d| j
d| _t|dd| jd| _t|dd| jd| _t|d| jd| _|jddddtd | j
jddddtt ddgd | jjdd ddtt d | jjdd dd | jjd d dd d S ) N
)Zpaddingr Znews)columnrowsticky )Zweightwleft)anchorjustifytext )r textvariableZ
TkCaptionFontT)nameexistsroot red)r-
foregroundfontZOKZactive)r- defaultcommandZCancel)r- r8 )r% r&
columnspanpadxr' )r% r& r; r< r' padyr c )r% r& r< )r framegridZgrid_columnconfigurer r r r Zentryvarr entry focus_setr r
error_font entry_errorr
r Z button_okr Z
button_cancelr r )r! r? Z
entrylabelr" r" r# r W s.
zQuery.create_widgetsNc C s d| |p| j d< d S )NzERROR: r- )rD )r! r Zwidgetr" r" r# showerrors s zQuery.showerrorc C s. d| j d< | jj j }|s*| jd dS |S )z Return non-blank entry or None.r r- z blank line.N)rD rA getstriprE )r! rA r" r" r# entry_okw s
zQuery.entry_okc C s. | j }|dk r || _| j n
| jj 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)rH resultdestroyrA rB )r! eventrA r" r" r# r s
zQuery.okc C s d| _ | j dS )z0Set dialog result to None and destroy tk widget.N)rI rJ )r! rK r" r" r# r s z Query.cancelc s | j t j d S )N)Z grab_releasesuperrJ )r! ) __class__r" r# rJ s z
Query.destroy)N)N)N) __name__
__module__ __qualname____doc__r r rE rH r r rJ
__classcell__r" r" )rM r# r s 1
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 )rL r )r! r r r r r r )rM r" r# r s zSectionName.__init__c C s` d| j d< | jj j }|s*| jd dS t|dkrD| jd dS || jkr\| jd dS |S )z2Return sensible ConfigParser section name or None.r r- zno name specified.Nr. z"name is longer than 30 characters.zname is already in use.)rD rA rF rG rE lenr )r! r0 r" r" r# rH s
zSectionName.entry_ok)rN rO rP rQ r rH rR r" r" )rM r# rS s rS 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 )rL r )r! r r r r r r )rM r" r# r s zModuleName.__init__c C s d| j d< | jj j }|s*| jd dS ytjj|}W n2 tt fk
rl } z| jt
| dS d}~X nX |dkr| jd dS t |j tj
js| jd dS y|j j|}W n" tk
r | jd| d dS X |S ) z0Return entered module name as file path or None.r r- zno name specified.Nzmodule not foundznot a source-based modulez$loader does not support get_filename)r )rD rA rF rG rE importlibutil find_spec
ValueError ImportErrorstr
isinstanceloaderabc SourceLoader get_filenameAttributeError)r! r0 specmsgZ file_pathr" r" r# rH s.
zModuleName.entry_ok)rN rO rP rQ r rH rR r" r" )rM r# rU s rU c s` e Zd ZdZddi ddd fdd
Z fddZd d
Zd d Zej Z
d
d Z dd Z Z S )
HelpSourcez,Get menu name and help source for Help menu.r F)menuitemfilepathr r r c s( || _ d}t j|||||||d dS )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:)r r r r N)rf rL r ) r! r r re rf r r r r )rM r" r# r s
zHelpSource.__init__c s t j | j}t|dddd}t| | j| _t|| jdd| _t |dd| j
d }t|d
d | j d | _ |j
d
ddddd
gtd | jj
d
dddtt dd
gd |j
dddtt d | j j
d
dddtt d d S )Nr) r* z,Help File Path: Enter URL or browse for file)r+ r, r- ( )r/ r ZBrowse )r- r r8 r3 r4 )r- r5 r6 r r$ r9 r: )r% r& r; r< r= r' r )r% r& r; r< r' r= )r% r& r< r' )r% r& r; r< r' )rL r r? r r rf pathvarr pathr
browse_filerC
path_errorr@ r r r )r! r? Z pathlabelZbrowse)rM r" r# r s"
zHelpSource.create_widgetsc C s t j| |dj||dS )N)r filetypes)Z
initialdirZ initialfile)r
ZOpenZshow)r! ro ZinitdirZinitfiler" r" r# askfilename s zHelpSource.askfilenamec C s dddddg}| j j }|r.tjj|\}}nHd }td d d
krntjjtjjtd}tjj |svtj
}ntj
}| j |||}|r| j j | d S )N
HTML Files *.htm *.htmlTEXT PDF Files*.pdfWindows Help Files*.chm
Text Files*.txt All Files*r9 winZDoc)rq rr rs )rt ru rs )rv rw )rx ry rs )rz r{ )
rk rF osrl splitr joindirnamer isdirgetcwdrp set)r! ro rl dirbasefiler" r" r# rm s"
zHelpSource.browse_filec C s| | j j j }|s$| jd| j dS |jd
sx|dd dkrJ|dd }tj j|sh| jd| j dS tdkrxd | }|S ) z(Simple validity check for menu file pathz no help file path specified.Nwww.httpr: zfile:z help file path does not exist.darwinzfile://)r r ) rl rF rG rE rn
startswithr} r1 r )r! rl r" r" r# path_ok s
zHelpSource.path_okc C s@ d| j d< d| jd< | j }| j }|dks4|dkr8dS ||fS )z,Return apparently valid (name, path) or Noner r- N)rD rn item_okr )r! r0 rl r" r" r# rH * s
zHelpSource.entry_ok)
rN rO rP rQ r r rp rm rS rH r r rR r" r" )rM r# rd s rd __main__)mainz idlelib.idle_test.test_queryr F) verbosityexit)run) rQ rV r} sysr r Ztkinterr r r r r Z tkinter.ttkr r
r r r
Z tkinter.fontr r rS rU rd rN Zunittestr Zidlelib.idle_test.htestr r" r" r" r# s w%^