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

.

Browse Source 
original commit: 83af5da7c2d084137c83e455256237c740e97604
This commit is contained in:
Matthew Flatt 2004-11-11 15:32:12 +00:00
parent 420e1ada65
commit 5a661d73dc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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?