(ql:quickload '(lorem-ipsum qtools qtcore qtgui))
(named-readtables:in-readtable :qtools)
(in-package #:cl+qt)

(define-widget my-editor (qtextedit) ())

(define-override (my-editor context-menu-event) (event)
  (let* ((position (q+:pos event))
         (cursor (q+:cursor-for-position my-editor position))
         (block-number (q+:block-number cursor)))
    (print block-number)
    (call-next-qmethod)))

(defun test ()
  (with-main-window (editor 'my-editor)
    (dotimes (i 5) (q+:append editor (lorem-ipsum:paragraph :prologue nil)))))