mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-05 18:20:36 -08:00
Code Issues Projects Releases Wiki Activity

tweaks to dialog

Browse source
This commit is contained in:
David Botton 2021-02-16 23:16:58 -05:00
parent a8c0b8fc4f
commit 20d5238a84
2 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
demos/03-demo.lisp
View file

@ -75,8 +75,9 @@
(format nil "editor_~A.setValue('~A');editor_~A.moveCursorTo(0,0);"
(html-id (current-window obj))
(escape-string (read-file fname))
(html-id (current-window obj)))))
:left (- (/ (width (body app)) 2) 200)))))
(html-id (current-window obj))))))
:top 10
:left (- (/ (width (body app)) 2) 200))))
(defun do-ide-file-save-as (obj)
(let* ((app (connection-data-item obj "app-data"))
@ -90,8 +91,9 @@
(write-file (js-query obj (format nil "editor_~A.getValue()"
(html-id cw)))
fname)))
:left (- (/ (width (body app)) 2) 200)
:initial-filename (window-title cw)))))
:top 10
:left (- (/ (width (body app)) 2) 200)
:initial-filename (window-title cw)))))
(defun do-ide-file-save (obj)
(if (equalp (window-title (current-window obj)) "New Window")