;(in-package :ccl)

(require :scrolling-windows)
(require 'quickdraw)

(defclass LABAN-WINDOW (ccl::scrolling-window)
  ()
  (:documentation "LABAN-WINDOW (LOL class) : Class for Laban Notation window.")
  )


(defclass laban-partition (scroller) ()
  (:default-initargs
    :field-size #@(220 600)))

(defmethod view-draw-contents ((self laban-partition))
  (call-next-method)

  (move-to self 60 20)
  (line-to self 60 580)
  (move-to self 90 20)
  (line-to self 90 580)
  (move-to self 120 20)
  (line-to self 120 580)
  (move-to self 60 580)
  (line-to self 120 580)
  (move-to self 60 583)
  (line-to self 120 583)
  )

(defun make-laban-window ()
  (make-instance 'laban-window
    :scroller-class 'laban-partition
    :window-type :document-with-zoom
    :view-size #@(200 640)
    :track-thumb-p t))

#|
(make-laban-window)
|#

(defmethod add-arm ((self laban-window))
  

  (line-to self 60 400)

  )

#|
(setf win (make-laban-window))

(add-arm win)


(defmethod window-save-as ((self laban-window))
  (window-save-as self))
|#