mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
53 lines
1.3 KiB
Common Lisp
53 lines
1.3 KiB
Common Lisp
(defpackage #:clog-user
|
|
(:use #:cl #:clog)
|
|
(:export start-tutorial))
|
|
|
|
(in-package :clog-user)
|
|
|
|
(defun on-new-window (body)
|
|
(let* ((t1 (create-button body :content "Tab1"))
|
|
(t2 (create-button body :content "Tab2"))
|
|
(t3 (create-button body :content "Tab3"))
|
|
(p1 (create-div body :content "Panel1 - Type here"))
|
|
(p2 (create-div body :content "Panel2 - Type here"))
|
|
(p3 (create-div body :content "Panel3 - Type here")))
|
|
|
|
(place-after t3 (create-br body))
|
|
|
|
(setf (width p1) 600)
|
|
(setf (width p2) 600)
|
|
(setf (width p3) 600)
|
|
|
|
(setf (height p1) 300)
|
|
(setf (height p2) 300)
|
|
(setf (height p3) 300)
|
|
|
|
(set-border p1 :thin :solid :black)
|
|
(set-border p2 :thin :solid :black)
|
|
(set-border p3 :thin :solid :black)
|
|
|
|
(setf (editablep p1) t)
|
|
(setf (editablep p2) t)
|
|
(setf (editablep p3) t)
|
|
|
|
(flet ((select-tab (obj)
|
|
(setf (hiddenp p1) t)
|
|
(setf (hiddenp p2) t)
|
|
(setf (hiddenp p3) t)
|
|
(setf (hiddenp obj) nil)
|
|
(focus obj)))
|
|
|
|
(select-tab p1)
|
|
|
|
(set-on-click t1 (lambda (obj)
|
|
(select-tab p1)))
|
|
(set-on-click t2 (lambda (obj)
|
|
(select-tab p2)))
|
|
(set-on-click t3 (lambda (obj)
|
|
(select-tab p3))))))
|
|
|
|
(defun start-tutorial ()
|
|
"Start turtorial."
|
|
|
|
(initialize #'on-new-window)
|
|
(open-browser))
|