original commit: e15817abd3de097c7d61d1216ad5d1d06d8d26ee
This commit is contained in:
Robby Findler 2000-01-02 23:01:58 +00:00
parent cb5127ec13
commit 9c8831178d

View File

@ -1079,7 +1079,7 @@
(send memory-text erase)
(send memory-text insert (number->string (current-memory-use)))
(send memory-text end-edit-sequence))]
[button (make-object button% "Memory" panel
[button (make-object button% "Collect" panel
(lambda x
(collect-garbage)
(update-text)))]