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.