AuxWindowsF.hs

module AuxWindowsF where
import AllFudgets
import FudExtras(staticHyperGraphicsF')
import ContribFudgets(delayedAuxShellF)
--import ContribFudgets(menuBarF,subMenuItem,toggleItem,Transl(..))


auxGfxWindowsF maintitle = auxWindowsF windows
  where
    windows = [(tag,gfxDispShellF (show tag))|tag<-[minBound..maxBound]]

    gfxDispShellF title = delayedAuxShellF longtitle gfxDispF
      where
        longtitle = maintitle++": "++title
	gfxDispF = scrollF (staticHyperGraphicsF' pm initD)
	pm = setSizing Dynamic
        initD = blankD (pP 440 220)

auxWindowsF auxwindows =
    {-loopThroughRightF-} windowsF {-auxWindowsMenuF-}
  where
    windowsF = post >^=< listF auxwindows -- >=^&lt; pre
      where
        --pre (w,Left b) = (w,Left b)
	--pre (w,Right i) = (w,Right i)

	post (w,Left b) = Left (w,b)
	post (w,Right o) = Right (w,o)