From 5a661d73dc2a1215395c47fd4918529a2b4a0724 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 11 Nov 2004 15:32:12 +0000
Subject: [PATCH] .

original commit: 83af5da7c2d084137c83e455256237c740e97604
---
 collects/tests/mred/item.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index e88d2254..045e43ee 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1943,6 +1943,8 @@
 				     (send p delete 0)))
   (make-object button% "Set First" p2 (lambda (b e)
 					(send p set-selection 0)))
+  (make-object button% "Set Last" p2 (lambda (b e)
+				       (send p set-selection (sub1 (send p get-number)))))
   (when no-border?
     (make-object button% "Toggle" p2 (lambda (b e)
 				       (if on?