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