Mercurial > hg

comparison contrib/hgk @ 13380:d11405848abd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hgk: gitk->hgk in About... menu
author Javi Merino <cibervicho@gmail.com>
date Mon, 14 Feb 2011 07:39:21 +0000
parents 43f42de733d0
children 81af2040b586
comparison
equal deleted inserted replaced
13379:67743d5f49b6 13380:d11405848abd
480 menu .bar.file 480 menu .bar.file
481 .bar.file add command -label "Reread references" -command rereadrefs 481 .bar.file add command -label "Reread references" -command rereadrefs
482 .bar.file add command -label "Quit" -command doquit 482 .bar.file add command -label "Quit" -command doquit
483 menu .bar.help 483 menu .bar.help
484 .bar add cascade -label "Help" -menu .bar.help 484 .bar add cascade -label "Help" -menu .bar.help
485 .bar.help add command -label "About gitk" -command about 485 .bar.help add command -label "About hgk" -command about
486 . configure -menu .bar 486 . configure -menu .bar
487 487
488 if {![info exists geometry(canv1)]} { 488 if {![info exists geometry(canv1)]} {
489 set geometry(canv1) [expr 45 * $charspc] 489 set geometry(canv1) [expr 45 * $charspc]
490 set geometry(canv2) [expr 30 * $charspc] 490 set geometry(canv2) [expr 30 * $charspc]
865 if {[winfo exists $w]} { 865 if {[winfo exists $w]} {
866 raise $w 866 raise $w
867 return 867 return
868 } 868 }
869 toplevel $w 869 toplevel $w
870 wm title $w "About gitk" 870 wm title $w "About hgk"
871 message $w.m -text { 871 message $w.m -text {
872 Gitk version 1.2 872 Hgk version 1.2
873 873
874 Copyright © 2005 Paul Mackerras 874 Copyright © 2005 Paul Mackerras
875 875
876 Use and redistribute under the terms of the GNU General Public License} \ 876 Use and redistribute under the terms of the GNU General Public License} \
877 -justify center -aspect 400 877 -justify center -aspect 400