gtk:current-event ()

The copy of the current gdk:event instance, or nil if there is no current event.

Obtains a copy of the event currently being processed by GTK. For example, if you are handling a "clicked" signal, the current event will be the gdk:event-button event that triggered the "clicked" signal. In this example the gtk:current-event function is used in a signal handler to check for a button press event. This code is part of the GTK demo for popovers.

(g:signal-connect calendar "day-selected"
    (lambda (calendar)
      (let ((event (gtk:current-event)))
        (when (eq :button-press (gdk:event-type event))
          (multiple-value-bind (x y)
              (gdk:window-coords-to-parent (gdk:event-window event)
                                           (gdk:event-button-x event)
                                           (gdk:event-button-y event))
            (let ((rect (gtk:widget-allocation calendar)))
              (setf (gdk:rectangle-x rect)
                    (- (truncate x) (gdk:rectangle-x rect)))
              (setf (gdk:rectangle-y rect)
                    (- (truncate y) (gdk:rectangle-y rect)))
              (setf (gdk:rectangle-width rect) 1)
              (setf (gdk:rectangle-height rect) 1)
              (let ((popover (create-popover calendar
                                             (make-instance 'gtk:entry)
                                             :bottom)))
                (setf (gtk:popover-pointing-to popover) rect)
                (gtk:widget-show popover))))))))