mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

fixed regression related to auto-place

Browse source
This commit is contained in:
David Botton 2021-03-12 17:27:32 -05:00
parent ada53ac2ac
commit 5b45e391b5
4 changed files with 52 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/25-tutorial.lisp
View file

@ -17,7 +17,7 @@
;;;; ---------------------------------------------------------
(defpackage #:clog-user
(:use #:cl #:clog #:clog-web #:clog-gui)
(:use #:cl #:clog #:clog-web)
(:export start-tutorial))
(in-package :clog-user)
@ -30,7 +30,7 @@
(results-section (create-web-content body :class "w3-monospace")))
;; Setup command section
(let* ((form (create-form command-section))
(command (create-form-element form :text
(command (create-form-element form :text :class "w3-input w3-border"
:label (create-label form
:content "Enter Command: ")))
(button (create-form-element form :submit)))
@ -50,7 +50,7 @@
(setf (scroll-top results-section)
(scroll-height results-section)))
(error (c)
(alert-toast body "Error" c :time-out 2 :place-top t)))
(clog-web-alert command-section "Error" c :time-out 5)))
(setf (value command) ""))))
(setf (overflow results-section) :scroll)
(set-border results-section :thin :solid :black)