border3dF :: Bool -> Int -> F a b -> F (Bool ⊕ a) b
border3dF down border fudget
border3dF
puts a border around a fudget to give it a 3d look.
Left True
makes the fudget look lowered.
Left False
makes the fudget look raised.
Right x
propagates x
to the enclosed fudget.
down :: Bool
True
, the fudget will appear to be lowered,
otherwise the fudget will appear to be raised.
border :: Int
fudget :: F a b
border3dF False 1 (labelF "Hello, 3D border")