î
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ú<>Ú
extensionsÚstyleÚdefaultÚ
expressionz flash-delayÚtypeÚintiô ZhiliteÚbellÚboolé z <>ú
ú
ú ú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..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% Ú s z-ParenMatch.set_timeout_last..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% Ú s ¢