[armedbear-cvs] r12024 - trunk/abcl/src/org/armedbear/lisp

[Alessio Stalla]

Author: astalla
Date: Mon Jun 29 17:13:53 2009
New Revision: 12024

Log:
Added Lisp-side support for the dialog-based GUI prompt stream.


Added:
   trunk/abcl/src/org/armedbear/lisp/gui.lisp
Modified:
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Mon Jun 29 17:13:53 2009
@@ -309,6 +309,13 @@
 (export 'macroexpand-all)
 (autoload 'macroexpand-all)
 
+(export '*gui-backend*)
+(export 'init-gui)
+(autoload 'init-gui "gui")
+(export 'make-dialog-prompt-stream)
+(autoload 'make-dialog-prompt-stream "gui")
+
+
 ;; JVM compiler.
 (in-package "JVM")
 (export '(jvm-compile-package))

Modified: trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Mon Jun 29 17:13:53 2009
@@ -178,6 +178,7 @@
                            "find-all-symbols.lisp"
                            "gentemp.lisp"
                            "gray-streams.lisp"
+			   "gui.lisp"
                            "inline.lisp"
                            "inspect.lisp"
                            ;;"j.lisp"

Added: trunk/abcl/src/org/armedbear/lisp/gui.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/src/org/armedbear/lisp/gui.lisp	Mon Jun 29 17:13:53 2009
@@ -0,0 +1,20 @@
+(in-package :extensions)
+
+(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")))
\ No newline at end of file