Show More
@@ -139,6 +139,18 b' proc gitdir {} {' | |||
|
139 | 139 | } |
|
140 | 140 | } |
|
141 | 141 | |
|
142 | proc popupify {w} { | |
|
143 | wm resizable $w 0 0 | |
|
144 | wm withdraw $w | |
|
145 | update | |
|
146 | set x [expr {([winfo screenwidth .]-[winfo reqwidth $w])/2}] | |
|
147 | set y [expr {([winfo screenheight .]-[winfo reqheight $w])/2}] | |
|
148 | wm geometry $w +$x+$y | |
|
149 | wm transient $w . | |
|
150 | wm deiconify $w | |
|
151 | wm resizable $w 1 1 | |
|
152 | } | |
|
153 | ||
|
142 | 154 | proc getcommits {rargs} { |
|
143 | 155 | global commits commfd phase canv mainfont env |
|
144 | 156 | global startmsecs nextupdate ncmupdate |
@@ -529,6 +541,7 b' proc error_popup msg {' | |||
|
529 | 541 | ttk::button $w.ok -text OK -command "destroy $w" |
|
530 | 542 | pack $w.ok -side bottom -fill x |
|
531 | 543 | bind $w <Visibility> "grab $w; focus $w" |
|
544 | popupify $w | |
|
532 | 545 | tkwait window $w |
|
533 | 546 | } |
|
534 | 547 | |
@@ -949,6 +962,7 b' Use and redistribute under the terms of ' | |||
|
949 | 962 | pack $w.m -side top -fill x -padx 20 -pady 20 |
|
950 | 963 | ttk::button $w.ok -text Close -command "destroy $w" |
|
951 | 964 | pack $w.ok -side bottom |
|
965 | popupify $w | |
|
952 | 966 | } |
|
953 | 967 | |
|
954 | 968 | set aunextcolor 0 |
@@ -3755,6 +3769,7 b' proc mkpatch {} {' | |||
|
3755 | 3769 | grid columnconfigure $top.buts 1 -weight 1 -uniform a |
|
3756 | 3770 | grid $top.buts - -pady 10 -sticky ew |
|
3757 | 3771 | focus $top.fname |
|
3772 | popupify $top | |
|
3758 | 3773 | } |
|
3759 | 3774 | |
|
3760 | 3775 | proc mkpatchrev {} { |
@@ -3822,6 +3837,7 b' proc mktag {} {' | |||
|
3822 | 3837 | grid columnconfigure $top.buts 1 -weight 1 -uniform a |
|
3823 | 3838 | grid $top.buts - -pady 10 -sticky ew |
|
3824 | 3839 | focus $top.tag |
|
3840 | popupify $top | |
|
3825 | 3841 | } |
|
3826 | 3842 | |
|
3827 | 3843 | proc domktag {} { |
@@ -3906,6 +3922,7 b' proc writecommit {} {' | |||
|
3906 | 3922 | grid columnconfigure $top.buts 1 -weight 1 -uniform a |
|
3907 | 3923 | grid $top.buts - -pady 10 -sticky ew |
|
3908 | 3924 | focus $top.fname |
|
3925 | popupify $top | |
|
3909 | 3926 | } |
|
3910 | 3927 | |
|
3911 | 3928 | proc wrcomgo {} { |
General Comments 0
You need to be logged in to leave comments.
Login now