a „oeŽã@s‚ddlZddlZddlZddlZddlZddlZddlmZmZe  ¡Z dd„Z dd„Z dd„Z d d „Zd d „Zed kr~eƒdS)éN)ÚDispatchÚDispatchWithEventscCsŽGdd„dƒ}Gdd„dƒ}td|ƒ}i|_d|_|j ¡}t||ƒ}td|ƒtdƒtd ƒt|d ƒsr| ¡t|d d gƒsŠt   d¡dS) Nc@s4eZdZdd„Zdd„Zdd„Zdd„Zd d „Zd S) zTestExcel..ExcelEventscSs$t|ƒtjkrtdƒ‚d|jd<dS)Nú=The transformer doesnt appear to have translated this for us!Ú OnNewWorkbook©ÚtypeÚtypesZ InstanceTypeÚ RuntimeErrorÚ seen_events)ÚselfÚwb©r úAC:\Program Files\Certbot\pkgs\win32com\test\testMSOfficeEvents.pyrs ÿz,TestExcel..ExcelEvents.OnNewWorkbookcSs2t|ƒtjkst|ƒtjkr$tdƒ‚d|jd<dS)NrÚOnWindowActivater©r r Úwnr r rrs ÿz/TestExcel..ExcelEvents.OnWindowActivatecSsd|jd<dS)NÚOnWindowDeactivate©r rr r rrsz1TestExcel..ExcelEvents.OnWindowDeactivatecSsd|jd<dS)NÚOnSheetDeactivater)r Úshr r rr!sz0TestExcel..ExcelEvents.OnSheetDeactivatecSs(|jddkrtdƒn tdƒdSdS)NérzYou can double-click there...z!You can not double-click there...é)ZColumnÚprint)r ZShÚTargetÚCancelr r rÚOnSheetBeforeDoubleClick$s z7TestExcel..ExcelEvents.OnSheetBeforeDoubleClickN)Ú__name__Ú __module__Ú __qualname__rrrrrr r r rÚ ExcelEventss rc@seZdZdd„Zdd„ZdS)z!TestExcel..WorkbookEventscSs tdƒdS)Nzworkbook OnActivate©r©r r r rÚ OnActivate.sz,TestExcel..WorkbookEvents.OnActivatecSs tdƒdS)NzIt's a Worksheet Eventr )r rrr r rÚOnBeforeRightClick1sz4TestExcel..WorkbookEvents.OnBeforeRightClickN)rrrr"r#r r r rÚWorkbookEvents-sr$zExcel.Applicationrz Have bookz+Double-click in a few of the Excel cells...z=Press any key when finished with Excel, or wait 10 seconds...é rr) rr ÚVisibleZ WorkbooksÚAddrÚ_WaitForFinishÚQuitÚ_CheckSeenEventsÚsysÚexit)rr$ÚeZbookr r rÚ TestExcels     r.cCsdGdd„dƒ}td|ƒ}i|_d|_|j ¡tdƒt|dƒsH| ¡t|ddgƒs`t   d¡dS) Nc@s$eZdZdd„Zdd„Zdd„ZdS)zTestWord..WordEventscSsd|jd<dS)NÚOnDocumentChangerr!r r rr/Gsz-TestWord..WordEvents.OnDocumentChangecSsd|jd<dS)Nrr)r Údocrr r rrJsz-TestWord..WordEvents.OnWindowActivatecSsd|jd<t ¡dS)NÚOnQuit)r Ú stopEventÚsetr!r r rr1Ms z#TestWord..WordEvents.OnQuitN)rrrr/rr1r r r rÚ WordEventsFsr4zWord.Applicationrzs7