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

color titles

Browse source
This commit is contained in:
David Botton 2022-08-23 01:18:50 -04:00
parent b5c33af83e
commit 815201db8f
2 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-gui.lisp
View file

@ -680,6 +680,8 @@ The on-window-change clog-obj received is the new window"))
keep-on-top
hidden
client-movement
border-class
title-class
html-id)
(: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
@ -701,6 +703,8 @@ the window will be set to keep-on-top always."))
(keep-on-top nil)
(hidden nil)
(client-movement nil)
(border-class "w3-card-4 w3-white w3-border")
(title-class "w3-black")
(html-id nil))
(let ((app (connection-data-item obj "clog-gui")))
(unless html-id
@ -725,8 +729,8 @@ the window will be set to keep-on-top always."))
(format nil
"<div style='position:fixed;top:~Apx;left:~Apx;width:~Apx;height:~Apx;
z-index:~A;visibility:hidden'
class='w3-card-4 w3-white w3-border'>
<div id='~A-title-bar' class='w3-container w3-black'
class='~A'>
<div id='~A-title-bar' class='w3-container ~A'
style='position:absolute;top:0;right:0;left:0;height:25px'>
<span data-drag-obj='~A' data-drag-type='m' id='~A-title'
style='position:absolute;top:0;right:20px;left:5px;
@ -740,7 +744,8 @@ the window will be set to keep-on-top always."))
class='w3-right' data-drag-obj='~A' data-drag-type='s'>+</div>
</div>"
top left width height (incf (last-z app)) ; outer div
html-id html-id html-id ; title bar
border-class
html-id title-class html-id html-id ; title bar
title ; title
(if has-pinner ; pinner
(format nil "<span id='~A-pinner'

21
tools/clog-builder.lisp
View file

@ -1113,7 +1113,7 @@ of controls and double click to select control."
""))
:eval-in-package package)))
(open-window (window (connection-body obj)) "http://127.0.0.1:8080/test")
(on-open-file obj :title "test eval" :text result)))
(on-open-file obj :title-class "w3-yellow" :title "test eval" :text result)))
(defun on-show-control-properties-win (obj)
"Show control properties window"
@ -2219,9 +2219,10 @@ of controls and double click to select control."
(when (eq (car form) 'in-package)
(return (string-downcase (second form))))))))
(defun on-open-file (obj &key open-file (title "New Source Editor") text)
(defun on-open-file (obj &key open-file (title "New Source Editor") text (title-class "w3-black"))
(let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :title title
:title-class title-class
:top 40 :left 225
:width 645 :height 430
:client-movement t))
@ -2257,7 +2258,7 @@ of controls and double click to select control."
(if lisp-file
(setf (current-editor-is-lisp app) (text-value pac-line))
(setf (current-editor-is-lisp app) nil))))
(setf (background-color tool-bar) :black)
(add-class tool-bar title-class)
(setf (advisory-title btn-paste) "paste")
(setf (advisory-title btn-cut) "cut")
(setf (advisory-title btn-del) "delete")
@ -2375,20 +2376,20 @@ of controls and double click to select control."
(let ((result (capture-eval lf
:clog-obj (connection-body obj)
:eval-in-package (text-value pac-line))))
(on-open-file obj :title "form eval" :text result))))))
(on-open-file obj :title-class "w3-blue" :title "form eval" :text result))))))
(set-on-click btn-esel (lambda (obj)
(let ((val (clog-ace:selected-text ace)))
(unless (equal val "")
(let ((result (capture-eval val :clog-obj obj
:eval-in-package (text-value pac-line))))
(on-open-file obj :title "selection eval" :text result))))))
(on-open-file obj :title-class "w3-blue" :title "selection eval" :text result))))))
(set-on-click btn-test (lambda (obj)
(let ((val (text-value ace)))
(unless (equal val "")
(let ((result (capture-eval val :clog-obj obj
:eval-in-package (text-value pac-line))))
(on-open-file obj :title "file eval" :text result))))))))
(on-open-file obj :title-class "w3-blue" :title "file eval" :text result))))))))
(defun on-repl (obj)
"Open quick start"
(let* ((win (create-gui-window obj :title "CLOG Builder REPL"
@ -2874,9 +2875,11 @@ of controls and double click to select control."
(when result
(handler-case
(on-open-file body :title (format nil "Callers of ~A" result)
:title-class "w3-orange"
:text (swank::list-callers (read-from-string result)))
(t (c)
(on-open-file body :title "Error - Calleers"
(on-open-file body :title "Error - Callers"
:title-class "w3-red"
:text c)))))))
(defun on-show-callees (body)
@ -2885,9 +2888,11 @@ of controls and double click to select control."
(when result
(handler-case
(on-open-file body :title (format nil "Callees of ~A" result)
:title-class "w3-orange"
:text (swank::list-callees (read-from-string result)))
(t (c)
(on-open-file body :title "Error - Callee"
(on-open-file body :title "Error - Callees"
:title-class "w3-red"
:text c)))))))
(defun on-new-builder (body)