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

tabbing fixed, menus changed, error reporting improved

Browse Source 
original commit: fa36af09b9caab060cd9e8db0592b0218997933e
This commit is contained in:
Mike MacHenry 2003-12-18 22:22:26 +00:00
parent eb40e63cd1
commit 98be3ce323
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/test-suite/private/tabbable-text.ss
View File

@ -19,24 +19,22 @@
(mixin (editor:keymap<%>) (tabbable-text<%>)
(init-field
[ahead #f]
[back #f])
[ahead void]
[back void])
;; get-keymaps (-> (listof keymap%))
;; the list of keymaps associated with this text
(rename [super-get-keymaps get-keymaps])
(define/override (get-keymaps)
(let ([keymap (make-object keymap%)])
(when ahead
(send keymap add-function "tab-ahead"
(lambda (ignored event)
(ahead)))
(send keymap map-function ":tab" "tab-ahead"))
(when back
(send keymap map-function ":tab" "tab-ahead")
(send keymap add-function "tab-back"
(lambda (ignored event)
(back)))
(send keymap map-function "s:tab" "tab-back"))
(send keymap map-function "s:tab" "tab-back")
(cons keymap (super-get-keymaps))))
(define/public (set-ahead t) (set! ahead t))