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

.

Browse Source 
original commit: c7b1cfac102cc573e694f6fd75883b5e7296166a
This commit is contained in:
Matthew Flatt 1998-10-16 14:34:13 +00:00
parent 603cc19976
commit 7a4b70d03e
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,8 +175,14 @@
(define active-frame%
(class-asi frame%
(private (pre-on void))
(override [on-subwindow-event (lambda args (apply pre-on args))]
[on-subwindow-char on-subwindow-event]
(rename [super-on-subwindow-event on-subwindow-event]
[super-on-subwindow-char on-subwindow-char])
(override [on-subwindow-event (lambda args
(or (apply pre-on args)
(apply super-on-subwindow-event args)))]
[on-subwindow-char (lambda args
(or (apply pre-on args)
(apply super-on-subwindow-char args)))]
[on-move (lambda (x y) (printf "moved: ~a ~a~n" x y))]
[on-size (lambda (x y) (printf "sized: ~a ~a~n" x y))])
(public [set-info

1
src/mred/wrap/mred.ss
View File

@ -565,7 +565,6 @@
[normal-move
(lambda ()
(let* ([dests (map object->position (container->children panel o))]
[_ (printf "~a~n" (map (lambda (x) (send (wx->proxy (car x)) get-label)) dests))]
[pos (if o (object->position o) (list 'x 0 0 0 0))]
[o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4)
(case code