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.
beautiful-racket/beautiful-racket-demo/jsonic-2/buttons.rkt

22 lines
469 B
Racket

#lang br
8 years ago
(require racket/draw)
8 years ago
(define (button-func drr-window)
(define expr-string "@$ $@")
(define editor (send drr-window get-definitions-text))
(send editor insert expr-string)
8 years ago
(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))
8 years ago
(provide button-list)
8 years ago
(define button-list (list our-jsonic-button))