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

Oh my what a mess.
author samer
date Fri, 05 Apr 2019 16:26:00 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/misc/mouse.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -0,0 +1,8 @@
+(import "samer.core.util.swing.*")
+(import "samer.units.*")
+
+(define canvas (VCanvas.))
+(define mouse (MousePosition. canvas))
+(expose canvas "canvas")
+(expose)
+