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

open-window on remote browsers

Browse source
This commit is contained in:
David Botton 2021-03-24 18:13:37 -04:00
parent 9182c986f6
commit 49244b4a40
3 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
source/clog-window.lisp
View file

@ -368,6 +368,21 @@ events and messages may not be trasmitted on most browsers."))
(defmethod resize-to ((obj clog-window) x y)
(execute obj (format nil "resizeTo(~A,~A)" x y)))
;;;;;;;;;;;;;;;;;
;; open-window ;;
;;;;;;;;;;;;;;;;;
(defgeneric open-window (clog-window url &key name specs replace)
(:documentation "This will launch a new window of current browser where
CLOG-WINDOW is displayed (remote or local). In modern browsers it is
very limitted to just open a new tab with url unless is a localhost url."))
(defmethod open-window ((obj clog-window) url &key
(name "_blank")
(specs "")
(replace "false"))
(execute obj (format nil "open('~A','~A','~A',~A)" url name specs replace)))
;;;;;;;;;;;;;;;;;;
;; close-window ;;
;;;;;;;;;;;;;;;;;;