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

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) (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