Closed anranyicheng closed 3 years ago
(defun gtk-window-get-position (window) ............ (with-foreign-objects ((x :int) (y :int)) (%gtk-window-get-position window x y) (values (mem-ref x :int) (mem-ref y :int)))) ------->> (with-foreign-objects ((x :int) (y :int)) (%gtk-window-get-position window x y) (values (list (mem-ref x :int) (mem-ref y :int)))))
(defun gtk-window-get-size (window) .......... (with-foreign-objects ((width :int) (height :int)) (%gtk-window-get-size window width height) (values (mem-ref width :int) (mem-ref height :int)))) ------->> (with-foreign-objects ((width :int) (height :int)) (%gtk-window-get-size window width height) (values (list (mem-ref width :int) (mem-ref height :int)))))
(defun gtk-window-get-position (window)
............ (with-foreign-objects ((x :int) (y :int)) (%gtk-window-get-position window x y) (values (mem-ref x :int) (mem-ref y :int)))) ------->> (with-foreign-objects ((x :int) (y :int)) (%gtk-window-get-position window x y) (values (list (mem-ref x :int) (mem-ref y :int)))))
(defun gtk-window-get-size (window) .......... (with-foreign-objects ((width :int) (height :int)) (%gtk-window-get-size window width height) (values (mem-ref width :int) (mem-ref height :int)))) ------->> (with-foreign-objects ((width :int) (height :int)) (%gtk-window-get-size window width height) (values (list (mem-ref width :int) (mem-ref height :int)))))