New backend with ffi.

2025-09-24 09:08:23 +02:00
parent 12e9d3ad94
commit 79d00df746
5 changed files with 887 additions and 736 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -1 +1,15 @@
 #lang racket/gui
+
+
+ (define m (menu (menu-item 'm-file "File"
+                             #:submenu
+                             (menu (menu-item 'm-open "Open File")
+                                   (menu-item 'm-close "Close File")
+                                   (menu-item 'm-quit "Quit" #:separator #t)))
+                  (menu-item 'm-edit "Edit"
+                             #:submenu
+                             (menu (menu-item 'm-copy "Copy")
+                                   (menu-item 'm-cut  "Cut")
+                                   (menu-item 'm-paste "Paste")
+                                   (menu-item 'm-prefs "Preferences" #:separator #t)
+                                   ))))