[PATCH 4 of 9] hgk: fix pop-up windows
Andrew Shadura
bugzilla at tut.by
Sun Mar 10 11:24:45 CDT 2013
# HG changeset patch
# User Andrew Shadura <bugzilla at tut.by>
# Date 1350394316 -7200
# Node ID c9806449456004b3f3e0e395dc8d98881bee6fe7
# Parent 2e31d3c5d8f7912ce2e1e68848bb39bae9564aba
hgk: fix pop-up windows
Create pop-up windows properly so they go to the floating layer in
tiling window managers.
diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -139,6 +139,18 @@ proc gitdir {} {
}
}
+proc popupify {w} {
+ wm resizable $w 0 0
+ wm withdraw $w
+ update
+ set x [expr {([winfo screenwidth .]-[winfo reqwidth $w])/2}]
+ set y [expr {([winfo screenheight .]-[winfo reqheight $w])/2}]
+ wm geometry $w +$x+$y
+ wm transient $w .
+ wm deiconify $w
+ wm resizable $w 1 1
+}
+
proc getcommits {rargs} {
global commits commfd phase canv mainfont env
global startmsecs nextupdate ncmupdate
@@ -529,6 +541,7 @@ proc error_popup msg {
ttk::button $w.ok -text OK -command "destroy $w"
pack $w.ok -side bottom -fill x
bind $w <Visibility> "grab $w; focus $w"
+ popupify $w
tkwait window $w
}
@@ -949,6 +962,7 @@ Use and redistribute under the terms of
pack $w.m -side top -fill x -padx 20 -pady 20
ttk::button $w.ok -text Close -command "destroy $w"
pack $w.ok -side bottom
+ popupify $w
}
set aunextcolor 0
@@ -3755,6 +3769,7 @@ proc mkpatch {} {
grid columnconfigure $top.buts 1 -weight 1 -uniform a
grid $top.buts - -pady 10 -sticky ew
focus $top.fname
+ popupify $top
}
proc mkpatchrev {} {
@@ -3822,6 +3837,7 @@ proc mktag {} {
grid columnconfigure $top.buts 1 -weight 1 -uniform a
grid $top.buts - -pady 10 -sticky ew
focus $top.tag
+ popupify $top
}
proc domktag {} {
@@ -3906,6 +3922,7 @@ proc writecommit {} {
grid columnconfigure $top.buts 1 -weight 1 -uniform a
grid $top.buts - -pady 10 -sticky ew
focus $top.fname
+ popupify $top
}
proc wrcomgo {} {
More information about the Mercurial-devel
mailing list