Created
October 27, 2017 16:41
-
-
Save jmercouris/69843b12aabcb0b99d53aca241df898e to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(require "COCOA")) | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(require :demo-packages) | |
(require :window-utils) | |
(require :window-controller) | |
(require :text-views) | |
(require :constraint-layout)) | |
(in-package :hello) | |
(defparameter *win* nil) | |
(defclass key-label-view (label-view) | |
() | |
(:metaclass ns:+ns-object)) | |
(objc:defmethod (#/keyDown: :void) ((self key-label-view) event) | |
(print "key pressed") | |
(let* ((code (#/keyCode event)) | |
(call-next-method event)))) | |
(defmethod make-hello-window ((lc lisp-window-controller)) | |
(let* ((hello-label (make-label-view)) | |
(win (make-instance 'ns:ns-window | |
:title "Hello World" | |
:resizable t | |
:content-subviews (list hello-label)))) | |
(setf *win* win) | |
(values win (list win hello-label)))) | |
(defun make-label-view () | |
(let ((view | |
(make-instance 'key-label-view | |
:title "Hello World"))) | |
(constrain-to-natural-size view) | |
view)) | |
(defun hello () | |
(let ((wc (make-instance 'lisp-window-controller | |
:build-method #'make-hello-window))) | |
(show-window wc) | |
wc)) | |
(provide :hello) | |
(print "load finished") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment