Mercurial > core / lisp/lib/gui/ext.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
2a4f11c0e8c8
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
3 (defparameter *gui-backend-list* '(:gtk :tk :mcclim)) 5 (defparameter *gui-backend* nil) 7 (defun register-gui-backend (name &optional lib) 8 "Register a new GUI backend named NAME. if LIB is provided it is 9 assumed to be a path to a shared library.") 11 (defun load-gui-backend (backend) 18 (defmacro with-gui-handlers (&body body) 22 (defmacro def-gui (ret &body body) 23 "Define a CLI main function in the current package which returns RET. 25 Note that this macro does not export the defined function and requires 26 GUI-MAIN to be an external symbol." 28 (declaim (type stream output)) 29 (defun gui-main (&key (output *standard-output*)) 30 "Run the top-level function and print to OUTPUT." 31 (let ((*standard-output* output)) 33 (progn ,@body ,ret))))))