Commit 38218e53 authored by Dave Cooper's avatar Dave Cooper

fixed package in general-note example

parent 2e8a2e96
......@@ -160,8 +160,9 @@ written consent from Genworks International.")
(defun make-html-and-css (&key (output-directory (merge-pathnames "tmp/" (user-homedir-pathname)))
(html-output-file-namestring "tutorial.html")
(css-output-file-namestring "tutorial.css"))
(make-html :output-directory output-directory
:output-file-namestring html-output-file-namestring)
(make-css :output-directory output-directory
:output-file-namestring css-output-file-namestring))
(css-output-file-namestring "tutorial.css"))
(let ((html-path (make-html :output-directory output-directory
:output-file-namestring html-output-file-namestring))
(css-path (make-css :output-directory output-directory
:output-file-namestring css-output-file-namestring)))
(values html-path css-path)))
......@@ -32,6 +32,8 @@
(define-object general-note (outline-specialization-mixin base-object)
:documentation (:description "Creates a text note in the graphical view port and in a PDF DXF output file."
:examples "<pre>
(in-package :gdl-user)
(define-object general-note-test (base-object)
:computed-slots
......
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