Skip to content
Browse files

Added 'run' function.

  • Loading branch information...
1 parent 2b478f9 commit 621b6d737aac93397bb51a36df749fece5471d3a @ahefner committed Jan 31, 2010
Showing with 10 additions and 1 deletion.
  1. +10 −1 mcpixel.lisp
View
11 mcpixel.lisp
@@ -1,6 +1,7 @@
(cl:defpackage :mcpixel
(:use :clim-lisp :clim)
- (:shadow :frame :frame-p :frame-name))
+ (:shadow :frame :frame-p :frame-name)
+ (:export #:run #:mcpixel))
(in-package :mcpixel)
@@ -745,3 +746,11 @@
(file-error (c)
(princ c))))
+;;;;
+
+(defun run ()
+ (funcall #+clim-mp #'clim-sys:make-process #-clim-mp #'funcall
+ (lambda ()
+ (run-frame-top-level
+ (make-application-frame 'mcpixel
+ :pretty-name "McPixel")))))

0 comments on commit 621b6d7

Please sign in to comment.
Something went wrong with that request. Please try again.