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

text-value works for elements and form elements

Browse source
This commit is contained in:
David Botton 2022-02-17 21:52:00 -05:00
parent 03e75645f3
commit c8493d1053
3 changed files with 33 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

34
source/clog-element-common.lisp
View file

@ -453,19 +453,24 @@ place-inside-bottom-of CLOG-OBJ."))
;; value ;;
;;;;;;;;;;;
(defgeneric value (clog-meter)
(:documentation "Get/Setf the value of the meter."))
(defmethod value ((obj clog-meter))
(property obj "value"))
(defgeneric set-value (clog-meter value)
(:documentation "Set value VALUE for CLOG-METER"))
(defmethod set-value ((obj clog-meter) value)
(setf (property obj "value") value))
(defsetf value set-value)
;;;;;;;;;;;;;;;;
;; text-value ;;
;;;;;;;;;;;;;;;;
(defmethod text-value ((obj clog-meter))
(property obj "value"))
(defmethod set-text-value ((obj clog-meter) value)
(setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;;
;; high ;;
;;;;;;;;;;
@ -592,19 +597,24 @@ place-inside-bottom-of CLOG-OBJ."))
;; value ;;
;;;;;;;;;;;
(defgeneric value (clog-progress-bar)
(:documentation "Get/Setf the value of the progress-bar."))
(defmethod value ((obj clog-progress-bar))
(property obj "value"))
(defgeneric set-value (clog-progress-bar value)
(:documentation "Set value VALUE for CLOG-PROGRESS-BAR"))
(defmethod set-value ((obj clog-progress-bar) value)
(setf (property obj "value") value))
(defsetf value set-value)
;;;;;;;;;;;;;;;;
;; text-value ;;
;;;;;;;;;;;;;;;;
(defmethod text-value ((obj clog-progress-bar))
(property obj "value"))
(defmethod set-text-value ((obj clog-progress-bar) value)
(setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;
;; maximum ;;
;;;;;;;;;;;;;