Commit c1864fe6 authored by Raymond Toy's avatar Raymond Toy

Merge upstream demo files

[skip-ci]
parent e6f4c980
Pipeline #269 skipped
......@@ -18,9 +18,6 @@
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment "$Id: bezier.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $")
(in-package :xlib)
(export 'draw-curves)
......
......@@ -18,9 +18,6 @@
;;; express or implied warranty.
;;;
#+cmu
(ext:file-comment "$Id: beziertest.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $")
(in-package :xlib)
(defun bezier-test (host &optional (pathname "/usr/X.V11R1/extensions/test/datafile"))
......
#+cmu
(ext:file-comment "$Id: clclock.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $")
(defpackage "XCLCLOCK"
(defpackage #:xlib-demo/clclock
(:use "CL")
(:export "CLOCK"))
(in-package "XCLCLOCK")
(in-package #:xlib-demo/clclock)
(defvar *display* (xlib:open-default-display))
(defvar *screen* (xlib:display-default-screen *display*))
......
......@@ -59,14 +59,11 @@
;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
;;; DEALINGS IN THE SOFTWARE.
#+cmu
(ext:file-comment "$Id: clipboard.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $")
(defpackage "CLIPBOARD"
(defpackage #:xlib-demo/clipboard
(:use "CL" "XLIB")
(:export "MAIN"))
(in-package "CLIPBOARD")
(in-package #:xlib-demo/clipboard)
;;; This is "traditional" XLIB style; I don't really know if it's the
;;; best way -- in developing this program, style of XLIB programming
......
......@@ -6,13 +6,10 @@
;;; This file should be portable to any valid Common Lisp with CLX -- DEC 88.
;;;
#+cmu
(ext:file-comment "$Id: clx-demos.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $")
(defpackage :demos (:use :common-lisp)
(defpackage #:xlib-demo/demos (:use :common-lisp)
(:export do-all-demos demo))
(in-package :demos)
(in-package :xlib-demo/demos)
;;;; Graphic demos wrapper macro.
......@@ -39,11 +36,11 @@
(unless *display*
#+:cmu
(multiple-value-setq (*display* *screen*) (ext:open-clx-display))
#+(or sbcl allegro clisp)
#+(or sbcl allegro clisp lispworks)
(progn
(setf *display* (xlib::open-default-display))
(setf *screen* (xlib:display-default-screen *display*)))
#-(or cmu sbcl allegro clisp)
#-(or cmu sbcl allegro clisp lispworks)
(progn
;; Portable method
(setf *display* (xlib:open-display (machine-instance)))
......
This diff is collapsed.
;;; -*- Mode:Lisp; Syntax: Common-lisp; Package:XLIB; Base:10; Lowercase: Yes -*-
#+cmu
(ext:file-comment "$Id: hello.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $")
(in-package :xlib)
(defun hello-world (host &rest args &key (string "Hello World") (font "fixed"))
......
#+cmu
(ext:file-comment "$Id: mandel.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $")
(defpackage "XMANDEL"
(defpackage #:xlib-demo/mandel
(:use "CL")
(:export "NEW-WINDOW" "EVENT-LOOP"))
(in-package "XMANDEL")
(in-package #:xlib-demo/mandel)
(defvar *display* (xlib:open-default-display))
(defvar *screen* (xlib:display-default-screen *display*))
......
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