diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index a4956cf..8c059f5 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -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'
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 01de085..e0829ee 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -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)