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

remove all defsetf

Browse source
This commit is contained in:
David Botton 2022-07-11 15:53:25 -04:00
parent 4130fce7ab
commit 02e4ed8fc1
10 changed files with 324 additions and 485 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-web.lisp
View file

@ -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 ;;