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

Better handling of parsing integer and float values

Browse source
This commit is contained in:
David Botton 2024-02-06 20:00:42 -05:00
parent f631a43059
commit d07b41dd73
10 changed files with 155 additions and 132 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-multimedia.lisp
View file

@ -43,7 +43,7 @@
(:documentation "Get/Setf media in seconds property."))
(defmethod media-duration ((obj clog-multimedia))
(parse-float (property obj "duration" :default-answer 0) :type 'double-float :junk-allowed t))
(js-to-float (property obj "duration")))
;;;;;;;;;;;;;;;;;;
;; media-source ;;
@ -69,7 +69,7 @@
(:documentation "Get/Setf postion of media in seconds."))
(defmethod media-position ((obj clog-multimedia))
(parse-float (property obj "currentTime" :default-answer 0) :type 'double-float :junk-allowed t))
(js-to-float (property obj "currentTime")))
(defgeneric (setf media-position) (value clog-multimedia)
(:documentation "Set media source VALUE for CLOG-MULTIMEDIA"))
@ -160,7 +160,7 @@ duration."))
(:documentation "Get/Setf media volume, not system volume. 0.0 .. 1.0"))
(defmethod media-volume ((obj clog-multimedia))
(parse-float (property obj "volume" :default-answer 0) :type 'double-float :junk-allowed t))
(js-to-float (property obj "volume")))
(defgeneric (setf media-volume) (value clog-multimedia)
(:documentation "Set media source VALUE for CLOG-MULTIMEDIA"))