Commit dfc7e90b authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Added the usual ESA-style arguments to the entry point function.

darcs-hash:09605787bb66f3daa940fce5f199278df7307f0c
parent dd48856e
......@@ -185,11 +185,15 @@
(+ cursor-left 3) cursor-bottom
:ink *cursor-ink*))))
(defun ftd ()
(defun ftd (&key new-process (process-name "FTD")
(width 900) (height 400))
"Starts up the FTD application"
(let ((frame (make-application-frame
'ftd)))
(run-frame-top-level frame)))
(let ((frame (make-application-frame 'ftd :width width :height height)))
(flet ((run ()
(run-frame-top-level frame)))
(if new-process
(clim-sys:make-process #'run :name process-name)
(run)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment