The Meta-Environment API
00001 #ifndef __CONSOLE_GRABBER__ 00002 #define __CONSOLE_GRABBER__ 00003 00004 #include <console-grabber.idef> 00005 00006 process SendConsoleMessage is 00007 let 00008 Message: str 00009 in 00010 subscribe(cg-console-message(<str>)) 00011 . 00012 ( 00013 rec-note(cg-console-message(Message?)) 00014 . snd-msg(cg-add-message(Message)) 00015 ) 00016 * 00017 delta 00018 endlet 00019 00020 toolbus(SendConsoleMessage) 00021 00022 #endif /* __CONSOLE_GRABBER__ */
1.4.6