• Home
• org.abcl
• abcl
• 1.6.1
• source code
• gui.lisp

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

org.armedbear.lisp.gui.lisp Maven / Gradle / Ivy

(in-package :extensions)

(require :java)

(export '(*gui-backend* init-gui make-dialog-prompt-stream))


(defvar *gui-backend* :swing)

(defun init-gui ()
  "Dummy function used to autoload this file"
  t)

(defun make-dialog-prompt-stream ()
  (%make-dialog-prompt-stream *gui-backend*))

(defgeneric %make-dialog-prompt-stream (gui-backend))

(defmethod %make-dialog-prompt-stream ((gui-backend (eql :swing)))
  (java:jnew (java:jconstructor
              "org.armedbear.lisp.java.swing.SwingDialogPromptStream")))

(defmethod %make-dialog-prompt-stream ((gui-backend (eql :awt)))
  (java:jnew (java:jconstructor
              "org.armedbear.lisp.java.awt.AwtDialogPromptStream")))