mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Use direct DOM calls to make dialog methods work

Browse source
This commit is contained in:
Mike Ivanov 2025-01-24 16:16:08 -08:00
parent 5fcf8c7e06
commit c1a6635251
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