QuickWho

Check-in [12e2a7f0c3]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Changes for Windows port
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 12e2a7f0c3e19ae3fdf1962a45cdf6d4eae2706e
User & Date: kevin 2016-04-03 02:23:23
Context
2016-04-05
02:58
add quickwho.c for Windows check-in: f501f1d6aa user: kevin tags: trunk
2016-04-03
02:23
Changes for Windows port check-in: 12e2a7f0c3 user: kevin tags: trunk
2016-04-02
23:06
Minor bug fix check-in: 6d7c3e5863 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to QuickWho.py.

333
334
335
336
337
338
339

340

341
342
343
344
345

346
347
348
349
350
351
352

        

    #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())







>
|
>





>







333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355

        

    #draw the GUI
    def drawGUI(self):

        self.title('QuickWho')
        self.option_add('*tearOff', FALSE)
        
        
        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())
376
377
378
379
380
381
382


383
384
385
386
387
388
389
390
391
392
        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)









>
>


|







379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
        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)
        if self.isWindows():
            self.helpmenu.add_command(label='Help', command=self.showHelp)
        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)


613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
                self.inserturltext('Country:\t\t ' + self.domaindata['country'] + '\n\n')

                self.inserturltext('* * * * *\n\n')
                self.inserturltext('Geolocation powered by http://ip-api.com')
                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 http://ip-api.com')
                self.inserturltext('\n\n')
                self.update()
 
        #If everything goes haywire, return an error message.







|







618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
                self.inserturltext('Country:\t\t ' + self.domaindata['country'] + '\n\n')

                self.inserturltext('* * * * *\n\n')
                self.inserturltext('Geolocation powered by http://ip-api.com')
                self.inserturltext('\n\n')
                self.update()

            except (KeyError, TypeError):
                self.inserturltext('\n'.join(self.pyurl['raw']) + '\n\n')
                self.inserturltext('* * * * *\n\n')
                self.inserturltext('Geolocation powered by http://ip-api.com')
                self.inserturltext('\n\n')
                self.update()
 
        #If everything goes haywire, return an error message.

Changes to scriptlibs/machelp/help.tcl.

225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
proc ::Help::CreateHelp {w} {
    variable W
    variable font
 
    set W(main) $w.t
    text $w.t -border 5 -relief flat -wrap word -state disabled -width 60 \
        -yscrollcommand "$w.s set" -padx 5 -font $font
    scrollbar $w.s -orient vert -command "$w.t yview"
    pack $w.s -fill y -side right
    pack $w.t -fill both -expand 1 -side left
 
    $w.t tag config link -foreground blue -underline 1
    $w.t tag config seen -foreground purple4 -underline 1
    $w.t tag bind link <Enter> "$w.t config -cursor hand2"
    $w.t tag bind link <Leave> "$w.t config -cursor {}"







|







225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
proc ::Help::CreateHelp {w} {
    variable W
    variable font
 
    set W(main) $w.t
    text $w.t -border 5 -relief flat -wrap word -state disabled -width 60 \
        -yscrollcommand "$w.s set" -padx 5 -font $font
    ttk::scrollbar $w.s -orient vert -command "$w.t yview"
    pack $w.s -fill y -side right
    pack $w.t -fill both -expand 1 -side left
 
    $w.t tag config link -foreground blue -underline 1
    $w.t tag config seen -foreground purple4 -underline 1
    $w.t tag bind link <Enter> "$w.t config -cursor hand2"
    $w.t tag bind link <Leave> "$w.t config -cursor {}"