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

added *scope*

Browse source
This commit is contained in:
David Botton 2024-06-14 18:05:21 -04:00
parent bdf966dd69
commit c78061b811
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-helpers.lisp
View file

@ -19,11 +19,12 @@
:add-file-extension :add-file-extension
:clog-builder-probe :clog-builder-probe
:clog-builder-scope :clog-builder-scope
:clog-db-admin)) :clog-db-admin
:*scope*))
(defpackage #:clog-user (defpackage #:clog-user
(:use #:cl #:clog #:clog-gui #:clog-web) (: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)) (:export :*body* :clog-repl))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

5
tools/clog-builder-scope.lisp
View file

@ -346,8 +346,11 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(on-change (object &key is-list) (on-change (object &key is-list)
(setf (text tree) "") (setf (text tree) "")
(browser-gc obj) (browser-gc obj)
(if is-list
(setf *scope* (first object))
(setf *scope* object))
(create-div tree :class "w3-tiny w3-center" (create-div tree :class "w3-tiny w3-center"
:content "left-click - drill down / right-click - system browse<br><br>") :content "left-click - drill down / right-click - system browse - clog-tools:*scope* current object<br><br>")
(if is-list (if is-list
(add-list tree object) (add-list tree object)
(progn (progn

2
tools/clog-builder.lisp
View file

@ -20,6 +20,8 @@ clog-builder window.")
(defparameter *start-dir* nil "Set the directory the dir win should start with") (defparameter *start-dir* nil "Set the directory the dir win should start with")
(defparameter *client-side-movement* nil "Use javascript for window movement") (defparameter *client-side-movement* nil "Use javascript for window movement")
(defvar *scope* nil "The last evaluated scope object")
;; Per instance app data ;; Per instance app data
(defclass builder-app-data () (defclass builder-app-data ()