original commit: b990cf42265833882615f39335a2a5d75517ec3d
This commit is contained in:
Robby Findler 1999-12-09 03:32:44 +00:00
parent af82a8ad61
commit c740d3bc76

View File

@ -1081,7 +1081,7 @@
(send memory-text end-edit-sequence))]
[button (make-object button% "Memory" panel
(lambda x
(collect-garbage)(collect-garbage)(collect-garbage)
(collect-garbage)
(update-text)))]
[ec (make-object editor-canvas% panel memory-text '(no-hscroll no-vscroll))])
(determine-width "000000000" ec memory-text)