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

Add some readme

Browse source
This commit is contained in:
David Botton 2021-01-12 21:27:54 -05:00
parent c55742badf
commit ea858570e5
2 changed files with 39 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
README.md
View file

@ -9,6 +9,29 @@ The Common Lisp Omnificient GUI, CLOG for short, uses web technology
to produce graphical user interfaces for applications locally or
remotely, ie as web applications.
Many have asked me -
Why? or How is this different from X Y Z web framework?
The answer is -
Why?
Because more and more a browser "control" or window
is the only medium you can use to do anything cross
platform. You are limited to the languages and the
tools dictated. A GUI framework using the browser
to render the GUI is the perfect solution.
What's the difference from x or y web framework?
The best way to understand the difference is look
through the tutorials and demos, this is a GUI
framework that happens to use the browser for
rendering, the internet for remoting your apps etc.
At the same time your app is already a web app and
there is no reason not to deploy it (soon) as a
web "site" also.
View the HTML Documentation:
https://rabbibotton.github.io/clog/clog-manual.html

19
tutorial/09-tutorial.lisp
View file

@ -7,9 +7,9 @@
(defun on-new-window (body)
(let* (last-tab
;; Note: Since the there is no need to use the tmp objects
;; we reuse the same symbol name even though the
;; compiler can mark those for collection early
;; there is no issue as the element is created already
;; we reuse the same symbol name (tmp) even though the
;; compiler can mark those for garbage collection early
;; this not an issue as the element is created already
;; in the browser window.
;; Create tabs and panels
@ -34,6 +34,9 @@
(tmp (create-form-element f1 :reset :value "Start Again"))
(dl))
;; Panel 1 contents
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setf (place-holder fe1) "type here..")
(setf (requiredp fe1) t)
(setf (size fe1) 60)
@ -71,9 +74,19 @@
(set-border p2 :thin :solid :black)
(set-border p3 :thin :solid :black)
;; Panel 2 contents
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setf (editablep p2) t)
;; Panel 3 contents
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setf (editablep p3) t)
;; Tab functionality
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(flet ((select-tab (obj)
(setf (hiddenp p1) t)
(setf (hiddenp p2) t)