mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

defsetf functions now return value

Browse source
This commit is contained in:
David Botton 2021-12-10 09:34:54 -05:00
parent bc9bda5c74
commit a8d6c7c162
4 changed files with 52 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

33
source/clog-window.lisp
View file

@ -38,7 +38,8 @@ window."))
(defgeneric set-window-name (clog-window value))
(defmethod set-window-name ((obj clog-window) value)
(execute obj (format nil "name='~A'" (escape-string value))))
(execute obj (format nil "name='~A'" (escape-string value)))
value)
(defsetf window-name set-window-name)
;;;;;;;;;;;;;;;;
@ -54,7 +55,8 @@ window."))
(defgeneric set-status-bar (clog-window value))
(defmethod set-status-bar ((obj clog-window) value)
(execute obj (format nil "status='~A'" (escape-string value))))
(execute obj (format nil "status='~A'" (escape-string value)))
value)
(defsetf status-bar set-status-bar)
;;;;;;;;;;;;;;;;;;
@ -70,7 +72,8 @@ window."))
(defgeneric set-inner-height (clog-window value))
(defmethod set-inner-height ((obj clog-window) value)
(execute obj (format nil "innerHeight='~A'" (escape-string value))))
(execute obj (format nil "innerHeight='~A'" (escape-string value)))
value)
(defsetf inner-height set-inner-height)
;;;;;;;;;;;;;;;;;
@ -86,7 +89,8 @@ window."))
(defgeneric set-inner-width (clog-window value))
(defmethod set-inner-width ((obj clog-window) value)
(execute obj (format nil "innerWidth='~A'" (escape-string value))))
(execute obj (format nil "innerWidth='~A'" (escape-string value)))
value)
(defsetf inner-width set-inner-width)
;;;;;;;;;;;;;;;;;;
@ -102,7 +106,8 @@ window."))
(defgeneric set-outer-height (clog-window value))
(defmethod set-outer-height ((obj clog-window) value)
(execute obj (format nil "outerHeight='~A'" (escape-string value))))
(execute obj (format nil "outerHeight='~A'" (escape-string value)))
value)
(defsetf outer-height set-outer-height)
;;;;;;;;;;;;;;;;;
@ -118,7 +123,8 @@ window."))
(defgeneric set-outer-width (clog-window value))
(defmethod set-outer-width ((obj clog-window) value)
(execute obj (format nil "outerWidth='~A'" (escape-string value))))
(execute obj (format nil "outerWidth='~A'" (escape-string value)))
value)
(defsetf outer-width set-outer-width)
;;;;;;;;;;;;;;
@ -134,7 +140,8 @@ window."))
(defgeneric set-x-offset (clog-window value))
(defmethod set-x-offset ((obj clog-window) value)
(execute obj (format nil "pageXOffset='~A'" (escape-string value))))
(execute obj (format nil "pageXOffset='~A'" (escape-string value)))
value)
(defsetf x-offset set-x-offset)
;;;;;;;;;;;;;;
@ -150,7 +157,8 @@ window."))
(defgeneric set-y-offset (clog-window value))
(defmethod set-y-offset ((obj clog-window) value)
(execute obj (format nil "pageYOffset='~A'" (escape-string value))))
(execute obj (format nil "pageYOffset='~A'" (escape-string value)))
value)
(defsetf y-offset set-y-offset)
;;;;;;;;;
@ -166,7 +174,8 @@ window."))
(defgeneric set-top (clog-window value))
(defmethod set-top ((obj clog-window) value)
(execute obj (format nil "screenY='~A'" (escape-string value))))
(execute obj (format nil "screenY='~A'" (escape-string value)))
value)
(defsetf top set-top)
;;;;;;;;;;
@ -182,7 +191,8 @@ window."))
(defgeneric set-left (clog-window value))
(defmethod set-left ((obj clog-window) value)
(execute obj (format nil "screenX='~A'" (escape-string value))))
(execute obj (format nil "screenX='~A'" (escape-string value)))
value)
(defsetf left set-left)
;;;;;;;;;;;;;;;;;
@ -542,5 +552,6 @@ STORAGE-TYPE. (local = persistant or session)"))
(execute obj (format nil "~(~a~)Storage.setItem('~A','~A')"
storage-type
(escape-string key-name)
(escape-string value))))
(escape-string value)))
value)
(defsetf storage-element set-storage-element)