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.
22 lines
469 B
Racket
22 lines
469 B
Racket
#lang br
|
|
(require racket/draw)
|
|
|
|
(define (button-func drr-window)
|
|
(define expr-string "@$ $@")
|
|
(define editor (send drr-window get-definitions-text))
|
|
(send editor insert expr-string)
|
|
(define pos (send editor get-start-position))
|
|
(send editor set-position (- pos 3)))
|
|
|
|
(define our-jsonic-button
|
|
(list
|
|
"Insert expression"
|
|
(make-object bitmap% 16 16)
|
|
button-func
|
|
#f))
|
|
|
|
(provide button-list)
|
|
(define button-list (list our-jsonic-button))
|
|
|
|
|