# Description: support for X session management

startup

proc SaveYourself {win} {
    global info prefs server
    if {[catch {open $info(config)/z_session w} f]} {return}
    puts $f "set prefs(geom,status) \{[wm geometry .0]\}"
    foreach x [concat [activechannelwindows] [querywindows]] {
        puts $f "set prefs(geom,[realname $x]) \{wm geometry \$window [wm geometry $x]\}"
    }
    puts $f "/server $server\nfile delete \[info script\]"
    close $f
    wm protocol $win WM_COMMAND {roxirc}
}

proc unload {} {
    wm protocol .0 WM_SAVE_YOURSELF {}
}

wm protocol .0 WM_SAVE_YOURSELF "[namespace current]::SaveYourself .0"