mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-gui: set suitable extended window manager hints.

Browse Source 
This patch uses recent Tk attributes support to specify the intended use of new
toplevels by setting the correct EWMH hint. This helps modern window managers
to apply sensible decoration for the tooltip and dialogs.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
This commit is contained in:
Pat Thoyts
2011-10-19 14:26:29 +01:00
parent 80e6667809
commit 508dee31f3
5 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/blame.tcl
View File

@ -1201,6 +1201,7 @@ method _open_tooltip {cur_w} {
_hide_tooltip $this _hide_tooltip $this
set tooltip_wm [toplevel $cur_w.tooltip -borderwidth 1] set tooltip_wm [toplevel $cur_w.tooltip -borderwidth 1]
catch {wm attributes $tooltip_wm -type tooltip}
wm overrideredirect $tooltip_wm 1 wm overrideredirect $tooltip_wm 1
wm transient $tooltip_wm [winfo toplevel $cur_w] wm transient $tooltip_wm [winfo toplevel $cur_w]
set tooltip_t $tooltip_wm.label set tooltip_t $tooltip_wm.label

1
lib/choose_rev.tcl
View File

@ -497,6 +497,7 @@ method _open_tooltip {} {
if {$tooltip_wm eq {}} { if {$tooltip_wm eq {}} {
set tooltip_wm [toplevel $w_list.tooltip -borderwidth 1] set tooltip_wm [toplevel $w_list.tooltip -borderwidth 1]
catch {wm attributes $tooltip_wm -type tooltip}
wm overrideredirect $tooltip_wm 1 wm overrideredirect $tooltip_wm 1
wm transient $tooltip_wm [winfo toplevel $w_list] wm transient $tooltip_wm [winfo toplevel $w_list]
set tooltip_t $tooltip_wm.label set tooltip_t $tooltip_wm.label

1
lib/class.tcl
View File

@ -138,6 +138,7 @@ proc make_dialog {t w args} {
upvar $t top $w pfx this this upvar $t top $w pfx this this
global use_ttk global use_ttk
uplevel [linsert $args 0 make_toplevel $t $w] uplevel [linsert $args 0 make_toplevel $t $w]
catch {wm attributes $top -type dialog}
pave_toplevel $pfx pave_toplevel $pfx
} }

1
lib/themed.tcl
View File

@ -123,6 +123,7 @@ proc paddedlabel {w args} {
# place a themed frame over the surface. # place a themed frame over the surface.
proc Dialog {w args} { proc Dialog {w args} {
eval [linsert $args 0 toplevel $w -class Dialog] eval [linsert $args 0 toplevel $w -class Dialog]
catch {wm attributes $w -type dialog}
pave_toplevel $w pave_toplevel $w
return $w return $w
} }

1
lib/transport.tcl
View File

@ -124,6 +124,7 @@ proc do_push_anywhere {} {
set w .push_setup set w .push_setup
toplevel $w toplevel $w
catch {wm attributes $w -type dialog}
wm withdraw $w wm withdraw $w
wm geometry $w "+[winfo rootx .]+[winfo rooty .]" wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
pave_toplevel $w pave_toplevel $w