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

Contents of /src/interface/initial.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6.2.1 - (hide annotations)
Sat May 22 12:13:43 2004 UTC (9 years, 10 months ago) by rtoy
Branch: UNICODE-BRANCH
Changes since 1.6: +2 -2 lines
Perform trivial merge from head to unicode-branch.
1 ram 1.2 ;;; -*- Package: User -*-
2 garland 1.1 ;;;
3 ram 1.2 ;;; **********************************************************************
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     ;;;
7     (ext:file-comment
8 rtoy 1.6.2.1 "$Header: /tiger/var/lib/cvsroots/cmucl/src/interface/initial.lisp,v 1.6.2.1 2004/05/22 12:13:43 rtoy Exp $")
9 ram 1.2 ;;;
10     ;;; **********************************************************************
11     ;;;
12 rtoy 1.6.2.1 (in-package "CL-USER")
13 garland 1.1
14 ram 1.2 (pushnew :motif *features*)
15    
16     (setf (getf ext:*herald-items* :motif)
17     `(" Motif toolkit and graphical debugger 1.0"))
18 pmai 1.6
19     (provide :clm)
20 garland 1.1
21     (defpackage "INTERFACE"
22 ram 1.4 (:use "TOOLKIT" "LISP" "EXTENSIONS" "KERNEL")
23 wlott 1.3 (:shadow "CLASS-DIRECT-SUPERCLASSES")
24 garland 1.1 (: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