module QueryTree where
import Command
import Event
import Xrequest

queryTreeK k =
    xrequest QueryTree gotit k
  where
    gotit (TreeQueried r p cs) = Just (r,p,cs)
    gotit _ = Nothing

queryTreeF k = queryTreeK k

defaultRootWindowK k = 
    xrequest DefaultRootWindow gotit k
  where
    gotit (GotDefaultRootWindow w) = Just w
    gotit _ = Nothing

defaultRootWindowF k = defaultRootWindowK k