Guest User

Untitled

a guest
Dec 10th, 2017
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. PRIVATE $hButton as Button
  2. PRIVATE $hObserver AS Observer
  3. PUBLIC SUB Form_Load()
  4. $hButton = NEW Button(ME) AS "Button"
  5. $hObserver = NEW Observer(hButton) AS "Observer"
  6. END
  7. PUBLIC SUB Observer_Click()
  8. DEBUG "El botón ha echo click. ¡Puedo cancelar el evento!"
  9. STOP EVENT
  10. END
  11. PUBLIC SUB Button_Click()
  12. DEBUG “ud no debe verme"
  13. END
Add Comment
Please, Sign In to add comment