Mercurial > hg > indyvon
view src/indyvon/component.clj @ 2:0f2a98f71a9c
Beginnings of event dispatching code.
| author | Mikhail Kryshen <mikhail@kryshen.net> |
|---|---|
| date | Mon, 07 Jun 2010 21:13:05 +0400 |
| parents | |
| children | 0771180bf7c2 |
line source
1 ;; (ns indyvon.component
2 ;; (:use indyvon.layer)
3 ;; (:import (java.awt Graphics Graphics2D))
4 ;; (:gen-class
5 ;; :name indyvon.Component
6 ;; :extends java.awt.Component
7 ;; :constructor {[Layer] []}
8 ;; :state layer
9 ;; :init init-state))
11 ;; (defn- init-state [layer]
12 ;; [[] layer])
14 ;; (defn -paint [this graphics])
16 ;; (defn -update [this graphics]
17 ;; (-paint this graphics))