From 451c006d40863f600e7c7b6752f5b0a68e32e140 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 21 Dec 2016 16:52:00 -0800 Subject: [PATCH] revise buttons --- beautiful-racket/br/demo/jsonic-2/buttons.rkt | 22 ++++++++++++------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/beautiful-racket/br/demo/jsonic-2/buttons.rkt b/beautiful-racket/br/demo/jsonic-2/buttons.rkt index eb10990..8fdf6b9 100644 --- a/beautiful-racket/br/demo/jsonic-2/buttons.rkt +++ b/beautiful-racket/br/demo/jsonic-2/buttons.rkt @@ -1,15 +1,21 @@ #lang br -(require br/drracket) - +(require racket/draw) + (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 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)) -(define button-list - (list (make-drracket-button "Insert expression" button-func))) (provide button-list) +(define button-list (list our-jsonic-button)) + +