abortWidget Disclosed = do
    p <- el "ul" $ do
          divClass "modal" $ text "really want to abort the proposal?"
          (b,n) <- yesno (constDyn True)
          return $ leftmost [True <$ b ,False <$ n]
    return $ merge [RightG :=> () <$ ffilter id p , LeftG :=> Iconified <$ ffilter not p]
abortWidget Disclosed = do
    p <- el "ul" $ do
          divClass "modal" $ text "really want to abort the proposal?"
          (b,n) <- yesno (constDyn True)
          return $ leftmost [True <$ b ,False <$ n]
    return $ merge [RightG :=> () <$ ffilter id p , LeftG :=> Iconified <$ ffilter not p]
abortWidget Disclosed = do
    p <- el "ul" $ do
          divClass "modal" $ text "really want to abort the proposal?"
          (b,n) <- yesno (constDyn True)
          return $ leftmost [True <$ b ,False <$ n]
    return $ merge [RightG :=> () <$ ffilter id p , LeftG :=> Iconified <$ ffilter not p]