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

10
source/clog-gui.lisp
View file

@ -15,7 +15,7 @@
(mgl-pax:define-package :clog-gui
(:documentation "CLOG-GUI a desktop GUI abstraction for CLOG")
(:use #:cl #:parse-float #:clog #:mgl-pax))
(:use #:cl #:clog #:mgl-pax))
(cl:in-package :clog-gui)
@ -355,8 +355,8 @@ window or nil if not found"))
(defun make-in-bounds (obj mbh bh bw)
"Insure obj in bounds of gui (private)"
(let* ((top-loc (parse-integer (top obj) :junk-allowed t))
(left-loc (parse-integer (left obj) :junk-allowed t))
(let* ((top-loc (js-to-integer (top obj)))
(left-loc (js-to-integer (left obj)))
(width-loc (width obj)))
(if (< (+ left-loc width-loc) 25)
(setf (left obj) (unit :px (- 25 width-loc))))
@ -730,9 +730,9 @@ The on-window-change clog-obj received is the new window"))
(setf (drag-obj app) target)
(cond ((equalp (in-drag app) "m")
(setf obj-top
(parse-integer (top (drag-obj app)) :junk-allowed t))
(js-to-integer (top (drag-obj app))))
(setf obj-left
(parse-integer (left (drag-obj app)) :junk-allowed t))
(js-to-integer (left (drag-obj app))))
(setf perform-drag (fire-on-window-can-move (drag-obj app))))
((equalp (in-drag app) "s")
(setf obj-top (height (drag-obj app)))