abortWidget 
  ::  forall  m r  . (MS m)
  => (MS m, MonadReader (DS r) m, In Bool r)
  => Iconified
  -> m (Cable (EitherG Iconified ()))

abortWidget Iconified  = do
  b <- floater $  (icon ["close","3x"] "forget")
  return $ wire (LeftG :=> Disclosed <$ b)
abortWidget 
  ::  forall  m r  . (MS m)
  => (MS m, MonadReader (DS r) m, In Bool r)
  => Iconified
  -> m (Cable (EitherG Iconified ()))
abortWidget Iconified  = do
  b <- floater $  (icon ["close","3x"] "forget")
  return $ wire (LeftG :=> Disclosed <$ b)
abortWidget Iconified  = do
  b <- floater $  (icon ["close","3x"] "forget")
  return $ wire (LeftG :=> Disclosed <$ b)