Data commit

Task/Draw-a-pixel/FutureBasic/draw-a-pixel.basic

@@ -0,0 +1,17 @@
+void local fn BuildWindow
+  CGRect r = fn CGRectMake( 0, 0, 320, 240 )
+  window 1, @"Single Pixel", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable
+  oval fill fn CGRectMake( 100-0.5, 100-0.5, 1, 1 ), fn ColorRed
+end fn
+
+void local fn DoDialog( ev as long, tag as long, wnd as long )
+  select ( ev )
+    case _windowWillClose : end
+  end select
+end fn
+
+on dialog fn DoDialog
+
+fn BuildWindow
+
+HandleEvents