Lines Matching +refs:define +refs:event
3 ffi/unsafe/define
9 "../common/event.rkt"
26 queue-window-event
27 queue-window-refresh-event
49 do-button-event
78 (define-gtk gtk_container_add (_fun _GtkWidget _GtkWidget -> _void))
79 (define-gtk gtk_container_remove (_fun _GtkWidget _GtkWidget -> _void))
80 (define-gtk gtk_widget_realize (_fun _GtkWidget -> _void))
81 (define-gtk gtk_widget_add_events (_fun _GtkWidget _int -> _void))
83 (define-gdk gdk_keyval_to_unicode (_fun _uint -> _uint32))
85 (define-gtk gtk_widget_get_display (_fun _GtkWidget -> _GdkDisplay))
86 (define-gtk gtk_widget_get_screen (_fun _GtkWidget -> _GdkScreen))
87 (define-gdk gdk_display_warp_pointer (_fun _GdkDisplay _GdkScreen _int _int -> _void))
89 (define-cstruct _GtkRequisition ([width _int]
91 (define-cstruct _GtkAllocation ([x _int]
96 (define-gtk gtk_widget_size_request (_fun _GtkWidget _GtkRequisition-pointer -> _void))
97 (define-gtk gtk_widget_size_allocate (_fun _GtkWidget _GtkAllocation-pointer -> _void))
98 (define-gtk gtk_widget_set_size_request (_fun _GtkWidget _int _int -> _void))
99 (define-gtk gtk_widget_grab_focus (_fun _GtkWidget -> _void))
100 (define-gtk gtk_widget_is_focus (_fun _GtkWidget -> _gboolean))
101 (define-gtk gtk_widget_set_sensitive (_fun _GtkWidget _gboolean -> _void))
102 (define-gtk gtk_widget_get_preferred_size (_fun _GtkWidget _GtkRequisition-pointer/null _GtkRequisi…
104 (define-gtk gtk_widget_get_scale_factor (_fun _GtkWidget -> _int)
107 (define (avoid-preferred-size-warning gtk)
112 (define req (make-GtkRequisition 0 0))
115 (define-gdk gdk_keyboard_grab (_fun _GdkWindow _gboolean _int -> _void))
116 (define-gdk gdk_keyboard_ungrab (_fun _int -> _void))
118 (define _GtkAccelGroup (_cpointer 'GtkAccelGroup))
119 (define-gtk gtk_accel_group_new (_fun -> _GtkAccelGroup))
120 (define-gtk gtk_window_add_accel_group (_fun _GtkWindow _GtkAccelGroup -> _void))
121 (define-gtk gtk_menu_set_accel_group (_fun _GtkWidget _GtkAccelGroup -> _void))
123 (define the-accelerator-group (gtk_accel_group_new))
126 (define-cstruct _GtkWidgetT ([obj _GtkObject]
137 (define-gtk widget-window (_fun _GtkWidget -> _GdkWindow)
143 (define-gtk widget-parent (_fun _GtkWidget -> _GtkWidget)
149 (define-gtk widget-allocation (_fun _GtkWidget (o : (_ptr o _GtkAllocation)) -> _void -> o)
156 (define ((get-one-flag flag [wrap values]) gtk)
159 (define ((set-one-flag! flag) gtk on?)
160 (define v (get-gtk-object-flags gtk))
166 (define-gtk gtk_widget_has_focus (_fun _GtkWidget -> _gboolean)
168 (define-gtk gtk_widget_get_mapped (_fun _GtkWidget -> _gboolean)
170 (define-gtk gtk_widget_get_has_window (_fun _GtkWidget -> _gboolean)
172 (define-gtk gtk_widget_set_can_default (_fun _GtkWidget _gboolean -> _void)
174 (define-gtk gtk_widget_set_can_focus (_fun _GtkWidget _gboolean -> _void)
177 (define-gtk gtk_drag_dest_add_uri_targets (_fun _GtkWidget -> _void))
178 (define-gtk gtk_drag_dest_set (_fun _GtkWidget _int (_pointer = #f) (_int = 0) _int -> _void))
179 (define-gtk gtk_drag_dest_unset (_fun _GtkWidget -> _void))
181 (define-gtk gdk_event_get_scroll_deltas (_fun _GdkEventScroll-pointer
188 (define GTK_DEST_DEFAULT_ALL #x07)
189 (define GDK_ACTION_COPY (arithmetic-shift 1 1))
191 (define-signal-handler connect-drag-data-received "drag-data-received"
202 (queue-window-event wx
212 (define-signal-handler connect-focus-in "focus-in-event"
214 (lambda (gtk event)
219 (queue-window-event wx (lambda () (send wx on-set-focus)))))
221 (define-signal-handler connect-focus-out "focus-out-event"
223 (lambda (gtk event)
228 (queue-window-event wx (lambda () (send wx on-kill-focus)))))
230 (define (connect-focus gtk)
234 (define-signal-handler connect-size-allocate "size-allocate"
247 (define-signal-handler connect-key-press "key-press-event"
249 (lambda (gtk event)
250 (do-key-event gtk event #t #f)))
252 (define-signal-handler connect-key-release "key-release-event"
254 (lambda (gtk event)
255 (do-key-event gtk event #f #f)))
257 (define-signal-handler connect-scroll "scroll-event"
259 (lambda (gtk event)
261 (do-key-event gtk event #f #t scrolling-more?)
266 (define scroll-accum-x 0)
267 (define scroll-accum-y 0)
269 (define (do-key-event gtk event down? scroll? [scrolling-more? #f])
275 ;; Result from `filter-key-event' is one of
276 ;; - #f => drop the event
279 (send wx filter-key-event event))])
282 (GdkEventScroll-state event)
283 (GdkEventKey-state event))]
289 (define-values (key-code wheel-steps)
292 (let ([dir (GdkEventScroll-direction event)])
299 (define mode (send wx get-wheel-steps-mode))
300 (define-values (dx dy) (if scrolling-more?
302 (gdk_event_get_scroll_deltas event)))
307 (define y-steps (case mode
310 (define x-steps (case mode
331 (define y-steps scroll-accum-y)
335 (define y-steps (- scroll-accum-y))
339 (define x-steps scroll-accum-x)
343 (define x-steps (- scroll-accum-x))
352 (values (keyval->code (GdkEventKey-keyval event)) 0.0)]))
353 (define k (new key-event%
365 (GdkEventScroll-time event)
366 (GdkEventKey-time event))]
371 (let-values ([(s ag sag cl) (get-alts event)]
393 (queue-window-event wx (lambda () (send wx dispatch-on-char k #f)))
399 (define-signal-handler connect-button-press "button-press-event"
401 (lambda (gtk event)
407 (do-button-event gtk event #f #f)))
409 (define-signal-handler connect-button-release "button-release-event"
411 (lambda (gtk event)
412 (do-button-event gtk event #f #f)))
414 (define-signal-handler connect-pointer-motion "motion-notify-event"
416 (lambda (gtk event)
417 (do-button-event gtk event #t #f)))
419 (define-signal-handler connect-enter "enter-notify-event"
421 (lambda (gtk event)
423 (do-button-event gtk event #f #t)))
425 (define-signal-handler connect-leave "leave-notify-event"
427 (lambda (gtk event)
429 (do-button-event gtk event #f #t)))
431 (define (connect-enter-and-leave gtk)
435 (define (connect-key gtk)
439 (define (connect-key-and-mouse gtk [skip-press? #f])
447 (define (do-button-event gtk event motion? crossing?)
451 (GdkEventCrossing-type event)
452 (GdkEventButton-type event)))])
470 (GdkEventMotion-state event)
472 (GdkEventCrossing-state event)
473 (GdkEventButton-state event)))]
483 (case (GdkEventButton-button event)
488 (case (GdkEventButton-button event)
494 adjust-event-position
499 event)))
503 event))))])
504 (new mouse-event%
505 [event-type type]
529 event)]
533 (queue-window-event wx (lambda ()
534 (send wx dispatch-on-event m #f)))
537 (lambda () (or (send wx dispatch-on-event m #t)
538 (send wx internal-pre-on-event gtk m)))
541 ;; an enter event is synthesized when a button is
543 ;; event is not dispatched via the eventspace; leave
552 (define (internal-error str)
578 (define window%
591 (define save-x (get-unset-pos))
592 (define save-y (get-unset-pos))
593 (define save-w 0)
594 (define save-h 0)
596 (define/public (get-unset-pos) 0)
604 (define/public (get-gtk) gtk)
605 (define/public (get-client-gtk) gtk)
606 (define/public (get-container-gtk) (get-client-gtk))
607 (define/public (get-window-gtk) (send parent get-window-gtk))
609 (define/public (move x y)
612 (define/public (set-size x y w h)
626 (define/public (save-size x y w h)
630 (define/public (really-set-size gtk given-x given-y x y w h)
633 (define/public (set-child-size child-gtk x y w h)
638 (define/public (remember-size x y w h)
639 ;; called in event-pump thread
650 (define/public (queue-on-size) (void))
652 (define client-delta-w 0)
653 (define client-delta-h 0)
655 (define/public (adjust-client-delta dw dh)
659 (define/public (infer-client-delta [w? #t] [h? #t] [sub-h-gtk #f]
680 (define/public (set-auto-size [dw 0] [dh 0])
693 (define shown? #f)
694 (define/public (direct-show on?)
702 (define/public (show on?)
705 (define/public (reset-child-freezes) (void))
706 (define/public (reset-child-dcs) (void))
707 (define/public (is-shown?) shown?)
708 (define/public (is-shown-to-root?)
716 (define/public (get-x) (or save-x 0))
717 (define/public (get-y) (or save-y 0))
718 (define/public (get-width) save-w)
719 (define/public (get-height) save-h)
721 (define/public (get-parent) parent)
722 (define/public (set-parent p)
733 (define/public (get-top-win) (send parent get-top-win))
735 (define/public (get-dialog-level) (send parent get-dialog-level))
737 (define/public (get-size xb yb)
740 (define/public (get-client-size xb yb)
745 (define enabled? #t)
746 (define/pubment (is-enabled-to-root?)
750 (define/public (enable on?)
753 (define/public (is-window-enabled?) enabled?)
755 (define drag-connected? #f)
756 (define/public (drag-accept-files on?)
766 (define/public (in-floating?)
769 (define/public (set-focus)
770 (define gtk (get-client-gtk))
780 (define cursor-handle #f)
781 (define/public (set-cursor v)
785 (define/public (enter-window)
787 (define/public (leave-window)
790 (define/public (set-window-cursor in-win c)
792 (define/public (set-parent-window-cursor in-win c)
795 (define/public (check-window-cursor win)
799 (define/public (on-set-focus) (void))
800 (define/public (on-kill-focus) (void))
802 (define/public (focus-change on?) (void))
803 (define/public (filter-key-event e) 'none)
805 (define/public (on-focus? on?) #t)
807 (define/private (pre-event-refresh)
809 ;; Gtk queue and event handling, we
815 (define/public (handles-events? gtk) #f)
816 (define/public (dispatch-on-char e just-pre?)
817 (pre-event-refresh)
823 (define/public (dispatch-on-event e just-pre?)
824 (pre-event-refresh)
827 [(call-pre-on-event this e) #t]
829 [else (when enabled? (on-event e)) #t]))
831 (define/public (internal-pre-on-event gtk e) #f)
833 (define/public (call-pre-on-event w e)
834 (or (send parent call-pre-on-event w e)
835 (pre-on-event w e)))
836 (define/public (call-pre-on-char w e)
839 (define/public (pre-on-event w e) #f)
840 (define/public (pre-on-char w e) #f)
842 (define/public (on-char e) (void))
843 (define/public (on-event e) (void))
845 (define wheel-steps-mode 'one)
846 (define/public (get-wheel-steps-mode) wheel-steps-mode)
847 (define/public (set-wheel-steps-mode mode) (set! wheel-steps-mode mode))
849 (define skip-enter-leave? #f)
850 (define/public skip-enter-leave-events
855 (define/public (register-child child on?)
857 (define/public (register-child-in-parent on?)
861 (define/public (paint-children)
864 (define/public (on-drop-file path) (void))
866 (define/public (get-handle) (get-gtk))
867 (define/public (get-client-handle) (get-container-gtk))
869 (define/public (popup-menu m x y)
874 (lambda (thunk) (queue-window-event this thunk)))))
876 (define/public (center a b) (void))
877 (define/public (refresh) (refresh-all-children))
879 (define/public (refresh-all-children) (void))
881 (define/public (screen-to-client x y)
883 (define/public (internal-screen-to-client x y)
889 (define/public (client-to-screen x y)
891 (define/public (internal-client-to-screen x y)
897 (define event-position-wrt-wx #f)
898 (define/public (set-event-positions-wrt wx)
899 (set! event-position-wrt-wx wx))
901 (define/public (adjust-event-position x y)
902 (if event-position-wrt-wx
906 (send event-position-wrt-wx internal-screen-to-client xb yb)
910 (define/public (get-client-delta)
912 (define/public (get-stored-client-delta)
915 (define/public (warp-pointer x y)
916 (define xb (box x))
917 (define yb (box y))
924 (define/public (gets-focus?) #t)))
926 (define (queue-window-event win thunk)
927 (queue-event (send win get-eventspace) thunk))
928 (define (queue-window-refresh-event win thunk)
929 (queue-refresh-event (send win get-eventspace) thunk))
931 (define-gdk gdk_display_flush (_fun _GdkDisplay -> _void))
932 (define-gdk gdk_display_get_default (_fun -> _GdkDisplay))
933 (define (flush-display)
937 (define-gdk gdk_window_freeze_updates (_fun _GdkWindow -> _void))
938 (define-gdk gdk_window_thaw_updates (_fun _GdkWindow -> _void))
939 (define-gdk gdk_window_invalidate_rect (_fun _GdkWindow _pointer _gboolean -> _void))
940 (define-gdk gdk_window_ensure_native (_fun _GdkWindow -> _gboolean)
944 (define (win-box-valid? win-box)
946 (define (window->win-box win)
948 (define (unrealize-win-box win-box)
955 (define (request-flush-delay win-box transparentish?)
981 (define (cancel-flush-delay req)