Macro stepper: nicer looking syntax snip props view
svn: r5535
This commit is contained in:
parent
8ac1fe54e1
commit
2f4e4df213
|
@ -37,8 +37,9 @@
|
|||
(lock #f)
|
||||
(begin-edit-sequence)
|
||||
(erase))
|
||||
(when (syntax? selected-syntax)
|
||||
(refresh/mode mode))
|
||||
(if (syntax? selected-syntax)
|
||||
(refresh/mode mode)
|
||||
(refresh/mode #f))
|
||||
(send* text
|
||||
(end-edit-sequence)
|
||||
(lock #t)
|
||||
|
@ -49,7 +50,7 @@
|
|||
(case mode
|
||||
((term) (send pdisplayer display-meaning-info selected-syntax))
|
||||
((stxobj) (send pdisplayer display-stxobj-info selected-syntax))
|
||||
((#f) (void))
|
||||
((#f) (send pdisplayer display-null-info))
|
||||
(else (error 'properties-view%:refresh "internal error: no such mode: ~s" mode))))
|
||||
|
||||
;; text : text%
|
||||
|
@ -59,6 +60,7 @@
|
|||
(send text set-styles-sticky #f)
|
||||
#;(send text hide-caret #t)
|
||||
(send text lock #t)
|
||||
(refresh)
|
||||
(super-new)))
|
||||
|
||||
|
||||
|
@ -123,6 +125,10 @@
|
|||
(class* object% ()
|
||||
(init-field text)
|
||||
|
||||
;; display-null-info : -> void
|
||||
(define/public (display-null-info)
|
||||
(display "No syntax selected\n" n/a-sd))
|
||||
|
||||
;; display-meaning-info : syntax -> void
|
||||
(define/public (display-meaning-info stx)
|
||||
(when (and (identifier? stx)
|
||||
|
|
Loading…
Reference in New Issue
Block a user