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 {}" |
︙ | ︙ |