add back credits debug stuff

parent e094af44
......@@ -58,6 +58,36 @@
(define text-buffer
(spawn ^text-buffer 20))
($ text-buffer 'insert-char #\h 'bryellow)
($ text-buffer 'insert-char #\e 'brred)
($ text-buffer 'insert-char #\l 'brgreen)
($ text-buffer 'insert-char #\l 'brblue)
($ text-buffer 'insert-char #\o 'brmagenta)
($ text-buffer 'crlf)
($ text-buffer 'insert-char #\w 'yellow)
($ text-buffer 'insert-char #\o 'red)
($ text-buffer 'insert-char #\r 'green)
($ text-buffer 'insert-char #\l 'blue)
($ text-buffer 'insert-char #\d 'magenta)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'crlf)
($ text-buffer 'insert-char #\h 'bryellow)
($ text-buffer 'insert-char #\e 'brred)
($ text-buffer 'insert-char #\l 'brgreen)
($ text-buffer 'insert-char #\l 'brblue)
($ text-buffer 'insert-char #\o 'brmagenta)
(methods
[tick no-op]
[(handle-event evt)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment