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

Added simple context menu to syntax-browser

Browse Source 
svn: r4459
This commit is contained in:
Ryan Culpepper 2006-10-01 19:11:35 +00:00
parent 84dc14ce65
commit 57f3a709d1
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -36,6 +36,14 @@
(new syntax-controller% (new syntax-controller%
(properties-controller this))) (properties-controller this)))
;; Set up keymap
(let ([keymap (send -text get-keymap)])
(send keymap map-function "rightbutton" "popup-context-window")
(send keymap add-function "popup-context-window"
(lambda (editor event)
(do-popup-context-window editor event)))
)
;; FIXME: Why doesn't this work? ;; FIXME: Why doesn't this work?
#; #;
(when (current-syntax-font-size) (when (current-syntax-font-size)
@ -52,6 +60,25 @@
(let ([pp (pref:props-percentage)]) (list (- 1 pp) pp))) (let ([pp (pref:props-percentage)]) (list (- 1 pp) pp)))
(toggle-props) (toggle-props)
(define/private (do-popup-context-window editor event)
(define x (send event get-x))
(define y (send event get-y))
(define admin (send editor get-admin))
(send admin popup-menu context-menu x y))
(define context-menu
(let ([context-menu (new popup-menu%)])
(new menu-item% (label "Copy") (parent context-menu)
(callback (lambda (i e)
(define stx (send controller get-selected-syntax))
(send the-clipboard set-clipboard-string
(if stx
(format "~s" (syntax-object->datum stx))
"")
(send e get-time-stamp)))))
;; FIXME: Add option for "formatted" copy/paste?
context-menu))
;; syntax-properties-controller<%> methods ;; syntax-properties-controller<%> methods
(define/public (set-syntax stx) (define/public (set-syntax stx)