hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

documentation

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-01 16:23:56 +02:00
parent 5ee62d0064
commit ab666368b1
27 changed files with 1080 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
example1/example.rkt
View File

@@ -23,36 +23,34 @@
(define-runtime-path dialog-html "example-1-dialog.html")
(define-runtime-path cur-dir ".")
#|
(define test-menu (menu 'main-menu
(menu-item 'm-file "File"
#:submenu
(menu (menu-item 'm-open "Open File")
(menu-item 'm-close "Close File")
(menu-item 'm-select-dir "Select Folder" #:separator #t)
(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)
))
(menu-item 'm-auto "Processes"
#:submenu
(menu (menu-item 'm-start "Start counter")
(menu-item 'm-sub "Submenu"
#:submenu
(menu (menu-item 'm-sub1 "Submenu 1")
(menu-item 'm-sub2 "Submenu 2")
(menu-item 'm-sub3 "Submenu 3")
)
)
(menu-item 'm-stop "Stop counter")
)
)
))
|#
(define test-menu (wv-menu 'main-menu
(wv-menu-item 'm-file "File"
#:submenu
(wv-menu (wv-menu-item 'm-open "Open File")
(wv-menu-item 'm-close "Close File")
(wv-menu-item 'm-select-dir "Select Folder" #:separator #t)
(wv-menu-item 'm-quit "Quit" #:separator #t)))
(wv-menu-item 'm-edit "Edit"
#:submenu
(wv-menu (wv-menu-item 'm-copy "Copy")
(wv-menu-item 'm-cut "Cut")
(wv-menu-item 'm-paste "Paste")
(wv-menu-item 'm-prefs "Preferences" #:separator #t)
))
(wv-menu-item 'm-auto "Processes"
#:submenu
(wv-menu (wv-menu-item 'm-start "Start counter")
(wv-menu-item 'm-sub "Submenu"
#:submenu
(wv-menu (wv-menu-item 'm-sub1 "Submenu 1")
(wv-menu-item 'm-sub2 "Submenu 2")
(wv-menu-item 'm-sub3 "Submenu 3")
)
)
(wv-menu-item 'm-stop "Stop counter")
)
)
))
(define example-1-dialog%
(class wv-dialog%
@@ -222,7 +220,7 @@
)
(define/override (page-loaded oke)
(ww-debug (format "HTML LOADED ~a" oke))
(ww-debug (format "HTML LOADED ~a ~a" oke (current-milliseconds)))
(set! has-page oke)
(super page-loaded oke)
(displayln "super called")
@@ -259,11 +257,13 @@
(λ (el evt data)
(send this choose-dir*)))
)
(displayln "page-loaded done")
)
;(ww-debug "SETTING MENU")
#|(let* ((div-open (send this element 'div-open))
(displayln (format "setting menu ~a" (current-milliseconds)))
(send this set-menu! test-menu)
(send this connect-menu! 'm-quit (λ ()
(send this reset-counter)
(send this close)))
(let* ((div-open (send this element 'div-open))
(c-open 0)
(div-close (send this element 'div-close))
(c-close 0)
@@ -273,39 +273,29 @@
(c-cut 0)
(div-paste (send this element 'div-paste))
(c-paste 0)
(mk (λ (item el str count)
(send this connect-menu! item
(λ ()
(send el set-innerHTML! (format "~a ~a" str (count))))
)
)
)
)
(mk 'm-open div-open "Open file" (inc c-open))
(mk 'm-close div-close "Close file" (inc c-close))
(mk 'm-copy div-copy "Edit Copy" (inc c-copy))
(mk 'm-cut div-cut "Edit Cut" (inc c-cut))
(mk 'm-paste div-paste "Edit Paste" (inc c-paste))
)
(send this connect-menu! 'm-start (λ () (send this start-counter)))
(send this connect-menu! 'm-stop (λ () (send this reset-counter)))
(send this connect-menu! 'm-prefs (λ () (send this prefs)))
(send this connect-menu! 'm-select-dir (λ () (send this choose-dir*)))
(send this set-menu! test-menu)
(send this connect-menu! 'm-quit
(λ ()
(send this reset-counter)
(send this close))
)
(let ((make-menu-executor (λ (item elem string count)
(send this connect-menu! item
(λ ()
(send elem set-inner-html! (format "~a ~a" string (count)))))))
)
(make-menu-executor 'm-open div-open "Open file" (inc c-open))
(make-menu-executor 'm-close div-close "Close file" (inc c-close))
(make-menu-executor 'm-copy div-copy "Edit Copy" (inc c-copy))
(make-menu-executor 'm-cut div-cut "Edit Cut" (inc c-cut))
(make-menu-executor 'm-paste div-paste "Edit Paste" (inc c-paste))
(send this connect-menu! 'm-start
(λ () (send this start-counter)))
(send this connect-menu! 'm-stop
(λ () (send this reset-counter)))
(send this connect-menu! 'm-prefs
(λ () (send this prefs)))
(send this connect-menu! 'm-select-dir
(λ () (send this choose-dir)))
)
)|#
(displayln "page-loaded done")
)
(begin
(displayln "Yes this works!")