568828d491
plots too small to render margin decorations (i.e. axis and tick labels) now render without them; plots in frames now initially render with full detail
33 lines
749 B
Racket
33 lines
749 B
Racket
#lang racket/base
|
|
|
|
;; GUI helpers
|
|
|
|
(require racket/gui/base racket/class unstable/gui/snip)
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define snip-frame%
|
|
(class frame%
|
|
(super-new)
|
|
|
|
(define/override (on-traverse-char event)
|
|
(define key-code (send event get-key-code))
|
|
(case key-code
|
|
[(escape) (send this show #f)]
|
|
[else (super on-traverse-char event)]))
|
|
))
|
|
|
|
(define (make-snip-frame snip width height label)
|
|
(define (make-snip w h) snip)
|
|
|
|
(define frame
|
|
(new snip-frame% [label label] [width (+ 20 width)] [height (+ 20 height)]))
|
|
|
|
(new snip-canvas%
|
|
[parent frame]
|
|
[make-snip make-snip]
|
|
[horiz-margin 5] [vert-margin 5]
|
|
[horizontal-inset 5] [vertical-inset 5])
|
|
|
|
frame)
|