pushButtonF :: [(ModState, KeySym)] -> F b1 b2 -> F b1 (b2 ⊕ Click)
pushButtonF keys fudget
pushButtonF
creates a push button. An argument fudget determines what is displayed
inside the push button.
Left x
if the argument fudget outputs x
,
Right Click
when the button is clicked.
keys :: [(ModState, KeySym)]
fudget :: F b1 b2