equal
deleted
inserted
replaced
1035 (oneshot-set! o v) |
1035 (oneshot-set! o v) |
1036 v) |
1036 v) |
1037 (define-primitive vm [116] |
1037 (define-primitive vm [116] |
1038 (let ((image-bytes (serialize-image vm))) |
1038 (let ((image-bytes (serialize-image vm))) |
1039 (display-to-file image-bytes (VM-image-filename vm) #:exists 'replace))) |
1039 (display-to-file image-bytes (VM-image-filename vm) #:exists 'replace))) |
1040 (define-primitive vm [117] (exit)) |
1040 (define-primitive vm [117 _self] (exit)) |
1041 (define-primitive vm [118 (unffiv* wv window) action] ;; "onWindow close b" |
1041 (define-primitive vm [118 (unffiv* wv window) action] ;; "onWindow close b" |
1042 (define callback (block-callback vm action)) |
1042 (define callback (block-callback vm action)) |
1043 (send window set-close-handler (lambda (_frame) (queue-callback callback) (sleep 0.2))) |
1043 (send window set-close-handler (lambda (_frame) (queue-callback callback) (sleep 0.2))) |
1044 wv) |
1044 wv) |
1045 |
1045 |