30 lines
943 B
Racket
30 lines
943 B
Racket
#lang racket/gui
|
|
|
|
(require "../aligned-editor-container.rkt" "../aligned-pasteboard.rkt")
|
|
|
|
(define pb (new horizontal-pasteboard%))
|
|
(send* pb
|
|
(insert (make-object string-snip% "Call") #f)
|
|
(insert (new editor-snip% [editor (new text%)]) #f))
|
|
(define z (new aligned-editor-snip%
|
|
[editor pb] [stretchable-height #f] [stretchable-width #f]))
|
|
(define f (new frame% [label "more-tests-text"] [width 200] [height 200]))
|
|
(define e (new vertical-pasteboard%))
|
|
(define c (new aligned-editor-canvas% [editor e] [parent f]))
|
|
(send e insert z)
|
|
(send f show #t)
|
|
|
|
;;;;;;;;;;
|
|
;; exploration
|
|
(require "../snip-lib.rkt")
|
|
(define (margin snip)
|
|
(define left (box 0))
|
|
(define top (box 0))
|
|
(define right (box 0))
|
|
(define bottom (box 0))
|
|
(send snip get-margin left top right bottom)
|
|
(list (cons 'left (unbox left))
|
|
(cons 'right (unbox right))
|
|
(cons 'top (unbox top))
|
|
(cons 'bottom (unbox bottom))))
|