Start simplifying buttons
This commit is contained in:
@@ -20,7 +20,6 @@ makeButton
|
||||
makeButton col eff = defaultButton
|
||||
{ _btPict = DefaultDrawButton col
|
||||
, _btEvent = ButtonPress BtInactive ButtonDoNothing click1S eff
|
||||
, _btText = "Button"
|
||||
, _btState = BtOff
|
||||
}
|
||||
|
||||
@@ -45,7 +44,6 @@ makeSwitchSPic
|
||||
makeSwitchSPic dswitch effOn effOff = defaultButton
|
||||
{ _btPict = dswitch
|
||||
, _btEvent = ButtonSimpleSwith effOn effOff
|
||||
, _btText = "SWITCH/"
|
||||
, _btState = BtOff
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user