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

PR 8271

Browse Source 
svn: r4283

original commit: 109a683aa1af5a3b8b7b677f100de6c87c47b09d
This commit is contained in:
Robby Findler 2006-09-09 03:37:31 +00:00
parent 10442bb27a
commit e3a459ae9d
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/framework/private/frame.ss
View File

@ -873,7 +873,7 @@
(make-object message%
(string-constant overwrite)
(get-info-panel))]
[define position-canvas (make-object editor-canvas% (get-info-panel) #f '(no-hscroll no-vscroll))]
[define position-canvas (make-object click-pref-editor-canvas% (get-info-panel) #f '(no-hscroll no-vscroll))]
[define position-edit (make-object text%)]
@ -912,6 +912,31 @@
(send position-edit hide-caret #t)
(send position-edit lock #t)))
(define click-pref-editor-canvas%
(class editor-canvas%
(inherit popup-menu)
(define/override (on-event evt)
(cond
[(send evt button-down? 'right)
(let ([menu (new popup-menu%)]
[line-numbers? (preferences:get 'framework:display-line-numbers)])
(new checkable-menu-item%
[parent menu]
[label (string-constant show-line-and-column-numbers)]
[callback (λ (x y) (preferences:set 'framework:display-line-numbers #t))]
[checked line-numbers?])
(new checkable-menu-item%
[parent menu]
[label (string-constant show-character-offsets)]
[callback (λ (x y) (preferences:set 'framework:display-line-numbers #f))]
[checked (not line-numbers?)])
(popup-menu menu
(+ 1 (send evt get-x))
(+ 1 (send evt get-y))))]
[else
(super on-event evt)]))
(super-new)))
(define pasteboard-info<%> (interface (info<%>)))
(define pasteboard-info-mixin
(mixin (basic<%>) (pasteboard-info<%>)