(#./) :: UI Element -> (String,String) -> UI Element
e #./ (old,new) = e # modify class_ (map $ \s -> if s == old then new else s)
(#./) :: UI Element -> (String,String) -> UI Element
e #./ (old,new) = e # modify class_ (map $ \s -> if s == old then new else s)
e #./ (old,new) = e # modify class_ (map $ \s -> if s == old then new else s)