revise buttons

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-start-position))
-  (define pos (send editor get-end-position))
+  (send editor set-position (- pos 3)))
-  (send editor set-position (- pos (/ (string-length expr-string) 2))))
+
+(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))         
+
+