source: branches/0.20.x/abcl/src/org/armedbear/lisp/gui.lisp

Last change on this file was 12029, checked in by ehuelsmann, 16 years ago

Set properties on source files recently added.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 590 bytes
Line 
1(in-package :extensions)
2
3(defvar *gui-backend* :swing)
4
5(defun init-gui ()
6  "Dummy function used to autoload this file"
7  t)
8
9(defun make-dialog-prompt-stream ()
10  (%make-dialog-prompt-stream *gui-backend*))
11
12(defgeneric %make-dialog-prompt-stream (gui-backend))
13
14(defmethod %make-dialog-prompt-stream ((gui-backend (eql :swing)))
15  (java:jnew (java:jconstructor
16        "org.armedbear.lisp.java.swing.SwingDialogPromptStream")))
17
18(defmethod %make-dialog-prompt-stream ((gui-backend (eql :awt)))
19  (java:jnew (java:jconstructor
20        "org.armedbear.lisp.java.awt.AwtDialogPromptStream")))
Note: See TracBrowser for help on using the repository browser.