Skip to content

Instantly share code, notes, and snippets.

@dastels
Created September 29, 2013 16:23
Show Gist options
  • Select an option

  • Save dastels/6753981 to your computer and use it in GitHub Desktop.

Select an option

Save dastels/6753981 to your computer and use it in GitHub Desktop.
Sample iLisp code for using abutton
(let ((w (.window *app*))
(b (UIButton/buttonWithType: UIButtonTypeSystem)))
(.frame= b '((10 100) (100 44)))
(.backgroundColor= b (UIColor/lightGrayColor))
(.setTitle:forState: b "Push Me" UIControlStateNormal)
(.setTitleColor:forState: b (UIColor/blackColor) UIControlStateNormal)
(.when b UIControlEventTouchUpInside
(lambda (sender)
(trace "click!")))
(.addSubview w b))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment