diff --git a/source/clog-base.lisp b/source/clog-base.lisp index 7060d7c..b5f466d 100644 --- a/source/clog-base.lisp +++ b/source/clog-base.lisp @@ -378,15 +378,14 @@ result or if time out DEFAULT-ANSWER. see JQUERY-QUERY (Internal)")) (jquery-query obj (format nil "prop('~A')" property-name) :default-answer default-answer)) -(defgeneric set-property (clog-obj property-name value) +(defgeneric (setf property) (value clog-obj property-name) (:documentation "Set html property.")) -(defmethod set-property ((obj clog-obj) property-name value) +(defmethod (setf property) (value (obj clog-obj) property-name) (jquery-execute obj (format nil "prop('~A','~A')" property-name (escape-string value))) value) -(defsetf property set-property) ;;;;;;;;;;;; ;; height ;; @@ -398,13 +397,12 @@ result or if time out DEFAULT-ANSWER. see JQUERY-QUERY (Internal)")) (defmethod height ((obj clog-obj)) (parse-integer (jquery-query obj "height()" :default-answer 0) :junk-allowed t)) -(defgeneric set-height (clog-obj value) +(defgeneric (setf height) (value clog-obj) (:documentation "Set height VALUE for CLOG-OBJ")) -(defmethod set-height ((obj clog-obj) value) +(defmethod (setf height) (value (obj clog-obj)) (jquery-execute obj (format nil "height('~A')" (escape-string value))) value) -(defsetf height set-height) ;;;;;;;;;;; ;; width ;; @@ -416,13 +414,12 @@ result or if time out DEFAULT-ANSWER. see JQUERY-QUERY (Internal)")) (defmethod width ((obj clog-obj)) (parse-integer (jquery-query obj "width()" :default-answer 0) :junk-allowed t)) -(defgeneric set-width (clog-obj value) +(defgeneric (setf width) (value clog-obj) (:documentation "Set width VALUE for CLOG-OBJ")) -(defmethod set-width ((obj clog-obj) value) +(defmethod (setf width) (value (obj clog-obj)) (jquery-execute obj (format nil "width('~A')" (escape-string value))) value) -(defsetf width set-width) ;;;;;;;;;;; ;; focus ;; @@ -504,24 +501,23 @@ an application share per connection the same queue of serialized events." ;;;;;;;;;;;;;;;;;;;;;;;;;; (defgeneric connection-data-item (clog-obj item-name) - (:documentation "Get/Setf from connection-data the item-name in hash.")) + (:documentation "Get/Setf item-name from connection-data.")) (defmethod connection-data-item ((obj clog-obj) item-name) (ignore-errors (gethash item-name (connection-data obj)))) -(defgeneric set-connection-data-item (clog-obj item-name value) - (:documentation "Set in connection-data the item-name with value.")) +(defgeneric (setf connection-data-item) (value clog-obj item-name) + (:documentation "Set connection-data item-name with value.")) -(defmethod set-connection-data-item ((obj clog-obj) item-name value) +(defmethod (setf connection-data-item) (value (obj clog-obj) item-name) (bordeaux-threads:with-lock-held ((connection-data-mutex obj)) (ignore-errors (setf (gethash item-name (connection-data obj)) value))) value) -(defsetf connection-data-item set-connection-data-item) (defgeneric remove-connection-data-item (clog-obj item-name) - (:documentation "Remove from connection-data the item-name in hash.")) + (:documentation "Remove item-name from connection-data.")) (defmethod remove-connection-data-item ((obj clog-obj) item-name) (bordeaux-threads:with-lock-held ((connection-data-mutex obj)) diff --git a/source/clog-document.lisp b/source/clog-document.lisp index d7779c0..784e759 100644 --- a/source/clog-document.lisp +++ b/source/clog-document.lisp @@ -119,13 +119,12 @@ clog-document object. (Private)")) (defmethod title ((obj clog-document)) (query obj "title")) -(defgeneric set-title (clog-document value)) +(defgeneric (setf title) (value clog-document)) -(defmethod set-title ((obj clog-document) value) +(defmethod (setf title) (value (obj clog-document)) (execute obj (format nil "title='~A'" (clog-connection:escape-string value))) value) -(defsetf title set-title) ;;;;;;;;;;;;;;;;;; ;; document-url ;; diff --git a/source/clog-element-common.lisp b/source/clog-element-common.lisp index 23a4a11..2584bbf 100644 --- a/source/clog-element-common.lisp +++ b/source/clog-element-common.lisp @@ -65,12 +65,11 @@ place-inside-bottom-of CLOG-OBJ. (defmethod link ((obj clog-a)) (property obj "href")) -(defgeneric set-link (clog-a value) +(defgeneric (setf link) (value clog-a) (:documentation "Set link VALUE for CLOG-A")) -(defmethod set-link ((obj clog-a) value) +(defmethod (setf link) (value (obj clog-a)) (setf (property obj "href") value)) -(defsetf link set-link) ;;;;;;;;;;;; ;; target ;; @@ -82,12 +81,11 @@ place-inside-bottom-of CLOG-OBJ. (defmethod target ((obj clog-a)) (property obj "target")) -(defgeneric set-target (clog-a value) +(defgeneric (setf target) (value clog-a) (:documentation "Set target VALUE for CLOG-A")) -(defmethod set-target ((obj clog-a) value) +(defmethod (setf targe)t (value (obj clog-a)) (setf (property obj "target") value)) -(defsetf target set-target) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-br @@ -167,14 +165,13 @@ CLOG-OBJ")) (defmethod disabledp ((obj clog-button)) (js-true-p (property obj "disabled"))) -(defgeneric set-disabledp (clog-button value) +(defgeneric (setf disabledp) (value clog-button) (:documentation "Set editable VALUE for CLOG-BUTTON")) -(defmethod set-disabledp ((obj clog-button) value) +(defmethod (setf disabledp) (value (obj clog-button)) (if value (setf (property obj "disabled") (p-true-js value)) (remove-attribute obj "disabled"))) -(defsetf disabledp set-editable) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-div @@ -259,12 +256,11 @@ firefox and dialog does not work at all on IE.")) (defmethod return-value ((obj clog-dialog)) (property obj "returnValue")) -(defgeneric set-return-value (clog-dialog value) +(defgeneric (setf return-value) (value clog-dialog) (:documentation "Set return-value VALUE for CLOG-DIALOG")) -(defmethod set-return-value ((obj clog-dialog) value) +(defmethod (setf return-value) (value (obj clog-dialog)) (setf (property obj "returnValue") value)) -(defsetf return-value set-return-value) ;;;;;;;;;;;;;;;;;; ;; dialog-openp ;; @@ -277,14 +273,13 @@ firefox and dialog does not work at all on IE.")) (unless (equalp (attribute obj "open") "undefined") t)) -(defgeneric set-dialog-openp (clog-dialog value) +(defgeneric (setf dialog-openp) (value clog-dialog) (:documentation "Set dialog-openp VALUE for CLOG-DIALOG")) -(defmethod set-dialog-openp ((obj clog-dialog) value) +(defmethod (setf dialog-openp) (value (obj clog-dialog)) (if value (setf (attribute obj "open") t) (remove-attribute obj "open"))) -(defsetf dialog-openp set-dialog-openp) ;;;;;;;;;;;;;;;;; ;; show-dialog ;; @@ -393,12 +388,11 @@ placing image to constrain image size.")) (defmethod url-src ((obj clog-img)) (property obj "src")) -(defgeneric set-url-src (clog-img value) +(defgeneric (setf url-src) (value clog-img) (:documentation "Set url-src VALUE for CLOG-IMG")) -(defmethod set-url-src ((obj clog-img) value) +(defmethod (setf url-src) (value (obj clog-img)) (setf (property obj "src") value)) -(defsetf url-src set-url-src) ;;;;;;;;;;;;;; ;; alt-text ;; @@ -410,12 +404,11 @@ placing image to constrain image size.")) (defmethod alt-text ((obj clog-img)) (attribute obj "alt")) -(defgeneric set-alt-text (clog-img value) +(defgeneric (setf alt-text) (value clog-img) (:documentation "Set alt-text VALUE for CLOG-IMG")) -(defmethod set-alt-text ((obj clog-img) value) +(defmethod (setf alt-text) (value (obj clog-img)) (setf (attribute obj "alt") value)) -(defsetf alt-text set-alt-text) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-meter @@ -472,9 +465,8 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod value ((obj clog-meter)) (property obj "value")) -(defmethod set-value ((obj clog-meter) value) +(defmethod (setf value) (value (obj clog-meter)) (setf (property obj "value") value)) -(defsetf value set-value) ;;;;;;;;;;;;;;;; ;; text-value ;; @@ -496,12 +488,11 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod high ((obj clog-meter)) (property obj "high")) -(defgeneric set-high (clog-meter high) - (:documentation "Set high HIGH for CLOG-METER")) +(defgeneric (setf high) (high clog-meter) + (:documentation "Set HIGH for CLOG-METER")) -(defmethod set-high ((obj clog-meter) high) +(defmethod (setf high) (high (obj clog-meter)) (setf (property obj "high") high)) -(defsetf high set-high) ;;;;;;;;; ;; low ;; @@ -513,12 +504,11 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod low ((obj clog-meter)) (property obj "low")) -(defgeneric set-low (clog-meter low) - (:documentation "Set low LOW for CLOG-METER")) +(defgeneric (setf low) (low clog-meter) + (:documentation "Set LOW for CLOG-METER")) -(defmethod set-low ((obj clog-meter) low) +(defmethod (setf low) (low (obj clog-meter)) (setf (property obj "low") low)) -(defsetf low set-low) ;;;;;;;;;;;;; ;; maximum ;; @@ -530,12 +520,11 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod maximum ((obj clog-meter)) (property obj "max")) -(defgeneric set-maximum (clog-meter maximum) +(defgeneric (setf maximum) (maximum clog-meter) (:documentation "Set maximum MAXIMUM for CLOG-METER")) -(defmethod set-maximum ((obj clog-meter) maximum) +(defmethod (setf maximum) (maximum (obj clog-meter)) (setf (property obj "max") maximum)) -(defsetf maximum set-maximum) ;;;;;;;;;;;;; ;; minimum ;; @@ -547,12 +536,12 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod minimum ((obj clog-meter)) (property obj "min")) -(defgeneric set-minimum (clog-meter minimum) +(defgeneric (setf minimum) (minimum clog-meter) (:documentation "Set minimum MINIMUM for CLOG-METER")) -(defmethod set-minimum ((obj clog-meter) minimum) +(defmethod (setf minimum) (minimum (obj clog-meter)) (setf (property obj "min") minimum)) -(defsetf minimum set-minimum) + ;;;;;;;;;;;;; ;; optimum ;; @@ -564,12 +553,11 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod optimum ((obj clog-meter)) (property obj "optimum")) -(defgeneric set-optimum (clog-meter optimum) +(defgeneric (setf optimum) (optimum clog-meter) (:documentation "Set optimum OPTIMUM for CLOG-METER")) -(defmethod set-optimum ((obj clog-meter) optimum) +(defmethod (setf optimum) (optimum (obj clog-meter)) (setf (property obj "optimum") optimum)) -(defsetf optimum set-optimum) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-progress-bar @@ -616,9 +604,8 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod value ((obj clog-progress-bar)) (property obj "value")) -(defmethod set-value ((obj clog-progress-bar) value) +(defmethod (setf value) (value (obj clog-progress-bar)) (setf (property obj "value") value)) -(defsetf value set-value) ;;;;;;;;;;;;;;;; ;; text-value ;; @@ -640,12 +627,11 @@ place-inside-bottom-of CLOG-OBJ.")) (defmethod maximum ((obj clog-progress-bar)) (property obj "max")) -(defgeneric set-maximum (clog-progress-bar maximum) +(defgeneric (setf maximum) (maximum clog-progress-bar) (:documentation "Set maximum MAXIMUM for CLOG-PROGRESS-BAR")) -(defmethod set-maximum ((obj clog-progress-bar) maximum) +(defmethod (setf maximum) (maximum (obj clog-progress-bar)) (setf (property obj "max") maximum)) -(defsetf maximum set-maximum) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-p @@ -877,12 +863,11 @@ LIST-KIND-TYPE - (defmethod list-kind ((obj clog-ordered-list)) (style obj "list-style-type")) -(defgeneric set-list-kind (clog-ordered-list value) +(defgeneric (setf list-kind) (value clog-ordered-list) (:documentation "Set list-kind VALUE for CLOG-ORDERED-LIST")) -(defmethod set-list-kind ((obj clog-ordered-list) value) +(defmethod (setf list-kind) (value (obj clog-ordered-list)) (setf (style obj "list-style-type") value)) -(defsetf list-kind set-list-kind) ;;;;;;;;;;;;;;;;;;; ;; list-location ;; @@ -897,12 +882,11 @@ Default is outside.")) (defmethod list-location ((obj clog-ordered-list)) (style obj "list-style-position")) -(defgeneric set-list-location (clog-ordered-list value) +(defgeneric (setf list-location) (value clog-ordered-list) (:documentation "Set list-location VALUE for CLOG-ORDERED-LIST")) -(defmethod set-list-location ((obj clog-ordered-list) value) +(defmethod (setf list-location) (value (obj clog-ordered-list)) (setf (style obj "list-style-position") value)) -(defsetf list-location set-list-location) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-unordered-list @@ -982,12 +966,11 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) (defmethod item-value ((obj clog-list-item)) (property obj "value")) -(defgeneric set-item-value (clog-list-item value) +(defgeneric (setf item-value) (value clog-list-item) (:documentation "Set item-value VALUE for CLOG-LIST-ITEM")) -(defmethod set-item-value ((obj clog-list-item) value) +(defmethod (setf item-value) (value (obj clog-list-item)) (setf (property obj "value") value)) -(defsetf item-value set-item-value) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-definition-list @@ -1494,14 +1477,13 @@ CLOG-OBJ. If hidden is true visiblep is set to nil.")) (unless (equalp (attribute obj "open") "undefined") t)) -(defgeneric set-details-openp (clog-details value) +(defgeneric (setf details-openp) (value clog-details) (:documentation "Set details-openp VALUE for CLOG-DETAILS")) -(defmethod set-details-openp ((obj clog-details) value) +(defmethod (setf details-openp) (value (obj clog-details)) (if value (setf (attribute obj "open") t) (remove-attribute obj "open"))) -(defsetf details-openp set-details-openp) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-summary diff --git a/source/clog-element.lisp b/source/clog-element.lisp index 72a7107..7eee63d 100644 --- a/source/clog-element.lisp +++ b/source/clog-element.lisp @@ -122,14 +122,13 @@ after attachment is changed to one unique to this session.")) (jquery-query obj (format nil "css('~A')" style-name) :default-answer default-answer)) -(defgeneric set-style (clog-element style-name value) +(defgeneric (setf style) (value clog-element style-name) (:documentation "Set css style.")) -(defmethod set-style ((obj clog-element) style-name value) +(defmethod (setf style) (value (obj clog-element) style-name) (jquery-execute obj (format nil "css('~A','~A')" style-name (escape-string value))) value) -(defsetf style set-style) (defgeneric set-styles (clog-element style-list) (:documentation "Set css styles using a list of lists of name value pairs.")) @@ -163,14 +162,13 @@ after attachment is changed to one unique to this session.")) (jquery-execute obj (format nil "removeAttr('~A')" attribute-name)) attribute-name) -(defgeneric set-attribute (clog-element attribute-name value) +(defgeneric (setf attribute) (value clog-element attribute-name) (:documentation "Set html tag attribute.")) -(defmethod set-attribute ((obj clog-element) attribute-name value) +(defmethod (setf attribute) (value (obj clog-element) attribute-name) (jquery-execute obj (format nil "attr('~A','~A')" attribute-name (escape-string value))) value) -(defsetf attribute set-attribute) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Placement - clog-element @@ -245,12 +243,11 @@ after attachment is changed to one unique to this session.")) (defmethod access-key ((obj clog-element)) (property obj "accessKey")) -(defgeneric set-access-key (clog-element value) +(defgeneric (setf access-key) (value clog-element) (:documentation "Set access-key VALUE for CLOG-ELEMENT")) -(defmethod set-access-key ((obj clog-element) value) +(defmethod (setf access-key) (value (obj clog-element)) (setf (property obj "accessKey") value)) -(defsetf access-key set-access-key) ;;;;;;;;;;;;;;;;;;;; ;; advisory-title ;; @@ -264,12 +261,11 @@ elements a tool tip.")) (defmethod advisory-title ((obj clog-element)) (property obj "title")) -(defgeneric set-advisory-title (clog-element value) +(defgeneric (setf advisory-title) (value clog-element) (:documentation "Set advisory-title VALUE for CLOG-ELEMENT")) -(defmethod set-advisory-title ((obj clog-element) value) +(defmethod (setf advisory-title) (value (obj clog-element)) (setf (property obj "title") value)) -(defsetf advisory-title set-advisory-title) ;;;;;;;;;;;;;;;;;;;; ;; css-class-name ;; @@ -283,12 +279,11 @@ for adding and removing individual or groups of classes in an easier way.")) (defmethod css-class-name ((obj clog-element)) (property obj "className")) -(defgeneric set-css-class-name (clog-element value) +(defgeneric (setf css-class-name) (value clog-element) (:documentation "Set css-class-name VALUE for CLOG-ELEMENT")) -(defmethod set-css-class-name ((obj clog-element) value) +(defmethod (setf css-class-name) (value (obj clog-element)) (setf (property obj "className") value)) -(defsetf css-class-name set-css-class-name) ;;;;;;;;;;;;;;; ;; editablep ;; @@ -301,12 +296,11 @@ content editable, even non-form types in most browsers.")) (defmethod editablep ((obj clog-element)) (js-true-p (property obj "isContentEditable"))) -(defgeneric set-editablep (clog-element value) +(defgeneric (setf editablep) (value clog-element) (:documentation "Set editable VALUE for CLOG-ELEMENT")) -(defmethod set-editablep ((obj clog-element) value) +(defmethod (setf editablep) (value (obj clog-element)) (setf (property obj "contentEditable") (p-true-js value))) -(defsetf editablep set-editablep) ;;;;;;;;;;;;;;;; ;; draggablep ;; @@ -321,12 +315,11 @@ See clog-base.lisp")) (defmethod draggablep ((obj clog-element)) (js-true-p (property obj "draggable"))) -(defgeneric set-draggablep (clog-element value) +(defgeneric (setf draggablep) (value clog-element) (:documentation "Set draggablep VALUE for CLOG-ELEMENT")) -(defmethod set-draggablep ((obj clog-element) value) +(defmethod (setf draggablep) (value (obj clog-element)) (setf (property obj "draggable") (p-true-js value))) -(defsetf draggablep set-draggablep) ;;;;;;;;;;;;; ;; hiddenp ;; @@ -342,14 +335,13 @@ setting display (None).")) (unless (equalp (attribute obj "hidden") "undefined") t)) -(defgeneric set-hiddenp (clog-element value) +(defgeneric (setf hiddenp) (value clog-element) (:documentation "Set hiddenp VALUE for CLOG-ELEMENT")) -(defmethod set-hiddenp ((obj clog-element) value) +(defmethod (setf hiddenp) (value (obj clog-element)) (if value (setf (attribute obj "hidden") t) (remove-attribute obj "hidden"))) -(defsetf hiddenp set-hiddenp) ;;;;;;;;;;;;;; ;; visiblep ;; @@ -367,14 +359,13 @@ Note: that each property, visiblep, hiddenp and display (None) all work (defmethod visiblep ((obj clog-element)) (equalp (style obj "visibility") "visible")) -(defgeneric set-visiblep (clog-element value) +(defgeneric (setf visiblep) (value clog-element) (:documentation "Set visiblep VALUE for CLOG-ELEMENT")) -(defmethod set-visiblep ((obj clog-element) value) +(defmethod (setf visiblep) (value (obj clog-element)) (if value (setf (style obj "visibility") "visible") (setf (style obj "visibility") "hidden"))) -(defsetf visiblep set-visiblep) ;;;;;;;;;;;;;;;; ;; inner-html ;; @@ -391,13 +382,12 @@ lost forever.")) (defmethod inner-html ((obj clog-element)) (jquery-query obj "html()")) -(defgeneric set-inner-html (clog-element value) +(defgeneric (setf inner-html) (value clog-element) (:documentation "Set inner-html VALUE for CLOG-ELEMENT")) -(defmethod set-inner-html ((obj clog-element) value) +(defmethod (setf inner-html) (value (obj clog-element)) (jquery-execute obj (format nil "html('~A')" (escape-string value))) value) -(defsetf inner-html set-inner-html) ;;;;;;;;;;;;;;;; ;; outer-html ;; @@ -421,12 +411,11 @@ spell checking if Editable is also true.")) (defmethod spellcheckp ((obj clog-element)) (js-true-p (attribute obj "spellcheck"))) -(defgeneric set-spellcheckp (clog-element value) +(defgeneric (setf spellcheckp) (value clog-element) (:documentation "Set spellcheckp VALUE for CLOG-ELEMENT")) -(defmethod set-spellcheckp ((obj clog-element) value) +(defmethod (setf spellcheckp) (value (obj clog-element)) (setf (attribute obj "spellcheck") (p-true-js value))) -(defsetf spellcheckp set-spellcheckp) ;;;;;;;;;;;;;;; ;; tab-index ;; @@ -440,12 +429,11 @@ Normally index follows normal sequence of elements.")) (defmethod tab-index ((obj clog-element)) (property obj "tabindex")) -(defgeneric set-tab-index (clog-element value) +(defgeneric (setf tab-index) (value clog-element) (:documentation "Set tab-index VALUE for CLOG-ELEMENT")) -(defmethod set-tab-index ((obj clog-element) value) +(defmethod (setf tab-index) (value (obj clog-element)) (setf (property obj "tabindex") value)) -(defsetf tab-index set-tab-index) ;;;;;;;;;; ;; text ;; @@ -463,13 +451,12 @@ Normally index follows normal sequence of elements.")) (defmethod text ((obj clog-element)) (jquery-query obj "text()")) -(defgeneric set-text (clog-element value) +(defgeneric (setf text) (value clog-element) (:documentation "Set text VALUE for CLOG-ELEMENT")) -(defmethod set-text ((obj clog-element) value) +(defmethod (setf text) (value (obj clog-element)) (jquery-execute obj (format nil "text('~A')" (escape-string value))) value) -(defsetf text set-text) ;;;;;;;;;;;;;;;; ;; text-value ;; @@ -504,12 +491,11 @@ Additionally for forms get/setf the value.")) (defmethod text-direction ((obj clog-element)) (property obj "dir")) -(defgeneric set-text-direction (clog-element value) +(defgeneric (setf text-direction) (value clog-element) (:documentation "Set text-direction VALUE for CLOG-ELEMENT")) -(defmethod set-text-direction ((obj clog-element) value) +(defmethod (setf text-direction) (value (obj clog-element)) (setf (property obj "dir") value)) -(defsetf text-direction set-text-direction) ;;;;;;;;;;;;;;;;;;; ;; language-code ;; @@ -521,12 +507,11 @@ Additionally for forms get/setf the value.")) (defmethod language-code ((obj clog-element)) (property obj "lang")) -(defgeneric set-language-code (clog-element value) +(defgeneric (setf language-code) (value clog-element) (:documentation "Set language-code VALUE for CLOG-ELEMENT")) -(defmethod set-language-code ((obj clog-element) value) +(defmethod (setf language-code) (value (obj clog-element)) (setf (property obj "lang") value)) -(defsetf language-code set-language-code) ;;;;;;;;;;;;;;;;;;; ;; position-left ;; @@ -658,12 +643,11 @@ content is scrolled to the left. For RTL languages is negative.")) (parse-integer (property obj "scrollLeft" :default-answer 0) :junk-allowed t)) -(defgeneric set-scroll-left (clog-element value) +(defgeneric (setf scroll-left) (value clog-element) (:documentation "Set scroll-left VALUE for CLOG-ELEMENT")) -(defmethod set-scroll-left ((obj clog-element) value) +(defmethod (setf scroll-left) (value (obj clog-element)) (setf (property obj "scrollLeft") value)) -(defsetf scroll-left set-scroll-left) ;;;;;;;;;;;;;;;; ;; scroll-top ;; @@ -677,12 +661,11 @@ content has been scrolled upward.")) (parse-integer (property obj "scrollTop" :default-answer 0) :junk-allowed t)) -(defgeneric set-scroll-top (clog-element value) +(defgeneric (setf scroll-top) (value clog-element) (:documentation "Set scroll-top VALUE for CLOG-ELEMENT")) -(defmethod set-scroll-top ((obj clog-element) value) +(defmethod (setf scroll-top) (value (obj clog-element)) (setf (property obj "scrollTop") value)) -(defsetf scroll-top set-scroll-top) ;;;;;;;;;;;;;;;;;; ;; scroll-width ;; @@ -736,12 +719,11 @@ scroll and conent area as a whole. The default is content-box")) (defmethod box-sizing ((obj clog-element)) (style obj "box-sizing")) -(defgeneric set-box-sizing (clog-element value) +(defgeneric (setf box-sizing) (value clog-element) (:documentation "Set box-sizing VALUE for CLOG-ELEMENT")) -(defmethod set-box-sizing ((obj clog-element) value) +(defmethod (setf box-sizing) (value (obj clog-element)) (setf (style obj "box-sizing") value)) -(defsetf box-sizing set-box-sizing) ;;;;;;;;;;;;;;;; ;; clear-side ;; @@ -757,12 +739,11 @@ if the right or left side of block should be clear of any 'floated' Element.")) (defmethod clear-side ((obj clog-element)) (style obj "clear")) -(defgeneric set-clear-side (clog-element value) +(defgeneric (setf clear-side) (value clog-element) (:documentation "Set clear-side VALUE for CLOG-ELEMENT")) -(defmethod set-clear-side ((obj clog-element) value) +(defmethod (setf clear-side) (value (obj clog-element)) (setf (style obj "clear") value)) -(defsetf clear-side set-clear-side) ;;;;;;;;;;;;;;;; ;; float-wrap ;; @@ -778,12 +759,11 @@ elements wrap around it.")) (defmethod float-wrap ((obj clog-element)) (style obj "float")) -(defgeneric set-float-wrap (clog-element value) +(defgeneric (setf float-wrap) (value clog-element) (:documentation "Set float-wrap VALUE for CLOG-ELEMENT")) -(defmethod set-float-wrap ((obj clog-element) value) +(defmethod (setf float-wrap) (value (obj clog-element)) (setf (style obj "float") value)) -(defsetf float-wrap set-float-wrap) ;;;;;;;;;;;;; ;; display ;; @@ -863,12 +843,11 @@ handles how elements are treated by the browser layout engine. (defmethod display ((obj clog-element)) (style obj "display")) -(defgeneric set-display (clog-element value) +(defgeneric (setf display) (value clog-element) (:documentation "Set display VALUE for CLOG-ELEMENT")) -(defmethod set-display ((obj clog-element) value) +(defmethod (setf display) (value (obj clog-element)) (setf (style obj "display") value)) -(defsetf display set-display) ;;;;;;;;;;; ;; order ;; @@ -881,12 +860,11 @@ not actual order in document or tab order etc.")) (defmethod order ((obj clog-element)) (style obj "order")) -(defgeneric set-order (clog-element value) +(defgeneric (setf order) (value clog-element) (:documentation "Set order VALUE for CLOG-ELEMENT")) -(defmethod set-order ((obj clog-element) value) +(defmethod (setf order) (value (obj clog-element)) (setf (style obj "order") value)) -(defsetf order set-order) ;;;;;;;;;; ;; flex ;; @@ -921,12 +899,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod flex-wrap ((obj clog-element)) (style obj "flex-wrap")) -(defgeneric set-flex-wrap (clog-element value) +(defgeneric (setf flex-wrap) (value clog-element) (:documentation "Set flex-wrap VALUE for CLOG-ELEMENT")) -(defmethod set-flex-wrap ((obj clog-element) value) +(defmethod (setf flex-wrap) (value (obj clog-element)) (setf (style obj "flex-wrap") value)) -(defsetf flex-wrap set-flex-wrap) ;;;;;;;;;;;;;;;;;;;; ;; flex-direction ;; @@ -941,12 +918,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod flex-direction ((obj clog-element)) (style obj "flex-direction")) -(defgeneric set-flex-direction (clog-element value) +(defgeneric (setf flex-direction) (value clog-element) (:documentation "Set flex-direction VALUE for CLOG-ELEMENT")) -(defmethod set-flex-direction ((obj clog-element) value) +(defmethod (setf flex-direction) (value (obj clog-element)) (setf (style obj "flex-direction") value)) -(defsetf flex-direction set-flex-direction) ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; grid-template-columns ;; @@ -958,12 +934,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-template-columns ((obj clog-element)) (style obj "grid-template-columns")) -(defgeneric set-grid-template-columns (clog-element value) +(defgeneric (setf grid-template-columns) (value clog-element) (:documentation "Set grid-template-columns VALUE for CLOG-ELEMENT")) -(defmethod set-grid-template-columns ((obj clog-element) value) +(defmethod (setf grid-template-columns) (value (obj clog-element)) (setf (style obj "grid-template-columns") value)) -(defsetf grid-template-columns set-grid-template-columns) ;;;;;;;;;;;;;;;;;;;;;;;; ;; grid-template-rows ;; @@ -975,12 +950,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-template-rows ((obj clog-element)) (style obj "grid-template-rows")) -(defgeneric set-grid-template-rows (clog-element value) +(defgeneric (setf grid-template-rows) (value clog-element) (:documentation "Set grid-template-rows VALUE for CLOG-ELEMENT")) -(defmethod set-grid-template-rows ((obj clog-element) value) +(defmethod (setf grid-template-rows) (value (obj clog-element)) (setf (style obj "grid-template-rows") value)) -(defsetf grid-template-rows set-grid-template-rows) ;;;;;;;;;;;;;;;;;;;;;;;;; ;; grid-template-areas ;; @@ -992,12 +966,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-template-areas ((obj clog-element)) (style obj "grid-template-areas")) -(defgeneric set-grid-template-areas (clog-element value) +(defgeneric (setf grid-template-areas) (value clog-element) (:documentation "Set grid-template-areas VALUE for CLOG-ELEMENT")) -(defmethod set-grid-template-areas ((obj clog-element) value) +(defmethod (setf grid-template-areas) (value (obj clog-element)) (setf (style obj "grid-template-areas") value)) -(defsetf grid-template-areas set-grid-template-areas) ;;;;;;;;;;;;;;;; ;; column-gap ;; @@ -1009,12 +982,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod column-gap ((obj clog-element)) (style obj "column-gap")) -(defgeneric set-column-gap (clog-element value) +(defgeneric (setf column-gap) (value clog-element) (:documentation "Set column-gap VALUE for CLOG-ELEMENT")) -(defmethod set-column-gap ((obj clog-element) value) +(defmethod (setf column-gap) (value (obj clog-element)) (setf (style obj "column-gap") value)) -(defsetf column-gap set-column-gap) ;;;;;;;;;;;;; ;; row-gap ;; @@ -1026,12 +998,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod row-gap ((obj clog-element)) (style obj "row-gap")) -(defgeneric set-row-gap (clog-element value) +(defgeneric (setf row-gap) (value clog-element) (:documentation "Set row-gap VALUE for CLOG-ELEMENT")) -(defmethod set-row-gap ((obj clog-element) value) +(defmethod (setf row-gap) (value (obj clog-element)) (setf (style obj "row-gap") value)) -(defsetf row-gap set-row-gap) ;;;;;;;;;;;;;;;;;;;;;;; ;; grid-auto-columns ;; @@ -1043,12 +1014,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-auto-columns ((obj clog-element)) (style obj "grid-auto-columns")) -(defgeneric set-grid-auto-columns (clog-element value) +(defgeneric (setf grid-auto-columns) (value clog-element) (:documentation "Set grid-auto-columns VALUE for CLOG-ELEMENT")) -(defmethod set-grid-auto-columns ((obj clog-element) value) +(defmethod (setf grid-auto-columns) (value (obj clog-element)) (setf (style obj "grid-auto-columns") value)) -(defsetf grid-auto-columns set-grid-auto-columns) ;;;;;;;;;;;;;;;;;;;; ;; grid-auto-rows ;; @@ -1060,12 +1030,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-auto-rows ((obj clog-element)) (style obj "grid-auto-rows")) -(defgeneric set-grid-auto-rows (clog-element value) +(defgeneric (setf grid-auto-rows) (value clog-element) (:documentation "Set grid-auto-rows VALUE for CLOG-ELEMENT")) -(defmethod set-grid-auto-rows ((obj clog-element) value) +(defmethod (setf grid-auto-rows) (value (obj clog-element)) (setf (style obj "grid-auto-rows") value)) -(defsetf grid-auto-rows set-grid-auto-rows) ;;;;;;;;;;;;;;;;;;;; ;; grid-auto-flow ;; @@ -1077,12 +1046,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-auto-flow ((obj clog-element)) (style obj "grid-auto-flow")) -(defgeneric set-grid-auto-flow (clog-element value) +(defgeneric (setf grid-auto-flow) (value clog-element) (:documentation "Set grid-auto-flow VALUE for CLOG-ELEMENT")) -(defmethod set-grid-auto-flow ((obj clog-element) value) +(defmethod (setf grid-auto-flow) (value (obj clog-element)) (setf (style obj "grid-auto-flow") value)) -(defsetf grid-auto-flow set-grid-auto-flow) ;;;;;;;;;;;;;;;;;;;;;;; ;; grid-column-start ;; @@ -1094,12 +1062,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-column-start ((obj clog-element)) (style obj "grid-column-start")) -(defgeneric set-grid-column-start (clog-element value) +(defgeneric (setf grid-column-start) (value clog-element) (:documentation "Set grid-column-start VALUE for CLOG-ELEMENT")) -(defmethod set-grid-column-start ((obj clog-element) value) +(defmethod (setf grid-column-start) (value (obj clog-element)) (setf (style obj "grid-column-start") value)) -(defsetf grid-column-start set-grid-column-start) ;;;;;;;;;;;;;;;;;;;;; ;; grid-column-end ;; @@ -1111,12 +1078,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-column-end ((obj clog-element)) (style obj "grid-column-end")) -(defgeneric set-grid-column-end (clog-element value) +(defgeneric (setf grid-column-end) (value clog-element) (:documentation "Set grid-column-end VALUE for CLOG-ELEMENT")) -(defmethod set-grid-column-end ((obj clog-element) value) +(defmethod (setf grid-column-end) (value (obj clog-element)) (setf (style obj "grid-column-end") value)) -(defsetf grid-column-end set-grid-column-end) ;;;;;;;;;;;;;;;;;;;; ;; grid-row-start ;; @@ -1128,12 +1094,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-row-start ((obj clog-element)) (style obj "grid-row-start")) -(defgeneric set-grid-row-start (clog-element value) +(defgeneric (setf grid-row-start) (value clog-element) (:documentation "Set grid-row-start VALUE for CLOG-ELEMENT")) -(defmethod set-grid-row-start ((obj clog-element) value) +(defmethod (setf grid-row-start) (value (obj clog-element)) (setf (style obj "grid-row-start") value)) -(defsetf grid-row-start set-grid-row-start) ;;;;;;;;;;;;;;;;;; ;; grid-row-end ;; @@ -1145,12 +1110,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod grid-row-end ((obj clog-element)) (style obj "grid-row-end")) -(defgeneric set-grid-row-end (clog-element value) +(defgeneric (setf grid-row-end) (value clog-element) (:documentation "Set grid-row-end VALUE for CLOG-ELEMENT")) -(defmethod set-grid-row-end ((obj clog-element) value) +(defmethod (setf grid-row-end) (value (obj clog-element)) (setf (style obj "grid-row-end") value)) -(defsetf grid-row-end set-grid-row-end) ;;;;;;;;;;;;;;;;; ;; align-items ;; @@ -1166,12 +1130,11 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT")) (defmethod align-items ((obj clog-element)) (style obj "align-items")) -(defgeneric set-align-items (clog-element value) +(defgeneric (setf align-items) (value clog-element) (:documentation "Set align-items VALUE for CLOG-ELEMENT")) -(defmethod set-align-items ((obj clog-element) value) +(defmethod (setf align-items) (value (obj clog-element)) (setf (style obj "align-items") value)) -(defsetf align-items set-align-items) ;;;;;;;;;;;;;;;; ;; align-self ;; @@ -1188,12 +1151,11 @@ in a flexbox/grid.")) (defmethod align-self ((obj clog-element)) (style obj "align-self")) -(defgeneric set-align-self (clog-element value) +(defgeneric (setf align-self) (value clog-element) (:documentation "Set align-self VALUE for CLOG-ELEMENT")) -(defmethod set-align-self ((obj clog-element) value) +(defmethod (setf align-self) (value (obj clog-element)) (setf (style obj "align-self") value)) -(defsetf align-self set-align-self) ;;;;;;;;;;;;;;;;;;; ;; justify-items ;; @@ -1209,12 +1171,11 @@ in a flexbox/grid.")) (defmethod justify-items ((obj clog-element)) (style obj "justify-items")) -(defgeneric set-justify-items (clog-element value) +(defgeneric (setf justify-items) (value clog-element) (:documentation "Set justify-items VALUE for CLOG-ELEMENT")) -(defmethod set-justify-items ((obj clog-element) value) +(defmethod (setf justify-items) (value (obj clog-element)) (setf (style obj "justify-items") value)) -(defsetf justify-items set-justify-items) ;;;;;;;;;;;;;;;;;; ;; justify-self ;; @@ -1230,12 +1191,11 @@ in a flexbox/grid.")) (defmethod justify-self ((obj clog-element)) (style obj "justify-self")) -(defgeneric set-justify-self (clog-element value) +(defgeneric (setf justify-self) (value clog-element) (:documentation "Set justify-self VALUE for CLOG-ELEMENT")) -(defmethod set-justify-self ((obj clog-element) value) +(defmethod (setf justify-self) (value (obj clog-element)) (setf (style obj "justify-self") value)) -(defsetf justify-self set-justify-self) ;;;;;;;;;;;;;;;;;;;;; ;; justify-content ;; @@ -1252,12 +1212,11 @@ in a flexbox/grid.")) (defmethod justify-content ((obj clog-element)) (style obj "justify-content")) -(defgeneric set-justify-content (clog-element value) +(defgeneric (setf justify-content) (value clog-element) (:documentation "Set justify-content VALUE for CLOG-ELEMENT")) -(defmethod set-justify-content ((obj clog-element) value) +(defmethod (setf justify-content) (value (obj clog-element)) (setf (style obj "justify-content") value)) -(defsetf justify-content set-justify-content) ;;;;;;;;;;;;;;;;;;; ;; align-content ;; @@ -1274,12 +1233,11 @@ on opposite sides of each other or grid on column axis.")) (defmethod align-content ((obj clog-element)) (style obj "align-content")) -(defgeneric set-align-content (clog-element value) +(defgeneric (setf align-content) (value clog-element) (:documentation "Set align-content VALUE for CLOG-ELEMENT")) -(defmethod set-align-content ((obj clog-element) value) +(defmethod (setf align-content) (value (obj clog-element)) (setf (style obj "align-content") value)) -(defsetf align-content set-align-content) ;;;;;;;;;;;;;; ;; overflow ;; @@ -1294,12 +1252,11 @@ an element's box. The default is visible - no clipping.")) (defmethod overflow ((obj clog-element)) (style obj "overflow")) -(defgeneric set-overflow (clog-element value) +(defgeneric (setf overflow) (value clog-element) (:documentation "Set overflow VALUE for CLOG-ELEMENT")) -(defmethod set-overflow ((obj clog-element) value) +(defmethod (setf overflow) (value (obj clog-element)) (setf (style obj "overflow") value)) -(defsetf overflow set-overflow) ;;;;;;;;;;;;;;;; ;; overflow-x ;; @@ -1314,12 +1271,11 @@ an element's box for X. The default is Visible - no clipping.")) (defmethod overflow-x ((obj clog-element)) (style obj "overflow-x")) -(defgeneric set-overflow-x (clog-element value) +(defgeneric (setf overflow-x) (value clog-element) (:documentation "Set overflow-x VALUE for CLOG-ELEMENT")) -(defmethod set-overflow-x ((obj clog-element) value) +(defmethod (setf overflow-x) (value (obj clog-element)) (setf (style obj "overflow-x") value)) -(defsetf overflow-x set-overflow-x) ;;;;;;;;;;;;;;;; ;; overflow-y ;; @@ -1334,12 +1290,11 @@ an element's box for Y. The default is Visible - no clipping.")) (defmethod overflow-y ((obj clog-element)) (style obj "overflow-y")) -(defgeneric set-overflow-y (clog-element value) +(defgeneric (setf overflow-y) (value clog-element) (:documentation "Set overflow-y VALUE for CLOG-ELEMENT")) -(defmethod set-overflow-y ((obj clog-element) value) +(defmethod (setf overflow-y) (value (obj clog-element)) (setf (style obj "overflow-y") value)) -(defsetf overflow-y set-overflow-y) ;;;;;;;;;;;;; ;; z-index ;; @@ -1353,12 +1308,11 @@ Note: z-index only works on Elements with Position Type of absolute, (defmethod z-index ((obj clog-element)) (parse-integer (style obj "z-index" :default-answer 0) :junk-allowed t)) -(defgeneric set-z-index (clog-element value) +(defgeneric (setf z-index) (value clog-element) (:documentation "Set z-index VALUE for CLOG-ELEMENT")) -(defmethod set-z-index ((obj clog-element) value) +(defmethod (setf z-index) (value (obj clog-element)) (setf (style obj "z-index") value)) -(defsetf z-index set-z-index) ;;;;;;;;;;;;;;; ;; resizable ;; @@ -1374,12 +1328,11 @@ resizeable sets if element can be resized by user.")) (defmethod resizable ((obj clog-element)) (style obj "resize")) -(defgeneric set-resizable (clog-element value) +(defgeneric (setf resizable) (value clog-element) (:documentation "Set resizable VALUE for CLOG-ELEMENT")) -(defmethod set-resizable ((obj clog-element) value) +(defmethod (setf resizable) (value (obj clog-element)) (setf (style obj "resize") value)) -(defsetf resizable set-resizable) ;;;;;;;;;;;;;;;;; ;; positioning ;; @@ -1403,12 +1356,11 @@ right, top and bottom are interpreted. (defmethod positioning ((obj clog-element)) (style obj "position")) -(defgeneric set-positioning (clog-element value) +(defgeneric (setf positioning) (value clog-element) (:documentation "Set positioning VALUE for CLOG-ELEMENT")) -(defmethod set-positioning ((obj clog-element) value) +(defmethod (setf positioning) (value (obj clog-element)) (setf (style obj "position") value)) -(defsetf positioning set-positioning) ;;;;;;;;;;;;;;;;;; ;; position-top ;; @@ -1492,12 +1444,11 @@ parent in the DOM.")) (defmethod left ((obj clog-element)) (style obj "left")) -(defgeneric set-left (clog-element value) +(defgeneric (setf left) (value clog-element) (:documentation "Set left VALUE for CLOG-ELEMENT")) -(defmethod set-left ((obj clog-element) value) +(defmethod (setf left) (value (obj clog-element)) (setf (style obj "left") value)) -(defsetf left set-left) ;;;;;;;;;;; ;; right ;; @@ -1509,12 +1460,11 @@ parent in the DOM.")) (defmethod right ((obj clog-element)) (style obj "right")) -(defgeneric set-right (clog-element value) +(defgeneric (setf right) (value clog-element) (:documentation "Set right VALUE for CLOG-ELEMENT")) -(defmethod set-right ((obj clog-element) value) +(defmethod (setf right) (value (obj clog-element)) (setf (style obj "right") value)) -(defsetf right set-right) ;;;;;;;;; ;; top ;; @@ -1526,12 +1476,11 @@ parent in the DOM.")) (defmethod top ((obj clog-element)) (style obj "top")) -(defgeneric set-top (clog-element value) +(defgeneric (setf top) (value clog-element) (:documentation "Set top VALUE for CLOG-ELEMENT")) -(defmethod set-top ((obj clog-element) value) +(defmethod (setf top) (value (obj clog-element)) (setf (style obj "top") value)) -(defsetf top set-top) ;;;;;;;;;;;; ;; bottom ;; @@ -1543,12 +1492,11 @@ parent in the DOM.")) (defmethod bottom ((obj clog-element)) (style obj "bottom")) -(defgeneric set-bottom (clog-element value) +(defgeneric (setf bottom) (value clog-element) (:documentation "Set bottom VALUE for CLOG-ELEMENT")) -(defmethod set-bottom ((obj clog-element) value) +(defmethod (setf bottom) (value (obj clog-element)) (setf (style obj "bottom") value)) -(defsetf bottom set-bottom) ;;;;;;;;;;;;;;;; ;; box-height ;; @@ -1560,12 +1508,11 @@ parent in the DOM.")) (defmethod box-height ((obj clog-element)) (style obj "height")) -(defgeneric set-box-height (clog-element value) +(defgeneric (setf box-height) (value clog-element) (:documentation "Set box-height VALUE for CLOG-ELEMENT")) -(defmethod set-box-height ((obj clog-element) value) +(defmethod (setf box-height) (value (obj clog-element)) (setf (style obj "height") value)) -(defsetf box-height set-box-height) ;;;;;;;;;;;;;;; ;; box-width ;; @@ -1577,12 +1524,11 @@ parent in the DOM.")) (defmethod box-width ((obj clog-element)) (style obj "width")) -(defgeneric set-box-width (clog-element value) +(defgeneric (setf box-width) (value clog-element) (:documentation "Set box-width VALUE for CLOG-ELEMENT")) -(defmethod set-box-width ((obj clog-element) value) +(defmethod (setf box-width) (value (obj clog-element)) (setf (style obj "width") value)) -(defsetf box-width set-box-width) ;;;;;;;;;;;;;;;;;;;; ;; maximum-height ;; @@ -1594,12 +1540,11 @@ parent in the DOM.")) (defmethod maximum-height ((obj clog-element)) (style obj "max-height")) -(defgeneric set-maximum-height (clog-element value) +(defgeneric (setf maximum-height) (value clog-element) (:documentation "Set maximum-height VALUE for CLOG-ELEMENT")) -(defmethod set-maximum-height ((obj clog-element) value) +(defmethod (setf maximum-height) (value (obj clog-element)) (setf (style obj "max-height") value)) -(defsetf maximum-height set-maximum-height) ;;;;;;;;;;;;;;;;;;; ;; maximum-width ;; @@ -1611,12 +1556,11 @@ parent in the DOM.")) (defmethod maximum-width ((obj clog-element)) (style obj "max-width")) -(defgeneric set-maximum-width (clog-element value) +(defgeneric (setf maximum-width) (value clog-element) (:documentation "Set maximum-width VALUE for CLOG-ELEMENT")) -(defmethod set-maximum-width ((obj clog-element) value) +(defmethod (setf maximum-width) (value (obj clog-element)) (setf (style obj "max-width") value)) -(defsetf maximum-width set-maximum-width) ;;;;;;;;;;;;;;;;;;;; ;; minimum-height ;; @@ -1628,12 +1572,11 @@ parent in the DOM.")) (defmethod minimum-height ((obj clog-element)) (style obj "min-height")) -(defgeneric set-minimum-height (clog-element value) +(defgeneric (setf minimum-height) (value clog-element) (:documentation "Set minimum-height VALUE for CLOG-ELEMENT")) -(defmethod set-minimum-height ((obj clog-element) value) +(defmethod (setf minimum-height) (value (obj clog-element)) (setf (style obj "min-height") value)) -(defsetf minimum-height set-minimum-height) ;;;;;;;;;;;;;;;;;;; ;; minimum-width ;; @@ -1645,12 +1588,11 @@ parent in the DOM.")) (defmethod minimum-width ((obj clog-element)) (style obj "min-width")) -(defgeneric set-minimum-width (clog-element value) +(defgeneric (setf minimum-width) (value clog-element) (:documentation "Set minimum-width VALUE for CLOG-ELEMENT")) -(defmethod set-minimum-width ((obj clog-element) value) +(defmethod (setf minimum-width) (value (obj clog-element)) (setf (style obj "min-width") value)) -(defsetf minimum-width set-minimum-width) ;;;;;;;;;;;;;;;;;;;; ;; maximum-height ;; @@ -1662,12 +1604,11 @@ parent in the DOM.")) (defmethod maximum-height ((obj clog-element)) (style obj "max-height")) -(defgeneric set-maximum-height (clog-element value) +(defgeneric (setf maximum-height) (value clog-element) (:documentation "Set maximum-height VALUE for CLOG-ELEMENT")) -(defmethod set-maximum-height ((obj clog-element) value) +(defmethod (setf maximum-height) (value (obj clog-element)) (setf (style obj "max-height") value)) -(defsetf maximum-height set-maximum-height) ;; For reference: ;; | Margin | Border | Padding | Scroll | [Element] | Scroll | Padding ... @@ -1686,13 +1627,12 @@ parent in the DOM.")) (defmethod inner-height ((obj clog-element)) (jquery-query obj "innerHeight()")) -(defgeneric set-inner-height (clog-element value) +(defgeneric (setf inner-height) (value clog-element) (:documentation "Set inner-height VALUE for CLOG-ELEMENT")) -(defmethod set-inner-height ((obj clog-element) value) +(defmethod (setf inner-height) (value (obj clog-element)) (jquery-execute obj (format nil "innerHeight('~A')" (escape-string value))) value) -(defsetf inner-height set-inner-height) ;;;;;;;;;;;;;;;;; ;; inner-width ;; @@ -1704,13 +1644,12 @@ parent in the DOM.")) (defmethod inner-width ((obj clog-element)) (jquery-query obj "innerWidth()")) -(defgeneric set-inner-width (clog-element value) +(defgeneric (setf inner-width) (value clog-element) (:documentation "Set inner-width VALUE for CLOG-ELEMENT")) -(defmethod set-inner-width ((obj clog-element) value) +(defmethod (setf inner-width) (value (obj clog-element)) (jquery-execute obj (format nil "innerWidth('~A')" (escape-string value))) value) -(defsetf inner-width set-inner-width) ;;;;;;;;;;;;;;;;;; ;; outer-height ;; @@ -1766,12 +1705,11 @@ margin.")) (defmethod color ((obj clog-element)) (style obj "color")) -(defgeneric set-color (clog-element value) +(defgeneric (setf color) (value clog-element) (:documentation "Set color VALUE for CLOG-ELEMENT")) -(defmethod set-color ((obj clog-element) value) +(defmethod (setf color) (value (obj clog-element)) (setf (style obj "color") value)) -(defsetf color set-color) ;;;;;;;;;;;;; ;; opacity ;; @@ -1783,12 +1721,11 @@ margin.")) (defmethod opacity ((obj clog-element)) (style obj "opacity")) -(defgeneric set-opacity (clog-element value) +(defgeneric (setf opacity) (value clog-element) (:documentation "Set opacity VALUE for CLOG-ELEMENT")) -(defmethod set-opacity ((obj clog-element) value) +(defmethod (setf opacity) (value (obj clog-element)) (setf (style obj "opacity") value)) -(defsetf opacity set-opacity) ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; background-attachment ;; @@ -1802,12 +1739,11 @@ margin.")) (defmethod background-attachment ((obj clog-element)) (style obj "background-attachment")) -(defgeneric set-background-attachment (clog-element value) +(defgeneric (setf background-attachment) (value clog-element) (:documentation "Set background-attachment VALUE for CLOG-ELEMENT")) -(defmethod set-background-attachment ((obj clog-element) value) +(defmethod (setf background-attachment) (value (obj clog-element)) (setf (style obj "background-attachment") value)) -(defsetf background-attachment set-background-attachment) ;;;;;;;;;;;;;;;;;;;;;; ;; background-color ;; @@ -1819,12 +1755,11 @@ margin.")) (defmethod background-color ((obj clog-element)) (style obj "background-color")) -(defgeneric set-background-color (clog-element value) +(defgeneric (setf background-color) (value clog-element) (:documentation "Set background-color VALUE for CLOG-ELEMENT")) -(defmethod set-background-color ((obj clog-element) value) +(defmethod (setf background-color) (value (obj clog-element)) (setf (style obj "background-color") value)) -(defsetf background-color set-background-color) ;;;;;;;;;;;;;;;;;;;;;; ;; background-image ;; @@ -1837,14 +1772,13 @@ margin.")) (defmethod background-image ((obj clog-element)) (style obj "background-image")) -(defgeneric set-background-image (clog-element value) +(defgeneric (setf background-image) (value clog-element) (:documentation "Set background-image VALUE for CLOG-ELEMENT")) -(defmethod set-background-image ((obj clog-element) value) +(defmethod (setf background-image) (value (obj clog-element)) (if value (setf (style obj "background-image") (format nil "url('~A')" value)) (setf (style obj "background-image") "none"))) -(defsetf background-image set-background-image) ;;;;;;;;;;;;;;;;;;;;;;;;; ;; background-position ;; @@ -1857,12 +1791,11 @@ left/right/center/top/bottom | %x %y | x y")) (defmethod background-position ((obj clog-element)) (style obj "background-position")) -(defgeneric set-background-position (clog-element value) +(defgeneric (setf background-position) (value clog-element) (:documentation "Set background-position VALUE for CLOG-ELEMENT")) -(defmethod set-background-position ((obj clog-element) value) +(defmethod (setf background-position) (value (obj clog-element)) (setf (style obj "background-position") value)) -(defsetf background-position set-background-position) ;;;;;;;;;;;;;;;;;;;;;;; ;; background-origin ;; @@ -1878,12 +1811,11 @@ is relative to origin of: padding-box|border-box|content-box")) (defmethod background-origin ((obj clog-element)) (style obj "background-origin")) -(defgeneric set-background-origin (clog-element value) +(defgeneric (setf background-origin) (value clog-element) (:documentation "Set background-origin VALUE for CLOG-ELEMENT")) -(defmethod set-background-origin ((obj clog-element) value) +(defmethod (setf background-origin) (value (obj clog-element)) (setf (style obj "background-origin") value)) -(defsetf background-origin set-background-origin) ;;;;;;;;;;;;;;;;;;;;;;; ;; background-repeat ;; @@ -1899,12 +1831,11 @@ is relative to origin of: padding-box|border-box|content-box")) (defmethod background-repeat ((obj clog-element)) (style obj "background-repeat")) -(defgeneric set-background-repeat (clog-element value) +(defgeneric (setf background-repeat) (value clog-element) (:documentation "Set background-repeat VALUE for CLOG-ELEMENT")) -(defmethod set-background-repeat ((obj clog-element) value) +(defmethod (setf background-repeat) (value (obj clog-element)) (setf (style obj "background-repeat") value)) -(defsetf background-repeat set-background-repeat) ;;;;;;;;;;;;;;;;;;;;; ;; background-clip ;; @@ -1920,12 +1851,11 @@ underneath its border box, padding box, or content box.")) (defmethod background-clip ((obj clog-element)) (style obj "background-clip")) -(defgeneric set-background-clip (clog-element value) +(defgeneric (setf background-clip) (value clog-element) (:documentation "Set background-clip VALUE for CLOG-ELEMENT")) -(defmethod set-background-clip ((obj clog-element) value) +(defmethod (setf background-clip) (value (obj clog-element)) (setf (style obj "background-clip") value)) -(defsetf background-clip set-background-clip) ;;;;;;;;;;;;;;;;;;;;; ;; background-size ;; @@ -1938,12 +1868,11 @@ auto | w h | % = cover of parent | contain")) (defmethod background-size ((obj clog-element)) (style obj "background-size")) -(defgeneric set-background-size (clog-element value) +(defgeneric (setf background-size) (value clog-element) (:documentation "Set background-size VALUE for CLOG-ELEMENT")) -(defmethod set-background-size ((obj clog-element) value) +(defmethod (setf background-size) (value (obj clog-element)) (setf (style obj "background-size") value)) -(defsetf background-size set-background-size) ;;;;;;;;;;;; ;; border ;; @@ -1981,12 +1910,11 @@ line-width - size or medium|thin|thick|length|initial|inherit")) (defmethod border-radius ((obj clog-element)) (style obj "border-radius")) -(defgeneric set-border-radius (clog-element value) +(defgeneric (setf border-radius) (value clog-element) (:documentation "Set border-radius VALUE for CLOG-ELEMENT")) -(defmethod set-border-radius ((obj clog-element) value) +(defmethod (setf border-radius) (value (obj clog-element)) (setf (style obj "border-radius") value)) -(defsetf border-radius set-border-radius) ;;;;;;;;;;;;;;;; ;; box-shadow ;; @@ -1998,12 +1926,11 @@ line-width - size or medium|thin|thick|length|initial|inherit")) (defmethod box-shadow ((obj clog-element)) (style obj "box-shadow")) -(defgeneric set-box-shadow (clog-element value) +(defgeneric (setf box-shadow) (value clog-element) (:documentation "Set box-shadow. See https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Background_and_Borders/Box-shadow_generator")) -(defmethod set-box-shadow ((obj clog-element) value) +(defmethod (setf box-shadow) (value (obj clog-element)) (setf (style obj "box-shadow") value)) -(defsetf box-shadow set-box-shadow) ;;;;;;;;;;;;;;;;; ;; text-shadow ;; @@ -2015,12 +1942,11 @@ line-width - size or medium|thin|thick|length|initial|inherit")) (defmethod text-shadow ((obj clog-element)) (style obj "text-shadow")) -(defgeneric set-text-shadow (clog-element value) +(defgeneric (setf text-shadow) (value clog-element) (:documentation "Set text-shadow. See https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Background_and_Borders/Text-shadow_generator")) -(defmethod set-text-shadow ((obj clog-element) value) +(defmethod (setf text-shadow) (value (obj clog-element)) (setf (style obj "text-shadow") value)) -(defsetf text-shadow set-text-shadow) ;;;;;;;;;;;;; ;; outline ;; @@ -2096,7 +2022,6 @@ VALUE can be - |auto|initial|inherit")) (defmethod set-padding ((obj clog-element) top right bottom left) (setf (style obj "padding") (format nil "~A ~A ~A ~A" top right bottom left))) -(defsetf padding set-padding) ;;;;;;;;;;;;;;;;;;;;;; ;; set-padding-side ;; @@ -2123,12 +2048,11 @@ A list of standard cursor types can be found at: (defmethod cursor ((obj clog-element)) (style obj "cursor")) -(defgeneric set-cursor (clog-element value) +(defgeneric (setf cursor) (value clog-element) (:documentation "Set cursor VALUE for CLOG-ELEMENT")) -(defmethod set-cursor ((obj clog-element) value) +(defmethod (setf cursor) (value (obj clog-element)) (setf (style obj "cursor") value)) -(defsetf cursor set-cursor) ;;;;;;;;;; ;; font ;; @@ -2158,12 +2082,11 @@ A list of standard cursor types can be found at: (format nil "~A ~A ~A ~A ~A" font-style font-variant font-weight font-height font-family))) -(defgeneric set-font-css (clog-element value) +(defgeneric (setf font-css) (value clog-element) (:documentation "Set font VALUE for CLOG-ELEMENT")) -(defmethod set-font-css ((obj clog-element) value) +(defmethod (setf font-css) (value (obj clog-element)) (setf (style obj "font") value)) -(defsetf font set-font-css) ;;;;;;;;;;;;;;;;;;;; ;; text-alignment ;; @@ -2178,12 +2101,11 @@ A list of standard cursor types can be found at: (defmethod text-alignment ((obj clog-element)) (style obj "text-align")) -(defgeneric set-text-alignment (clog-element value) +(defgeneric (setf text-alignment) (value clog-element) (:documentation "Set text-alignment VALUE for CLOG-ELEMENT")) -(defmethod set-text-alignment ((obj clog-element) value) +(defmethod (setf text-alignment) (value (obj clog-element)) (setf (style obj "text-align") value)) -(defsetf text-alignment set-text-alignment) ;;;;;;;;;;;;;;;;;;;; ;; vertical-align ;; @@ -2199,12 +2121,11 @@ is set to :table-cell or for labels on form elements.")) (defmethod vertical-align ((obj clog-element)) (style obj "vertical-align")) -(defgeneric set-vertical-align (clog-element value) +(defgeneric (setf vertical-align) (value clog-element) (:documentation "Set vertical-align VALUE for CLOG-ELEMENT")) -(defmethod set-vertical-align ((obj clog-element) value) +(defmethod (setf vertical-align) (value (obj clog-element)) (setf (style obj "vertical-align") value)) -(defsetf vertical-align set-vertical-align) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Methods - clog-element diff --git a/source/clog-form.lisp b/source/clog-form.lisp index fe23300..7a324c1 100644 --- a/source/clog-form.lisp +++ b/source/clog-form.lisp @@ -142,14 +142,13 @@ doing file upload use multipart/form-data")) (defmethod autocompletep ((obj clog-form)) (js-on-p (property obj "autocompletep"))) -(defgeneric set-autocompletep (clog-form autocompletep) +(defgeneric (setf autocompletep) (autocompletep clog-form) (:documentation "Set autocompletep for CLOG-FORM")) -(defmethod set-autocompletep ((obj clog-form) autocompletep) +(defmethod (setf autocompletep) (autocompletep (obj clog-form)) (if autocompletep (setf (attribute obj "autocomplete") "true") (remove-attribute obj "autocomplete"))) -(defsetf autocompletep set-autocompletep) ;;;;;;;;;;;;;; ;; encoding ;; @@ -164,12 +163,11 @@ doing file upload use multipart/form-data")) (defmethod encoding ((obj clog-form)) (property obj "encoding")) -(defgeneric set-encoding (clog-form encoding) +(defgeneric (setf encoding) (encoding clog-form) (:documentation "Set encoding for CLOG-FORM")) -(defmethod set-encoding ((obj clog-form) encoding) +(defmethod (setf encoding) (encoding (obj clog-form)) (setf (property obj "encoding") encoding)) -(defsetf encoding set-encoding) ;;;;;;;;;;;;;;;;;;;;;;;; ;; validate-on-submit ;; @@ -181,14 +179,13 @@ doing file upload use multipart/form-data")) (defmethod validate-on-submit ((obj clog-form)) (not (js-true-p (property obj "noValidate")))) -(defgeneric set-validate-on-submit (clog-form value) +(defgeneric (setf validate-on-submit) (value clog-form) (:documentation "Set VALIDATE-ON-SUBMIT for CLOG-FORM")) -(defmethod set-validate-on-submit ((obj clog-form) value) +(defmethod (setf validate-on-submit) (value (obj clog-form)) (if (not value) (setf (attribute obj "noValidate") "true") (remove-attribute obj "noValidate"))) -(defsetf validate-on-submit set-validate-on-submit) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-form-clement @@ -252,14 +249,13 @@ clog-form in the DOM. The radio ELEMENT-TYPE groups by NAME.")) (defmethod autocomplete ((obj clog-form-element)) (property obj "autocomplete")) -(defgeneric set-autocomplete (clog-form-element value) +(defgeneric (setf autocomplete) (value clog-form-element) (:documentation "Set autocomplete AUTOCOMPLETE for CLOG-FORM-ELEMENT")) -(defmethod set-autocomplete ((obj clog-form-element) value) +(defmethod (setf autocomplete) (value (obj clog-form-element)) (if value (setf (attribute obj "autocomplete") "true") (remove-attribute obj "autocomplete"))) -(defsetf autocomplete set-autocomplete) ;;;;;;;;;;;;;;;; ;; autofocusp ;; @@ -272,14 +268,13 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod autofocusp ((obj clog-form-element)) (js-true-p (attribute obj "autofocus"))) -(defgeneric set-autofocusp (clog-form-element value) +(defgeneric (setf autofocusp) (value clog-form-element) (:documentation "Set autofocusp AUTOFOCUSP for CLOG-FORM-ELEMENT")) -(defmethod set-autofocusp ((obj clog-form-element) value) +(defmethod (setf autofocusp) (value (obj clog-form-element)) (if value (setf (attribute obj "autofocus") "true") (remove-attribute obj "autofocus"))) -(defsetf autofocusp set-autofocusp) ;;;;;;;;;;;;;;;;;; ;; place-holder ;; @@ -291,12 +286,11 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod place-holder ((obj clog-form-element)) (property obj "placeholder")) -(defgeneric set-place-holder (clog-form-element value) +(defgeneric (setf place-holder) (value clog-form-element) (:documentation "Set placeholder PLACE-HOLDER for CLOG-FORM-ELEMENT")) -(defmethod set-place-holder ((obj clog-form-element) value) +(defmethod (setf place-holder) (value (obj clog-form-element)) (setf (property obj "placeholder") value)) -(defsetf place-holder set-place-holder) ;;;;;;;;;;;;;;; ;; disabledp ;; @@ -308,14 +302,13 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod disabledp ((obj clog-form-element)) (js-true-p (property obj "disabled"))) -(defgeneric set-disabledp (clog-form-element value) +(defgeneric (setf disabledp) (value clog-form-element) (:documentation "Set disabledp DISABLEDP for CLOG-FORM-ELEMENT")) -(defmethod set-disabledp ((obj clog-form-element) value) +(defmethod (setf disabledp) (value (obj clog-form-element)) (if value (setf (attribute obj "disabled") "true") (remove-attribute obj "disabled"))) -(defsetf disabledp set-disabledp) ;;;;;;;;;;;;;;;;; ;; read-only-p ;; @@ -327,14 +320,13 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod read-only-p ((obj clog-form-element)) (js-true-p (property obj "readonly"))) -(defgeneric set-read-only-p (clog-form-element value) +(defgeneric (setf read-only-p) (value clog-form-element) (:documentation "Set read-only-p READ-ONLY-P for CLOG-FORM-ELEMENT")) -(defmethod set-read-only-p ((obj clog-form-element) value) +(defmethod (setf read-only-p) (value (obj clog-form-element)) (if value (setf (attribute obj "readonly") "true") (remove-attribute obj "readonly"))) -(defsetf read-only-p set-read-only-p) ;;;;;;;;;;;;;;; ;; requiredp ;; @@ -346,14 +338,13 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod requiredp ((obj clog-form-element)) (js-true-p (property obj "required"))) -(defgeneric set-requiredp (clog-form-element value) +(defgeneric (setf requiredp) (value clog-form-element) (:documentation "Set requiredp REQUIREDP for CLOG-FORM-ELEMENT")) -(defmethod set-requiredp ((obj clog-form-element) value) +(defmethod (setf requiredp) (value (obj clog-form-element)) (if value (setf (attribute obj "required") "true") (remove-attribute obj "required"))) -(defsetf requiredp set-requiredp) ;;;;;;;;;;;;;;; ;; multiplep ;; @@ -365,14 +356,13 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod multiplep ((obj clog-form-element)) (js-true-p (property obj "multiple"))) -(defgeneric set-multiplep (clog-form-element value) +(defgeneric (setf multiplep) (value clog-form-element) (:documentation "Set multiplep MULTIPLEP for CLOG-FORM-ELEMENT")) -(defmethod set-multiplep ((obj clog-form-element) value) +(defmethod (setf multiplep) (value (obj clog-form-element)) (if value (setf (attribute obj "multiple") "true") (remove-attribute obj "multiple"))) -(defsetf multiplep set-multiplep) ;;;;;;;;;; ;; name ;; @@ -388,12 +378,11 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod name ((obj clog-form-element)) (property obj "name")) -(defgeneric set-name (clog-form-element value) +(defgeneric (setf name) (value clog-form-element) (:documentation "Set name VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-name ((obj clog-form-element) value) +(defmethod (setf name) (value (obj clog-form-element)) (setf (property obj "name") value)) -(defsetf name set-name) ;;;;;;;;;;;;;;;;;;; ;; default-value ;; @@ -407,12 +396,11 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod default-value ((obj clog-form-element)) (property obj "defaultValue")) -(defgeneric set-default-value (clog-form-element value) +(defgeneric (setf default-value) (value clog-form-element) (:documentation "Set default-value VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-default-value ((obj clog-form-element) value) +(defmethod (setf default-value) (value (obj clog-form-element)) (setf (property obj "defaultValue") value)) -(defsetf default-value set-default-value) ;;;;;;;;;;; ;; value ;; @@ -426,12 +414,11 @@ have this set true ever. Autofocus on element when form loaded.")) (defmethod value ((obj clog-form-element)) (property obj "value")) -(defgeneric set-value (clog-form-element value) +(defgeneric (setf value) (value clog-form-element) (:documentation "Set value VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-value ((obj clog-form-element) value) +(defmethod (setf value) (value (obj clog-form-element)) (setf (property obj "value") value)) -(defsetf value set-value) ;; overloading of text-value to equal value on forms @@ -506,12 +493,11 @@ be unique name on entire document.")) (defmethod pattern ((obj clog-form-element)) (property obj "pattern")) -(defgeneric set-pattern (clog-form-element value) +(defgeneric (setf pattern) (value clog-form-element) (:documentation "Set pattern VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-pattern ((obj clog-form-element) value) +(defmethod (setf pattern) (value (obj clog-form-element)) (setf (property obj "pattern") value)) -(defsetf pattern set-pattern) ;;;;;;;;;;;;; ;; minimum ;; @@ -523,12 +509,11 @@ be unique name on entire document.")) (defmethod minimum ((obj clog-form-element)) (property obj "min")) -(defgeneric set-minimum (clog-form-element value) +(defgeneric (setf minimum) (value clog-form-element) (:documentation "Set minimum VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-minimum ((obj clog-form-element) value) +(defmethod (setf minimum) (value (obj clog-form-element)) (setf (property obj "min") value)) -(defsetf minimum set-minimum) ;;;;;;;;;;;;; ;; maximum ;; @@ -540,12 +525,11 @@ be unique name on entire document.")) (defmethod maximum ((obj clog-form-element)) (property obj "max")) -(defgeneric set-maximum (clog-form-element value) +(defgeneric (setf maximum) (value clog-form-element) (:documentation "Set maximum VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-maximum ((obj clog-form-element) value) +(defmethod (setf maximum) (value (obj clog-form-element)) (setf (property obj "max") value)) -(defsetf maximum set-maximum) ;;;;;;;;;;;;;;;;;; ;; element-step ;; @@ -557,12 +541,11 @@ be unique name on entire document.")) (defmethod element-step ((obj clog-form-element)) (property obj "step")) -(defgeneric set-element-step (clog-form-element value) +(defgeneric (setf element-step) (value clog-form-element) (:documentation "Set element-step VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-element-step ((obj clog-form-element) value) +(defmethod (setf element-step) (value (obj clog-form-element)) (setf (property obj "step") value)) -(defsetf element-step set-element-step) ;;;;;;;;;; ;; size ;; @@ -574,12 +557,11 @@ be unique name on entire document.")) (defmethod size ((obj clog-form-element)) (property obj "size")) -(defgeneric set-size (clog-form-element value) +(defgeneric (setf size) (value clog-form-element) (:documentation "Set size VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-size ((obj clog-form-element) value) +(defmethod (setf size) (value (obj clog-form-element)) (setf (property obj "size") value)) -(defsetf size set-size) ;;;;;;;;;;;;;;;;;;;; ;; minimum-length ;; @@ -591,12 +573,11 @@ be unique name on entire document.")) (defmethod minimum-length ((obj clog-form-element)) (property obj "minlength")) -(defgeneric set-minimum-length (clog-form-element value) +(defgeneric (setf minimum-length) (value clog-form-element) (:documentation "Set minimum-length VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-minimum-length ((obj clog-form-element) value) +(defmethod (setf minimum-length) (value (obj clog-form-element)) (setf (property obj "minlength") value)) -(defsetf minimum-length set-minimum-length) ;;;;;;;;;;;;;;;;;;;; ;; maximum-length ;; @@ -608,12 +589,11 @@ be unique name on entire document.")) (defmethod maximum-length ((obj clog-form-element)) (property obj "maxlength")) -(defgeneric set-maximum-length (clog-form-element value) +(defgeneric (setf maximum-length) (value clog-form-element) (:documentation "Set maximum-length VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-maximum-length ((obj clog-form-element) value) +(defmethod (setf maximum-length) (value (obj clog-form-element)) (setf (property obj "maxlength") value)) -(defsetf maximum-length set-maximum-length) ;;;;;;;;;;;; ;; select ;; @@ -657,12 +637,11 @@ the File form element type. (defmethod file-accept ((obj clog-form-element)) (attribute obj "accept")) -(defgeneric set-file-accept (clog-form-element value) +(defgeneric (setf file-accept) (value clog-form-element) (:documentation "Set file-accept VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-file-accept ((obj clog-form-element) value) +(defmethod (setf file-accept) (value (obj clog-form-element)) (setf (attribute obj "accept") value)) -(defsetf file-accept set-file-accept) ;;;;;;;;;;;;; ;; url-src ;; @@ -674,12 +653,11 @@ the File form element type. (defmethod url-src ((obj clog-form-element)) (property obj "src")) -(defgeneric set-url-src (clog-form-element value) +(defgeneric (setf url-src) (value clog-form-element) (:documentation "Set url-src VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-url-src ((obj clog-form-element) value) +(defmethod (setf url-src) (value (obj clog-form-element)) (setf (property obj "src") value)) -(defsetf url-src set-url-src) ;;;;;;;;;;;;;; ;; alt-text ;; @@ -691,12 +669,11 @@ the File form element type. (defmethod alt-text ((obj clog-form-element)) (attribute obj "alt")) -(defgeneric set-alt-text (clog-form-element value) +(defgeneric (setf alt-text) (value clog-form-element) (:documentation "Set alt-text VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-alt-text ((obj clog-form-element) value) +(defmethod (setf alt-text) (value (obj clog-form-element)) (setf (attribute obj "alt") value)) -(defsetf alt-text set-alt-text) ;;;;;;;;;;;;;; ;; checkedp ;; @@ -708,14 +685,13 @@ the File form element type. (defmethod checkedp ((obj clog-form-element)) (js-true-p (property obj "checked"))) -(defgeneric set-checkedp (clog-form-element value) +(defgeneric (setf checkedp) (value clog-form-element) (:documentation "Set VALUE if checkedp for CLOG-FORM-ELEMENT")) -(defmethod set-checkedp ((obj clog-form-element) value) +(defmethod (setf checkedp) (value (obj clog-form-element)) (if value (setf (attribute obj "checked") "true") (remove-attribute obj "checked"))) -(defsetf checkedp set-checkedp) ;;;;;;;;;;;;;;;; ;; input-mode ;; @@ -731,12 +707,11 @@ virtual keyboards.")) (defmethod input-mode ((obj clog-form-element)) (attribute obj "inputmode")) -(defgeneric set-input-mode (clog-form-element value) +(defgeneric (setf input-mode) (value clog-form-element) (:documentation "Set input-mode VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-input-mode ((obj clog-form-element) value) +(defmethod (setf input-mode) (value (obj clog-form-element)) (setf (attribute obj "inputmode") value)) -(defsetf input-mode set-input-mode) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-label @@ -878,12 +853,11 @@ virtual keyboards.")) (defmethod word-wrap ((obj clog-text-area)) (property obj "wrap")) -(defgeneric set-word-wrap (clog-text-area value) +(defgeneric (setf word-wrap) (value clog-text-area) (:documentation "Set word-wrap WORD-WRAP for CLOG-TEXT-AREA")) -(defmethod set-word-wrap ((obj clog-text-area) value) +(defmethod (setf word-wrap) (value (obj clog-text-area)) (setf (property obj "wrap") value)) -(defsetf word-wrap set-word-wrap) ;;;;;;;;;;;;;;; ;; word-wrap ;; @@ -895,12 +869,11 @@ virtual keyboards.")) (defmethod word-wrap ((obj clog-text-area)) (property obj "wrap")) -(defgeneric set-word-wrap (clog-text-area value) +(defgeneric (setf word-wrap) (value clog-text-area) (:documentation "Set word-wrap WORD-WRAP for CLOG-TEXT-AREA")) -(defmethod set-word-wrap ((obj clog-text-area) value) +(defmethod (setf word-wrap) (value (obj clog-text-area)) (setf (property obj "wrap") value)) -(defsetf word-wrap set-word-wrap) ;;;;;;;;;;;;; ;; columns ;; @@ -912,12 +885,11 @@ virtual keyboards.")) (defmethod columns ((obj clog-text-area)) (property obj "cols")) -(defgeneric set-columns (clog-text-area value) +(defgeneric (setf columns) (value clog-text-area) (:documentation "Set columns COLUMNS for CLOG-TEXT-AREA")) -(defmethod set-columns ((obj clog-text-area) value) +(defmethod (setf columns) (value (obj clog-text-area)) (setf (property obj "cols") value)) -(defsetf columns set-columns) ;;;;;;;;;; ;; rows ;; @@ -929,12 +901,11 @@ virtual keyboards.")) (defmethod rows ((obj clog-text-area)) (property obj "rows")) -(defgeneric set-rows (clog-text-area value) +(defgeneric (setf rows) (value clog-text-area) (:documentation "Set rows ROWS for CLOG-TEXT-AREA")) -(defmethod set-rows ((obj clog-text-area) value) +(defmethod (setf rows) (value (obj clog-text-area)) (setf (property obj "rows") value)) -(defsetf rows set-rows) ;;;;;;;;;;;;;;;;;;;; ;; disable-resize ;; @@ -1172,12 +1143,11 @@ or CLOG Data-List objects.")); (defmethod selectedp ((obj clog-form-element)) (js-true-p (property obj "selected"))) -(defgeneric set-selectedp (clog-form-element value) +(defgeneric (setf selectedp) (value clog-form-element) (:documentation "Set selectedp VALUE for CLOG-FORM-ELEMENT")) -(defmethod set-selectedp ((obj clog-form-element) value) +(defmethod (setf selectedp) (value (obj clog-form-element)) (setf (property obj "selected") (p-true-js value))) -(defsetf selectedp set-selectedp) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-optgroup diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index 7abef7c..9224f4b 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -219,13 +219,12 @@ create-gui-menu-bar.")) (let ((app (connection-data-item obj "clog-gui"))) (menu app))) -(defgeneric set-menu-bar (clog-obj value) +(defgeneric (setf menu-bar) (value clog-obj) (:documentation "Set window menu-bar")) -(defmethod set-menu-bar ((obj clog-obj) value) +(defmethod (setf menu-bar) (value (obj clog-obj)) (let ((app (connection-data-item obj "clog-gui"))) (setf (menu app) value))) -(defsetf menu-bar set-menu-bar) ;;;;;;;;;;;;;;;;;;;;; ;; menu-bar-height ;; @@ -827,14 +826,13 @@ the window will be set to keep-on-top always.")) (defmethod window-title ((obj clog-gui-window)) (inner-html (win-title obj))) -(defgeneric set-window-title (clog-gui-window value) +(defgeneric (setf window-title) (value clog-gui-window) (:documentation "Set window title")) -(defmethod set-window-title ((obj clog-gui-window) value) +(defmethod (setf window-title) (value (obj clog-gui-window)) (when (window-select-item obj) (setf (inner-html (window-select-item obj)) value)) (setf (inner-html (win-title obj)) value)) -(defsetf window-title set-window-title) ;;;;;;;;;;;;;;;;;;;; ;; window-content ;; diff --git a/source/clog-location.lisp b/source/clog-location.lisp index c6ccce5..7b0225d 100644 --- a/source/clog-location.lisp +++ b/source/clog-location.lisp @@ -8,7 +8,6 @@ (cl:in-package :clog) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-location ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -34,12 +33,11 @@ (defmethod url ((obj clog-location)) (property obj "href")) -(defgeneric set-url (clog-location value) +(defgeneric (setf url) (value clog-location) (:documentation "Set url VALUE for CLOG-LOCATION")) -(defmethod set-url ((obj clog-location) value) +(defmethod (setf url) (value (obj clog-location)) (setf (property obj "href") value)) -(defsetf url set-url) ;;;;;;;;;; ;; hash ;; @@ -51,12 +49,11 @@ (defmethod hash ((obj clog-location)) (property obj "hash")) -(defgeneric set-hash (clog-location value) +(defgeneric (setf hash) (value clog-location) (:documentation "Set hash VALUE for CLOG-LOCATION")) -(defmethod set-hash ((obj clog-location) value) +(defmethod (setf hash) (value (obj clog-location)) (setf (property obj "hash") value)) -(defsetf hash set-hash) ;;;;;;;;;; ;; host ;; @@ -68,12 +65,11 @@ (defmethod host ((obj clog-location)) (property obj "host")) -(defgeneric set-host (clog-location value) +(defgeneric (setf host) (value clog-location) (:documentation "Set host VALUE for CLOG-LOCATION")) -(defmethod set-host ((obj clog-location) value) +(defmethod (setf host) (value (obj clog-location)) (setf (property obj "host") value)) -(defsetf host set-host) ;;;;;;;;;;;;;;; ;; host-name ;; @@ -85,12 +81,11 @@ (defmethod host-name ((obj clog-location)) (property obj "hostname")) -(defgeneric set-host-name (clog-location value) +(defgeneric (setf host-name) (value clog-location) (:documentation "Set host-name VALUE for CLOG-LOCATION")) -(defmethod set-host-name ((obj clog-location) value) +(defmethod (setf host-name) (value (obj clog-location)) (setf (property obj "hostname") value)) -(defsetf host-name set-host-name) ;;;;;;;;;;;; ;; origin ;; @@ -112,12 +107,11 @@ (defmethod path-name ((obj clog-location)) (property obj "pathname")) -(defgeneric set-path-name (clog-location value) +(defgeneric (setf path-name) (value clog-location) (:documentation "Set path-name VALUE for CLOG-LOCATION")) -(defmethod set-path-name ((obj clog-location) value) +(defmethod (setf path-name) (value (obj clog-location)) (setf (property obj "pathname") value)) -(defsetf path-name set-path-name) ;;;;;;;;;; ;; port ;; @@ -129,12 +123,11 @@ (defmethod port ((obj clog-location)) (property obj "port")) -(defgeneric set-port (clog-location value) +(defgeneric (setf port) (value clog-location) (:documentation "Set port VALUE for CLOG-LOCATION")) -(defmethod set-port ((obj clog-location) value) +(defmethod (setf port) (value (obj clog-location)) (setf (property obj "port") value)) -(defsetf port set-port) ;;;;;;;;;;;;;; ;; protocol ;; @@ -146,12 +139,11 @@ (defmethod protocol ((obj clog-location)) (property obj "protocol")) -(defgeneric set-protocol (clog-location value) +(defgeneric (setf protocol) (value clog-location) (:documentation "Set protocol VALUE for CLOG-LOCATION")) -(defmethod set-protocol ((obj clog-location) value) +(defmethod (setf protocol) (value (obj clog-location)) (setf (property obj "protocol") value)) -(defsetf protocol set-protocol) ;;;;;;;;;;;;;;;; ;; url-search ;; @@ -163,12 +155,11 @@ (defmethod url-search ((obj clog-location)) (property obj "search")) -(defgeneric set-url-search (clog-location value) +(defgeneric (setf url-search) (value clog-location) (:documentation "Set url-search VALUE for CLOG-LOCATION")) -(defmethod set-url-search ((obj clog-location) value) +(defmethod (setf url-search) (value (obj clog-location)) (setf (property obj "search") value)) -(defsetf url-search set-url-search) ;;;;;;;;;;;; ;; reload ;; diff --git a/source/clog-multimedia.lisp b/source/clog-multimedia.lisp index 1f12bf4..4baefa9 100644 --- a/source/clog-multimedia.lisp +++ b/source/clog-multimedia.lisp @@ -29,12 +29,11 @@ (defmethod loop-mediap ((obj clog-multimedia)) (js-true-p (property obj "loop"))) -(defgeneric set-loop-mediap (clog-multimedia value) +(defgeneric (setf loop-mediap) (value clog-multimedia) (:documentation "Set loop-media VALUE for CLOG-MULTIMEDIA")) -(defmethod set-loop-mediap ((obj clog-multimedia) value) +(defmethod (setf loop-mediap) (value (obj clog-multimedia)) (setf (property obj "loop") (p-true-js value))) -(defsetf loop-mediap set-loop-mediap) ;;;;;;;;;;;;;;;;;;;; ;; media-duration ;; @@ -56,12 +55,11 @@ (defmethod media-source ((obj clog-multimedia)) (property obj "src")) -(defgeneric set-media-source (clog-multimedia value) +(defgeneric (setf media-source) (value clog-multimedia) (:documentation "Set media source VALUE for CLOG-MULTIMEDIA")) -(defmethod set-media-source ((obj clog-multimedia) value) +(defmethod (setf media-source) (value (obj clog-multimedia)) (setf (property obj "src") value)) -(defsetf media-source set-media-source) ;;;;;;;;;;;;;;;;;;;; ;; media-position ;; @@ -73,12 +71,11 @@ (defmethod media-position ((obj clog-multimedia)) (parse-float (property obj "currentTime" :default-answer 0) :type 'double-float :junk-allowed t)) -(defgeneric set-media-position (clog-multimedia value) +(defgeneric (setf media-position) (value clog-multimedia) (:documentation "Set media source VALUE for CLOG-MULTIMEDIA")) -(defmethod set-media-position ((obj clog-multimedia) value) +(defmethod (setf media-position) (value (obj clog-multimedia)) (setf (property obj "currentTime") value)) -(defsetf media-position set-media-position) ;;;;;;;;;;;; ;; mutedp ;; @@ -90,12 +87,11 @@ (defmethod mutedp ((obj clog-multimedia)) (js-true-p (property obj "muted"))) -(defgeneric set-mutedp (clog-multimedia value) +(defgeneric (setf mutedp) (value clog-multimedia) (:documentation "Set muted VALUE for CLOG-MULTIMEDIA")) -(defmethod set-mutedp ((obj clog-multimedia) value) +(defmethod (setf mutedp) (value (obj clog-multimedia)) (setf (property obj "muted") (p-true-js value))) -(defsetf mutedp set-mutedp) ;;;;;;;;;;;;; ;; pausedp ;; @@ -139,12 +135,11 @@ Common values - 1.0 normal, 0.5 half speed, -1.0 reverse")) (defmethod playback-rate ((obj clog-multimedia)) (property obj "playbackRate")) -(defgeneric set-playback-rate (clog-multimedia value) +(defgeneric (setf playback-rate) (value clog-multimedia) (:documentation "Set media source VALUE for CLOG-MULTIMEDIA")) -(defmethod set-playback-rate ((obj clog-multimedia) value) +(defmethod (setf playback-rate) (value (obj clog-multimedia)) (setf (property obj "playbackRate") value)) -(defsetf playback-rate set-playback-rate) ;;;;;;;;;;;;;;;;;;;;; ;; ready-to-play-p ;; @@ -167,12 +162,11 @@ duration.")) (defmethod media-volume ((obj clog-multimedia)) (parse-float (property obj "volume" :default-answer 0) :type 'double-float :junk-allowed t)) -(defgeneric set-media-volume (clog-multimedia value) +(defgeneric (setf media-volume) (value clog-multimedia) (:documentation "Set media source VALUE for CLOG-MULTIMEDIA")) -(defmethod set-media-volume ((obj clog-multimedia) value) +(defmethod (setf media-volume) (value (obj clog-multimedia)) (setf (property obj "volume") value)) -(defsetf media-volume set-media-volume) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Methods - clog-multimedia diff --git a/source/clog-web.lisp b/source/clog-web.lisp index 6ecadff..14b5b74 100644 --- a/source/clog-web.lisp +++ b/source/clog-web.lisp @@ -172,13 +172,12 @@ create-web-menu-bar.")) (let ((app (connection-data-item obj "clog-web"))) (web-menu app))) -(defgeneric set-web-menu-bar (clog-obj value) +(defgeneric (setf web-menu-bar) (value clog-obj) (:documentation "Set window web-menu-bar")) -(defmethod set-web-menu-bar ((obj clog-obj) value) +(defmethod (setf web-menu-bar) (value (obj clog-obj)) (let ((app (connection-data-item obj "clog-web"))) (setf (web-menu app) value))) -(defsetf web-menu-bar set-web-menu-bar) ;;;;;;;;;;;;;;;;;;;;;;;;; ;; web-menu-bar-height ;; diff --git a/source/clog-window.lisp b/source/clog-window.lisp index 4c45e19..ba3a026 100644 --- a/source/clog-window.lisp +++ b/source/clog-window.lisp @@ -34,12 +34,11 @@ window.")) (defmethod window-name ((obj clog-window)) (query obj "name")) -(defgeneric set-window-name (clog-window value)) +(defgeneric (setf window-name) (value clog-window)) -(defmethod set-window-name ((obj clog-window) value) +(defmethod (setf window-name) (value (obj clog-window)) (execute obj (format nil "name='~A'" (escape-string value))) value) -(defsetf window-name set-window-name) ;;;;;;;;;;;;;;;; ;; status-bar ;; @@ -51,12 +50,11 @@ window.")) (defmethod status-bar ((obj clog-window)) (query obj "status")) -(defgeneric set-status-bar (clog-window value)) +(defgeneric (setf status-bar) (value clog-window)) -(defmethod set-status-bar ((obj clog-window) value) +(defmethod (setf status-bar) (value (obj clog-window)) (execute obj (format nil "status='~A'" (escape-string value))) value) -(defsetf status-bar set-status-bar) ;;;;;;;;;;;;;;;;;; ;; inner-height ;; @@ -68,12 +66,11 @@ window.")) (defmethod inner-height ((obj clog-window)) (parse-integer (query obj "innerHeight" :default-answer 0) :junk-allowed t)) -(defgeneric set-inner-height (clog-window value)) +(defgeneric (setf inner-height) (value clog-window)) -(defmethod set-inner-height ((obj clog-window) value) +(defmethod (setf inner-height) (value (obj clog-window)) (execute obj (format nil "innerHeight='~A'" (escape-string value))) value) -(defsetf inner-height set-inner-height) ;;;;;;;;;;;;;;;;; ;; inner-width ;; @@ -85,12 +82,11 @@ window.")) (defmethod inner-width ((obj clog-window)) (parse-integer (query obj "innerWidth" :default-answer 0) :junk-allowed t)) -(defgeneric set-inner-width (clog-window value)) +(defgeneric (setf inner-width) (value clog-window)) -(defmethod set-inner-width ((obj clog-window) value) +(defmethod (setf inner-width) (value (obj clog-window)) (execute obj (format nil "innerWidth='~A'" (escape-string value))) value) -(defsetf inner-width set-inner-width) ;;;;;;;;;;;;;;;;;; ;; outer-height ;; @@ -102,12 +98,11 @@ window.")) (defmethod outer-height ((obj clog-window)) (parse-integer (query obj "outerHeight" :default-answer 0) :junk-allowed t)) -(defgeneric set-outer-height (clog-window value)) +(defgeneric (setf outer-height) (value clog-window)) -(defmethod set-outer-height ((obj clog-window) value) +(defmethod (setf outer-height) (value (obj clog-window)) (execute obj (format nil "outerHeight='~A'" (escape-string value))) value) -(defsetf outer-height set-outer-height) ;;;;;;;;;;;;;;;;; ;; outer-width ;; @@ -119,12 +114,11 @@ window.")) (defmethod outer-width ((obj clog-window)) (parse-integer (query obj "outerWidth" :default-answer 0) :junk-allowed t)) -(defgeneric set-outer-width (clog-window value)) +(defgeneric (setf outer-width) (value clog-window)) -(defmethod set-outer-width ((obj clog-window) value) +(defmethod (setf outer-width) (value (obj clog-window)) (execute obj (format nil "outerWidth='~A'" (escape-string value))) value) -(defsetf outer-width set-outer-width) ;;;;;;;;;;;;;; ;; x-offset ;; @@ -136,12 +130,11 @@ window.")) (defmethod x-offset ((obj clog-window)) (parse-integer (query obj "pageXOffset" :default-answer 0) :junk-allowed t)) -(defgeneric set-x-offset (clog-window value)) +(defgeneric (setf x-offset) (value clog-window)) -(defmethod set-x-offset ((obj clog-window) value) +(defmethod (setf x-offset) (value (obj clog-window)) (execute obj (format nil "pageXOffset='~A'" (escape-string value))) value) -(defsetf x-offset set-x-offset) ;;;;;;;;;;;;;; ;; y-offset ;; @@ -153,12 +146,11 @@ window.")) (defmethod y-offset ((obj clog-window)) (parse-integer (query obj "pageYOffset" :default-answer 0) :junk-allowed t)) -(defgeneric set-y-offset (clog-window value)) +(defgeneric (setf y-offset) (value clog-window)) -(defmethod set-y-offset ((obj clog-window) value) +(defmethod (setf y-offset) (value (obj clog-window)) (execute obj (format nil "pageYOffset='~A'" (escape-string value))) value) -(defsetf y-offset set-y-offset) ;;;;;;;;; ;; top ;; @@ -170,12 +162,11 @@ window.")) (defmethod top ((obj clog-window)) (parse-integer (query obj "screenY" :default-answer 0) :junk-allowed t)) -(defgeneric set-top (clog-window value)) +(defgeneric (setf top) (value clog-window)) -(defmethod set-top ((obj clog-window) value) +(defmethod (setf top) (value (obj clog-window)) (execute obj (format nil "screenY='~A'" (escape-string value))) value) -(defsetf top set-top) ;;;;;;;;;; ;; left ;; @@ -187,12 +178,11 @@ window.")) (defmethod left ((obj clog-window)) (parse-integer (query obj "screenX" :default-answer 0) :junk-allowed t)) -(defgeneric set-left (clog-window value)) +(defgeneric (setf left) (value clog-window)) -(defmethod set-left ((obj clog-window) value) +(defmethod (setf left) (value (obj clog-window)) (execute obj (format nil "screenX='~A'" (escape-string value))) value) -(defsetf left set-left) ;;;;;;;;;;;;;;;;; ;; pixel-ratio ;; @@ -544,13 +534,12 @@ STORAGE-TYPE. (local = persistant or session)")) storage-type (escape-string key-name)))) -(defgeneric set-storage-element (clog-window storage-type key-name value) +(defgeneric (setf storage-element) (value clog-window storage-type key-name) (:documentation "Set storage-element.")) -(defmethod set-storage-element ((obj clog-window) storage-type key-name value) +(defmethod (setf storage-element) (value (obj clog-window) storage-type key-name) (execute obj (format nil "~(~a~)Storage.setItem('~A','~A')" storage-type (escape-string key-name) (escape-string value))) value) -(defsetf storage-element set-storage-element)