diff --git a/source/clog-helpers.lisp b/source/clog-helpers.lisp index a36378f..4e08453 100644 --- a/source/clog-helpers.lisp +++ b/source/clog-helpers.lisp @@ -19,11 +19,12 @@ :add-file-extension :clog-builder-probe :clog-builder-scope - :clog-db-admin)) + :clog-db-admin + :*scope*)) (defpackage #:clog-user (:use #:cl #:clog #:clog-gui #:clog-web) - (:import-from :clog-tools #:clog-builder-probe #:clog-builder-scope) + (:import-from :clog-tools :*scope* #:clog-builder-probe #:clog-builder-scope) (:export :*body* :clog-repl)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/tools/clog-builder-scope.lisp b/tools/clog-builder-scope.lisp index f0522b8..da6446e 100644 --- a/tools/clog-builder-scope.lisp +++ b/tools/clog-builder-scope.lisp @@ -346,8 +346,11 @@ name. If CLOG-BODY not set use *clog-debug-instance*" (on-change (object &key is-list) (setf (text tree) "") (browser-gc obj) + (if is-list + (setf *scope* (first object)) + (setf *scope* object)) (create-div tree :class "w3-tiny w3-center" - :content "left-click - drill down / right-click - system browse

") + :content "left-click - drill down / right-click - system browse - clog-tools:*scope* current object

") (if is-list (add-list tree object) (progn diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index df79152..969a3e7 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -20,6 +20,8 @@ clog-builder window.") (defparameter *start-dir* nil "Set the directory the dir win should start with") (defparameter *client-side-movement* nil "Use javascript for window movement") +(defvar *scope* nil "The last evaluated scope object") + ;; Per instance app data (defclass builder-app-data ()