00001 /*#define TODO(m) printf("%s:%d - TODO: %s\n", __FILE__, __LINE__, m)*/
00002 process TODO(Msg : str) is printf("TODO: %s\n", Msg)
00003 
00004 /* meta-kernel */
00005 #include <meta.tb>
00006 #include <meta-namespace.h>
00007 
00008 /* sdf-meta */
00009 #include <sdf-meta.tb>
00010 #include <sdf-initialize.tb>
00011 #include <sdf-transactions.tb>
00012 
00013 process InitializeSDFMetaEnvironment is
00014 let
00015   Event: attribute-changed-event,
00016   MenuEventList: list,
00017   ModuleId: module-id
00018 in
00019   snd-msg(set-title("SDF Meta-Environment"))
00020   . snd-msg(cm-get-events(studio-menubar))
00021   . rec-msg(cm-events(MenuEventList?))
00022   . snd-msg(gui-add-menu-events(MenuEventList))
00023   . StartConsole()
00024   . StartNavigator()
00025   . StartDialogTool()
00026   . StartGraphPanel()
00027   . StartProgressPanel()
00028   . StartModuledetailsPanel()
00029   .
00030   if not-equal(MODULENAME, "") then
00031     snd-msg(tm-request-transaction(module-manager))
00032     . OpenModule(MODULENAME, ModuleId?)
00033     . MM-Subscribe-Attribute-Changed(ModuleId,META_NAMESPACE,"idle",<term>,yes)
00034     . rec-note(mm-attribute-changed(Event?))
00035     . snd-msg(tm-end-transaction(module-manager))
00036   else
00037     tau
00038   fi 
00039 endlet
00040 
00041 toolbus(InitializeSDFMetaEnvironment)
start-meta-studio.tb
