Commit b503ad5a by David O'Toole

add proper file headers

parent df223f5d
;; Captions and labels (commands.lisp)
;;; commands.lisp --- more operations
;; Copyright (C) 2006-2017 David O'Toole
;; Author: David O'Toole <dto@xelf.me>
;; Keywords: games, gui
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; Package declaration
(in-package :xelf)
;; Captions and labels
(defmethod set-caption-string ((self node) caption)
(assert (stringp caption))
(setf (slot-value self 'caption) caption))
......
;;; gui.lisp --- smalltalk-inspired GUI toolkit for Xelf
;; Copyright (C) 2006-2017 David O'Toole
;; Author: David O'Toole <dto@xelf.me>
;; Keywords: games, gui
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; Package declaration
(in-package :xelf)
......@@ -4256,3 +4275,5 @@ See sidebar for more commands to try.
(when (and (< left x right)
(< top y bottom))
(draw-highlight self)))))))
;;; gui.lisp ends here
;;; Shell workspace (shell.lisp)
;;; shell.lisp --- command shell for xelf
;; Copyright (C) 2006-2017 David O'Toole
;; Author: David O'Toole <dto@xelf.me>
;; Keywords: games, gui
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; Package declaration
(in-package :xelf)
......@@ -233,3 +252,5 @@
(defun create-shell-maybe ()
(when (null *shell*)
(setf *shell* (make-instance 'shell))))
;;; shell.lisp ends here
(defpackage #:squareball
(:use #:cl #:xelf)
(:export squareball))
......@@ -32,8 +34,6 @@ directory included with this application.
")
;; The function SHOW-COPYRIGHT-NOTICE uses [[file:dictionary/MESSAGE.html][MESSAGE]] to print the
;; successive lines of text. The output can be seen in the REPL or in
;; your game's STANDARD-OUTPUT stream. The Xelf Terminal is an in-game
......
;; Lisp package
;;; xelf.lisp --- game engine for common lisp
;; Copyright (C) 2006-2017 David O'Toole
;; Author: David O'Toole <dto@xelf.me>
;; Keywords: games
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation, either version 3 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Lisp package
;; Here we declare the rest of this file to be in the Xelf package. The
;; actual package definition is stored in the accompanying file
......@@ -9,7 +29,7 @@
;;; Xelf version information
;; We use a string to identify the current version of Xelf. To test
;; compatibilty, use the integer [[file:dictionary/_XELF-SERIES_.html][*XELF-SERIES*]].
;; compatibilty, use the integer `*XELF-SERIES*'.
(defvar *xelf-version* "4.8"
"A string giving the version number of Xelf.")
......@@ -6203,3 +6223,5 @@ Returns a newly allocated list."
(when name
(at-next-update
(start-alone (find-buffer name))))))
;;; xelf.lisp ends here
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