comparison examples/misc/mouse.scm @ 1:5df24c91468d

Oh my what a mess.
author samer
date Fri, 05 Apr 2019 16:26:00 +0100
parents
children
comparison
equal deleted inserted replaced
0:bf79fb79ee13 1:5df24c91468d
1 (import "samer.core.util.swing.*")
2 (import "samer.units.*")
3
4 (define canvas (VCanvas.))
5 (define mouse (MousePosition. canvas))
6 (expose canvas "canvas")
7 (expose)
8