7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
233 lines
5.9 KiB
Scheme
233 lines
5.9 KiB
Scheme
;;note: turns out these tests are window manager specific
|
|
|
|
(require
|
|
mzlib/class
|
|
mred
|
|
mzlib/etc
|
|
mzlib/list
|
|
mrlib/aligned-pasteboard
|
|
"snip-dumper.ss")
|
|
|
|
|
|
|
|
; ;;
|
|
; ;
|
|
; ;
|
|
; ;;;;; ;; ;; ;;;;;;;;;;;;;; ;;; ; ;;;;; ;;;;
|
|
; ; ; ;;;; ; ; ; ; ;; ;; ; ; ; ; ;
|
|
; ;;;;;; ;; ;;;; ; ; ; ; ; ; ;;;;;; ;;;;
|
|
; ; ;; ; ; ; ; ; ; ; ; ; ;
|
|
; ;; ; ; ; ; ; ; ; ; ;; ;; ; ;; ; ; ;
|
|
; ;;;; ;; ;; ;;;;;;; ;; ;;; ;;; ;;;;; ;;;; ;;;;
|
|
; ;
|
|
; ;;;
|
|
|
|
(printf "running test1.ss~n")
|
|
|
|
(define frame
|
|
(instantiate frame% ()
|
|
(label "Frame")
|
|
(width 400)
|
|
(height 400)))
|
|
|
|
(define pasteboard
|
|
(instantiate horizontal-pasteboard% ()))
|
|
|
|
(define canvas
|
|
(instantiate aligned-editor-canvas% ()
|
|
(parent frame)
|
|
(editor pasteboard)))
|
|
|
|
(define insider
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider2
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider3
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider4
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider5
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider6
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define insider7
|
|
(instantiate vertical-pasteboard% ()))
|
|
|
|
(define pb-snip
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider)))
|
|
|
|
(define pb-snip2
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider2)))
|
|
|
|
(define pb-snip3
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider3)))
|
|
|
|
(define pb-snip4
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider4)))
|
|
|
|
(define pb-snip5
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider5)))
|
|
|
|
(define pb-snip6
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider6)))
|
|
|
|
(define pb-snip7
|
|
(instantiate aligned-editor-snip% ()
|
|
(editor insider7)))
|
|
|
|
(define t-snip
|
|
(instantiate editor-snip% ()
|
|
(editor
|
|
(instantiate text% ()))))
|
|
|
|
(define i-snip
|
|
(instantiate image-snip% ()))
|
|
|
|
(define i-snip2
|
|
(instantiate image-snip% ()))
|
|
|
|
(define t-snip2
|
|
(instantiate editor-snip% ()
|
|
(editor
|
|
(instantiate text% ()))))
|
|
(define t-snip3
|
|
(instantiate editor-snip% ()
|
|
(editor
|
|
(instantiate text% ()))))
|
|
|
|
(send pasteboard begin-edit-sequence)
|
|
(send frame show true)
|
|
(send pasteboard insert pb-snip)
|
|
(send pasteboard insert t-snip)
|
|
(send pasteboard insert i-snip)
|
|
(send pasteboard insert i-snip2)
|
|
(send pasteboard insert pb-snip2)
|
|
(send pasteboard insert t-snip2)
|
|
(send insider insert t-snip3)
|
|
(send insider2 insert pb-snip3)
|
|
(send insider2 insert pb-snip4)
|
|
(send pasteboard insert pb-snip5)
|
|
(send pasteboard insert pb-snip6)
|
|
(send pasteboard insert pb-snip7)
|
|
(send pasteboard end-edit-sequence)
|
|
|
|
|
|
|
|
|
|
; ; ;
|
|
; ; ;
|
|
;;;;;;; ;;;;; ;;;; ;;;;; ;;;;
|
|
; ; ; ; ; ; ; ; ;
|
|
; ; ;;;;;; ;;;; ; ;;;;
|
|
; ; ; ; ; ;
|
|
; ; ;; ; ; ; ; ; ;
|
|
; ;;;;; ;;;; ;;;; ;;;;; ;;;;
|
|
|
|
|
|
|
|
|
|
(dump=?
|
|
(dump-children pasteboard)
|
|
(list
|
|
(make-snip-dump 57.0 368.0 0.0 0.0 empty)
|
|
(make-snip-dump 114.0 368.0 57.0 0.0 empty)
|
|
(make-snip-dump 171.0 368.0 114.0 0.0 empty)
|
|
(make-snip-dump 182.0 24.0 171.0 0.0 empty)
|
|
(make-snip-dump
|
|
249.0
|
|
368.0
|
|
182.0
|
|
0.0
|
|
(list (make-snip-dump 55.0 178.0 0.0 0.0 empty) (make-snip-dump 55.0 356.0 0.0 178.0 empty)))
|
|
(make-snip-dump 269.0 20.0 249.0 0.0 false)
|
|
(make-snip-dump 289.0 20.0 269.0 0.0 false)
|
|
(make-snip-dump 300.0 24.0 289.0 0.0 empty)
|
|
(make-snip-dump 368.0 368.0 300.0 0.0 (list (make-snip-dump 11.0 24.0 0.0 0.0 empty))))
|
|
)
|
|
|
|
(send frame resize 0 0)
|
|
(sleep/yield 1)
|
|
|
|
(dump=?
|
|
(dump-children pasteboard)
|
|
(list
|
|
(make-snip-dump 10.0 34.0 0.0 0.0 empty)
|
|
(make-snip-dump 20.0 34.0 10.0 0.0 empty)
|
|
(make-snip-dump 30.0 34.0 20.0 0.0 empty)
|
|
(make-snip-dump 41.0 24.0 30.0 0.0 empty)
|
|
(make-snip-dump
|
|
61.0
|
|
34.0
|
|
41.0
|
|
0.0
|
|
(list (make-snip-dump 10.0 11.0 0.0 0.0 empty) (make-snip-dump 10.0 22.0 0.0 11.0 empty)))
|
|
(make-snip-dump 81.0 20.0 61.0 0.0 false)
|
|
(make-snip-dump 101.0 20.0 81.0 0.0 false)
|
|
(make-snip-dump 112.0 24.0 101.0 0.0 empty)
|
|
(make-snip-dump 133.0 34.0 112.0 0.0 (list (make-snip-dump 11.0 24.0 0.0 0.0 empty))))
|
|
)
|
|
|
|
(send frame resize 800 600)
|
|
(sleep/yield 1)
|
|
|
|
(dump=?
|
|
(dump-children pasteboard)
|
|
(list
|
|
(make-snip-dump 137.0 568.0 0.0 0.0 empty)
|
|
(make-snip-dump 274.0 568.0 137.0 0.0 empty)
|
|
(make-snip-dump 411.0 568.0 274.0 0.0 empty)
|
|
(make-snip-dump 422.0 24.0 411.0 0.0 empty)
|
|
(make-snip-dump
|
|
569.0
|
|
568.0
|
|
422.0
|
|
0.0
|
|
(list (make-snip-dump 135.0 278.0 0.0 0.0 empty) (make-snip-dump 135.0 556.0 0.0 278.0 empty)))
|
|
(make-snip-dump 589.0 20.0 569.0 0.0 false)
|
|
(make-snip-dump 609.0 20.0 589.0 0.0 false)
|
|
(make-snip-dump 620.0 24.0 609.0 0.0 empty)
|
|
(make-snip-dump 768.0 568.0 620.0 0.0 (list (make-snip-dump 11.0 24.0 0.0 0.0 empty))))
|
|
)
|
|
|
|
(send frame resize 400 400)
|
|
(send pasteboard delete i-snip)
|
|
(send pasteboard delete i-snip2)
|
|
|
|
(dump=?
|
|
(dump-children pasteboard)
|
|
(list
|
|
(make-snip-dump 65.0 368.0 0.0 0.0 empty)
|
|
(make-snip-dump 130.0 368.0 65.0 0.0 empty)
|
|
(make-snip-dump 195.0 368.0 130.0 0.0 empty)
|
|
(make-snip-dump 206.0 24.0 195.0 0.0 empty)
|
|
(make-snip-dump
|
|
281.0
|
|
368.0
|
|
206.0
|
|
0.0
|
|
(list (make-snip-dump 63.0 178.0 0.0 0.0 empty) (make-snip-dump 63.0 356.0 0.0 178.0 empty)))
|
|
(make-snip-dump 292.0 24.0 281.0 0.0 empty)
|
|
(make-snip-dump 368.0 368.0 292.0 0.0 (list (make-snip-dump 11.0 24.0 0.0 0.0 empty))))
|
|
)
|
|
|
|
(send pasteboard erase)
|
|
(dump=?
|
|
(dump-children pasteboard)
|
|
empty
|
|
)
|
|
|
|
(send frame show false)
|
|
(printf "done~n")
|