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
Changes to QuickWho.py.
333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 ... 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 ... 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 |
#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("<{}-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.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.
|
> | > > > > | | |
333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 ... 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 ... 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 |
#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())
................................................................................
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)
................................................................................
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 {}"
|