26 lines
639 B
Plaintext
26 lines
639 B
Plaintext
|
(local modes (require :editor.lovemode))
|
||
|
|
(local View (require :core.view))
|
||
|
|
|
||
|
|
(local ModeView (View:extend))
|
||
|
|
|
||
|
|
(fn ModeView.new [self mode]
|
||
|
|
(ModeView.super.new self)
|
||
|
|
(set self.mode mode))
|
||
|
|
|
||
|
|
(fn ModeView.draw [self]
|
||
|
|
(love.graphics.push :all)
|
||
|
|
(love.graphics.translate self.position.x self.position.y)
|
||
|
|
(xpcall self.mode.draw (fn [...] (love.graphics.pop) (error ...)))
|
||
|
|
(love.graphics.pop))
|
||
|
|
|
||
|
|
(fn ModeView.handle-love-update [self ...]
|
||
|
|
(when self.mode.update (self.mode.update ...)))
|
||
|
|
|
||
|
|
(fn ModeView.handle-love-event [self ev ...]
|
||
|
|
(if self.mode.handler
|
||
|
|
(self.mode.handler ev ...)
|
||
|
|
((. modes.std-handlers ev) ...)))
|
||
|
|
|
||
|
|
ModeView
|
||
|
|
|