/[cmucl]/src/interface/interface.lisp
ViewVC logotype

Diff of /src/interface/interface.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by garland, Wed Feb 10 12:58:25 1993 UTC revision 1.4 by garland, Mon Feb 22 12:26:40 1993 UTC
# Line 1  Line 1 
1  ;;;; -*- Mode: Lisp ; Package: Interface -*-  ;;;; -*- Mode: Lisp ; Package: Interface -*-
2  ;;;  ;;;
3    ;;; **********************************************************************
4    ;;; This code was written as part of the CMU Common Lisp project at
5    ;;; Carnegie Mellon University, and has been placed in the public domain.
6    ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7    ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8    ;;;
9    ;;; **********************************************************************
10    ;;;
11    ;;; Written by Michael Garland
12    ;;;
13  ;;; This provides utilities used for building Lisp interface components  ;;; This provides utilities used for building Lisp interface components
14  ;;; using the Motif toolkit.  Specifically, it is meant to be used by the  ;;; using the Motif toolkit.  Specifically, it is meant to be used by the
15  ;;; inspector and the debugger.  ;;; inspector and the debugger.
16    ;;;
17    
18  (in-package "INTERFACE")  (in-package "INTERFACE")
19    
# Line 713  Line 724 
724        (popup-interface-pane pane))))        (popup-interface-pane pane))))
725    
726  (defun lisp-control-panel ()  (defun lisp-control-panel ()
727    (verify-system-server-exists)    (when (use-graphics-interface)
728    (multiple-value-bind (shell connection)      (verify-system-server-exists)
729                         (create-interface-shell)      (multiple-value-bind (shell connection)
730      (declare (ignore shell))                           (create-interface-shell)
731      (with-motif-connection (connection)        (declare (ignore shell))
732        (verify-control-pane-displayed))))        (with-motif-connection (connection)
733            (verify-control-pane-displayed)))))
734    
735    
736    
737    ;;;; Fix up QUIT
738    
739    (defun cleanup-motif ()
740      (when (and *system-motif-server*
741                 (ext:process-alive-p *system-motif-server*))
742        (ext:process-kill *system-motif-server* :sigint))
743    
744      (when (and xt::*local-motif-server*
745                 (ext:process-alive-p xt::*local-motif-server*))
746        (ext:process-kill xt::*local-motif-server* :sigint)))
747    
748    (in-package "LISP")
749    
750    (defun quit (&optional recklessly-p)
751      "Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is
752      non-Nil."
753      (if recklessly-p
754          (unix:unix-exit 0)
755          (progn
756            (interface::cleanup-motif)
757            (throw '%end-of-the-world nil))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5