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

Merge pull request #406 from mikeivanov/fix-dialog-jquery

Browse source 
Use direct DOM calls to make dialog methods work
This commit is contained in:
David Botton 2025-01-25 21:38:44 -05:00 • committed by GitHub
commit 4359d00e8a
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -307,12 +307,12 @@ firefox and dialog does not work at all on IE."))
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
(defgeneric show-dialog (clog-dialog &key modal) (defgeneric show-dialog (clog-dialog &key modal)
(:documentation "Close dialog.")) (:documentation "Show dialog."))
(defmethod show-dialog ((obj clog-dialog) &key (modal nil)) (defmethod show-dialog ((obj clog-dialog) &key (modal nil))
(if modal (if modal
(jquery-execute obj (format nil "showModal()")) (jquery-execute obj (format nil "get(0).showModal()"))
(jquery-execute obj (format nil "show()")))) (jquery-execute obj (format nil "get(0).show()"))))
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
;; close-dialog ;; ;; close-dialog ;;
@ -322,7 +322,7 @@ firefox and dialog does not work at all on IE."))
(:documentation "Close dialog.")) (:documentation "Close dialog."))
(defmethod close-dialog ((obj clog-dialog)) (defmethod close-dialog ((obj clog-dialog))
(jquery-execute obj (format nil "close()"))) (jquery-execute obj (format nil "get(0).close()")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-hr ;; Implementation - clog-hr