suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Macro stepper: cosmetic changes, new interface (stub)

Browse Source 
svn: r5536

original commit: 679bd4e30cb1ad602a6e7c77af5ee6f9e332af22
This commit is contained in:
Ryan Culpepper 2007-02-01 23:19:44 +00:00
parent 90758ff4e5
commit 3f810108ff
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/macro-debugger/syntax-browser/controller.ss
View File

@ -11,12 +11,13 @@
(class* object% (syntax-controller<%> (class* object% (syntax-controller<%>
syntax-pp-snip-controller<%> syntax-pp-snip-controller<%>
color-controller<%>) color-controller<%>)
(init-field (primary-partition (new-bound-partition)))
(init-field (properties-controller #f))
(define colorers null) (define colorers null)
(define selection-listeners null) (define selection-listeners null)
(define selected-syntax #f) (define selected-syntax #f)
(define identifier=?-listeners null) (define identifier=?-listeners null)
(init-field (properties-controller #f))
;; syntax-controller<%> Methods ;; syntax-controller<%> Methods
@ -42,7 +43,7 @@
(set! selection-listeners (cons p selection-listeners))) (set! selection-listeners (cons p selection-listeners)))
(define/public (on-update-identifier=? name id=?) (define/public (on-update-identifier=? name id=?)
(set! -secondary-partition (set! secondary-partition
(and id=? (new partition% (relation id=?)))) (and id=? (new partition% (relation id=?))))
(for-each (lambda (c) (send c refresh)) colorers) (for-each (lambda (c) (send c refresh)) colorers)
(for-each (lambda (f) (f name id=?)) identifier=?-listeners)) (for-each (lambda (f) (f name id=?)) identifier=?-listeners))
@ -61,11 +62,10 @@
;; color-controller<%> Methods ;; color-controller<%> Methods
(define -primary-partition (new-bound-partition)) (define secondary-partition #f)
(define -secondary-partition #f)
(define/public (get-primary-partition) -primary-partition) (define/public (get-primary-partition) primary-partition)
(define/public (get-secondary-partition) -secondary-partition) (define/public (get-secondary-partition) secondary-partition)
;; Initialization ;; Initialization
(super-new) (super-new)

8
collects/macro-debugger/syntax-browser/interfaces.ss
View File

@ -115,6 +115,14 @@
select-syntax select-syntax
apply-styles)) apply-styles))
;; syntax-sharing-context<%>
;; A syntax-sharing-context<%>
;; Syntax snips search their enclosing editors for instances of sharing contexts
(define syntax-sharing-context<%>
(interface ()
;; get-shared-partition
get-shared-partition))
;;---------- ;;----------
;; Convenience widget, specialized for displaying stx and not much else ;; Convenience widget, specialized for displaying stx and not much else