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: |
12e2a7f0c3e19ae3fdf1962a45cdf6d4 |
| 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
Changes to QuickWho.py.
| ︙ | ︙ | |||
333 334 335 336 337 338 339 |
#draw the GUI
def drawGUI(self):
self.title('QuickWho')
| > | > > | 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 |
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)
| > > | | 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 |
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()
| | | 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 |
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
| | | 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 {}"
|
| ︙ | ︙ |