Code: Select all
Procedure SetGadgetStateIf(gadget, state)
If GetGadgetState(gadget) <> state: SetGadgetState(gadget, state): EndIf
EndProcedure
Procedure SetGadgetTextIf(gadget, text$)
If GetGadgetText(gadget) <> text$: SetGadgetText(gadget, text$): EndIf
EndProcedure