12 lines
368 B
Plaintext
12 lines
368 B
Plaintext
(defprop &mut :Int letterWidth 0)
|
|
(defprop &mut :Int letterHeight 0)
|
|
(defprop &mut :Int drawCalled 0)
|
|
|
|
(defmethod new [] 0)
|
|
|
|
(defmethod :Void initialize [:String title :Int width :Int height :Int _letterWidth :Int _letterHeight]
|
|
(set letterWidth _letterWidth)
|
|
(set letterHeight _letterHeight))
|
|
|
|
(defmethod :Void draw [:Graphics graphics]
|
|
(+= drawCalled 1)) |