← Back
Editing: ParenMatch.cpython-34.pyc
� e f9 � @ s� d Z d d l m Z d d l m Z i d d 6d d 6d d 6Z d Z Gd d � d � Z e d k r� d d l Z e j d d d �n d S)z�ParenMatch -- An IDLE extension for parenthesis matching. When you hit a right paren, the cursor should move briefly to the left paren. Paren here is used generically; the matching applies to parentheses, square brackets, and curly braces. � )� HyperParser)�idleConf�(�)�[�]�{�}�d c @ sH e Z d Z d Z d d1 g f g Z e j d d d d d �Z e j d d d d d d d �Z e j e j � d � Z e j d d d d d d d �Z d Z d2 Z d d � Z d d � Z d d � Z d d � Z d d � Z d d! � Z d" d# d$ � Z d% d& � Z d' d( � Z d) d* � Z d+ d, � Z d- d. � Z d/ d0 � Z d" S)3� ParenMatcha� Highlight matching parentheses There are three supported style of paren matching, based loosely on the Emacs options. The style is select based on the HILITE_STYLE attribute; it can be changed used the set_style method. The supported styles are: default -- When a right paren is typed, highlight the matching left paren for 1/2 sec. expression -- When a right paren is typed, highlight the entire expression from the left paren to the right paren. TODO: - extend IDLE with configuration dialog to change options - implement rest of Emacs highlight styles (see below) - print mismatch warning in IDLE status window Note: In Emacs, there are several styles of highlight where the matching paren is highlighted whenever the cursor is immediately to the right of a right paren. I don't know how to do that in Tk, so I haven't bothered. Zedit�Show surrounding parens�<<flash-paren>>� extensions�style�default� expressionz flash-delay�type�inti� Zhilite�bell�bool� z <<parenmatch-check-restore>>� <KeyPress>� <ButtonPress>� <Key-Return>�<Key-BackSpace>c C sT | | _ | j | _ | j j | j | j � d | _ d | _ | j | j � d S)Nr ) �editwin�textZbind�RESTORE_VIRTUAL_EVENT_NAME� restore_event�counter�is_restore_active� set_style�STYLE)�selfr � r$ �7/opt/alt/python34/lib64/python3.4/idlelib/ParenMatch.py�__init__; s zParenMatch.__init__c C sC | j s? x' | j D] } | j j | j | � q Wd | _ n d S)NT)r �RESTORE_SEQUENCESr Z event_addr )r# �seqr$ r$ r% �activate_restoreG s zParenMatch.activate_restorec C sC | j r? x' | j D] } | j j | j | � q Wd | _ n d S)NF)r r' r Z event_deleter )r# r( r$ r$ r% �deactivate_restoreM s z ParenMatch.deactivate_restorec C s[ | | _ | d k r0 | j | _ | j | _ n' | d k rW | j | _ | j | _ n d S)Nr r )r" �create_tag_default� create_tag�set_timeout_last� set_timeout�create_tag_expression�set_timeout_none)r# r r$ r$ r% r! S s zParenMatch.set_stylec C sW t | j d � j � } | d k r2 | j � d S| j � | j | � | j � d S)N�insert)r r �get_surrounding_brackets�warn_mismatchedr) r, r- )r# �event�indicesr$ r$ r% �flash_paren_event\ s z ParenMatch.flash_paren_eventc C s� | j j d � } | t k r" d St | j d � } | j � sD d S| j t | d � } | d k rt | j � d S| j � | j | � | j � d S)Nz insert-1cT) r �get�_openersr r Z is_in_coder2 r3 r) r, r. )r# r4 ZcloserZhpr5 r$ r$ r% �paren_closed_eventf s z ParenMatch.paren_closed_eventNc C s- | j j d � | j � | j d 7_ d S)N�parenr )r Z tag_deleter* r )r# r4 r$ r$ r% r v s zParenMatch.restore_eventc C s | | j k r | j � n d S)N)r r )r# Z timer_countr$ r$ r% �handle_restore_timer{ s z ParenMatch.handle_restore_timerc C s | j r | j j � n d S)N)�BELLr r )r# r$ r$ r% r3 s zParenMatch.warn_mismatchedc C s1 | j j d | d � | j j d | j � d S)z'Highlight the single paren that matchesr: r N)r �tag_add� tag_config� HILITE_CONFIG)r# r5 r$ r$ r% r+ � s z ParenMatch.create_tag_defaultc C sk | j j | d � d k r- | d d } n | d } | j j d | d | � | j j d | j � d S) z Highlight the entire expressionr r r r z+1cr: r N)r r r )r r7 r= r> r? )r# r5 Z rightindexr$ r$ r% r/ � s z ParenMatch.create_tag_expressionc C sP | j d 7_ | | j | j j d � d d � } | j j j t | | � d S)zSHighlight will remain until user input turns it off or the insert has movedr r1 c S sE | | j j d � k r( | j | � n | j j j t | | � d S)Nr1 )r �indexr; r � text_frame�after� CHECK_DELAY)�callmer# �cr@ r$ r$ r% rD � s z+ParenMatch.set_timeout_none.<locals>.callmeN)r r r@ r rA rB rC )r# rD r$ r$ r% r0 � s zParenMatch.set_timeout_nonec C s; | j d 7_ | j j j | j | | j d d � � d S)z7The last highlight created will be removed after .5 secr c S s | j | � S)N)r; )r# rE r$ r$ r% �<lambda>� s z-ParenMatch.set_timeout_last.<locals>.<lambda>N)r r rA rB � FLASH_DELAY)r# r$ r$ r% r- � s zParenMatch.set_timeout_last)r r )r r r r ) �__name__� __module__� __qualname__�__doc__Zmenudefsr Z GetOptionr" rG Z GetHighlightZ CurrentThemer? r< r r' r& r) r* r! r6 r9 r r; r3 r+ r/ r0 r- r$ r$ r$ r% r s4 r �__main__Nz!idlelib.idle_test.test_parenmatch� verbosity� ) rK Zidlelib.HyperParserr Zidlelib.configHandlerr r8 rC r rH Zunittest�mainr$ r$ r$ r% �<module> s �
Save File
Cancel