hello.lisp

(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-table-view (ns:ns-table-view)
  ()
  (:metaclass ns:+ns-object))

(objc:defmethod (#/keyDown: :void) ((self key-table-view) event)
  (let* ((code (#/keyCode event)))
    (if (and (>= (#/selectedRow self) 0)
             (= code 36)) ; return key
      (#/sendAction:to:from: *NSApp* (#/doubleAction self) (#/target self) self)
      (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 '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")