Posted to tcl by patthoyts at Wed Apr 09 13:25:58 GMT 2008view raw
- # Use the Extended Window Manager Hints properties to find out the
- # name of the current window manager.
- proc get_wm_name {} {
- set result {}
- set atom _NET_SUPPORTING_WM_CHECK
- if {![catch {exec xprop -root -f $atom 32x " \$0+" $atom} check]} {
- set wid [lindex $check 1]
- set atom _NET_WM_NAME
- if {![catch {exec xprop -id $wid -f $atom 8t " \$0+" $atom} name]} {
- set result [lindex $name 1]
- }
- }
- return $result
- }