Your IP : 3.145.78.203
�
e f1� � @ sZ d Z d d l Td d l j Z d d l j Z d d l j Z
d d l m Z d d l
m Z d d l m Z d d l m Z d d l m Z d d l m Z d d
l m Z d d l m Z Gd d
� d
e � Z d Z i d d 6Z d d � Z Gd d � d e � Z! e" d k rVd d l# Z# e# j$ d d d d d �d d l% m& Z& e& e � n d S) a� IDLE Configuration Dialog: support user customization of IDLE by GUI
Customize font faces, sizes, and colorization attributes. Set indentation
defaults. Customize keybindings. Colorization and keybindings can be
saved as user defined sets. Select startup options including shell/editor
and default window size. Define additional help sources.
Note that tab width in IDLE is currently fixed at eight due to Tk issues.
Refer to comments in EditorWindow autoindent code for details.
� )�*N)�idleConf)�
DynOptionMenu)�
GetKeysDialog)�GetCfgSectionNameDialog)�GetHelpSourceDialog)�
TabbedPageSet)� view_text)�
macosxSupportc @ s� e Z d Z d d d d d � Z d d � Z d d � Z d d
� Z d d � Z d
d � Z d d � Z d d � Z
d d � Z d d � Z d d � Z
d d � Z d d � Z d d � Z d d � Z d! d" � Z d# d$ � Z d% d& � Z d' d( � Z d) d* � Z d+ d, � Z d- d. � Z d/ d0 � Z d1 d2 � Z d3 d4 � Z d5 d6 � Z d7 d8 � Z d9 d: � Z d; d< � Z d= d> � Z d? d@ � Z! dA dB � Z" dC dD � Z# dE dF � Z$ dG dH � Z% dI dJ � Z& dK dL � Z' dM dN � Z( dO dP � Z) dQ dR � Z* dS dT � Z+ dU dV � Z, dW dX � Z- dY dZ d[ � Z. d\ d] � Z/ d^ d_ � Z0 d` da � Z1 db dc � Z2 dd de � Z3 df dg � Z4 dh di � Z5 dj dk � Z6 dl dm � Z7 dn do � Z8 dp dq � Z9 dr ds � Z: dt du � Z; dv dw � Z< dx dy � Z= dz d{ � Z> d| d} � Z? d~ d � Z@ d� d� � ZA d� d� � ZB d� d� � ZC d� d� � ZD d� d� � ZE d� d� � ZF d� d� � ZG d� d� � ZH d� d� � ZI d� d� � ZJ d� d� � ZK d� d� � ZL d� d� � ZM d� d� � ZN dY S)�� ConfigDialog� Fc C s� t j | | � | | _ | r+ i | _ n | j � | j d d � | j | pT d � | j d | j � d | j � | s� d n d f � i d6 d
6d7 d
6d8 d 6d9 d 6d: d 6d; d 6d< d 6d= d 6d> d" 6d? d% 6d@ d( 6dA d+ 6dB d. 6dC d1 6| _
| j � | j � | j
d2 t d3 t � | j | � | j � | j d4 | j � | j j � | j � | j � | s�| j � | j � n d5 S)Dz�
_htest - bool, change box location when running htest
_utest - bool, don't wait_window when running unittest
� borderwidth� zIDLE Preferencesz+%d+%d� � � �normal�00z Normal Text�keyword�01zPython Keywords�
definition�02zPython Definitions�builtin�03zPython Builtins�comment�04zPython Comments�string�05zPython Strings�hilite�06z
Selected Text�hit�07z
Found Text�cursor�08�Cursor�break�09zEditor Breakpoint�console�10zShell Normal Text�error�11zShell Error Text�stdout�12zShell Stdout Text�stderr�13zShell Stderr Text�height�widthZWM_DELETE_WINDOWN)r r )zkeywordr )r r )r r )r r )zstringr )r r )r r! )zcursorr# )zbreakr& )r' r( )zerrorr* )zstdoutr, )zstderrr. )�Toplevel�__init__�parent�
instance_dictZ wm_withdraw� configure�titleZgeometryZ winfo_rootxZ winfo_rooty�
themeElements�ResetChangedItems�
CreateWidgetsZ resizable�FALSEZ transientZgrab_setZprotocol�Cancel�tabPagesZ focus_set� LoadConfigs�AttachVarCallbacksZ wm_deiconifyZ wait_window)�selfr3 r6 Z_htestZ_utest� r@ �9/opt/alt/python34/lib64/python3.4/idlelib/configDialog.pyr2 sJ
!
zConfigDialog.__init__c C s� t | d d d d d d g �| _ | j j d t d t d t � | j � | j � | j � | j � | j
� | j � j d t � d S)
NZ
page_namesz
Fonts/Tabs� Highlighting�Keys�General�
Extensions�side�expand�fill)
r r< �pack�TOP�TRUE�BOTH�CreatePageFontTab�CreatePageHighlight�CreatePageKeys�CreatePageGeneral�CreatePageExtensions�create_action_buttons�BOTTOM)r? r@ r@ rA r9 Q s
zConfigDialog.CreateWidgetsc
C s� t j � r i } n i d d 6d d 6} t | d d �} t | d d �} xu d | j f d | j f d | j f d | j f f D]= \ } } t | d
| d | d t | �j d
t
d d � q� Wt | d d d d �j d
t � | j d
t � | S)N� �padx� �pady� �Ok�Applyr; �Help�text�command� takefocusrF r r/ r
r )
r
ZisAquaTk�FramerY rZ r; r[ �Buttonr: rI �LEFTrJ rS )r? Z paddingArgsZouterZbuttonsZtxt�cmdr@ r@ rA rR ] s "z"ConfigDialog.create_action_buttonsc C s� | j } t | � | _ t | � | _ t | � | _ t | � | _ t j | d+ � | _
| j j d j
} t | d d d t d d �} t | d d d t d d
�} t | � } t | � } t | d t d d �} t | d
d d t d t �| _ | j j d | j � t | � } | j d | j j � | j j d | j � t | d d �} t | | j d d | j �| _ t | d | j d d d d d d d | j �}
t | d t d d �} t | d t d | j
d d �| _! t | � } t | d t d d �}
t" | d | j d d d d d! d d" d# �| _# | j$ d$ t d% d d& d d' t% d( t& � | j$ d$ t d% d d& d d( t' � | j$ d$ t( d% d d& d d( t) � | j$ d$ t( d% d d& d d( t) � | j$ d$ t( d) t* � | j j$ d$ t d' t% d( t) � | j$ d$ t d( t' � | j$ d$ t d) t* � | j j$ d$ t d) t* � |
j$ d$ t d) t* d% d* � | j$ d$ t( d% d d& d d' t% d( t& � | j! j$ d' t% d( t& � | j$ d$ t( d( t) � |
j$ d$ t( d) t* d% d � | j# j$ d$ t( d% d d( t) � | S),N�courier�
r z
Fonts/Tabsr
rX �reliefr\ z Base Editor Font z Indentation Width Zjustifyz Font Face :r/ r r^ �exportselectionz<ButtonRelease-1>r] �yscrollcommandzSize :�variable�onvalue� �offvaluer ZBold�fontz,AaBbCcDdEe
FfGgHhIiJjK
1234567890
#:+=(){}[]zPython Standard: 4 Spaces!�orientZ
horizontalZ tickintervalZfrom_Zto� rF rU rW rG rH �anchorr )rc rd znormal)+r3 � StringVar�fontSize�
BooleanVar�fontBold�fontName�IntVar�spaceNum�tkFontZFontZeditFontr< �pages�frame�
LabelFrame�GROOVEr_ �Labelra �Listboxr: � listFontName�bind�OnListFontButtonRelease� Scrollbar�config�yview�setr �
SetFontSample�optMenuFontSize� Checkbutton�SOLID�labelFontSampleZScaleZ
scaleSpaceNumrI rK rL �YrJ �X�W)r? r3 ry Z frameFontZ frameIndentZ
frameFontNameZframeFontParamZlabelFontNameTitleZ
scrollFontZlabelFontSizeTitleZ
checkFontBoldZframeFontSampleZframeIndentSizeZlabelSpaceNumTitler@ r@ rA rM r sn
(""" ( z ConfigDialog.CreatePageFontTabc ! C s� | j } t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ | j
j d j } t
| d d d t d d �} t
| d d d t d d �} t | d t d d d d\ d
d d d d d d t d d d t � | _ | j } | j d d d � � | j d d d � � d} } x) | D]! } | j t | d | d � qHWx> | j D]3 } | dB dC � } | j | j | d dD | � qwW| j dE t � t | d t d d �| _ t | � }
t | j d dF dG | j d d �} t | j | j d d d �| _ t! |
dH | j dI d d dJ dG | j" �| _# t! |
dH | j dI d d dK dG | j" �| _$ | j j% d � t | d dL dG | j& �} t' | d dM �}
t! | dH | j dI d dG | j( d dN �| _) t! | dH | j dI d dG | j( d dO �| _* t | | j d dG d �| _+ t | | j d dG d �| _, t | d dP dG | j- �| _. t' | dQ d �| _/ | j0 dR t1 dS dT dU dT dV t2 dW t3 � | j0 dR t1 dS dT dU dT dW t4 � | j j0 dR t5 dS dT dU dT dV t2 dW t6 � |
j0 dR t5 dS dT dU d � | j j0 dR t5 dS dT dU dT dV t2 dW t3 � | j0 dR t5 dV t2 dW t6 dS dX dU dY � | j j0 dR t5 dV t2 dW t6 dS dX dU dZ � | j# j0 dR t1 d[ t7 � | j$ j0 dR t8 d[ t9 � | j0 dR t: dW t6 dS dT dU dT � |
j0 dR t5 d[ t9 dS dT dU dT � | j) j0 dR t5 d[ t9 dS dT � | j* j0 dR t5 d[ t9 dS dT dU d � | j+ j0 dR t5 dW t6 dS dT dU dT � | j, j0 dR t5 dW t6 d[ t9 dS dT dU dT � | j. j0 dR t5 dW t6 dS dT dU dT � | j/ j0 dR t5 dW t6 dU dT � | S)~NrB r
rX re r\ z Custom Highlighting z Highlighting Theme rj rl rc � r r" Zhand2r0 � r/ � r^ �highlightthicknessr Zwrapz<Double-Button-1>c S s d S)Nr% r@ )�er@ r@ rA �<lambda>� s z2ConfigDialog.CreatePageHighlight.<locals>.<lambda>z <B1-Motion>c S s d S)Nr% r@ )r� r@ r@ rA r� � s �#you can click herer �
r �#to choose items�defr � �funcr � (param):
� """string"""r �
var0 = �'string'�
var1 = �
'selected'r �
var2 = �'found'r �
var3 = �listr �(�None�)
� breakpoint("line")r% �
� error r) �cursor |�
�shellr' r+ r- c S s | j j � j j | � d S)N)ZwidgetZwinfo_toplevel�highlightTargetr� )�event�elemr@ r@ rA �tem� s z-ConfigDialog.CreatePageHighlight.<locals>.temz<ButtonPress-1>�statezChoose Colour for :r] rh �valueZ
ForegroundZ
BackgroundzSave as New Custom Themez Select : za Built-in Themeza Custom ThemezDelete Custom Theme�bdrF rU r rW rG rH � � rV ro )zcourierr� r �r� �comment�r� �normal�r� r� �r� r� �zdef�keyword�r� r� �zfuncz
definition�r� r� �r� �string�r� r� �r� r� �r� r� �r� zhilite�r� r� �r� zhit�r� r� �zlistzbuiltin�r� r� �zNoner� �r� r� �r� zbreak�r� r� �r� zerror�r� r� �r� r" �r� r� �zshellzconsole�r� r� ��stdoutr� �r� r� ��stderrr� �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� r� r� r� r� r� r� r� r� );r3 rp � builtinTheme� customThemerr �fgHilite�colourrt �themeIsBuiltinr� r< rx ry rz r{ ZTextr� r: ZNONE�textHighlightSampler �insert�ENDr7 Ztag_bindr� �DISABLEDr_ �frameColourSetr` � GetColourr �optMenuHighlightTarget� Radiobutton�SetColourSampleBinding�radioFg�radioBgr� �SaveAsNewThemer| � SetThemeTypeZradioThemeBuiltin�radioThemeCustom�optMenuThemeBuiltin�optMenuThemeCustom�DeleteCustomTheme�buttonDeleteCustomTheme�new_custom_themerI ra rK rL r� rJ r� �E�RIGHTr� rS )r? r3 ry � frameCustomZ
frameThemer\ Z textAndTagsZtxTa�elementr� Z frameFgBgZbuttonSetColourZbuttonSaveCustomThemeZlabelTypeTitler@ r@ rA rN � s�
("+ ( "" %%+% z ConfigDialog.CreatePageHighlightc
s� | j } t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ | j j d j
} t | d d d t d d �} t | d d d t d d �� t
| � } t | d d �} t | � } t | d t �} t | d
t d t �| _ | j j d | j � | j d
| j j � | j d
| j j � | j j d | j � | j j d | j � t | d d d
| j d t �| _ � f d d � t d � D� } t | d d | j d d d
| j d d �| _! t | d d | j d d d
| j d d �| _" t# | d | j d d
d �| _$ t# | d | j d d
d �| _% t | d d d d
| j& �| _' t | d d d d
| j( �} | j) d t* d d d d d t+ d! t, � � j) d t* d d d d d! t, � | j j) d t* d! t- d d d d � | j) d t. d d d d d t+ d! t, � | j/ d d" d �| j0 d d" d �| j1 d# d d$ d d% d d& t2 � | j j1 d# d d$ d d& t3 � | j1 d# d d$ d d& t4 � | j1 d# d d$ d d& t5 � | j! j1 d# d d$ d d& t2 t4 � | j" j1 d# d d$ d d& t2 t4 � | j$ j1 d# d d$ d d& t3 � | j% j1 d# d d$ d d& t3 � | j' j) d t. d! t- d d' d d � | j) d t. d! t- d d' d d � | d j) d t6 d! t, d d' � | d j) d t6 d! t- d d' d d � | S)(NrC r
rX re r\ z Custom Key Bindings z Key Set zAction - Key(s)rm r^ rf z<ButtonRelease-1>r] rg ZxscrollcommandzGet New Keys for Selectionr� c
s. g | ]$ } t � d d d d d d �� q S)rU rX rW r
r )r_ )�.0�i)� frameKeySetsr@ rA �
<listcomp>F s z/ConfigDialog.CreatePageKeys.<locals>.<listcomp>r rh r� rj zUse a Built-in Key SetzUse a Custom Key SetzDelete Custom Key SetzSave as New Custom Key SetrF rU r rW rG rH �weight�row�columnZ
columnspan�stickyT)7r3 rp Z
bindingTarget� builtinKeys�
customKeysrr �keysAreBuiltin�
keyBindingr< rx ry rz r{ r_ r| r� Z
HORIZONTALr} r: � listBindingsr �KeyBindingSelectedr� r� Zxviewr� r` �
GetNewKeysr� �
buttonNewKeys�ranger� � SetKeysTypeZradioKeysBuiltin�radioKeysCustomr �optMenuKeysBuiltin�optMenuKeysCustom�DeleteCustomKeys�buttonDeleteCustomKeys�SaveAsNewKeySetrI rS rK rL r� ra �columnconfigure� rowconfigure�gridr� �NSEWZNSZEWrJ )
r? r3 ry r� Z frameTargetZlabelTargetTitleZ
scrollTargetYZ
scrollTargetXZframesZbuttonSaveCustomKeysr@ )r� rA rO % s~ ("%(" ## %" &zConfigDialog.CreatePageKeysc C s | j } t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ t | � | _ t | � | _
| j j d j
} t | d d d t d d �} t | d d d t d d �} t | d d d t �} t | d d d t d d �} t | d d �} t | d
| j d d d
| j d d �} t | d
| j d d d
| j d d �} t | d d �}
t | d
| j d d d
| j d d �} t | d
| j d d d
| j d d �} t | d d �}
t | d d �} t | d | j d d �} t | d d �} t | d | j d d �} t | � } t | � } t | � } t | d d d t d t �| _ | j d
| j j � | j j d | j � | j j d | j � t | d d d! t d d" d
| j �| _! t | d d# d d" d
| j" �| _# t | d d$ d! t d d" d
| j$ �| _% | j& d% t' d& d d' d d( t( � | j& d% t' d& d d' d d( t( � | j& d% t' d& d d' d d( t( � | j& d% t' d& d d' d d) t) d( t* � | j& d% t+ d* t, d& d d' d � | j& d% t- d* t, d& d d' d � | j& d% t- d* t, d& d d' d � |
j& d% t+ d* t, d& d d' d � | j& d% t- d* t, d& d d' d � | j& d% t- d* t, d& d d' d � |
j& d% t+ d* t, d& d d' d � | j& d% t- d* t. d& d+ d' d � | j& d% t- d* t. d' d � | j& d% t- d* t. d& d+ d' d � | j& d% t- d* t. d' d � | j& d% t- d& d d' d d( t/ � | j& d% t' d& d d' d d) t) d( t* � | j& d% t- d* t, d( t/ � | j j& d% t+ d* t. d) t) d( t* � | j! j& d% t' d* t, d' d � | j# j& d% t' d* t, � | j% j& d% t' d* t, d' d � | S),NrD r
rX re r\ z Startup Preferences z Autosave Preferences z Additional Help Sources z
At Startuprh r� rj r] zOpen Edit Windowr zOpen Shell WindowzAt Start of Run (F5) zPrompt to Savez No Promptz$Initial Window Size (in characters)ZWidth� textvariabler0 rV ZHeightr/ r r^ rf rg z<ButtonRelease-1>ZEditr� r� ZAddZRemoverF rU rW rH rG ro rd )0r3 rp �winWidth� winHeightru � startupEdit�autoSave�encodingrr ZuserHelpBrowserZ helpBrowserr< rx ry rz r{ r_ r| r� r �Entryr� r} r: �listHelpr� r� r� r �HelpSourceSelectedr` r� �HelpListItemEdit�buttonHelpListEdit�HelpListItemAddZbuttonHelpListAdd�HelpListItemRemove�buttonHelpListRemoverI rJ r� rK rL ra r� r� r� r� )r? r3 ry ZframeRunZ frameSaveZ frameWinSizeZ frameHelpZlabelRunChoiceTitleZradioStartupEditZradioStartupShellZlabelRunSaveTitleZ radioSaveAskZ
radioSaveAutoZlabelWinSizeTitleZlabelWinWidthTitleZ
entryWinWidthZlabelWinHeightTitleZentryWinHeightZ
frameHelpListZframeHelpListButtonsZscrollHelpListr@ r@ rA rP r s� """("""""""" " "( % z ConfigDialog.CreatePageGeneralc C s� | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j
� | j j d | j � | j
j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j j d | j � | j! j d | j" � d S)N�w)#rq Ztrace_variable�VarChanged_fontrt rs rv �VarChanged_spaceNumr� �VarChanged_colourr� �VarChanged_builtinThemer� �VarChanged_customThemer� �VarChanged_themeIsBuiltinr� �VarChanged_highlightTargetr �VarChanged_keyBindingr� �VarChanged_builtinKeysr �VarChanged_customKeysr �VarChanged_keysAreBuiltinr �VarChanged_winWidthr �VarChanged_winHeightr �VarChanged_startupEditr �VarChanged_autoSaver �VarChanged_encoding)r? r@ r@ rA r> � s$ z ConfigDialog.AttachVarCallbacksc G ss | j j � } | j d d d | � | j j � } | j d d d | � | j j � } | j d d d | � d S)z�When one font attribute changes, save them all, as they are
not independent from each other. In particular, when we are
overriding the default font, we need to write out everything.
�main� EditorWindowrl z font-sizez font-boldN)rt �get�AddChangedItemrq rs )r? �paramsr� r@ r@ rA r" � s z ConfigDialog.VarChanged_fontc G s) | j j � } | j d d d | � d S)Nr2 �Indentz
num-spaces)rv r4 r5 )r? r6 r� r@ r@ rA r# � s z ConfigDialog.VarChanged_spaceNumc G s | j � d S)N)�OnNewColourSet)r? r6 r@ r@ rA r$ � s z ConfigDialog.VarChanged_colourc G s� | j j � } | d k r� t j d d d � d k rO | j d d d d � n | j d d d | � | j j d d d
d � nE | j d d d | � | j d d d d � | j j d d d
d
� | j � d S)Nz IDLE Darkr2 �Theme�namezIDLE Newz IDLE ClassicZname2r\ zNew theme, see HelpZfgz#500000r Zblack)r� r4 r � GetOptionr5 r� r� �PaintThemeSample)r? r6 r� r@ r@ rA r% � s
z$ConfigDialog.VarChanged_builtinThemec G sB | j j � } | d k r> | j d d d | � | j � n d S)Nz- no custom themes -r2 r9 r: )r� r4 r5 r< )r? r6 r� r@ r@ rA r& s z#ConfigDialog.VarChanged_customThemec G sF | j j � } | j d d d | � | r8 | j � n
| j � d S)Nr2 r9 �default)r� r4 r5 r% r& )r? r6 r� r@ r@ rA r'
s
z&ConfigDialog.VarChanged_themeIsBuiltinc G s | j � d S)N)�SetHighlightTarget)r? r6 r@ r@ rA r( s z'ConfigDialog.VarChanged_highlightTargetc G s� | j j � } | j j � } | j j t � j � d } t j | � rb | j d | | | � n/ t j | � } | d } | j d | | | � d S)Nr �keysZ _cfgBindings�
extensions)
r r4 r r �ANCHOR�splitr Z
IsCoreBindingr5 ZGetExtnNameForEvent)r? r6 r� �keySetr� ZextNameZextKeybindSectionr@ r@ rA r) s
z"ConfigDialog.VarChanged_keyBindingc G s6 | j j � } | j d d d | � | j | � d S)Nr2 rC r: )r� r4 r5 � LoadKeysList)r? r6 r� r@ r@ rA r* $ s z#ConfigDialog.VarChanged_builtinKeysc G sE | j j � } | d k rA | j d d d | � | j | � n d S)Nz- no custom keys -r2 rC r: )r r4 r5 rD )r? r6 r� r@ r@ rA r+ ) s z"ConfigDialog.VarChanged_customKeysc G sF | j j � } | j d d d | � | r8 | j � n
| j � d S)Nr2 rC r= )r r4 r5 r* r+ )r? r6 r� r@ r@ rA r, / s
z&ConfigDialog.VarChanged_keysAreBuiltinc G s) | j j � } | j d d d | � d S)Nr2 r3 r0 )r r4 r5 )r? r6 r� r@ r@ rA r- 7 s z ConfigDialog.VarChanged_winWidthc G s) | j j � } | j d d d | � d S)Nr2 r3 r/ )r r4 r5 )r? r6 r� r@ r@ rA r. ; s z!ConfigDialog.VarChanged_winHeightc G s) | j j � } | j d d d | � d S)Nr2 rD zeditor-on-startup)r r4 r5 )r? r6 r� r@ r@ rA r/ ? s z#ConfigDialog.VarChanged_startupEditc G s) | j j � } | j d d d | � d S)Nr2 rD �autosave)r r4 r5 )r? r6 r� r@ r@ rA r0 C s z ConfigDialog.VarChanged_autoSavec G s) | j j � } | j d d d | � d S)Nr2 r3 r )r r4 r5 )r? r6 r� r@ r@ rA r1 G s z ConfigDialog.VarChanged_encodingc C s) i i d 6i d 6i d 6i d 6| _ d S)Nr2 � highlightr? r@ )� changedItems)r? r@ r@ rA r8 K s z ConfigDialog.ResetChangedItemsc C sL t | � } | | j | k r3 i | j | | <n | | j | | | <d S)N)�strrG )r? �typ�section�itemr� r@ r@ rA r5 T s zConfigDialog.AddChangedItemc C s� i i d 6i d 6i d 6i d 6} x� | D]� } t j d | � } xh | D]` } i | | | <t j | j | � } x3 | D]+ } t j | j | | � | | | | <qy WqH Wq) W| S)Nr2 rF r? r@ r= )r �GetSectionList�
defaultCfg�
GetOptionList�Get)r? ZdItems�
configTypeZsectionsrJ �optionsZoptionr@ r@ rA �GetDefaultItemsZ s "
1z ConfigDialog.GetDefaultItemsc C s� | j j � rK | j j d t � | j j d t � | j j d t � nL | j j d t � | j j d t � | j j d t � | j j d t � d S)Nr� ) r� r4 r� r� �NORMALr� r� r� r� )r? r@ r@ rA r� f s zConfigDialog.SetThemeTypec C s� | j j � rK | j j d t � | j j d t � | j j d t � nL | j j d t � | j j d t � | j j d t � | j j d t � d S)Nr� ) r r4 r
r� rS r r� r
r )r? r@ r@ rA r q s zConfigDialog.SetKeysTypec C s� | j j t � } | j j | � } | j � d } | j j � rU | j j � } n | j j � } t j � } | | j
d k r� | j
d | } x% | D] } | | j � | | <q� Wn t | j � � } t
| d | | � j } | r�| j j � rJd }
| j |
� } | s:| j j | � | j j | � d S| j | � n | j j | � | j j | | d | � | j j | � | j j | � | j j | � n | j j | � | j j | � d S)Nr r? z Get New KeyszcYour changes will be saved as a new Custom Key Set. Enter a name for your new Custom Key Set below.z - )r �indexrA r4 rB r r� r r ZGetCurrentKeySetrG r� �valuesr �result�GetNewKeysName�
select_set�
select_anchor�CreateNewKeySet�deleter� r r� ) r? � listIndex�binding�bindNameZcurrentKeySetNameZcurrentBindings�
keySetChangesr� ZcurrentKeySequences�newKeys�message� newKeySetr@ r@ rA r | s<
zConfigDialog.GetNewKeysc C s> t j d d � t j d d � } t | d | | � j } | S)N�userr? r= zNew Custom Key Set)r rL r rV )r? ra � usedNamesrb r@ r@ rA rW � s
zConfigDialog.GetNewKeysNamec C s) | j d � } | r% | j | � n d S)NzNew Key Set Name:)rW rZ )r? Z newKeysNamer@ r@ rA r � s z ConfigDialog.SaveAsNewKeySetc C s | j j d t � d S)Nr� )r r� rS )r? r� r@ r@ rA r � s z ConfigDialog.KeyBindingSelectedc
C s& | j j � r! | j j � } n | j j � } t j | � } i } x; | D]3 } | d d � } d j | | � } | | | <qL W| | j d k r� | j d | } x | D] } | | | | <q� Wn | j | | � t j d d � } | j
� | j j | | � | j j
d � | j � d S)NrX r� r? rc r ���)r r4 r� r r Z GetCoreKeys�joinrG �
SaveNewKeySetrL �sortr �SetMenur� r )
r? Z
newKeySetNameZprevKeySetNameZprevKeysr` r� Z eventNamer] r_ Z
customKeyListr@ r@ rA rZ � s&
z ConfigDialog.CreateNewKeySetc C sE d } d } | j j � r6 d } | j j t � } n t j | � } t | j � � } | j � | j j d t
� x� | D]� } d j | | � } | d d � } | | j d k r� | | j d | k r� | j d | | } q� n | j j
t
| d | � q{ W| rA| j j | � | j j | � | j j | � n d S)Nr rj r� rX r? z - re )r � curselectionrT rA r Z GetKeySetr� r? rh r[ r� rf rG r� �seerX rY ) r? �
keySetNameZreselectrb r\ rC Z bindNamesr^ �keyr@ r@ rA rD � s(
zConfigDialog.LoadKeysListc C s> | j j � } d } t j d | | d | �s5 d St j d j | � | | j d k rm | j d | =n t j d j � t j d d � } | j
� | s� | j j d t
� | j j | d � n | j j | | d � | j j t j d j d
d � � | j j t j d j d
d � � | j � | j � d S)
Nz0Are you sure you wish to delete the key set %r ?zDelete Key Setr3 r? rc r� z- no custom keys -r r2 rC r= r: )r r4 � tkMessageBox�askyesnor �userCfg�remove_sectionrG �SaverL rh r r� r� r ri r r� rM rO r� rZ r )r? rl �delmsg�itemListr@ r@ rA r � s&
##
z ConfigDialog.DeleteCustomKeysc C s> | j j � } d } t j d | | d | �s5 d St j d j | � | | j d k rm | j d | =n t j d j � t j d d � } | j
� | s� | j j d t
� | j j | d � n | j j | | d � | j j t j d j d
d � � | j j t j d j d
d � � | j � | j � d S)
Nz.Are you sure you wish to delete the theme %r ?z Delete Themer3 rF rc r� z- no custom themes -r r2 r9 r= r: )r� r4 rn ro r rp rq rG rr rL rh r� r� r� r� ri r� r� rM rO r� rZ r� )r? � themeNamers rt r@ r@ rA r� � s&
##
z ConfigDialog.DeleteCustomThemec C s� | j j � } | j j d � } t j d | d d | d | � \ } } | r� | | k r� | j j � r� d } | j | � } | s� d S| j | � | j j
| � q� | j j
| � n d S)N�bgr3 r6 zPick new colour for : Z initialcolorz_Your changes will be saved as a new Custom Theme. Enter a name for your new Custom Theme below.) r� r4 r� Zcget�tkColorChooserZaskcolorr� �GetNewThemeName�CreateNewThemer� r� )r? �targetZ
prevColourZ rgbTupletZ colourStringra �newThemer@ r@ rA r� s
zConfigDialog.GetColourc C s� | j j � } | j j d | � | j j � r7 d n d } | j | j j � d } | j j | i | | 6� | j j � } | d | } | j
d | | | � d S)Nrv �
foreground�
backgroundr �-rF ) r� r4 r� r� r� r7 r� r� �
tag_configr� r5 )r? Z newColour�planeZ
sampleElement�themeZ themeElementr@ r@ rA r8 + s zConfigDialog.OnNewColourSetc C s> t j d d � t j d d � } t | d | | � j } | S)Nrc rF r= zNew Custom Theme)r rL r rV )r? ra rd r{ r@ r@ rA rx 5 s
z ConfigDialog.GetNewThemeNamec C s) | j d � } | r% | j | � n d S)NzNew Theme Name:)rx ry )r? � newThemeNamer@ r@ rA r� < s zConfigDialog.SaveAsNewThemec C s� | j j � r' d } | j j � } n d } | j j � } t j | | � } | | j d k r� | j d | } x | D] } | | | | <qy Wn | j | | � t j d d � } | j � | j
j | | � | j j d � | j
� d S)Nr= rc rF r )r� r4 r� r� r Z GetThemeDictrG � SaveNewThemerL rh r� ri r� r� )r? r� Z themeTyperu r{ Z themeChangesr� ZcustomThemeListr@ r@ rA ry A s
zConfigDialog.CreateNewThemec C s6 | j j t � } | j j | j � � | j � d S)N)r~ r4 rA rt r� �lowerr� )r? r� rl r@ r@ rA r� Y s z$ConfigDialog.OnListFontButtonReleaseNc C sr | j j � } | j j � r' t j n t j } | | j j � | f } | j j d | � | j j
d | � d S)Nrl ) rt r4 rs rw ZBOLDrS rq r� r� r� r5 )r? r� rt Z
fontWeightZnewFontr@ r@ rA r� ^ s
!zConfigDialog.SetFontSamplec C s� | j j � d k rN | j j d t � | j j d t � | j j d � n6 | j j d t � | j j d t � | j j d � | j � d S)Nr$ r� rj )
r� r4 r� r� r� r� r� r� rS �SetColourSample)r? r@ r@ rA r> e s z ConfigDialog.SetHighlightTargetc G s | j � d S)N)r� )r? �argsr@ r@ rA r� p s z#ConfigDialog.SetColourSampleBindingc C sa | j | j j � d } | j j � r/ d n d } | j j | | � } | j j d | � d S)Nr r| r} rv )r7 r� r4 r� r� Ztag_cgetr� r� )r? �tagr� r� r@ r@ rA r� s s z ConfigDialog.SetColourSamplec C s$ | j j � r! | j j � } n | j j � } x� | j D]� } | j | d } t j | | � } | d k r� t j | d d d �| d <n | | j d k r� | j d | } | d | k r� | | d | d <n | d
| k r� | | d
| d <q� n | j j | | � q: W| j
� d S) Nr r" r ZfgBgrv r} rF z -foregroundr| z -background) r� r4 r� r� r7 r Z GetHighlightrG r� r r� )r? r� Z elementTitler� ZcoloursZ themeDictr@ r@ rA r< z s" z ConfigDialog.PaintThemeSamplec C s | j � d S)N)�SetHelpListButtonStates)r? r� r@ r@ rA r � s z ConfigDialog.HelpSourceSelectedc C s� | j j � d k r> | j j d t � | j j d t � n^ | j j � rv | j j d t � | j j d t � n& | j j d t � | j j d t � d S)Nrj r� )r �sizer r� r� r rj rS )r? r@ r@ rA r� � s z$ConfigDialog.SetHelpListButtonStatesc C sh t | d � j } | rZ | j j | d | d f � | j j t | d � | j � n | j � d S)NzNew Help Sourcer rj ) r rV � userHelpList�appendr r� r� �UpdateUserHelpChangedItemsr� )r? �
helpSourcer@ r@ rA r � s
z ConfigDialog.HelpListItemAddc C s� | j j t � } | j | } t | d d | d d | d �j } | sX | | k r\ d S| | j | <| j j | � | j j | | d � | j � | j � d S)NzEdit Help SourceZmenuItemr ZfilePathrj )
r rT rA r� r rV r[ r� r� r� )r? � itemIndexr� Z
newHelpSourcer@ r@ rA r � s
z ConfigDialog.HelpListItemEditc C sD | j j t � } | j | =| j j | � | j � | j � d S)N)r rT rA r� r[ r� r� )r? r� r@ r@ rA r � s
z ConfigDialog.HelpListItemRemovec C sv i | j d d <x^ t d t | j � d � D]@ } | j d d t | � d j | j | d d d � � � q. Wd S)z<Clear and rebuild the HelpFiles section in self.changedItemsr2 � HelpFilesrj �;NrX )rG r �lenr� r5 rH rf )r? Znumr@ r@ rA r� � s
#z'ConfigDialog.UpdateUserHelpChangedItemsc C s. t t j | � � } | j � x! | D] } | j j t | � q& Wt j | d d � } | d j � } | d } | d d k } | j
j | � d d � | D� } yC | j | � } | j j
| � | j j | � | j j | � Wn t k
r� Yn X| j j d | � | j j | � | j � d S)Nr2 r3 r rj rX Zboldc S s g | ] } | j � � q Sr@ )r� )r� �sr@ r@ rA r� � s z,ConfigDialog.LoadFontCfg.<locals>.<listcomp>�7�8�9r( r* r, r. �14�16�18�20�22) r� r� r� z10z11z12z13r� r� r� r� r� )r� rw Zfamiliesrh r~ r� r� r ZGetFontr� rt r� rT rk rX rY �
ValueErrorr� ri rs r� ) r? Zfontsrl ZconfiguredFontrt rq rs Zlc_fontsZcurrentFontIndexr@ r@ rA � LoadFontCfg� s*
zConfigDialog.LoadFontCfgc C s5 t j d d d d d d d �} | j j | � d S)Nr2 r7 z
num-spacesr= r� �type�int)r r; rv r� )r? rv r@ r@ rA �
LoadTabCfg� s zConfigDialog.LoadTabCfgc s� � j j t j d d d d d d d �� t j � } � j j � r� t j d d � } | j � � j j | | � t j d d � } | j � | s� � j
j d t � � j
j d
� q9� j j | | d � nb t j d d � } | j � � j j | | � t j d d � } | j � � j j | | d � � j � t � j j � � } | j d � f d
d � � � j j | | d � � j � � j � d S)Nr2 r9 r= r� �boolrj rF rc r� z- no custom themes -r rm c s � j | d S)Nrj )r7 )�x)r? r@ rA r� s z+ConfigDialog.LoadThemeCfg.<locals>.<lambda>)r� r� r r; Z CurrentThemer4 rL rh r� ri r� r� r� r� r� r� r� r7 r? r� r< r> )r? �
currentOptionrt Z
themeNamesr@ )r? rA � LoadThemeCfg� s2
zConfigDialog.LoadThemeCfgc C s` | j j t j d d d d d d d �� t j � } | j j � r� t j d d � } | j � | j j | | � t j d d � } | j � | s� | j
j d t � | j
j d
� q9| j j | | d � nb t j d d � } | j � | j j | | � t j d d � } | j � | j j | | d � | j � t j � } | j | � d S) Nr2 rC r= r� r� rj r? rc r� z- no custom keys -r )r r� r r; Z CurrentKeysr4 rL rh r
ri r r� r� r r r rD )r? r� rt rl r@ r@ rA �
LoadKeyCfg s,
zConfigDialog.LoadKeyCfgc C s
| j j t j d d d d d d d �� | j j t j d d d d d d d �� | j j t j d d
d d d �� | j j t j d d
d
d d �� | j j t j d d
d d d �� t j � | _ x( | j D] } | j
j t | d � q� W| j
� d S)Nr2 rD zeditor-on-startupr= rj r� r� rE r r3 r0 r� r/ r Znone)r r� r r; r r r r ZGetAllExtraHelpSourcesListr� r r� r� r� )r? ZhelpItemr@ r@ rA �LoadGeneralCfg# s zConfigDialog.LoadGeneralCfgc C s6 | j � | j � | j � | j � | j � d S)z�
load configuration from default and user config files and populate
the widgets on the config dialog pages.
N)r� r� r� r� r� )r? r@ r@ rA r= 8 s
zConfigDialog.LoadConfigsc C sf t j d j | � s- t j d j | � n x2 | D]* } | | } t j d j | | | � q4 Wd S)z�
save a newly created core key set.
keySetName - string, the name of the new key set
keySet - dictionary containing the new key set
r? N)r rp � has_section� add_section� SetOption)r? rl rC r� r� r@ r@ rA rg H s
zConfigDialog.SaveNewKeySetc C sf t j d j | � s- t j d j | � n x2 | D]* } | | } t j d j | | | � q4 Wd S)z�
save a newly created theme.
themeName - string, the name of the new theme
theme - dictionary containing the new theme
rF N)r rp r� r� r� )r? ru r� r� r� r@ r@ rA r� T s
zConfigDialog.SaveNewThemec C sl t j | j | | � rR t j | j | | � | k rR t j | j | | � Sn t j | j | | | � S)N)r rM Z
has_optionrO rp � RemoveOptionr� )r? rP rJ rK r� r@ r@ rA � SetUserValue` s zConfigDialog.SetUserValuec C s t j d j � x� | j D]� } d } x� | j | D]� } | d k rd t j d j d � d } n xO | j | | D]< } | j | | | } | j | | | | � rv d } qv qv Wq5 W| r t j | j � q q Wx% d d g D] } t j | j � q� W| j � | j � d S)z3Save configuration changes to the user config file.r2 Fr� Tr? rF N)r rp rr rG rq r� r8 �save_all_changed_extensions)r? rP ZcfgTypeHasChangesrJ rK r� r@ r@ rA �SaveAllChangedConfigsh s"
z"ConfigDialog.SaveAllChangedConfigsc C s1 | j j j � } x | D] } | j � q Wd S)N)r3 r4 r? ZRemoveKeybindings)r? � winInstances�instancer@ r@ rA �DeactivateCurrentConfig~ s
z$ConfigDialog.DeactivateCurrentConfigc C sY | j j j � } x@ | D]8 } | j � | j � | j � | j � | j � q Wd S)z'Dynamically apply configuration changesN)r3 r4 r? ZResetColorizerZ ResetFontZset_notabs_indentwidthZApplyKeybindingsZreset_help_menu_entries)r? r� r� r@ r@ rA �ActivateConfigChanges� s
z"ConfigDialog.ActivateConfigChangesc C s | j � d S)N)�destroy)r? r@ r@ rA r; � s zConfigDialog.Cancelc C s | j � | j � d S)N)rZ r� )r? r@ r@ rA rY � s
zConfigDialog.Okc C s" | j � | j � | j � d S)N)r� r� r� )r? r@ r@ rA rZ � s
zConfigDialog.Applyc C s6 | j j } t | d d d t t j | d � �d S)Nr6 zHelp for IDLE preferencesr\ r )r< Z
_current_pager � help_common�
help_pagesr4 )r? Zpager@ r@ rA r[ � s zConfigDialog.Helpc
C s | j } | j j d j } t j d | _ t j d | _ | j t
� | _
| j � t | � | _
| j d d d �| j d d d �t | d | j
d d �| _ | j j d
| j � t | d | j j �} | j | j _ t | d d
d d
�| _ | j j d d d d d d � | j d d d d d d � | j j d d d d d d d d d g � | j d d d d � i | _ d | _ | | _ | j | _ d } x6 t | j! � D]% } | j" | � | d | d } q�W| j
j | � | j j# d � | j d � d S) a Part of the config dialog used for configuring IDLE extensions.
This code is generic - it works for any and all IDLE extensions.
IDLE extensions save their configuration options using idleConf.
This code reads the current configuration using idleConf, supplies a
GUI interface to change the configuration values, and saves the
changes using idleConf.
Not all changes take effect immediately - some may require restarting IDLE.
This depends on each extension's implementation.
All values are treated as text, and it is up to the user to supply
reasonable values. The only exception to this are the 'enable*' options,
which are boolean, and can be toggled with an True/False button.
rE r@ r r� rj rX Z listvariableZ
selectmodeZbrowsez<<ListboxSelect>>r] r0 � r/ r� r� r� Znws�ns�nsewrU rd rW Nr �{z} )$r3 r< rx ry r rM �ext_defaultCfgrp � ext_userCfg�register�is_int�load_extensionsrp Zextension_namesr r r} �extension_listr �extension_selectedr� r� r� rg rz �
details_framer r5 � config_frame�current_extensionZ
outerframeZtabbed_page_set�sortedr@ �create_extension_frameZ
selection_set)r? r3 ry ZscrollZ ext_names�ext_namer@ r@ rA rQ � s<
+
z!ConfigDialog.CreatePageExtensionsc
C s� i | _ x' t j d d � D] } g | j | <q Wx�| j D]�} t | j j | � � } d d � | D� } x | D] } | j | � qu W| | } x3| D]+} | j j | | d d �} y" i d d 6d d 6| } d } WnI t k
r+y t | � } d
} Wn t
k
r&| } d } Yn XYn Xy+ | j j | | d | d d d
| �} Wn t
k
rq| } Yn Xt | � } | j
t | � � | j | j i | d 6| d 6| d
6| d 6| d 6� q� Wq= Wd S)zAFill self.extensions with data from the default and user configs.Z active_onlyFc S s% g | ] } | j d � r | � q S)�enable)�
startswith)r� �opt_namer@ r@ rA r� � s z0ConfigDialog.load_extensions.<locals>.<listcomp>�rawT�True�Falser� r� Nr� r= r: r� �var)r@ r Z
GetExtensionsr� r� rN �removerO �KeyErrorr� r� r� rp r� rH r� )
r? r� Zopt_listZenablesr� Zdef_strZdef_objZopt_typer� r� r@ r@ rA r� � sF
z ConfigDialog.load_extensionsc C s� | j j � } | r* | j j | � } n | d k sE | | j k r� | j r� | j j d d � | j | j j � d | _ q� n | r� | j j d | � | j | j d d d d d d � | | _ n d S)Nr\ r r� r r� r� r� ) r� rj r4 r� r� r� r� Z grid_forgetr )r? r� Znewselr@ r@ rA r� s #z ConfigDialog.extension_selectedc C s~ t | j d d d d �} | | j | <| j } xFt | j | � D]1\ } } t | d | d �} | j d | d d d t � | d
} | d d k r� t | d
| d | d d d d d t
d d d d �j d | d d d t d d � qE | d d k rHt | d
| d d d | j
d f �j d | d d d t d d � qE t | d
| �j d | d d d t d d � qE Wd S) z=Create a frame holding the widgets to configure one extensionr/ r� r0 r\ r: r� r� r r� r� r� r� r rh ri r� rk r� Z indicatoronZ selectcolorr r� rj rU � r� Zvalidaterm Zvalidatecommandz%PN)�VerticalScrolledFramer� r� �interior� enumerater@ r| r �NWr� r: r� r r� r )r? r� �fZ
entry_arear� �optZlabelr� r@ r@ rA r� s&
z#ConfigDialog.create_extension_framec C sv | d } | d } | d j � j � p- | } | d j | � | | k r` | j j | | � S| j j | | | � S)Nr: r= r� )r4 �stripr� r� r� r� )r? rJ r� r: r= r� r@ r@ rA �set_extension_value* s
z ConfigDialog.set_extension_valuec C sm d } xJ | j D]? } | j | } x) | D]! } | j | | � r* d } q* q* Wq W| ri | j j � n d S)z3Save configuration changes to the user config file.FTN)r@ r� r� rr )r? Z has_changesr� rQ r� r@ r@ rA r� 6 s
z(ConfigDialog.save_all_changed_extensions)O�__name__�
__module__� __qualname__r2 r9 rR rM rN rO rP r> r" r# r$ r% r& r' r( r) r* r+ r, r- r. r/ r0 r1 r8 r5 rR r� r r rW r r rZ rD r r� r� r8 rx r� ry r� r� r> r� r� r< r r� r r r r� r� r� r� r� r� r= rg r� r� r� r� r� r; rY rZ r[ rQ r� r� r� r� r� r@ r@ r@ rA r s� 5 D o M ` $
!
5 - r ah When you click either the Apply or Ok buttons, settings in this
dialog that are different from IDLE's default are saved in
a .idlerc directory in your home directory. Except as noted,
these changes apply to all versions of IDLE installed on this
machine. Some do not take affect until IDLE is restarted.
[Cancel] only cancels changes made since the last save.
z�
Highlighting:
The IDLE Dark color theme is new in October 2015. It can only
be used with older IDLE releases if it is saved as a custom
theme, with a different name.
rB c C s9 | s
d Sy t | � d SWn t k
r4 d SYn Xd S)z(Return 's is blank or represents an int'TFN)r� r� )r� r@ r@ rA r� T s
r� c @ s" e Z d Z d Z d d � Z d S)r� z�A pure Tkinter vertically scrollable frame.
* Use the 'interior' attribute to place widgets inside the scrollable frame
* Construct and pack/place/grid normally
* This frame only allows vertical scrolling
c
s6 t j | | | | � t | d t �} | j d t d t d t � t | d d d d d | j d d
�� � j d t
d t d t � | j
d � j � � j d � � j d � t � � | _ � � j d d d � d
t �� � � f d d � } � j d | � � � � f d d � } � j d | � d S)Nrm rH rF rG r� r r� rg r0 �� r] Zwindowro c s0 � j � � j � f } � j d d | � d S)NZ scrollregionz 0 0 %s %s)�winfo_reqwidthZwinfo_reqheightr� )r� r� )�canvasr� r@ rA �_configure_interior{ s z;VerticalScrolledFrame.__init__.<locals>._configure_interiorz <Configure>c s8 � j � � j � k r4 � j � d � j � �n d S)Nr0 )r� Z winfo_widthZ
itemconfigure)r� )r� r� � interior_idr@ rA �_configure_canvas� s z9VerticalScrolledFrame.__init__.<locals>._configure_canvas)r_ r2 r� ZVERTICALrI r� r� r: ZCanvasr� ra rL rK r� r� Z xview_movetoZ yview_movetor� Z
create_windowr� r )r? r3 r� �kwZ
vscrollbarr� r� r@ )r� r� r� rA r2 f s
z VerticalScrolledFrame.__init__N)r� r� r� �__doc__r2 r@ r@ r@ rA r� _ s r� �__main__z#idlelib.idle_test.test_configdialog� verbosityrX �exitF)�run)'r� ZtkinterZtkinter.messageboxZ
messageboxrn Ztkinter.colorchooserZ colorchooserrw Z tkinter.fontrl rw Zidlelib.configHandlerr Zidlelib.dynOptionMenuWidgetr Zidlelib.keybindingDialogr Z idlelib.configSectionNameDialogr Z idlelib.configHelpSourceEditr Zidlelib.tabbedpagesr Zidlelib.textViewr Zidlelibr
r1 r r� r� r� r_ r� r� Zunittestr2 Zidlelib.idle_test.htestr� r@ r@ r@ rA �<module> s:
� � � � � 4
+