You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
494 B
Racket
16 lines
494 B
Racket
#lang br
|
|
(require br/drracket)
|
|
|
|
(define (button-func drr-window)
|
|
(define expr-string "@$ $@")
|
|
(define editor (send drr-window get-definitions-text))
|
|
(send editor begin-edit-sequence)
|
|
(send editor insert expr-string)
|
|
(send editor end-edit-sequence)
|
|
(define pos (send editor get-end-position))
|
|
(send editor set-position (- pos (/ (string-length expr-string) 2))))
|
|
|
|
(define button-list
|
|
(list (make-drracket-button "Insert expression" button-func)))
|
|
(provide button-list)
|