From c1a66352511709e28bb3a897711f1620dd3733cb Mon Sep 17 00:00:00 2001 From: Mike Ivanov Date: Fri, 24 Jan 2025 16:16:08 -0800 Subject: [PATCH] Use direct DOM calls to make dialog methods work --- source/clog-element-common.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/clog-element-common.lisp b/source/clog-element-common.lisp index c39abda..30b48d4 100644 --- a/source/clog-element-common.lisp +++ b/source/clog-element-common.lisp @@ -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