suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 9fc6268ad03a67241d55b6d7d3c1fcea85a31e51
This commit is contained in:
Matthew Flatt 2001-07-25 16:07:35 +00:00
parent 5cd135249c
commit f817f4e284
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mred/item.ss
View File

@ -1505,9 +1505,10 @@
[swapped-name -swapped-name] [swapped-name -swapped-name]
[auto? #f] [auto? #f]
[incremental? #f] [incremental? #f]
[inc-mode (lambda (x) (set! incremental? x))]
[vw 10] [vw 10]
[vh 10] [vh 10])
(public
[inc-mode (lambda (x) (set! incremental? x))]
[set-vsize (lambda (w h) (set! vw w) (set! vh h))]) [set-vsize (lambda (w h) (set! vw w) (set! vh h))])
(override (override
[on-paint [on-paint
@ -1535,6 +1536,10 @@
3 27) 3 27)
(send dc draw-line 0 vh vw vh) (send dc draw-line 0 vh vw vh)
(send dc draw-line vw 0 vw vh))))] (send dc draw-line vw 0 vw vh))))]
[on-event
(lambda (e)
(let ([s (format "~a ~a" (send e get-x) (send e get-y))])
(send f set-status-text s)))]
[on-scroll [on-scroll
(lambda (e) (lambda (e)
(when auto? (printf "Hey - on-scroll called for auto scrollbars~n")) (when auto? (printf "Hey - on-scroll called for auto scrollbars~n"))
@ -1595,6 +1600,7 @@
(send c2 inc-mode (send c get-value)))) (send c2 inc-mode (send c get-value))))
(send c1 set-vsize 10 10) (send c1 set-vsize 10 10)
(send c2 set-vsize 500 200) (send c2 set-vsize 500 200)
(send f create-status-line)
(send f show #t)) (send f show #t))
(define (editor-canvas-oneline-frame) (define (editor-canvas-oneline-frame)