diff --git a/tools/clog-builder-scope.lisp b/tools/clog-builder-scope.lisp
new file mode 100644
index 0000000..667c4bd
--- /dev/null
+++ b/tools/clog-builder-scope.lisp
@@ -0,0 +1,75 @@
+(in-package :clog-tools)
+
+(defun on-object-scope (obj &key object title)
+    (let* ((*default-title-class*      *builder-title-class*)
+           (*default-border-class*     *builder-border-class*)
+           (win         (create-gui-window obj :title "CLOG Object Scope"
+                                           :width 640
+                                           :has-pinner t
+                                           :keep-on-top t
+                                           :client-movement *client-side-movement*))
+           (root-obj    (create-form-element (window-content win) :text))
+           class
+           (tree        (create-panel (window-content win)
+                                      :class "w3-small"
+                                      :overflow :scroll
+                                      :top 30 :bottom 0 :left 0 :right 0)))
+      (set-on-click (create-span (window-icon-area win)
+                                 :content (format nil "~A " (code-char #x26F6))
+                               :auto-place :top)
+                    (lambda (obj)
+                      (declare (ignore obj))
+                      (set-geometry win
+                                    :top (menu-bar-height win)
+                                    :left 300
+                                    :height "" :width ""
+                                    :bottom 5 :right 0)
+                      (set-on-window-move win nil)
+                      (set-on-window-move win (lambda (obj)
+                                                (setf (width obj) (width obj))
+                                                (setf (height obj) (height obj))))))
+      (if title
+          (setf (text-value root-obj) title)
+          (setf (text-value root-obj) (format nil "~a" object)))
+      (setf (positioning root-obj) :absolute)
+      (set-geometry root-obj :height 27 :width "100%" :top 0 :left 0 :right 0)
+      (labels ((escape-lisp (object)
+                 (let ((value (format nil "~A" object)))
+                   (setf value (ppcre:regex-replace-all "<" value "&lt;"))
+                   (setf value (ppcre:regex-replace-all ">" value "&gt;"))))
+               (add-class (node class object)
+                 (let* ((class-tree (create-clog-tree node
+                                                      :indent-level (if (typep node 'clog-panel)
+                                                                        0
+                                                                        (1+ (indent-level node)))
+                                                      :content (format nil "Class Name: ~A : Object Value ~A"
+                                                                       (escape-lisp class) (escape-lisp object)))))
+                   (create-clog-tree (tree-root class-tree)
+                                     :node-html "&#x1F56E;"
+                                     :content "Slots"
+                                     :visible nil
+                                     :indent-level (1+ (indent-level class-tree))
+                                     :fill-function (lambda (obj)
+                                                      (on-slots obj class object)))))
+               (on-slots (obj class object)
+                 (mapcar (lambda (slot)
+                           (create-clog-tree (tree-root obj)
+                                             :indent-level (1+ (indent-level obj))
+                                             :node-html "&#x1F588;"
+                                             :visible nil
+                                             :fill-function (lambda (obj)
+                                                              (let* ((object (slot-value object (closer-mop:slot-definition-name slot)))
+                                                                     (class (class-of object)))
+                                                                (add-class obj class object)))
+                                             :content (format nil "Slot Name ~A : Slot Value = ~A"
+                                                              (closer-mop:slot-definition-name slot)
+                                                              (escape-lisp (slot-value object (closer-mop:slot-definition-name slot))))))
+                         (closer-mop:class-slots class)))
+               (on-change (object)
+                 (setf (text tree) "")
+                 (setf class (class-of object))
+                 (add-class tree class object)))
+        (set-on-change root-obj (lambda (obj)
+                                  (declare (ignore obj))
+                                  (on-change (eval (read-from-string (text-value root-obj))))))
+        (on-change object))))
\ No newline at end of file