| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/ |
| H A D | keymaps.jl | 87 (defcustom global-keymap (bind-keys (make-keymap)
99 (defcustom window-keymap (bind-keys (make-keymap)
114 (defcustom root-window-keymap (bind-keys (make-keymap)
121 (defcustom title-keymap (bind-keys (make-keymap)
134 (defcustom tabbar-keymap (bind-keys (make-keymap)
150 (defcustom border-keymap (bind-keys (make-keymap)
158 (defcustom close-button-keymap (bind-keys (make-keymap)
181 (defcustom menu-button-keymap (bind-keys (make-keymap)
188 (defcustom shade-button-keymap (bind-keys (make-keymap)
194 (defcustom sticky-button-keymap (bind-keys (make-keymap)
[all …]
|
| /dports/editors/le/le-1.16.6/src/ |
| H A D | Makefile.am | 5 help.cc history.cc kern.cc keymap.cc keymapdf.cc keymapfn.cc loadsave.cc\
8 calc.h chset.h cmd.h color.h edit.h file.h history.h inline.h keymap.h\
22 EXTRA_DIST = le.hlp make-action-enum.pl make-action-name-func.pl make-keymap.pl make-mainmenu.pl
25 action-enum.h: action-name-func make-action-enum.pl
26 $(PERL) $(srcdir)/make-action-enum.pl $(srcdir)/action-name-func > $@
27 action-name-func.h: action-name-func make-action-name-func.pl
29 keymap-default.h: $(top_srcdir)/misc/keymap-default make-keymap.pl
30 $(PERL) $(srcdir)/make-keymap.pl $(top_srcdir)/misc/keymap-default > $@
35 keymap.o keymapdf.o keymapfn.o loadsave.o mainmenu.o menu1.o menu.o \
37 keymap.o: action-name-func.h
[all …]
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/gtk/widgets/ |
| H A D | keymap.jl | 1 ;; nokogiri-widgets/keymap.jl
22 (define-structure sawfish.gtk.widgets.keymap
38 (define (make-keymap-item changed-callback)
52 (let ((widget (make-widget `(keymap:binding))))
67 (let ((base (make-widget `(list ,type (,(_ "Key") ,(_ "Command")))
73 (cons 'keymap (widget-ref base))))
77 (and (eq (car x) 'keymap)
81 (define-widget-type 'keymap make-keymap-item)
85 (define (make-keymap:binding-item changed-callback)
86 (make-widget `(pair command (labelled ,(_ "Key:") event)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/framework/private/ |
| H A D | keymap.rkt | 152 (define trie (make-hash))
372 (define make-meta-prefix-list keymap:make-meta-prefix-list)
587 (define user-keymap (make-object aug-keymap%))
590 (define global (make-object aug-keymap%))
591 (define global-main (make-object aug-keymap%))
592 (define global-alt-as-meta (make-object aug-keymap%))
599 (define file (make-object aug-keymap%))
600 (define file-alt-as-meta (make-object aug-keymap%))
605 (define search (make-object aug-keymap%))
606 (define search-alt-as-meta (make-object aug-keymap%))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mred/private/ |
| H A D | wxmenu.rkt | 25 [get-keymap (lambda () keymap)]
26 [set-keymap (lambda (k) (set! keymap k))]
37 (super-make-object)))
49 (define keymap (make-object wx:keymap%))
80 (send keymap chain-to-keymap (send (mred->wx item) get-keymap) #f))]
96 (send keymap remove-chained-keymap (send (mred->wx i) get-keymap))))]
109 (super-make-object)))
116 (define keymap (make-object wx:keymap%))
123 [get-keymap (lambda () keymap)]
152 (send keymap remove-chained-keymap k))))]
[all …]
|
| H A D | mrmenu.rkt | 66 (set! wx (make-object wx-menu-item% this #f #f))
68 (super-make-object wx)))
164 (super-make-object wx)
165 (when keymap (send wx set-keymap keymap))))
310 (let ([keymap (make-object wx:keymap%)])
332 (send wx set-keymap keymap)
333 (send wx swap-keymap menu keymap)))))])
410 (set! wx-menu (make-object wx-menu% this #f void #f))
411 (super-make-object parent label help-string wx-menu #f
455 (set! wx (make-object wx-menu-bar% this))
[all …]
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/util/ |
| H A D | keymap.jl | 29 make-memoizing-where-is
50 (define (map-keymap function keymap)
55 (setq keymap (list keymap)))
56 (let ((keymap-list keymap)
60 ((keymap (car keymap-list)))
61 (setq keymap-list (cdr keymap-list))
63 (setq keymap (car keymap)))
114 (or keymap global-keymap))
117 ;; XXX make this handle prefix keymaps
118 (define (make-memoizing-where-is keymaps)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/drracket/help/private/ |
| H A D | bug-report-controls.rkt | 73 (keymap:call/text-keymap-initializer
85 (keymap:call/text-keymap-initializer
97 (keymap:call/text-keymap-initializer
206 (keymap:call/text-keymap-initializer
215 (keymap:call/text-keymap-initializer
225 (keymap:call/text-keymap-initializer
235 (keymap:call/text-keymap-initializer
242 (make-big-text
248 (make-big-text
264 (keymap:call/text-keymap-initializer
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/mrlib/hierlist/ |
| H A D | hierlist-unit.rkt | 31 (define red (make-object brush% "RED" 'solid))
32 (define blue (make-object brush% "BLUE" 'solid))
64 (super-make-object void)))
67 (define item-keymap (make-object keymap%))
126 (super-make-object)))
175 (super-make-object snip)))
259 (super-make-object)
261 (set-keymap item-keymap)))
283 [make-whitespace (lambda () (make-object whitespace-snip%))]
388 (super-make-object)
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/gnu/jemacs/lisp/ |
| H A D | emacs.scm | 20 (make <gnu.jemacs.buffer.BufferWriter> buffer))
23 (make gnu.jemacs.buffer.BufferWriter marker #f))
38 (make <keymap> (as <String> name)))
41 (make <keymap> (as <String> name)))
46 (invoke keymap 'getName))
57 (invoke keymap 'getParent))
59 (define (keymap-parents keymap)
421 (make <marker>))
435 (make <marker>)
436 (make <marker>
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/drracket/browser/private/ |
| H A D | hyper.rkt | 119 (define/override (get-keymaps) (list* space-page-keymap hyper-keymap (super get-keymaps)))
120 (define/public (get-hyper-keymap) hyper-keymap)
584 (define space-page-keymap (make-object keymap%))
585 (add-text-keymap-functions space-page-keymap)
589 (define hyper-keymap (make-object keymap%))
590 (send hyper-keymap add-function "rewind"
607 (add-text-keymap-functions hyper-keymap)
648 (keymap:add-to-right-button-menu/before
904 make-canvas
905 make-control-bar-panel
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-more/typed/ |
| H A D | framework.rkt | 232 [editor:add-after-user-keymap
437 [keymap:aug-keymap-mixin (parse-type #'Keymap:Aug-Keymap-Mixin)]
438 [keymap:aug-keymap% (parse-type #'Keymap:Aug-Keymap%)]
441 [keymap:add-to-right-button-menu
446 [keymap:add-to-right-button-menu/before
451 [keymap:call/text-keymap-initializer ((-> Univ) . -> . Univ)]
458 [keymap:make-meta-prefix-list (-String [-Boolean] . ->opt . (-lst -String))]
459 [keymap:send-map-function-meta
470 [keymap:set-chained-keymaps ((make-Instance (parse-type #'Keymap:Aug-Keymap<%>))
473 [keymap:remove-chained-keymap (-Editor<%>-Instance
[all …]
|
| /dports/editors/emacs/emacs-27.2/doc/lispref/ |
| H A D | keymaps.texi | 223 as in @code{make-composed-keymap}.
317 (make-sparse-keymap)
331 @defun make-keymap &optional prompt
343 (make-keymap)
360 (let ((map (make-sparse-keymap)))
447 (let ((map (make-sparse-keymap)))
479 (let ((map (make-sparse-keymap)))
616 (use-local-map (make-sparse-keymap))
1347 (setq map (make-sparse-keymap))
1498 (let ((map (make-sparse-keymap)))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/doc/lispref/ |
| H A D | keymaps.texi | 231 as in @code{make-composed-keymap}.
325 (make-sparse-keymap)
339 @defun make-keymap &optional prompt
351 (make-keymap)
465 (let ((map (make-sparse-keymap)))
551 (let ((map (make-sparse-keymap)))
583 (let ((map (make-sparse-keymap)))
714 (use-local-map (make-sparse-keymap))
1431 (setq map (make-sparse-keymap))
1588 (let ((map (make-sparse-keymap)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/rumble/ |
| H A D | hamt-vector.ss | 16 [fields (mutable keymap)
22 (bnode-keymap-set! dest (bnode-keymap src))
31 (define (make-empty-bnode eqtype)
32 (make-bnode eqtype
44 (make-empty-bnode eqtype))
466 (fx= (bnode-keymap a) (bnode-keymap b))
491 (let* ([akm (bnode-keymap a)]
492 [bkm (bnode-keymap b)]
625 (bnode-keymap node)
698 (bnode-keymap node)
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/rumble/ |
| H A D | hamt-vector.ss | 16 [fields (mutable keymap)
22 (bnode-keymap-set! dest (bnode-keymap src))
31 (define (make-empty-bnode eqtype)
32 (make-bnode eqtype
44 (make-empty-bnode eqtype))
466 (fx= (bnode-keymap a) (bnode-keymap b))
491 (let* ([akm (bnode-keymap a)]
492 [bkm (bnode-keymap b)]
625 (bnode-keymap node)
698 (bnode-keymap node)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/embedded-gui/private/ |
| H A D | single-line-text.rkt | 11 (mixin (editor:keymap<%>) ()
12 #;(-> (listof keymap%))
15 (let ([keymap (make-object keymap%)])
16 (send keymap add-function "do nothing" void)
17 (send keymap map-function ":enter" "do nothing")
18 (cons keymap (super get-keymaps))))
|
| H A D | tabbable-text.rkt | 32 (mixin (editor:keymap<%>) (tabbable-text<%>)
38 #;(-> (listof keymap%))
41 (let ([keymap (make-object keymap%)])
42 (send keymap add-function "tab-ahead"
44 (send keymap map-function ":tab" "tab-ahead")
45 (send keymap add-function "tab-back"
47 (send keymap map-function "s:tab" "tab-back")
48 (cons keymap (super get-keymaps))))
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger/macro-debugger/syntax-browser/ |
| H A D | interfaces.rkt | 70 ;; add-keymap : text snip
71 add-keymap))
73 ;; keymap/popup<%>
74 (define-interface keymap/popup<%> ()
130 (;; setup-keymap : -> void
131 setup-keymap
136 ;; keymap-hooks<%>
137 (define-interface keymap-hooks<%> ()
138 (;; make-context-menu : -> context-menu<%>
139 make-context-menu
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/gui-lib/framework/ |
| H A D | keybinding-lang.rkt | 16 (with-syntax ([#%keymap (datum->syntax (syntax mb) '#%keymap)]
20 (define #%keymap (make-object keymap:aug-keymap%))
21 (provide #%keymap)
22 (define name-counter (make-hash))
49 (send #%keymap add-function name
73 (send #%keymap map-function key name)))
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/doc/ |
| H A D | KEYBINDINGS | 148 ( bind-keys keymap "key" 'action )
156 ( unbind-keys keymap "keybindings" 'action )
173 ( define nautilus-keymap ( make-keymap ) )
174 ( bind-keys nautilus-keymap
180 '( ( keymap . ,nautilus-keymap ) ) )
196 keymap, to prevent colliding bindings.
206 ;; create a new meta-keymap called apps-keymap
207 ( define apps-keymap ( make-keymap ) )
209 ;; glue it into the global-keymap, make the apps-keymap modifier W-e (WM-Modifier + e)
210 ( bind-keys global-keymap "W-e" apps-keymap )
[all …]
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/ext/ |
| H A D | tooltips.jl | 39 sawfish.wm.util.keymap)
116 (make-timer remove-tooltip
140 (setq tooltips-timer (make-timer (lambda ()
172 (setq out (cons (make-string (- max-event-width
179 (setq out (cons (make-string max-event-width ? ) out))
193 (let ((keymap (frame-part-get fp 'keymap))
195 (when (symbolp keymap)
196 (setq keymap (symbol-value keymap)))
197 (when (cdr keymap)
198 (map-keymap (lambda (cell)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/ |
| H A D | xml-tool.rkt | 48 (define/override (make-editor) (make-object (get-xml-text%)))
96 (define/override (make-snip)
200 (add-file-keymap-mixin
212 (define (add-file-keymap-mixin %)
215 (cons (keymap:get-file) (super get-keymaps)))
239 (class text:keymap%
256 (cons (keymap:get-file) (super get-keymaps)))
262 (define xml-keymap (make-object keymap%))
263 (send xml-keymap add-function
268 (send xml-keymap map-function ">" "matching-xml")
[all …]
|
| /dports/devel/sdl12/SDL-1.2.15/src/video/quartz/ |
| H A D | SDL_QuartzEvents.m | 114 keymap[QZ_1] = SDLK_1;
115 keymap[QZ_2] = SDLK_2;
116 keymap[QZ_3] = SDLK_3;
117 keymap[QZ_4] = SDLK_4;
118 keymap[QZ_5] = SDLK_5;
418 /* If this was Caps Lock, we need some additional voodoo to make SDL happy */
428 /* If this was Caps Lock, we need some additional voodoo to make SDL happy */
610 /* If this was Caps Lock, we need some additional voodoo to make SDL happy */
616 /* If this was Caps Lock, we need some additional voodoo to make SDL happy */
677 * will not try to make the distinction.
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/term/ |
| H A D | edit-line.sld | 3 (export make-line-editor edit-line edit-line-repl
4 make-history history-insert! history-reset!
6 make-buffer buffer-make-completer
9 make-keymap make-standard-keymap)
|