QuickWho

#QuickWho: GUI for whois

#MIT license.
#(c) 2014 WordTech Communications LLC

##let's get started, import our modules and initialize some variables

from tkinter import *
from tkinter import font
from tkinter import filedialog
import os
import sys
from tkinter import ttk as Tile
import time
import pickle
import bwidget
import re
import pythonwhois
import webbrowser
import urllib.request, urllib.error, urllib.parse
import socket
import json
import shutil
import hashlib
import tempfile
import ToolTip



#custom class for configuring hyperlinks, based on http://stackoverflow.com/questions/3781670/tkinter-text-highlighting-in-python
class CustomText(Text):
    '''A text widget with a new method, HighlightPattern 

    example:

    text = CustomText()
    text.tag_configure("red",foreground="#ff0000")
    text.HighlightPattern("this should be red", "red")

    The highlight_pattern method is a simplified python 
    version of the tcl code at http://wiki.tcl.tk/3246
    '''
    def __init__(self, *args, **kwargs):
        Text.__init__(self, *args, **kwargs)

    def highlight_pattern(self, pattern, tag, start="1.0", end="end", regexp=False):
        '''Apply the given tag to all text that matches the given pattern

        If 'regexp' is set to True, pattern will be treated as a regular expression
        '''

        start = self.index(start)
        end = self.index(end)
        self.mark_set("matchStart",start)
        self.mark_set("matchEnd",start)
        self.mark_set("searchLimit", end)

        count = StringVar()
        while True:
            index = self.search(pattern, "matchEnd","searchLimit",
                                count=count, regexp=regexp)
            if index == "": break
            self.mark_set("matchStart", index)
            self.mark_set("matchEnd", "%s+%sc" % (index,count.get()))
            self.tag_add(tag, "matchStart","matchEnd")
            


class quickwhoApp(Tk):

    def __init__(self, parent):
        Tk.__init__(self, parent)
        try:
            self.tk.call('console', 'hide')
        except TclError:
            pass
        self.setAppName('QuickWho', '6.0')
        self.makeImages()
        if self.isAqua():
            self.tk.call('package', 'require', 'tclservices')
            self.tk.call('package', 'require', 'cocoaprint')
            self.createcommand('::tk::mac::PerformService', self.runService)
            self.tk.call('package', 'require', 'fullscreen')
            self.tk.call('package', 'require', 'aem')
            self.tk.createcommand('getDomain', self.getDomain)
            self.tk.call('aem::installeventhandler', 'CoKv', 'dman', 'getDomain')

        self.tk.call('package', 'require', 'softwareupdate')
        self.tk.call('softwareupdate::setVersion', self.appname, self.appversion)  
        self.tk.call('package', 'require', 'xplat')
        self.prefsdir = str(self.tk.call('xplat::appconfig', 'QuickWho'))
        self.cachedir = tempfile.gettempdir()
        
        if sys.platform == "darwin": self.accelkey = "Command-"
        else: self.accelkey ="Control-"

        self.drawGUI()
        self.tk.call('package', 'require', 'machelp')
        if self.isAqua():
            self.createcommand('::tk::mac::ShowHelp', self.showHelp)
        self.tk.call('machelp::setAppName', self.appname, self.appversion)
  
        self.printfile=os.path.join(self.cachedir, 'whois_output.txt')
        self.readLic(self.appname, self.appversion)
        

    #test for Windows
    def isWindows(self):
        return  'win32' in self.tk.call('tk', 'windowingsystem')

    def isAqua(self):
        return 'aqua' in self.tk.call('tk', 'windowingsystem')

    #launch url
    def launchurl(self, url):
        self.tk.call('xplat::launch', url)


    #make the images
    def makeImages(self):

        self.tk.call('package', 'require', 'Img')
        execdir = os.path.dirname(sys.argv[0])

        #icon data
        icondata = """
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA
BmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAACNvAAAjbwE1/Af7AAAX70lEQVR42u2b
WYxk13nff+fcpfal9+rq7umZ6VkpDjkcikMOFVqUJcs2IynKQ2LASp4kQQLEvMSA
gljJgx/zEgGxkcgIkpcATgLYSRwloiwpliWNTHOZIcXh7D1bL9NLdXctXdu99yx5
uFU13cPZSMoCgvAAH25V9d3+/28/5zR8ND4aH43/n4f4VT3o1KmX+89LWWvz1tic
xaawOAihhaAjhNgWQjSADmBfffWP/t8l4NSpl/nrv/5Dnn766zngsBTiGQRPSSkP
ep4z6Xpu3nUcXwghrbVGKR0opbZVpFe0MVeBs1LKNxxHXt7aqDeHRwv8bRDySyfg
uee+gZTSCcPokDH2C7ls6qXhkfyxbC5d3LNnQszMTlAqjVAoZkilEggh6IaKVjuk
XttmbXWLpYU1FhfWbGVtq9Zqdc4ZY/+XI+V3pSOvWmv1L5OIXxoBp069jONIGUXq
mDH2K8PDub9/6NB0+VOfOi5OnDhIIpUkX8jhew6O3P1gZWB+aYP1piHpe3jSoroB
q7crnHv7Ku+cvWyXF9eXwyD8b1LK/+C4zrvGGPPLIOJDE/Dcc98ABNbakjHm68mk
/5Unjx+Y+tKXPs3hIzN0tGS7qykXfXJpH2vfew+tFP/z/7xKlJnB4NCNFALIpz3G
8gmIAi6du8bpvzzD9asLS2EY/XvHcf7YWrsmhPhQruF8GPCnTr2M73tCKf2i68rv
7N9f/tJXvvp3C1/5yksMjw9zs6q5uaVoBZYgCPEdSyrh7daAENxeXePaSoOxiUl8
V+K7Emtho95lfqXBVkszPVvi2VMfY3i0mN9cr35yu9F6DsR133cXyuVnWFp6/VdL
wKlTLyOE8Lvd8KuZTPIPv/zl337sa1//gjhx4iDVapVON2BiKINVEblMCuG4IAT5
lIuUAiEEYRiysLTMmXfnyY7N4CcS2J6JOFKQ8h18VyIEjGQ9Dk7l+djRGY4emxPd
TjC7slz5zW432nZd59z09En9QUj4QAT0UloqivQ/P3Bg6g++/vXPD33+889jTcTV
67d49fwSbrpIPiVJyojKxha5fJ7xvEfCk1SrNc5fusK5yzdZrUeMTu1jcqxIN1QY
BFiLtaCtpZD2+K0TUxycSLG1WWGkkMJ1DFN7JxgbK+Yqa9Vfr9VawnGc16enT6r3
S8L7JiDWPEml9L88cmTmn/2Lb/2j5DMnD3P2nQtcurlKpd7lwGNPUh7JsLW+ymq1
RSKdIZPJkvYlOuzw09fOIrMTjE7upTg6Ti7ls71+i43qNqlMAWvBWksx7XFstshI
zueHP32dajNk/0yJViek0lR85u88xr69Y/6FC7eer9dbjuM4r75fEt4XAb1I7wSB
+qdzc+Xf/9a3vpQojqT4wemzNGyOYnmOfbNTHJlMsbFZQwmPkYlJ8vkCIFDKcOHC
eVKFEqXyDEIIrLUEkaEVCdL5IYSQCCzGWg6Vs4xlJcYY3ri4TLYwTM43DBdzjGRd
jI6YmRlncnLYfffdmyebzW7b85zXpqaesY9KwiMTcOrUy0SRQmvzO6XS0L/65jd/
J3PixEEu3VhBZ6YYK02RSnjsG0mQ9QW+NAhhsdLHdV2kBG0EiUyB4tDwwNf7ScHz
k0AcG8YygnqzS63e4MKVaziux/XFNeb27WG2VIyvMwatNUEQMDtbolBIu++8c+OZ
TiecBy7s2fPsIwXGRyKg5/MAx1KpxHe+9rXPlT/72Y8DlrHhAqOFNJ1uyGTRZyQt
kVKQTCQIgy5WuAjHAwRSCjzfp4+8D970TB4BOc/gSwNGoWSK8aEstzc7zE6Nc/zg
JL7nYozBWosxBqUUURQxN1cmiqLkxYuLTwA/FkJUZmZOPpQE9314QBr41qc/feLg
5z53KsZgwXMdRj0IWl3GMikcyeDFfNfl1s3rFEr7SKXTEGNESoG1AmkFRgikiDUv
hGRjY5V8QjA5lCNfKAxqBykFgpgox3GQUg4kCAKstXzhC88xP798+PXX53/fdd2v
WmvbH9oCTp16GWstSul/sHdv6Zu/93v/0B0dLQxMGOJcnsukcB1Js9niF+9eYGmt
ynKlTjKVIZnO4Lj+rvPjQBdL3wK0sVgnicSQ9iwTo0OIPkG7ro21v1OCICCZTFAu
D3P27PyBViu4KKU4/zArkI+iemvtqO973/jiFz+R3Lev9B7wO4+e57J/7yzWGqb2
HiCVzdNudWIA9o6IntZjv4d+USqkZGJ8jL17puNz7vE+YmAxYsd9oNlssn//JJ/8
5NGUEPZlYORh2B5IQN/3lTKfO3hw6mTs9/cfURRx7sJlzl25CX4WP5kinR+mODIa
a3kHB/cariOYHk5QSLtEUcTZdy7wszPnaTQ7LK5UiLSJLUKKe5KglKLb7fDii08y
NpZ9Vmvz0k4c93zmwxgyxmY9z/3dz3zm6feY/s6xVa3y7sWr2ESRvYcP4DgyBioe
3m7EbmDJJx32jKQwRvPjn7/BjY2I/Ng05kYVJ6oTGYEO24yPjZLy3V3W1//carWZ
mBji6af3ed/73rnfBfFncP9Y8FAXUEodn5wcPvnCC8fue0632+X0mYskR/cyO3cQ
IeNavq/unZrfKX3f71PaCSJqjSaXrsyzsBVS3nsIz/dZa0Scm1/h4mKNH752hdev
bFJrNAnDcAC8T0Q/NZ48eZhMxn3OGHv8QfjuGwTj4AfGmC+/8MITv/n5z5+6rzJ/
cf4SXafA9J49yHucdK/LjImzhTYWrQ3GWNqBZqPaoNXa5onHDrNvIkepmKAbGRo6
Ra1j6BqP29WQH5+Z5+ZKlf2TeaQArTVa615aVAwPFzh37nqyUmkuOI78yf2C4QNd
QGudSSb9F5555nBs0tbuYlxrzWtnz7FYVew/cpggskg/Dlw7Qd/tNHEUj6O+sbFo
Y/Fdh7nyBMPZ6R1XCoazPmCRQpDyR7i0WKMbjjAzlSXhuagojC2p935hGJLJpDly
pMzly+svCCHT1pp7usEDCVBKT5VKw4ePHp0d/NZqtbixcBvXTzKUS7GwFTJ94AkQ
gkgZPMfBc3aD3kWGBW0saqD9GLzAMjuaYCjj3hVnLGnf4RNHxpBS4DqSY7MFWu0u
mBAVRYPzwyii0WyT9ByiMOTAgUl8/xdHtLZlIZh/3wRYa+fK5ZGRUmlooO13b26B
n2V4fJLxZgsvlcdYS6Q0AJ0QpC9x5B3YVtzRfN/kB2Ji8y8XfcZy3r3fA/BcObiH
5wgySYe3zi+z3TUcmRnCWkur3eV/v75AMWn52P5JShNDZNLuaK1u9juOeHQC+mlD
CLF/z57xRDqd5ObCMqcvVhjbc5hUIoH0HLYiTSKbisHbOy8IlpQnd8UD2zP12PRj
8EobIm1IODB+H/D3Gv3ix/d9fvT6AkO5NIWkIZtOMjc9xs8vVKhHWxyfLeAmEklo
77/f5NcDs4DrOtPlclxLNNtdvMwwjuPgSUOkFFY44HhEShNpTaQ0YaRpB5pmVxGq
3m+94x2JgaueFNMOvvtos3N3egDN9HiRQ1MFzl7fwhiDEHB8b55//Mkyk5mQG5uK
VG4IsNM7FftIBPTK1aF6owPA2OgwMxNFHp/OUrRbtNttlDJESqOUJopi8KHShJGi
1dU0Oopu1CfBxMB71/Q/K2Xi570P7Wute4AFH9+XiydU6yHGWCBuplZX1lDakEj6
AMP3u999CeiZcmqz2qLa7FLMZ/niqf0c35tHqwBHiIFGwx1aDntEBJGi1VXU2xHN
riKI1I7zzOBasBRSj9aTWWsH6a6f8grZBDnf8uPzm2hjaDZbvPKzX/DGzQCkh3Qk
ApG6r5U/4HlCgDDA9dUmN5Y3OTSZYnIkx/NPHeEnb11ntStIJn0cAVYKglAjHYMj
JVLc6Q86gBSxOD1VGxtnAdGLDXGr92ja74sxsfU8PpPntevbrKwr/uxHb3NlyyeV
HgFrwD74pg8iwFrohEGENoLrm5qrq5tkExt89uP7GC+mWL6t8GSCE3tz+K7k8mob
a6EbKgITNzkCgcUOprnuFqUMV1eaDGeHdrmBuKug6mtcKfWeome2lKcZaOrbDabL
E9xqdZDEraaKs1PngxAAUG01O1gbBxjj+LStw08ubPHkdJLj05aJ0Syz47GFjeV9
BPDO/G0uViy+5w+c2/YmOo2xsfZ1nA2UNlxYihjJehwq52KL6bSpNxqEYYjnueSy
eXzfHxBwNxGuFDw2lSVSCRaXVwm7bRLZHAJLGIRYqH5QApbrtW10pHCloNWNFyyq
Tcur8yG+bvLSUJrewgieEzclsxN51lt1GqEhjMwOk7I9Anr1QC8ddrThr85XcIRB
N1epbGzgeQmSqRRYzfLSEolkktLEJFjeQ4RSikgpms0Wb1/bAKeI7wqEMXTbAcDy
/QDeMwj2V1qEENdrte2w3WqT9J1B4FJa04ksidwow4UcO53XWstIMcdvHJ/i8Jik
2+0S9IJiMMgScaaIojtpcbPR4Qenz7C4UqE4NsPQ+B6yQ2XyI9PsnzuE4zhcnb9C
p9u5JwHGGC7OL3C7IRFAJuGiwpBuuxsIwY2duB5KwOCPUlzbbrQ3K6ubFNJeXLjs
IGGulCaXcu8ZZ1xHcmiqwIGJFBJLN1AEoeoRoQbZIuyRYNubTBY9SlP7kK4P0gEh
scTTXlPlMul0mpWV24N5wJ3BcHF5le+/sYT18gijKWQTtOtNwm64KYS49oFcQEq5
FHSDq9fnlyafenEKay1hpDHGkpSC2bHMYIrq7mGtJZVM8GuPT3K41uXcrTrXVpu0
Q73DFeJYoLRmSLSYKs2htMIBhOi11Fi6ocCThlQyyfz8VTY2NwYFke/7+J7Pz96+
Ts0O4UqQ0jKUTbB+rYJS+rIQ4r4u8LAY0DTGnr568eavPfupZ0gnHGqtMJ68SHvk
Ui4Py11SQHk4yUQxwWMzOf7y7WUWNkMQDDpCHXXJZSXScVBKYW08ZyiExliLVZbt
rWU2Nzc5evQoI8OjuK5Ls9Xk1q2bXJ2/zrX1EMfNYqKAQsYj6Uo2Vrawxp4Wjmi9
bwJeffWPOHXqZaQQP1y6tfpPNlYqucnhDJVaB2Ms3VDR7gTojBsvZjxg5sdakEIw
M5rGDyp0uj6O691piSOFQPTM2WIsaKMRSCyWyuoqNmjw1PGnyGQyuK6H47jk83nG
RkYp5AucW+xy9laENZqJkSE6jSb1rUZDCPGjPp57KughFoB05NnmduvNX7x5kcmh
FJ4TV4CVepefX1yn0w0Iw3Dgk/38fvcQQrC5VeXKwjrKiEEgDCNFoGC7E/SieUQU
hoRhSBgFtFpN6lvrHD4UB0KtzSDmxBMqhr179/LSJw4zlAhJeJLSUIbbN1cJg+gN
IcXZB+J7GAFAw1r7X86dvaTD7W2mRzODwHVmfpP55RpRFBIEMRFBEBBFEVEU7crX
SkW88pOzrAVptLF3skKkCTUsb0U0GttxnOkTEEbUa5sMF3J4nrfrXmEYDL5HUcSB
fXvYO+ZRHs1io4iVhYq2lv8MNB8E7oHrAktLrzMzcxIp5VK71fn1RMIvf+yJORYr
zbjaiwzrtS4TeZdswkH1IvLdJatSiiiMOH1ugS2VxRg76ASVMWilkWEdJ2owPDyM
kBKlNNpomo0q48N5Muk0YHesC+geAYooCpFCsHx7BT+RY/HKMmtLlTekFH8AtB60
geIRLMACrBlj/u3ZvzkXNtYqHJ4porQhVJqrqy3+5GdL3FitE4YBQRDQ7XYHEgTB
wDokhiCMBqYfRoooDBl1tnjxyRkmxse5On+Naq0ev5xwoDfR2U99sWXcuWcYhgNL
y6aTBNttlq6thNaY7ziOt97pVB+I7qErQ0tLb7C4+Brf/vYfLxjtPdludg899fRh
WoFhox6X2LW2ohtqDk4kBouWO7VvraFWq/MXr12lLfKDWSGlNaNujU8dn2Z2zwyJ
RBKjLWvr66xXNtjc2qJWq5H2JaOjIygV9WKMQes7RZA1hu1Wk3MXF3jnzUWqleor
q2tv/+tz5/40WF09Zx6E71H6UCGE8IDo6NG/92+unHefLJ2emH78+RNUm10q9S5S
CKrNgE4nwHPlrsUKay2Xri3y5sUlVjpJPGmxVmMspGhy4nCR0kQJpTTJVIqp6WkK
hSKtVgul43Z5fXOBPa0WiYRPGAZIKem3j9ZaPM/n8pXrnH9nhfXljaVafeHfLSz8
jQJSxI2Q+sAW0CMpCaQ2Ni7XioXZoLreen5sfMg7cKDM6lab7U7EUNrhsUm/p507
FdrSyjr/8YeXWVZjSD+DNhqlLVpp9ua6nDw2hxAxICEknueRTmfI5/MUCnlU0CJo
12nUawwVh/D9RK8NtkgpEVJy69YtVlZWWbhZCRdu3fz2xYvf/UnPvU3PhzX3KVge
RoAA/B4BSSBZq91aTKfLqY2V2hPl6TG5b2+J9VqbaitgbtQl5dpdBKyub3FmSYOf
jV2iZ/7ogCdnfPZMlQijCGNtT7NxC+04ks21RVJOxIknnyQMQuavXyMIuvEyWKTY
qta4ceMGIDj17LMcODButF0/f+bM2Xd133xiEnTv+L4JkD0CEn3ROvKazdvXEt5o
vrJcPTRRGpEH50o0WgHTeU3ai3twrTXWaE6/fY35WgIr414i9n2LY0OOzWQYGSqw
vb2N7/u9SdRYUdXNNUS0zZPHjpFIJMhmc/ieT73WoFLZYKtaJQxDxscmODB3gHy+
QKk04eTz+WOe5y6++eaZyzvA9+UDEeD1SBhIFHVEY/v2Vc8ppNeXtuby2bTzzBMz
7B1xCLpdlFIEQcDbF27w0ysNQn8kTo9a91aBNBjF/lGHYi5NFAakUqnB7I2KQrbW
F3jiY0dx3bjSTCaTFApFRkdHGR+boDxZZmZ6hsnJSbLZLBBb3ujIqG+xs8u3l/5q
aXF5qwdc3S8OPIoLuD0SdolSHWr1W1ccmdWV2405EYX+kUOTFAtZwjDg1bcu8z/e
ahAlS/GckNFYHQNHxwVMRraZHsuTTKVwZBwwBZZGfYt8yqVcLqO1RkqBlA6e55HJ
xPEhn8+TyaRxXQ9r79QeQgiSydTIdnP7xumf/fxMD3j0QS2gbwVuT5wd4modUa1e
v44RqxvrwdSVK6uFZNJjZLTAtQ1FxxkiDCN0FGG1gp7mMQqrNfXGNiNpw3S5RH8n
gBCCRm2D8vgoqWSSdruN7/u7+g3R22xw90aJfmWYTCTExsZG85XvvfI9a20AhB+G
gD4Jzl1HCUhrrag3ltba7Y2LnY4jL1/eGL92o+IXhkY4uK/ExEiGhCuwWqNViFYK
qxRWR7TaXW6vrqG6DTxJXNWFAduNLSZLYwNAqdTuSd0+8L7mjdFYa+h2u2xvb5NM
JllZXdl68803/7RWqzd7FnDPLPAodYAGgruA373+Sb2+uLi9vfInY2NHzzQaR168
eWP98fHyeGZ6/xQz02PMTUwQKEOzHdBsB3SCkDBIE3bbnL/Z4PZGm2I2QdJ3cAjY
N1Mi1fP7nU2WtXcsIZ5ovWMBAGtra0gpUSraDoKg3QN/32LoUS2gn093KWLH0cQv
ZHSrtb6xuTn/bqddu9JqdNrrS5uJ5WsrqcpSxenUt3G0IuNJiimPkWyCsUKaYiaD
Kzw6bc3mepvlW1Vc0eHokTmSycSu7rJPRF/zd446nsbudKjVa5y/cP4//fl//+4P
72f678cC+iBDdufVfmSNdkgvVYZBpXJxu1K5dCmdHhoqFPbsyWZL+5PJwozvp8c8
L5FzPS8hHccRAmGNtUZrrZQKoijY7na3N6rr74TT00OPnzjxdDbhJ3pbY+R7NkTE
hNzZbySl5O233/r5K9/7/p/z0JWGD7Zd3mF3cZS4h/RTpsedAOpK6SR8P5dOJHJZ
z0unHcf3hZCOtcZoHQZR1O4EQaMVBM2OEDb5/CdOPf7bL/3WyQNzc+VMJpuQMl5y
FkLYnUfAKqWira3N9UuXLp3+/vd/8F/PnnnrHaD+MBI+6P8LiB1E3A16J/i+7Mwi
O2PIzlgy2DfJHZ91fN/3SqWJVHGo6HieZ6SUynGcyHEc5bpu5Hlu6Pt+ZIxpLyws
bl26eLlqjOkS9wAPbIQ+DAE7r++nyXsBvxv8rgzCezeSDLYPsbuCi9jtbuFdR/Uw
Tf9tEXAvMhzuFE/3qh/um0l2gO9LnwB1FxH97w/adfcrJ+B+hPTd5W7N34+Au0nY
KR8a8K+SgA/z3F8qyI/GR+Ojcd/xfwEV24B+D3oIvAAAACV0RVh0ZGF0ZTpjcmVh
dGUAMjAxMy0xMi0yMVQxNToyOTo0Ny0wNTowMKy1LVsAAAAldEVYdGRhdGU6bW9k
aWZ5ADIwMTMtMTEtMTFUMjI6MjA6MjItMDU6MDBEdGajAAAAGXRFWHRTb2Z0d2Fy
ZQB3d3cuaW5rc2NhcGUub3Jnm+48GgAAAABJRU5ErkJggg==
      """

        self.logo = PhotoImage("logo", data=icondata)
 
        #magnifying glass for search field
        glassdata = """
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAGXRFWHRTb2Z0d2Fy
ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAANtJREFUSMe1VFENxSAMRMKTMglIQMIk
TAIOJqESJgEJSEDCJGy8pB+koaxtoMn9lbv2OHBOV3tFqngIckWs+Dlj+YrSIaa4
cQj11I8SICXfOocTinpEYGwTbZLJoWPQG9Ci1q7hnQRCHgUDqc5A01gUd5ZIukSN
p0KAbsFW2xQUAptFQJNtLxVIllx33g1bpyZyzGBJmqI/LgH5IbUWmC/gGmwSSW/R
krd2AU4X0MreR+gt5FLsq8gzvgMzOaAlNCkweowaclPlleQOY5dXkX+JTCHnRKaS
U5Fp5C86L9wRPiT2awAAAABJRU5ErkJggg==

      """

        self.searchphoto = PhotoImage("glass", data=glassdata)
        self.smallsearch = self.searchphoto.zoom(3,3).subsample(4,4)

        compassdata = """
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAGXRFWHRTb2Z0d2Fy
ZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAMlJREFUSMfllUERwyAQAFdCJFRCJCAh
EiIBCXVQCZFQCZGAhEqIBPrhcWUOuBTyaW/mHgzL7YWQABAH5Eol4tWSeLVEAo52
SD5YJD0CB2wtSa+AlmSEoCoZJShJugQ+rZEZRgos+YcCTjbxowIHLCcK5nxV4MX4
bii+KnxRoP0dN2AqFNe+3GdNUMqQSSZg/+aYyi7y7g5gThkMfFEg990r80c2fjT4
j4XalbcoRWtXZM4TgVd69FLMicm3y8KzV04JyosNwM3IhzfI6jKVHXCO+wAAAABJ
RU5ErkJggg==


"""
        self.compassphoto = PhotoImage("compass", data=compassdata)

    #aboutwindow

    def aboutWindow(self):
       
        try:
           self.aboutwindow.destroy()
        except:
            pass

        self.aboutwindow = Toplevel(self)
        self.aboutwindow.wm_title('About QuickWho')

        aboutframe = Frame(self.aboutwindow)
        buttonframe = Frame(self.aboutwindow)
        aboutframe.pack(side=TOP, fill=BOTH, expand=YES)
        buttonframe.pack(side=BOTTOM, fill=BOTH, expand=NO)

        logolabel = Label(aboutframe, image=self.logo, bg='gray95', pady='2')
        logolabel.pack(side=TOP, expand=NO, fill=BOTH)

        label1 = Label(aboutframe, text="QuickWho 6.0", font='-weight bold', pady='2')
        label1.pack(side=TOP, expand=NO, fill=BOTH)

        label2 = Label(aboutframe, text="Internet Domains with Style", pady='2')
        label2.pack(side=TOP, expand=NO, fill=BOTH)

        label3=Label(aboutframe, text='Copyright (c) 2015 WordTech Communications LLC', pady='5')
        label3.pack(side=TOP, expand=NO, fill=BOTH)

        label4=Label(aboutframe, text='http://www.codebykevin.com/quickwho.html', fg='blue', pady='2')
        label4.pack(side=TOP, expand=NO, fill=BOTH)
        label4.bind('<1>', lambda event: self.launchurl('http://www.codebykevin.com/quickwho.html'))
        

        label5=Label(aboutframe, pady='2', text='See Acknowledgements in QuickWho Help\nfor additional credits\nand see History in QuickWho Help\nfor changes in this version')
        label5.pack(side=TOP, expand=NO, fill=BOTH)

        if self.isAqua():
            self.aboutwindow.bind("<{}-W>".format(self.accelkey), self.aboutwindow.wm_withdraw)
            self.aboutwindow.bind("<{}-w>".format(self.accelkey),self.aboutwindow.wm_withdraw)

        

    #draw the GUI
    def drawGUI(self):

        self.title('QuickWho')

        if self.isAqua():
            self.tk.call('fullscreen::fullscreen', self)
 
        #make the menu
        self.mb = Menu(self)

        if self.isAqua():
            self.createcommand('::tk::mac::Quit', self.closeApp)
            self.createcommand('::tk::mac::ReopenApplication', self.reopenApp)
            self.protocol('WM_DELETE_WINDOW', self.hideWindow)
            self.bind("<{}-W>".format(self.accelkey), lambda event: self.hideWindow())
            self.bind("<{}-w>".format(self.accelkey), lambda event: self.hideWindow())
        self.bind("<{}-q>".format(self.accelkey), lambda event: self.closeApp())
        self.bind("<{}-Q>".format(self.accelkey), lambda event: self.closeApp())
        
        if self.isAqua():
            self.applemenu = Menu(self.mb, name='apple')
            self.mb.add_cascade(label='QuickWho', menu=self.applemenu)
            self.applemenu.add_command(label='About QuickWho', command=self.aboutWindow)
            self.applemenu.add_command(label='License', command=self.getLic)
            self.applemenu.add_command(label='Check for Updates', command=self.checkUpdate)
            self.applemenu.add_separator()
            
        self.infomenu = Menu(self.mb)
        self.mb.add_cascade(label='Whois', menu=self.infomenu)
        self.infomenu.add_command(label='Get Information', accelerator=self.accelkey + 'I', command=self.getInfo)
        self.bind("<{}-I>".format(self.accelkey), lambda event: self.getInfo())
        self.bind("<{}-i>".format(self.accelkey), lambda event: self.getInfo())
        self.infomenu.add_command(label='Save Log', command=self.saveLog, accelerator=self.accelkey + 'S')
        self.bind("<{}-s>".format(self.accelkey),lambda event: self.saveLog())
        self.bind("<{}-S>".format(self.accelkey), lambda event: self.saveLog())
        self.infomenu.add_separator()
        if self.isAqua():
            self.infomenu.add_command(label="Page Setup", command=self.pageSetup)
        self.infomenu.add_command(label='Print Log', accelerator=self.accelkey +'P', command=lambda: self.printLog())
        self.bind("<{}-p>".format(self.accelkey), lambda event: self.printLog())
        self.bind("<{}-P>".format(self.accelkey), lambda event: self.printLog())
        
        self.addWindowMenu(self.mb)

        self.helpmenu = Menu(self.mb, name='help')
        self.mb.add_cascade(label='Help', menu=self.helpmenu)
        self.helpmenu.add_command(label='Contact Code by Kevin', command=self.getHelp)
        self.helpmenu.add_command(label='Web Site', command=self.getWebSite)
        if self.isWindows():
            self.helpmenu.add_command(label='About QuickWho', command=self.aboutWindow)
            self.helpmenu.add_command(label='License', command=self.getLic)
            self.helpmenu.add_command(label='Check for Updates', command=self.checkUpdate)
 
        self.configure(menu=self.mb)


        self.mainframe = Tile.Frame(self)
        self.mainframe.pack(side=TOP, fill=BOTH, expand=YES)
        
        #main frame
        self.bottomframe=Tile.Frame(self.mainframe)
        self.bottomframe.pack(side=BOTTOM, fill=BOTH, expand=YES)


        #configure the searchfield
        style = Tile.Style()

        style.element_create("ImgEntry.icon", "image", self.smallsearch,
        padding=[20, 0, 0, 0], sticky="")

        self.tk.eval("ttk::style layout ImgEntry {Entry.field -children { ImgEntry.icon -side left Entry.padding -children {  Entry.textarea } }}")
        self.topframe = Tile.Frame(self.mainframe, padding=3)
        self.topframe.pack(side=TOP, fill=BOTH, expand=NO)


        self.informationbutton = Tile.Button(self.topframe, style='Toolbutton', takefocus=0, image=self.searchphoto, command=self.getInfo)
        self.t2 = ToolTip.ToolTip(self.informationbutton, 'Get whois information')
        self.informationbutton.pack(side=LEFT, fill=BOTH, expand=NO)

        self.webbutton = Tile.Button(self.topframe, style='Toolbutton', takefocus=0, image=self.compassphoto, command=self.saveLog)
        self.t3=ToolTip.ToolTip(self.webbutton, 'Save whois data to file')
        self.webbutton.pack(side=LEFT, fill=BOTH, expand=NO)

        self.searchterm = StringVar()
        self.searchfield = Tile.Entry(self.topframe, style = 'ImgEntry', textvariable=self.searchterm)

        self.searchfield.bind('<Return>', lambda event: self.getInfo())
        if self.isAqua():
            self.tk.call('tclservices::registerservicewidget', self.searchfield)
        self.searchfield.bind('<ButtonRelease-1>', lambda event: self.checkEntrySelection())
        self.searchfield.pack(side='right', fill=BOTH, expand=NO)

        self.status=StringVar()

        self.bottomlabel=Tile.Label(self.topframe, text='', textvariable=self.status, padding=2)
        self.bottomlabel.pack(side=RIGHT, fill=BOTH, expand=YES, anchor='e')

        self.status.set('No domain results displayed')
 
        #the rest of the GUI
        self.windowsep = Tile.Separator(self.mainframe, orient='vertical')
        self.windowsep.pack(side=BOTTOM, fill=BOTH, expand=NO)


        self.bottom_pw = Tile.PanedWindow(self.bottomframe, orient='horizontal')
        self.bottom_pw.pack(side=TOP, fill=BOTH, expand=YES)

        self.bottomleft=Tile.Frame(self.bottom_pw)
        self.bottomleft.pack(fill=BOTH, expand=YES)

        self.bottomright = Tile.Frame(self.bottom_pw)
        self.bottomright.pack(fill=BOTH, expand=YES)

        self.textdisplay = CustomText(self.bottomright,
                                borderwidth=0,
                                wrap='word',
                                background='white',
                                highlightcolor='SlateGray3',
                                )

        self.textdisplay.pack(side=LEFT, fill=BOTH, expand=YES)
        self.textdisplay.configure(state='disabled')
                            
        self.textscroll = Tile.Scrollbar(self.bottomright)
        self.textscroll.pack(side=RIGHT, fill=Y, expand=NO)

        self.textdisplay.configure(yscrollcommand=self.textscroll.set)
        self.textscroll.configure(command=self.textdisplay.yview)
        self.textdisplay.configure(font=('Courier', '12', ''))

        self.lefttop = Tile.Frame(self.bottomleft)
        self.lefttop.pack(side=TOP, fill=BOTH, expand=YES)
        self.bottomcanvas = Canvas(self.lefttop)
        self.bottomcanvas.pack(fill=BOTH, expand=YES, side=LEFT)

        self.t1=ToolTip.ToolTip(self.bottomcanvas, 'Geolocation map for domain')
        
        self.bottom_pw.add(self.bottomright)
        self.bottom_pw.add(self.bottomleft)

        self.wm_geometry('1100x600')

    #add 'window'  menu item
    def addWindowMenu(self, menu):
        if self.isAqua():
            self.tk.call('package', 'require', 'windowlist')
            self.tk.call('windowlist::windowMenu', menu)

    #check for selection in entry widget
    def checkEntrySelection (self):
        if self.isAqua():
            if self.searchfield.selection_present():
                string=self.tk.call('ttk::entry::EntrySelection', self.searchfield)
                self.updateClipboard(string)
            else:
                return
        
    ##write selected text to clipboard
    def updateClipboard (self, selection):
        if self.isAqua():
            self.clipboard_clear()
            self.clipboard_append(selection)

    #command for Services menu
    def runService(self):
        if self.isAqua():
            data = self.clipboard_get()
            self.searchfield.delete(0, 'end')
            self.searchfield.insert(0, data)
            self.getInfo()


    def geo_ip_lookup(self, domain):

        service = 'http://freegeoip.net'
        kind = '/json/'
        ip = domain

        url = service + kind + ip
        return json.loads(urllib.request.urlopen(url).read().decode('utf-8'))

        
    #get the whois data
    def getInfo(self):
     
        if self.searchfield.get() == "":
            return

        domain = self.searchterm.get()
        self.status.set('Displaying domain information for ' + (str(domain.strip('='))))
        self.clearData()

        #First, check to make sure domain name isn't hijacked by squatters, cf 'apple.com', add '=' if it is.
        try:
            self.pyurl = pythonwhois.get_whois(domain, normalized=True)
        except:
            self.inserturltext('Unable to retrieve some domain information for ' + (str(domain.strip('='))) + '.\n\n')
    
            try:
                 self.bottomcanvas.delete(self.displaymap)
                 self.map.destroy()
            except:
                 pass
             
        #Ok, we have a usable domain. Retrieve and parse data. 
        try:
            self.pyurl = pythonwhois.get_whois(domain, normalized=True)
            self.search_ip = domain.strip('=')
            self.domaindata =  self.geo_ip_lookup(self.search_ip)
            self.latitude = self.domaindata['latitude']
            self.longitude = self.domaindata['longitude']

            #Isolate image creation from the domain text output.
            try:
                base_url = "http://open.mapquestapi.com/staticmap/v4/getmap?key=Fmjtd%7Cluubn9u82h%2Cr2%3Do5-902lq0&size=600,600&zoom=10&imageType=png&center="
                final_url = base_url+str(self.latitude)+","+str(self.longitude)
                f = urllib.request.urlopen(final_url)
                baseimage = os.path.join(self.cachedir, 'mapquest.png')
                mapimage = open(baseimage ,'wb')
                mapimage.write(f.read())
                mapimage.close()
                self.map=PhotoImage(file=baseimage)
                self.displaymap=self.bottomcanvas.create_image(0,0, image=self.map, anchor='nw')
            except:
                self.inserturltext('Unable to retrieve map data for ' + self.searchterm.get() + '.\n\n')
                self.inserturltext('* * * * *\n\n')
                
            #Finally, display the text output.
            try:     
                self.inserturltext(
                "Administrative Contact:\n",\
                "\t" + "Name: "+ self.pyurl["contacts"]["admin"]["name"] + "\n",\
                "\t" + "E-mail: "+ self.pyurl["contacts"]["admin"]["email"] + "\n",\
                "\t" + "Organization: "+ self.pyurl["contacts"]["admin"]["organization"] + "\n",\
                "\t" + "Phone: "+ self.pyurl["contacts"]["admin"]["phone"] + "\n",\
                "\t" + "Street: "+ self.pyurl["contacts"]["admin"]["street"] + "\n",\
                "\t" + "City: "+ self.pyurl["contacts"]["admin"]["city"] + "\n",\
                "\t" + "State: "+ self.pyurl["contacts"]["admin"]["state"] + "\n",\
                "\t" + "Postal Code: "+ self.pyurl["contacts"]["admin"]["postalcode"] + "\n\n"
                )

                self.inserturltext(
                "Registrant Contacts:\n",\
                "\t" + "Name: "+ self.pyurl["contacts"]["registrant"]["name"] + "\n",\
                "\t" + "E-mail: "+ self.pyurl["contacts"]["registrant"]["email"] + "\n",\
                "\t" + "Organization: "+ self.pyurl["contacts"]["registrant"]["organization"] + "\n",\
                "\t" + "Phone: "+ self.pyurl["contacts"]["registrant"]["phone"] + "\n",\
                "\t" + "Street: "+ self.pyurl["contacts"]["registrant"]["street"] + "\n",\
                "\t" + "City: "+ self.pyurl["contacts"]["registrant"]["city"] + "\n",\
                "\t" + "State: "+ self.pyurl["contacts"]["registrant"]["state"] + "\n",\
                "\t" + "Postal Code: "+ self.pyurl["contacts"]["registrant"]["postalcode"] + "\n\n"
                )

                self.inserturltext(
                "Technical Contact:\n",\
                "\t" + "Name: "+ self.pyurl["contacts"]["tech"]["name"] + "\n",\
                "\t" + "E-mail: "+ self.pyurl["contacts"]["tech"]["email"] + "\n",\
                "\t" + "Organization: "+ self.pyurl["contacts"]["tech"]["organization"] + "\n",\
                "\t" + "Phone: "+ self.pyurl["contacts"]["tech"]["phone"] + "\n",\
                "\t" + "Street: "+ self.pyurl["contacts"]["tech"]["street"] + "\n",\
                "\t" + "City: "+ self.pyurl["contacts"]["tech"]["city"] + "\n",\
                "\t" + "State: "+ self.pyurl["contacts"]["tech"]["state"] + "\n",\
                "\t" + "Postal Code: "+ self.pyurl["contacts"]["tech"]["postalcode"] + "\n\n"
                )

                self.inserturltext("Creation Date: " + "\t" +  ", ".join(['%s' % i for i in self.pyurl["creation_date"]]) + "\n")
                self.inserturltext("Expiration Date: "+ "\t"  + ", ".join(['%s' % i for i in self.pyurl["expiration_date"]]) + "\n") 
                self.inserturltext("Name Servers: " + "\t"  + ", ".join(['%s' % i for i in self.pyurl["nameservers"]]) + "\n" )
                self.inserturltext("Updated: " + "\t" + ", ".join(['%s' % i for i in self.pyurl["updated_date"]]) + "\n") 
                self.inserturltext("Whois Server: " + "\t" +  ", ".join(['%s' % i for i in self.pyurl["whois_server"]]) + "\n")
                self.inserturltext('IP Address:\t\t ' + self.domaindata['ip'] + '\n\n')
                self.inserturltext('Latitude:\t\t ' + str(self.domaindata['latitude']) + '\n')
                self.inserturltext('Longitude:\t\t ' +  str(self.domaindata['longitude']) + '\n')
                self.inserturltext('City:\t\t ' + self.domaindata['city'] + '\n')
                self.inserturltext('Region:\t\t '+ self.domaindata['region_code'] + '\n')
                self.inserturltext('Country:\t\t ' + self.domaindata['country_name'] + '\n\n')

                self.inserturltext('* * * * *\n\n')
                self.inserturltext('Geolocation powered by FreeGeoIp, http://freegeoip.net')
                self.inserturltext('\n\n')
                self.update()

            except KeyError:
                self.inserturltext('\n'.join(self.pyurl['raw']) + '\n\n')
                self.inserturltext('* * * * *\n\n')
                self.inserturltext('Geolocation powered by FreeGeoIp, http://freegeoip.net')
                self.inserturltext('\n\n')
                self.update()
                pass
 
        #If everything goes haywire, return an error message.
        except:
            raise
            self.inserturltext('Unable to retrieve domain information for' + (str(domain.strip('='))) + '.\n\n')
            try:
                self.bottomcanvas.delete(self.displaymap)
                self.map.destroy()
            except:
                pass
 
    #insert text into urltext widget
    def inserturltext(self, *args):
        text="".join(args)
        self.textdisplay.configure(state='normal')                       
        self.textdisplay.tag_configure("hyper",foreground="blue")
        mail = ('[A-Za-z0-9_-]+(\.[A-Za-z0-9_-]+)*@[A-Za-z0-9_-]+(\.[A-Za-z0-9_-]+)+') #('^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,4}$')
        web =  ('((https?):((//)|(\\\\))+[\w\d:#@%/;$()~_?\+-=\\\.&]*)')
        self.textdisplay.highlight_pattern(web, "hyper", regexp=True)
        self.textdisplay.highlight_pattern(mail, "hyper", regexp=True)
        self.textdisplay.tag_bind("hyper", "<Button-1>", lambda event: self.clickLink(self.textdisplay, event.x, event.y, 'hyper'))
        self.textdisplay.insert(END, text)
        self.textdisplay.configure(state='disabled')

    #bind hyperlinks in text widget
    def clickLink(self, widget, x, y, tag):

        widget.configure(cursor='hand2')
        i = widget.index( "@%d,%d" % (x, y))
        text = self.tk.call(widget, 'tag', 'prevrange', tag, i)
        link = widget.get(text[0], text[1])

        if 'http' in link:
            self.launchurl(link)
        elif '@' in link:
            newlink = "mailto:" + link
            self.launchurl(newlink)
        widget.configure(cursor='arrow')
       
    #clear text display
    def clearData(self):
        self.textdisplay.configure(state='normal')
        self.textdisplay.delete('1.0', END)
        self.textdisplay.configure(state='disabled')
        try:
            self.bottomcanvas.delete(self.displaymap)
            self.map.destroy()
        except:
            pass

    #get all text
    def getData(self):
        return self.textdisplay.get('1.0', END)
      

    #set app name and version at startup
    def setAppName(self, appname, appversion):
        self.appname = appname
        self.appversion = appversion
        return self.appname, self.appversion
            
    #read license
    def readLic(self, application, appversion):
       self.tk.call('package', 'require', 'regproc')
       self.tk.call('regproc::readLic', self.appname,  self.appversion)


    #get the serial number from the user
    def getLic(self):
        self.tk.call('package', 'require', 'regproc')
        self.tk.call('regproc::getReg')


    #check to see if new verson of software exists
    def checkUpdate(self):
        self.tk.call('package', 'require', 'softwareupdate')
        self.tk.call('softwareupdate::setIcon', self.logo)
        self.tk.call('softwareupdate::checkVersion', self.appname,  self.appversion)
        
    #e-mail the developer for help
    def getHelp(self):
        self.tk.call('machelp::usermail')

    #get web site
    def getWebSite(self):
        self.tk.call('machelp::appweb')

    #show help
    def showHelp(self):
        self.tk.call('machelp::userhelp')

    #save data in log to file  
    def saveLog(self):
        
        filename = filedialog.asksaveasfilename(title='Save Log Output', initialdir=os.path.expanduser('~/'), initialfile='QuickWho log.txt', parent=self)
        if filename == "":
             return
        else:
            alltext=self.getData()
            finaltext = open(filename, 'w').write(alltext)
            

    #page setup dialog for printing
    def pageSetup(self):
        if self.isAqua():
            self.tk.call('cocoaprint::pagesetup', self)
            
    #print data in log file
    def printLog(self):
        alltext=self.getData()
        fo=open(self.printfile, 'w')
        fo.write(alltext)
        fo.close()
        if self.isWindows():
            self.tk.call('xplat::print', self.printfile)
        if self.isAqua():
            htmlcmd = 'textutil ' + ' -convert ' + ' html ' + '"' + self.printfile + '"' + ' -output ' + '"' + os.path.join(self.cachedir, 'whois.html') + '"'
            os.system(htmlcmd)
            pdfcmd = '/usr/sbin/cupsfilter' + ' -i ' + ' text/html ' +  '"' + os.path.join(self.cachedir, 'whois.html') +  '"' + ' > ' +  '"' +   os.path.join(self.cachedir, 'whois.pdf') +  '"'
            os.system(pdfcmd)
            pdf = os.path.join(self.cachedir, 'whois.pdf')
            self.tk.call('cocoaprint::print', pdf, self)

    #binding to the "quit" command
    def closeApp(self):
        sys.exit()


    #binding to the "reopen app" event
    def reopenApp(self):
        if self.wm_state("withdrawn"):
            self.wm_state("normal")
            self.lift()
        else:
            self.wm_deiconify()
            self.lift()

    #dummy def for hiding windows
    def hideWindow(self):
        self.wm_state('withdrawn')

    #expose basic functionality to AppleScript    
    def getDomain(self, domain):
        self.searchfield.delete(0, 'end')
        self.searchfield.insert(0, domain)
        self.getInfo()
        alltext=self.getData()     
        return alltext


if __name__== '__main__':
    app = quickwhoApp(None)
    app.mainloop()
    

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE dictionary SYSTEM "file://localhost/System/Library/DTDs/sdef.dtd">
<dictionary title="QuickWho Terminology">
	<suite name="QuickWho Suite" code="????">
		<command name="get domain" code="CoKv" description="Get domain information.">
			<direct-parameter description="Domain" type="text"/>
			<result description="Result" type="any"/>
		</command>
	</suite>
</dictionary>

'''Michael Lange <klappnase (at) freakmail (dot) de>
The ToolTip class provides a flexible tooltip widget for Tkinter; it is based on IDLE's ToolTip
module which unfortunately seems to be broken (at least the version I saw).
INITIALIZATION OPTIONS:
anchor :        where the text should be positioned inside the widget, must be on of "n", "s", "e", "w", "nw" and so on;
                default is "center"
bd :            borderwidth of the widget; default is 1 (NOTE: don't use "borderwidth" here)
bg :            background color to use for the widget; default is "lightyellow" (NOTE: don't use "background")
delay :         time in ms that it takes for the widget to appear on the screen when the mouse pointer has
                entered the parent widget; default is 1500
fg :            foreground (i.e. text) color to use; default is "black" (NOTE: don't use "foreground")
follow_mouse :  if set to 1 the tooltip will follow the mouse pointer instead of being displayed
                outside of the parent widget; this may be useful if you want to use tooltips for
                large widgets like listboxes or canvases; default is 0
font :          font to use for the widget; default is system specific
justify :       how multiple lines of text will be aligned, must be "left", "right" or "center"; default is "left"
padx :          extra space added to the left and right within the widget; default is 4
pady :          extra space above and below the text; default is 2
relief :        one of "flat", "ridge", "groove", "raised", "sunken" or "solid"; default is "solid"
state :         must be "normal" or "disabled"; if set to "disabled" the tooltip will not appear; default is "normal"
text :          the text that is displayed inside the widget
textvariable :  if set to an instance of Tkinter.StringVar() the variable's value will be used as text for the widget
width :         width of the widget; the default is 0, which means that "wraplength" will be used to limit the widgets width
wraplength :    limits the number of characters in each line; default is 150

WIDGET METHODS:
configure(**opts) : change one or more of the widget's options as described above; the changes will take effect the
                    next time the tooltip shows up; NOTE: follow_mouse cannot be changed after widget initialization

Other widget methods that might be useful if you want to subclass ToolTip:
enter() :           callback when the mouse pointer enters the parent widget
leave() :           called when the mouse pointer leaves the parent widget
motion() :          is called when the mouse pointer moves inside the parent widget if follow_mouse is set to 1 and the
                    tooltip has shown up to continually update the coordinates of the tooltip window
coords() :          calculates the screen coordinates of the tooltip window
create_contents() : creates the contents of the tooltip window (by default a Tkinter.Label)
'''
# Ideas gleaned from PySol

import tkinter

class ToolTip:
    def __init__(self, master, text='Your text here', delay=1500, **opts):
        self.master = master
        self._opts = {'anchor':'center', 'bd':1, 'bg':'lightyellow', 'delay':delay, 'fg':'black',\
                      'follow_mouse':0, 'font':None, 'justify':'left', 'padx':4, 'pady':2,\
                      'relief':'solid', 'state':'normal', 'text':text, 'textvariable':None,\
                      'width':0, 'wraplength':150}
        self.configure(**opts)
        self._tipwindow = None
        self._id = None
        self._id1 = self.master.bind("<Enter>", self.enter, '+')
        self._id2 = self.master.bind("<Leave>", self.leave, '+')
        self._id3 = self.master.bind("<ButtonPress>", self.leave, '+')
        self._follow_mouse = 0
        if self._opts['follow_mouse']:
            self._id4 = self.master.bind("<Motion>", self.motion, '+')
            self._follow_mouse = 1
    
    def configure(self, **opts):
        for key in opts:
            if key in self._opts:
                self._opts[key] = opts[key]
            else:
                KeyError = 'KeyError: Unknown option: "%s"' %key
                raise KeyError
    
    ##----these methods handle the callbacks on "<Enter>", "<Leave>" and "<Motion>"---------------##
    ##----events on the parent widget; override them if you want to change the widget's behavior--##
    
    def enter(self, event=None):
        self._schedule()
        
    def leave(self, event=None):
        self._unschedule()
        self._hide()
    
    def motion(self, event=None):
        if self._tipwindow and self._follow_mouse:
            x, y = self.coords()
            self._tipwindow.wm_geometry("+%d+%d" % (x, y))
    
    ##------the methods that do the work:---------------------------------------------------------##
    
    def _schedule(self):
        self._unschedule()
        if self._opts['state'] == 'disabled':
            return
        self._id = self.master.after(self._opts['delay'], self._show)

    def _unschedule(self):
        id = self._id
        self._id = None
        if id:
            self.master.after_cancel(id)

    def _show(self):
        if self._opts['state'] == 'disabled':
            self._unschedule()
            return
        if not self._tipwindow:
            self._tipwindow = tw = tkinter.Toplevel(self.master)
            # hide the window until we know the geometry
            tw.withdraw()
            tw.wm_overrideredirect(1)

            if tw.tk.call("tk", "windowingsystem") == 'aqua':
                tw.tk.call("::tk::unsupported::MacWindowStyle", "style", tw._w, "help", "none")

            self.create_contents()
            tw.update_idletasks()
            x, y = self.coords()
            tw.wm_geometry("+%d+%d" % (x, y))
            tw.deiconify()
            tw.lift()
    
    def _hide(self):
        tw = self._tipwindow
        self._tipwindow = None
        if tw:
            tw.destroy()
                
    ##----these methods might be overridden in derived classes:----------------------------------##
    
    def coords(self):
        # The tip window must be completely outside the master widget;
        # otherwise when the mouse enters the tip window we get
        # a leave event and it disappears, and then we get an enter
        # event and it reappears, and so on forever :-(
        # or we take care that the mouse pointer is always outside the tipwindow :-)
        tw = self._tipwindow
        twx, twy = tw.winfo_reqwidth(), tw.winfo_reqheight()
        w, h = tw.winfo_screenwidth(), tw.winfo_screenheight()
        # calculate the y coordinate:
        if self._follow_mouse:
            y = tw.winfo_pointery() + 20
            # make sure the tipwindow is never outside the screen:
            if y + twy > h:
                y = y - twy - 30
        else:
            y = self.master.winfo_rooty() + self.master.winfo_height() + 3
            if y + twy > h:
                y = self.master.winfo_rooty() - twy - 3
        # we can use the same x coord in both cases:
        x = tw.winfo_pointerx() - twx / 2
        if x < 0:
            x = 0
        elif x + twx > w:
            x = w - twx
        return x, y

    def create_contents(self):
        opts = self._opts.copy()
        for opt in ('delay', 'follow_mouse', 'state'):
            del opts[opt]
        label = tkinter.Label(self._tipwindow, **opts)
        label.pack()

##---------demo code-----------------------------------##

def demo():
    root = tkinter.Tk(className='ToolTip-demo')
    l = tkinter.Listbox(root)
    l.insert('end', "I'm a listbox")
    l.pack(side='top')
    t1 = ToolTip(l, follow_mouse=1, text="I'm a tooltip with follow_mouse set to 1, so I won't be placed outside my parent")
    b = tkinter.Button(root, text='Quit', command=root.quit)
    b.pack(side='bottom')
    t2 = ToolTip(b, text='Enough of this')
    root.mainloop()

if __name__ == '__main__':
    demo()    

#!/bin/sh

echo "Starting dist process..."


python3 setup.py py2app --includes Pmw



mkdir dist/QuickWho.app/Contents/lib

find dist/QuickWho.app  -name "*.a"  -exec rm -rf {} \;
find dist/QuickWho.app  -name "*debug"  -exec rm -rf {} \;
find dist/QuickWho.app  -name "*.sh"  -exec rm -rf {} \; 


#copy the supporting libraries
for lib in scriptlibs/*
do
  echo "Copying $lib library..."
  cp -R -f $lib dist/QuickWho.app/Contents/lib
done

#copy the supporting libraries
for lib in maclibs/*
do
  echo "Copying $lib library..."
  cp -R -f $lib dist/QuickWho.app/Contents/lib
done


find dist/QuickWho.app -type f -name "*.so"  -exec codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" {} \;
find dist/QuickWho.app -type f -name "*.dylib"  -exec codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" {} \; 

codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" dist/QuickWho.app/Contents/Frameworks/Tk.framework/Versions/8.6/Resources/Wish.app/Contents/MacOS/Wish
codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" dist/QuickWho.app/Contents/Frameworks/Tk.framework/Versions/Current
codesign --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" dist/QuickWho.app/Contents/Frameworks/Tcl.framework/Versions/Current
codesign  --verbose --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" dist/QuickWho.app/Contents/MacOS/python


codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  dist/QuickWho.app
 
echo "Compressing application..."
 
cd dist
 
tar cvfz ../QuickWho.tgz QuickWho.app

cd ../

SIZE=$(stat -f %z QuickWho.tgz)
PUBDATE=$(date +"%a, %d %b %G %T %z")


RELEASE_NOTES=$(cat changelog.txt)

cat << EOT > quickwho.xml
<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:sparkle="http://www.andymatuschak.org/xml-namespaces/sparkle" version="2.0">
  <channel>
    <title>QuickWho</title>
    <link>http://www.codebykevin.com/quickwho.html</link>
    <language>en</language>
    <item>

      <title>QuickWho $1</title>
      <sparkle:minimumSystemVersion>10.9</sparkle:minimumSystemVersion>
      <pubDate>$PUBDATE</pubDate>
      <author>Code by Kevin</author>
      <description><![CDATA[
       <p>This version of QuickWho has the following features and improvements:
       $RELEASE_NOTES
      ]]></description>
      <link>http://www.codebykevin.com/quickwho.html</link>
     <enclosure
				url="http://www.codebykevin.com/updates/QuickWho.tgz"
				sparkle:version="$1"
				type="application/octet-stream"
				length="$SIZE"
			/>
    </item>

  </channel>
</rss>
EOT

if [ $2 == "release" ]
then

 echo "Building disk image and uploading to Amazon..."

 
 cd dist
 zip -r -y QuickWho.zip QuickWho.app

 cd ../

 pwd

echo "Copying app and XML file to server..."
cp -f QuickWho.tgz /Users/kevin/share/kevin/Sites/codebykevin/updates/QuickWho.tgz
cp -f quickwho.xml /Users/kevin/share/kevin/Sites/codebykevin/quickwho.xml


echo "Copying zip to Amazon S3..."
aws s3 cp dist/QuickWho.zip s3://codebykevin/FileMorph.zip --acl public-read

cd ../

#create archive of entire source tree
tar cvfz FileMorph-$1.tgz FileMorph

fi

echo "Done."

package ifneeded zlibtcl 1.2.8     [list load [file join $dir libzlibtcl1.2.8.dylib]]
package ifneeded pngtcl 1.4.12     [list load [file join $dir libpngtcl1.4.12.dylib]]
package ifneeded tifftcl 3.9.4     [list load [file join $dir libtifftcl3.9.4.dylib]]
package ifneeded jpegtcl 8.4     [list load [file join $dir libjpegtcl8.4.dylib]]
# -*- tcl -*- Tcl package index file
# --- --- --- Handcrafted, final generation by configure.
#
# $Id: pkgIndex.tcl.in 209 2009-03-03 17:19:05Z nijtmans $

package ifneeded img::base 1.4.2 [list load [file join $dir libtkimg1.4.2.dylib]]

# Compatibility hack. When asking for the old name of the package
# then load all format handlers and base libraries provided by tkImg.
# Actually we ask only for the format handlers, the required base
# packages will be loaded automatically through the usual package
# mechanism.

# When reading images without specifying it's format (option -format),
# the available formats are tried in reversed order as listed here.
# Therefore file formats with some "magic" identifier, which can be
# recognized safely, should be added at the end of this list.

package ifneeded Img 1.4.2 {
    package require img::window
    package require img::tga
    package require img::ico
    package require img::pcx
    package require img::sgi
    package require img::sun
    package require img::xbm
    package require img::xpm
    package require img::ps
    package require img::jpeg
    package require img::png
    package require img::tiff
    package require img::bmp
    package require img::ppm
    package require img::gif
    package require img::pixmap
    package provide Img 1.4.2
}

package ifneeded img::bmp 1.4.2     [list load [file join $dir libtkimgbmp1.4.2.dylib]]
package ifneeded img::gif 1.4.2     [list load [file join $dir libtkimggif1.4.2.dylib]]
package ifneeded img::ico 1.4.2     [list load [file join $dir libtkimgico1.4.2.dylib]]
package ifneeded img::jpeg 1.4.2     [list load [file join $dir libtkimgjpeg1.4.2.dylib]]
package ifneeded img::pcx 1.4.2     [list load [file join $dir libtkimgpcx1.4.2.dylib]]
package ifneeded img::pixmap 1.4.2     [list load [file join $dir libtkimgpixmap1.4.2.dylib]]
package ifneeded img::png 1.4.2     [list load [file join $dir libtkimgpng1.4.2.dylib]]
package ifneeded img::ppm 1.4.2     [list load [file join $dir libtkimgppm1.4.2.dylib]]
package ifneeded img::ps 1.4.2     [list load [file join $dir libtkimgps1.4.2.dylib]]
package ifneeded img::sgi 1.4.2     [list load [file join $dir libtkimgsgi1.4.2.dylib]]
package ifneeded img::sun 1.4.2     [list load [file join $dir libtkimgsun1.4.2.dylib]]
package ifneeded img::tga 1.4.2     [list load [file join $dir libtkimgtga1.4.2.dylib]]
package ifneeded img::tiff 1.4.2     [list load [file join $dir libtkimgtiff1.4.2.dylib]]
package ifneeded img::window 1.4.2     [list load [file join $dir libtkimgwindow1.4.2.dylib]]
package ifneeded img::xbm 1.4.2     [list load [file join $dir libtkimgxbm1.4.2.dylib]]
package ifneeded img::xpm 1.4.2     [list load [file join $dir libtkimgxpm1.4.2.dylib]]
package ifneeded img::dted 1.4.2     [list load [file join $dir libtkimgdted1.4.2.dylib]]
package ifneeded img::raw 1.4.2     [list load [file join $dir libtkimgraw1.4.2.dylib]]

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded regproc 1.4 [list source [file join $dir regproc.tcl]]

#regproc.tcl  routines to register serial numbers

#Copyright 2015 WordTech Communications LLC

#MIT license

package provide regproc 1.4
package require http
package require xplat

image create photo _unlock -data  {
    R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
    ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
    tKZ5wkMBADs=
}

image create photo _check -data {
    R0lGODlhIAAaAIABAAQHB////yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    ACH5BAEKAAEALAAAAAAgABoAAAJMjI+pCeuvgIR0yVtzuFxDDnoWGIoHWZobikUV
    2zLTA89yfLNjetY7iag1Ir4VzCFMfpI6ChOYeeJeTxVTZRBie6htEOrl2sJcsmVb
    AAA7
}


namespace eval regproc {

    if {![info exists library]} {
	variable library [file dirname [info script]]
    }
    variable datadir
    variable expired
    set expired 0


    #set the 30-day clock for application/version
    proc setClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore
	puts "datadir is $datadir"

	set launchTime [clock seconds]
	set saveTime [open $datadir/$appname$appversion.dat w]
	puts $saveTime $launchTime
	close $saveTime
    }

    #read the time set
    proc readClock {} {
	variable datadir 
	variable appstatus 
	variable expstatus 
	variable appname
	variable appversion
	variable appstore
	variable expired

	set curTime [clock seconds]
	set oldTime [read [open $datadir/$appname$appversion.dat r]]
	set expDate [clock scan "30 days" -base $oldTime]
	if {$curTime < $expDate } {
	    set expired 0
	    regproc::makePitch	
	} else {
	    set expired 1
	    regproc::expiredPitch
	}
    }
    
    #check to see if a time has been set
    proc checkClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore
	variable expired

	if {[file exists $datadir/.$appname$appversion.rc]} {
	    
	    catch "file rename $datadir/.$appname$appversion.rc $datadir/$appname$appversion.dat"
	    regproc::readClock
	    return
	}

	if  {![file exists  $datadir/$appname$appversion.dat]} {
	    regproc::setClock 
	    regproc::readClock
	} else {
	    regproc::readClock
	}
    }

    #dialog before demo has expired
    proc makePitch {} {
	variable version 
	variable appname
	variable appstore

	toplevel .purchase
	wm title .purchase "Purchase $appname"
	wm resizable .purchase 0 0

	wm withdraw .purchase
	wm transient .purchase .

	wm protocol .purchase WM_DELETE_WINDOW {}

	ttk::frame .purchase.top -padding 10
	pack .purchase.top -side top -fill both -expand yes
	ttk::label .purchase.top.label -text "You are currently using a demo of $appname. This version will give you the chance to try \n$appname free of charge for 30 days. Would you like to buy $appname now?" -image _unlock -compound left -anchor n 

	pack .purchase.top.label  -side top -fill x -expand yes

	ttk::frame .purchase.bottom -padding 5
	pack .purchase.bottom -side bottom -fill both -expand yes

	ttk::frame .purchase.bottom.upper
	pack .purchase.bottom.upper -side top -fill both -expand no


	ttk::frame .purchase.bottom.lower -padding 5
	pack .purchase.bottom.lower -side bottom -fill both -expand no

	ttk::button .purchase.bottom.lower.install -text "Purchase" -default active -command "xplat::launch  http://www.codebykevin.com/$appname.html; regproc::getReg; destroy .purchase"
	ttk::button .purchase.bottom.lower.cancel -text "Cancel" -command " destroy .purchase; raise ."
	pack  .purchase.bottom.lower.install .purchase.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .purchase widget .

	wm deiconify .purchase
	focus .purchase.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .purchase -notify 1]

	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
	}

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 
	variable appname
	variable appstore
	variable expired

	toplevel .expired
	wm title .expired "Purchase $appname"
	wm resizable .expired 0 0

	wm withdraw .expired
	wm transient .expired .

	wm protocol .expired WM_DELETE_WINDOW {}

	ttk::frame .expired.top -padding 10
	pack .expired.top -side top -fill both -expand yes
	ttk::label .expired.top.label -text "This demo of $appname is now expired. Would you like to buy $appname now?" -image _unlock -compound left -anchor n 

	pack .expired.top.label  -side top -fill x -expand yes

	ttk::frame .expired.bottom -padding 5
	pack .expired.bottom -side bottom -fill both -expand yes

	ttk::frame .expired.bottom.upper
	pack .expired.bottom.upper -side top -fill both -expand no


	ttk::frame .expired.bottom.lower -padding 5
	pack .expired.bottom.lower -side bottom -fill both -expand no

	ttk::button .expired.bottom.lower.install -text "Purchase" -default active -command "xplat::launch http://www.codebykevin.com/$appname.html; regproc::getReg; destroy .expired"
	ttk::button .expired.bottom.lower.cancel -text "Cancel" -command " destroy .expired; exit"
	pack  .expired.bottom.lower.install .expired.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .expired widget .

	wm deiconify .expired
	focus .expired.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .expired -notify 1]

	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
	}
    }

    #check for license, validate if found, set demo pitch if not found
    proc readLic {application version} {

	variable serial 
	variable datadir
	variable appname
	variable appversion
	variable appstore

	set appname $application
	set appversion $version

	set datadir [xplat::appconfig $appname]

	if {[file exists $datadir/.lic] } {
	    file rename $datadir/.lic $datadir/lic.dat
	}

	if {[file exists $datadir/lic.dat]} {
	    
	    set licnum [open $datadir/lic.dat r]
	    set serial [read $licnum]
	    close $licnum
	    return
	} else {
	    set serial "Demo"
	    regproc::checkClock
	    
	}
    }


    #write license to file
    proc setLic {} {
	variable serial
	variable serialbase
	variable datadir
	variable appname
	variable regwindow
	variable appstore

	if {$serial == ""} {
	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
	    exit
	}

	set count 20000

	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}
	

	set output [lsearch  -inline $serialbase $serial]
	puts $serial
	puts $output
	
	if {$output >= 0} {
	    cd $datadir
	    set lic [open $datadir/lic.dat w]
	    puts $lic "$serial"
	    close $lic
	    tk_messageBox -icon info -title "Thank You" -message "Thank You" -detail "Thank you for registering $appname." -parent .number
	    destroy .number
	    #display window that was hidden
	    catch {wm deiconify .}

	} else {
	    if {$expired == 1} {
		tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
		exit
	    }
	    
	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. Please try again." -parent .number
	    regproc::getReg
	}
    }



    #generate license numbers
    proc genList {application} {

	variable appname
	variable regwindow
	variable appstore

	set appname $application

	set count 20000

	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}


	if [file exists  $::env(HOME)/[list $appname]-list] {
	    file delete  $::env(HOME)/[list $appname]-list
	}

	foreach item $serialbase {
	    split $item\n
	    set keylist [open $::env(HOME)/[list $appname]-list a]
	    puts $keylist $item
	    close $keylist
	}
    }

    #dialog to input registration number from demo prompt
    proc getReg {} {


	variable serial
	variable regwindow
	variable appstore
	variable expired
	variable appname

	toplevel .number
	wm title .number "License"
	wm resizable .number 0 0

	wm withdraw .number
	wm transient .number .

	wm protocol .number WM_DELETE_WINDOW {}

	ttk::frame .number.top -padding 10
	pack .number.top -side top -fill both -expand yes

	
	ttk::label .number.top.label -text "Please enter your serial number for $appname\nin the field below:" -image _check -compound left -anchor n -padding 10
	pack .number.top.label -side top -fill both -expand yes

	ttk::entry .number.top.entry -textvariable [namespace current]::serial
	pack .number.top.entry -side bottom -fill both -expand yes

	ttk::frame .number.bottom -padding 5
	pack .number.bottom -side bottom -fill both -expand yes

	ttk::frame .number.bottom.upper
	pack .number.bottom.upper -side top -fill both -expand no


	ttk::frame .number.bottom.lower -padding 5
	pack .number.bottom.lower -side bottom -fill both -expand no

	bind .number <Return> {regproc::setLic; destroy .number; raise .}
	ttk::button .number.bottom.lower.install -text "Register" -default active -command {regproc::setLic; destroy .number; raise .}
	ttk::button .number.bottom.lower.cancel -text "Cancel" -command "regproc::exitIfExpired; destroy .number; raise ."
	pack  .number.bottom.lower.install .number.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .number widget .

	wm deiconify .number
	focus .number.bottom.lower.install
	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .number -notify 1]
	    bind all <FocusIn>  [list  wm attributes . -notify 0]
	}
    }

    proc exitIfExpired {} {

	variable expired
	if {$expired == 1} {
	    exit
	} 

    }

    namespace export *
}

#
# Tcl package index file
#
package ifneeded aem 1.0 "
    package require Tk 8.5-
    if {\"AppKit\" ni \[winfo server .\]} {error {TkAqua Cocoa required}}
        load [list [file join $dir libaem1.0.dylib]] aem"

#
# Tcl package index file
#
#if {[catch {package require Tcl 8.2}]} return
#package ifneeded MacCarbonPrint 1.4 \
 #   [list load [file join $dir libcocoaprint1.4.dylib] cocoaprint]

package ifneeded cocoaprint 1.4 "
    package require Tk 8.5-
    if {\"AppKit\" ni \[winfo server .\]} {error {TkAqua Cocoa required}}
    [list load [file join $dir libcocoaprint1.4.dylib] cocoaprint]"

#
# Tcl package index file
#
package ifneeded fullscreen 1.1 "
    package require Tk 8.5-
    if {\"AppKit\" ni \[winfo server .\]} {error {TkAqua Cocoa required}}
        load [list ][file join $dir libfullscreen1.1.dylib] fullscreen"

package ifneeded tdom 0.8.3 "load [list [file join $dir libtdom0.8.3.dylib]];         source [list [file join $dir tdom.tcl]]"