##// END OF EJS Templates
hgk: in popups, replace labels with window titles...
Andrew Shadura -
r18806:932f5d35 default
parent child Browse files
Show More
@@ -3742,13 +3742,11 b' proc mkpatch {} {'
3742 3742 set patchtop $top
3743 3743 catch {destroy $top}
3744 3744 toplevel $top
3745 ttk::label $top.title -text "Generate patch"
3746 grid $top.title - -pady 10
3747 3745 ttk::label $top.from -text "From:"
3748 3746 ttk::entry $top.fromsha1 -width 40
3749 3747 $top.fromsha1 insert 0 $oldid
3750 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 3750 ttk::entry $top.fromhead -width 60
3753 3751 $top.fromhead insert 0 $oldhead
3754 3752 $top.fromhead conf -state readonly
@@ -3778,6 +3776,7 b' proc mkpatch {} {'
3778 3776 grid $top.buts - -pady 10 -sticky ew
3779 3777 focus $top.fname
3780 3778 popupify $top
3779 wm title $top "Generate a patch"
3781 3780 }
3782 3781
3783 3782 proc mkpatchrev {} {
@@ -3823,13 +3822,11 b' proc mktag {} {'
3823 3822 set mktagtop $top
3824 3823 catch {destroy $top}
3825 3824 toplevel $top
3826 ttk::label $top.title -text "Create tag"
3827 grid $top.title - -pady 10
3828 3825 ttk::label $top.id -text "ID:"
3829 3826 ttk::entry $top.sha1 -width 40
3830 3827 $top.sha1 insert 0 $rowmenuid
3831 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 3830 ttk::entry $top.head -width 60
3834 3831 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0]
3835 3832 $top.head conf -state readonly
@@ -3846,6 +3843,7 b' proc mktag {} {'
3846 3843 grid $top.buts - -pady 10 -sticky ew
3847 3844 focus $top.tag
3848 3845 popupify $top
3846 wm title $top "Create a tag"
3849 3847 }
3850 3848
3851 3849 proc domktag {} {
@@ -3904,13 +3902,11 b' proc writecommit {} {'
3904 3902 set wrcomtop $top
3905 3903 catch {destroy $top}
3906 3904 toplevel $top
3907 ttk::label $top.title -text "Write commit to file"
3908 grid $top.title - -pady 10
3909 3905 ttk::label $top.id -text "ID:"
3910 3906 ttk::entry $top.sha1 -width 40
3911 3907 $top.sha1 insert 0 $rowmenuid
3912 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 3910 ttk::entry $top.head -width 60
3915 3911 $top.head insert 0 [lindex $commitinfo($rowmenuid) 0]
3916 3912 $top.head conf -state readonly
@@ -3931,6 +3927,7 b' proc writecommit {} {'
3931 3927 grid $top.buts - -pady 10 -sticky ew
3932 3928 focus $top.fname
3933 3929 popupify $top
3930 wm title $top "Write commit to a file"
3934 3931 }
3935 3932
3936 3933 proc wrcomgo {} {
General Comments 0
You need to be logged in to leave comments. Login now