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

Contents of /src/interface/initial.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sun Aug 22 20:31:36 1993 UTC (20 years, 7 months ago) by wlott
Branch: MAIN
Changes since 1.2: +2 -1 lines
Shadow CLASS-DIRECT-SUPERCLASSES because both kernel and pcl want to export
it and we want to use them both.
1 ;;; -*- Package: User -*-
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 (ext:file-comment
10 "$Header: /tiger/var/lib/cvsroots/cmucl/src/interface/initial.lisp,v 1.3 1993/08/22 20:31:36 wlott Exp $")
11 ;;;
12 ;;; **********************************************************************
13 ;;;
14 (in-package "USER")
15
16 (pushnew :motif *features*)
17
18 (setf (getf ext:*herald-items* :motif)
19 `(" Motif toolkit and graphical debugger 1.0"))
20
21 (defpackage "INTERFACE"
22 (:use "TOOLKIT" "LISP" "PCL" "EXTENSIONS" "KERNEL")
23 (:shadow "CLASS-DIRECT-SUPERCLASSES")
24 (:export "*HEADER-FONT*" "*ITALIC-FONT*" "*ENTRY-FONT*" "*INTERFACE-STYLE*"
25 "USE-GRAPHICS-INTERFACE" "VERIFY-SYSTEM-SERVER-EXISTS"
26 "CREATE-INTERFACE-SHELL" "POPUP-INTERFACE-PANE"
27 "CREATE-INTERFACE-PANE-SHELL" "FIND-INTERFACE-PANE"
28 "DESTROY-INTERFACE-PANE" "CREATE-HIGHLIGHT-BUTTON" "CREATE-VALUE-BOX"
29 "SET-VALUE-BOX" "WITH-WIDGET-CHILDREN" "INTERFACE-ERROR"
30 "PRINT-FOR-WIDGET-DISPLAY" "WITH-BUSY-CURSOR"
31 "CREATE-INTERFACE-MENU" "CREATE-CACHED-MENU"
32 "GRAB-OUTPUT-AS-STRING" "*ALL-FONTS*" "LISP-CONTROL-PANEL"))

  ViewVC Help
Powered by ViewVC 1.1.5