Commit 40a77d9f authored by Dave Cooper's avatar Dave Cooper

fixed dependencies for geysr.

parent e487286a
":gendl-asdf"
\ No newline at end of file
(:gwl-graphics)
\ No newline at end of file
......@@ -3,9 +3,9 @@
(asdf:defsystem #:geysr :description
"The Gendl® geysr Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20181129" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
:serial t :version "20181129" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings :gendl-asdf)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode (:gendl-asdf)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:gdl "source/package") (:gdl "source/assembly")
......
......@@ -48,12 +48,12 @@
(messages (safe-sort
(remove-if
#'(lambda (keyword)
(or (member keyword tasty::*internal-keywords*)
(and tasty::*suppress-$$-messages?*
(or (member keyword *internal-keywords*)
(and *suppress-$$-messages?*
(let ((string (string keyword)))
(and
(> (length string) 2) (string-equal (subseq string 0 2) "$$"))))
(and tasty::*suppress-%%-messages?*
(and *suppress-%%-messages?*
(let ((string (string keyword)))
(and
(> (length string) 2)
......@@ -344,8 +344,8 @@
(nconc settables (the node (message-list :category :required-input-slots)))
(sort (remove-if
#'(lambda (keyword)
(or (member keyword tasty::*internal-keywords*)
(and tasty::*suppress-%%-messages?*
(or (member keyword *internal-keywords*)
(and *suppress-%%-messages?*
(let ((string (string keyword)))
(or (and (> (length string) 2)
(string-equal (subseq string 0 2) "$$"))
......@@ -450,7 +450,7 @@
(if (null remarks)
(htm (:b (str message)))
(htm ((:span :style "cursor: arrow;"
:title (tasty::one-line (second remarks)))
:title (one-line (second remarks)))
(:b (str message))))))
(:td (str (the-object form-control form-control-string)))
))))))
......
......@@ -23,3 +23,26 @@
(defparameter *these-features* (list :geysr))
(defparameter *settings* nil)
(defparameter *internal-keywords*
(list :query-plist :aggregate :all-mixins :background-color
:base64-encoded-root-path :bashee :beziers :bounding-bbox
:check-sanity? :color-decimal :color-hex :color-palette :cookies-received
:cookies-to-send :dash-pattern :dom-id :fill-color-decimal
:fixed-url-prefix :header-plist :home-page :instance-id
:last-visited-root-path :left-handed? ;;:local-bbox :local-box
:local-center :local-left-handed? :local-orientation :inner-html
:obliqueness :parent-tree :plain-url? :possible-nils
:quantify-box :query-toplevel :refresh-toggle :remote-id :respondent
:return-object :root-path-string :target :time-instantiated
:time-last-touched :transitory-slots :tree-root
:url-encoded-root-path :use-local-box? :viewable-slots
:viewpoints :visible-children :vrml-center))
(defparameter *suppress-%%-messages?* t "Boolean. Set to nil if you want to see messages starting and ending with %% in tasty inspector. Defaults to t.")
(defparameter *suppress-$$-messages?* t "Boolean. Set to nil if you want to see messages starting with $$ in tasty inspector. Defaults to t.")
(defun one-line (string)
(glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" ))
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