ó zfc @ s d d l Z d d l Z d d l Z d d l m Z d d l m Z m Z e j d d e j f d YZ e f Z e d k r e j e n d S( iĸĸĸĸN( t test_support( t Tclt TclErrort guit TkLoadTestc B s5 e Z e j d e j k d d Z d Z RS( t DISPLAYs No $DISPLAY set.c C sJ t } | j t | j | j | j d | j | j d S( Ns 1x1+0+0( R t assertRaisesR t winfo_geometryt loadtkt assertEqualt destroy( t selft tcl( ( s<