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

test menu count

Browse Source 
original commit: c69a27d58a0baf4d8c1e947b27654fce2f4c537f
This commit is contained in:
Matthew Flatt 1998-04-23 19:17:57 +00:00
parent 1f34ac774a
commit d32bd62fab
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -669,6 +669,16 @@
(send banana-menu append (+ offset DELETE-BANANA) (send banana-menu append (+ offset DELETE-BANANA)
"Delete Banana")) "Delete Banana"))
"Add Delete Banana") "Add Delete Banana")
(make-object mred:button% sbp
(lambda args
(wx:message-box
(format "MB: ~a; T: ~a; A: ~a; B: ~a"
(send menu-bar number)
(send main-menu number)
(send apple-menu number)
(send banana-menu number))
"Counts"))
"Counts")
(make-test-button "Aeros" mfbp main-menu (list-ref hockey-ids 0)) (make-test-button "Aeros" mfbp main-menu (list-ref hockey-ids 0))
(make-test-button "Bruins" mfbp main-menu (list-ref hockey-ids 1)) (make-test-button "Bruins" mfbp main-menu (list-ref hockey-ids 1))