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