From c54355482fd1fbb0f8b4ec09cc4d349555e60de7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 25 May 2011 07:30:04 -0600 Subject: [PATCH] fix GUI builder due to `pasteboard%' change way back - the `insert' method of `pasteboard%' was always documented as inserting to the back by default, but the old C++ implementation actually inserted at the front for one of the overloadings; keeping the releatively new behavior supports more recent code at the expense of old code, and this commit is for old code --- collects/guibuilder/base.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/guibuilder/base.rkt b/collects/guibuilder/base.rkt index e6d431989d..c45da18d6b 100644 --- a/collects/guibuilder/base.rkt +++ b/collects/guibuilder/base.rkt @@ -125,7 +125,7 @@ [else (cons (car l) (loop (cdr l) (sub1 p)))]))) (when pb (send c gb-install pb this) - (send pb insert c x (+ y h))) + (send pb insert c (send pb find-first-snip) x (+ y h))) (gb-need-recalc-size)])) (gb-remove-child (lambda (c) @@ -147,7 +147,7 @@ (set! id (send pb new-id)) (for-each (lambda (c) - (send pb insert c x (+ y h)) + (send pb insert c (send pb find-first-snip) x (+ y h)) (send c gb-install pb this)) children)))