Commit 7c39282e authored by Dave Cooper's avatar Dave Cooper

doing local runtime builds

parent fd66f3f9
......@@ -28,10 +28,11 @@
:no-vanilla-mixin? t
:documentation (:description "Vanilla-Mixin is automatically inherited by every object
created in GDL. It provides basic messages which are common to all GDL objects defined
with the define-object macro, unless <tt>:no-vanilla-mixin t</tt> is specified at the toplevel
of the define-object form.")
:documentation (:description "Vanilla-Mixin is automatically
inherited by every object created in GDL. It provides basic messages
which are common to all GDL objects defined with the define-object
macro, unless <tt>:no-vanilla-mixin t</tt> is specified at the
toplevel of the define-object form.")
:input-slots
(
......@@ -46,21 +47,24 @@ of the define-object form.")
(%aggregate% nil)
(%index% nil)
("String or List of Strings. Determines how the name of objects of this type will be printed in most places.
This defaults to the name-for-display (generally the part's name as specified in its
parent), followed by an index number if the part is an element of a sequence."
strings-for-display (format nil "~a~a~a" (the :name-for-display)
("String or List of Strings. Determines how the name of objects of
this type will be printed in most places. This defaults to the
name-for-display (generally the part's name as specified in its
parent), followed by an index number if the part is an element of a
sequence." strings-for-display (format
nil "~a~a~a" (the :name-for-display)
(if (the :index) " " "")
(or (the :index) "")))
(parent-tree nil)
("List of GDL Instances. Additional objects to display in Tatu tree. Typically this would be a subset of hidden-children. Defaults to NIL."
("List of GDL Instances. Additional objects to display in Tatu
tree. Typically this would be a subset of
hidden-children. Defaults to NIL."
visible-children nil)
("GDL Instance. The root-level node in this object's ``tree'' (instance hierarchy)."
root (if (the :parent) (the :parent :root) self))
......@@ -427,6 +431,10 @@ reading from databases or external files). Defaults to nil.\")"
(unless (funcall equality-function value current)
(the (set-slot! slot value :remember? remember?)))))))
;;
;; FLAG -- notify trobertson@whitebox.com if any changes to %version-tree% structure!!
;;
("NIL. Forcibly sets the value of the given slot to the given value. The slot must be defined
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140227" :depends-on (:gwl-graphics)
:serial t :version "20140227" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
(:gwl-graphics)
\ No newline at end of file
nil ;;(:gwl-graphics)
\ No newline at end of file
(:gwl-graphics)
\ No newline at end of file
() ;;(:gwl-graphics)
\ No newline at end of file
......@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140227" :depends-on (:gwl-graphics)
:version "20140227" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
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