From 61892fa6475e49a267e0fa260c783b624a17396c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 16 Dec 2022 09:23:00 -0500 Subject: Add point-and-click editing. --- community-garden.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'community-garden.scm') diff --git a/community-garden.scm b/community-garden.scm index 7cd535a..6d6af5d 100644 --- a/community-garden.scm +++ b/community-garden.scm @@ -6,7 +6,8 @@ (catbird node) (catbird node-2d) (catbird region) - ((catbird scene) #:select ()) + ((catbird scene) + #:select ( current-scene replace-major-mode)) (chickadee graphics color) (chickadee graphics path) (chickadee math vector) @@ -68,7 +69,7 @@ (alice-plant 6 2 cabbage/approved) (define catbird-visitor - (catbird-run (<- our-garden-community 'register-visitor "Catbird Viewer"))) + (catbird-run (<- our-garden-community 'register-gardener "Catbird Viewer"))) (define catbird-garden-bed (make-atomic-box #f)) (define catbird-garden-name (make-atomic-box #f)) (catbird-run @@ -83,6 +84,7 @@ (let ((region (create-full-region #:name 'main)) (scene (make #:name 'scratch))) (replace-scene region scene) + (replace-major-mode scene (make )) (set! (camera region) (make #:width %window-width @@ -97,10 +99,12 @@ %window-width %window-height)))) (make + #:name 'garden #:vat catbird-vat - #:visitor catbird-visitor + #:user catbird-visitor #:name-box catbird-garden-name - #:garden-bed-box catbird-garden-bed)))) + #:garden-bed-box catbird-garden-bed + #:read-only? #f)))) #:title "Community Garden" #:width %window-width #:height %window-height) -- cgit v1.2.3