Mercurial > hg
comparison contrib/hgk @ 18806:932f5d3587c9
hgk: in popups, replace labels with window titles
Replace labels with window titles.
That also requires to change grid placement manager settings
to compensate padding which used to be applied to now non-existent
labels.
author | Andrew Shadura <bugzilla@tut.by> |
---|---|
date | Sun, 10 Mar 2013 16:42:23 +0100 |
parents | 6a0578d07024 |
children | 962844e8dd8e |
comparison
equal
deleted
inserted
replaced
18805:6a0578d07024 | 18806:932f5d3587c9 |
---|---|
3740 set newhead [lindex $commitinfo($newid) 0] | 3740 set newhead [lindex $commitinfo($newid) 0] |
3741 set top .patch | 3741 set top .patch |
3742 set patchtop $top | 3742 set patchtop $top |
3743 catch {destroy $top} | 3743 catch {destroy $top} |
3744 toplevel $top | 3744 toplevel $top |
3745 ttk::label $top.title -text "Generate patch" | |
3746 grid $top.title - -pady 10 | |
3747 ttk::label $top.from -text "From:" | 3745 ttk::label $top.from -text "From:" |
3748 ttk::entry $top.fromsha1 -width 40 | 3746 ttk::entry $top.fromsha1 -width 40 |
3749 $top.fromsha1 insert 0 $oldid | 3747 $top.fromsha1 insert 0 $oldid |
3750 $top.fromsha1 conf -state readonly | 3748 $top.fromsha1 conf -state readonly |
3751 grid $top.from $top.fromsha1 -sticky w | 3749 grid $top.from $top.fromsha1 -sticky w -pady {10 0} |
3752 ttk::entry $top.fromhead -width 60 | 3750 ttk::entry $top.fromhead -width 60 |
3753 $top.fromhead insert 0 $oldhead | 3751 $top.fromhead insert 0 $oldhead |
3754 $top.fromhead conf -state readonly | 3752 $top.fromhead conf -state readonly |
3755 grid x $top.fromhead -sticky w | 3753 grid x $top.fromhead -sticky w |
3756 ttk::label $top.to -text "To:" | 3754 ttk::label $top.to -text "To:" |
3776 grid columnconfigure $top.buts 0 -weight 1 -uniform a | 3774 grid columnconfigure $top.buts 0 -weight 1 -uniform a |
3777 grid columnconfigure $top.buts 1 -weight 1 -uniform a | 3775 grid columnconfigure $top.buts 1 -weight 1 -uniform a |
3778 grid $top.buts - -pady 10 -sticky ew | 3776 grid $top.buts - -pady 10 -sticky ew |
3779 focus $top.fname | 3777 focus $top.fname |
3780 popupify $top | 3778 popupify $top |
3779 wm title $top "Generate a patch" | |
3781 } | 3780 } |
3782 | 3781 |
3783 proc mkpatchrev {} { | 3782 proc mkpatchrev {} { |
3784 global patchtop | 3783 global patchtop |
3785 | 3784 |
3821 | 3820 |
3822 set top .maketag | 3821 set top .maketag |
3823 set mktagtop $top | 3822 set mktagtop $top |
3824 catch {destroy $top} | 3823 catch {destroy $top} |
3825 toplevel $top | 3824 toplevel $top |
3826 ttk::label $top.title -text "Create tag" | |
3827 grid $top.title - -pady 10 | |
3828 ttk::label $top.id -text "ID:" | 3825 ttk::label $top.id -text "ID:" |
3829 ttk::entry $top.sha1 -width 40 | 3826 ttk::entry $top.sha1 -width 40 |
3830 $top.sha1 insert 0 $rowmenuid | 3827 $top.sha1 insert 0 $rowmenuid |
3831 $top.sha1 conf -state readonly | 3828 $top.sha1 conf -state readonly |
3832 grid $top.id $top.sha1 -sticky w | 3829 grid $top.id $top.sha1 -sticky w -pady {10 0} |
3833 ttk::entry $top.head -width 60 | 3830 ttk::entry $top.head -width 60 |
3834 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0] | 3831 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0] |
3835 $top.head conf -state readonly | 3832 $top.head conf -state readonly |
3836 grid x $top.head -sticky w | 3833 grid x $top.head -sticky w |
3837 ttk::label $top.tlab -text "Tag name:" | 3834 ttk::label $top.tlab -text "Tag name:" |
3844 grid columnconfigure $top.buts 0 -weight 1 -uniform a | 3841 grid columnconfigure $top.buts 0 -weight 1 -uniform a |
3845 grid columnconfigure $top.buts 1 -weight 1 -uniform a | 3842 grid columnconfigure $top.buts 1 -weight 1 -uniform a |
3846 grid $top.buts - -pady 10 -sticky ew | 3843 grid $top.buts - -pady 10 -sticky ew |
3847 focus $top.tag | 3844 focus $top.tag |
3848 popupify $top | 3845 popupify $top |
3846 wm title $top "Create a tag" | |
3849 } | 3847 } |
3850 | 3848 |
3851 proc domktag {} { | 3849 proc domktag {} { |
3852 global mktagtop env tagids idtags | 3850 global mktagtop env tagids idtags |
3853 | 3851 |
3902 | 3900 |
3903 set top .writecommit | 3901 set top .writecommit |
3904 set wrcomtop $top | 3902 set wrcomtop $top |
3905 catch {destroy $top} | 3903 catch {destroy $top} |
3906 toplevel $top | 3904 toplevel $top |
3907 ttk::label $top.title -text "Write commit to file" | |
3908 grid $top.title - -pady 10 | |
3909 ttk::label $top.id -text "ID:" | 3905 ttk::label $top.id -text "ID:" |
3910 ttk::entry $top.sha1 -width 40 | 3906 ttk::entry $top.sha1 -width 40 |
3911 $top.sha1 insert 0 $rowmenuid | 3907 $top.sha1 insert 0 $rowmenuid |
3912 $top.sha1 conf -state readonly | 3908 $top.sha1 conf -state readonly |
3913 grid $top.id $top.sha1 -sticky w | 3909 grid $top.id $top.sha1 -sticky w -pady {10 0} |
3914 ttk::entry $top.head -width 60 | 3910 ttk::entry $top.head -width 60 |
3915 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0] | 3911 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0] |
3916 $top.head conf -state readonly | 3912 $top.head conf -state readonly |
3917 grid x $top.head -sticky w | 3913 grid x $top.head -sticky w |
3918 ttk::label $top.clab -text "Command:" | 3914 ttk::label $top.clab -text "Command:" |
3929 grid columnconfigure $top.buts 0 -weight 1 -uniform a | 3925 grid columnconfigure $top.buts 0 -weight 1 -uniform a |
3930 grid columnconfigure $top.buts 1 -weight 1 -uniform a | 3926 grid columnconfigure $top.buts 1 -weight 1 -uniform a |
3931 grid $top.buts - -pady 10 -sticky ew | 3927 grid $top.buts - -pady 10 -sticky ew |
3932 focus $top.fname | 3928 focus $top.fname |
3933 popupify $top | 3929 popupify $top |
3930 wm title $top "Write commit to a file" | |
3934 } | 3931 } |
3935 | 3932 |
3936 proc wrcomgo {} { | 3933 proc wrcomgo {} { |
3937 global wrcomtop | 3934 global wrcomtop |
3938 | 3935 |