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

Update date and comments

Browse source
This commit is contained in:
David Botton 2024-02-03 22:51:19 -05:00
parent 7859cb8bbc
commit 5142af4da5
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
source/clog-gui.lisp
View file

@ -815,14 +815,15 @@ The on-window-change clog-obj received is the new window"))
title-class title-class
html-id) html-id)
(:documentation "Create a clog-gui-window. If client-movement is t then (:documentation "Create a clog-gui-window. If client-movement is t then
use jquery-ui to move/resize and will not work on mobile. When client-movement use jquery-ui to move/resize and will not work on mobile and touch events
is t only on-window-move is fired once at start of drag and on-window-move-done are limitted to clicks. When client-movement is t only on-window-move is fired
at end of drag and on-window-resize at start of resize and once at start of drag and on-window-move-done at end of drag and
on-window-resize-done at end of resize. If has-pinner a toggle wil appear on on-window-resize at start of resize and on-window-resize-done at end of resize.
title bar to allow pinning the window in place, if keep-on-top t then when If has-pinner a toggle wil appear on title bar to allow pinning the window in
pinned also will keep-on-top. If had-pinned is nil and keep-on-top t then place, if keep-on-top t then when pinned also will keep-on-top. If had-pinned
the window will be set to keep-on-top always. window-param is a general parameter is nil and keep-on-top t then the window will be set to keep-on-top always.
for identifiying the window to use with window-to-top-by-param or window-by-param.")) window-param is a general parameter for identifiying the window to use with
window-to-top-by-param or window-by-param."))
(defmethod create-gui-window ((obj clog-obj) &key (title "New Window") (defmethod create-gui-window ((obj clog-obj) &key (title "New Window")
(content "") (content "")

4
tutorial/22-tutorial.lisp
View file

@ -109,7 +109,7 @@
<center>CLOG</center> <center>CLOG</center>
<center>The Common Lisp Omnificent GUI</center></div> <center>The Common Lisp Omnificent GUI</center></div>
<div><p><center>Tutorial 22</center> <div><p><center>Tutorial 22</center>
<center>(c) 2021 - David Botton</center></p></div>" <center>(c) 2024 - David Botton</center></p></div>"
:hidden t :hidden t
:width 200 :width 200
:height 215))) :height 215)))
@ -129,7 +129,7 @@
(defun on-new-window (body) (defun on-new-window (body)
(setf (title (html-document body)) "Tutorial 22") (setf (title (html-document body)) "Tutorial 22")
;; For web oriented apps consider using the :client-movement option. ;; For web oriented apps consider using the :client-movement option.
;; See clog-gui-initialize documentation. ;; See clog-gui-window documentation.
(clog-gui-initialize body) (clog-gui-initialize body)
(add-class body "w3-cyan") (add-class body "w3-cyan")
(let* ((menu (create-gui-menu-bar body)) (let* ((menu (create-gui-menu-bar body))