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 /* rscript-meta */
00009 #include <rscript-meta.tb>
00010 #include <rscript-initialize.tb>
00011 #include <rscript-transactions.tb>
00012 
00013 /* visualizations */
00014 #include <start-vis.tb>
00015 #include <vis-plugin-generic.tb>
00016 #include <vis-plugin-charts.tb>
00017 #include <vis-plugin-graph.tb>
00018 
00019 process StartVisPlugin is
00020   StartVisGenericPlugins()
00021   . StartVisPluginCharts()
00022   . StartVisPluginGraph()
00023 
00024 toolbus(StartVisPlugin)
00025 
00026 process InitializeRSCRIPTMetaEnvironment is
00027 let
00028   Event: attribute-changed-event,
00029   MenuEventList: list,
00030   ModuleId: module-id
00031 in
00032   snd-msg(set-title("RScript Meta-Environment"))
00033   . snd-msg(cm-get-events(studio-menubar))
00034   . rec-msg(cm-events(MenuEventList?))
00035   . snd-msg(gui-add-menu-events(MenuEventList))
00036   . StartConsole()
00037   . StartNavigator()
00038   . StartDialogTool()
00039   . StartGraphPanel()
00040   . StartProgressPanel()
00041   . StartModuledetailsPanel()
00042   .
00043   if not-equal(MODULENAME, "") then
00044     snd-msg(tm-request-transaction(module-manager))
00045     . OpenModule(MODULENAME, ModuleId?)
00046     . MM-Subscribe-Attribute-Changed(ModuleId,META_NAMESPACE,"idle",<term>,yes)
00047     . rec-note(mm-attribute-changed(Event?))
00048     . snd-msg(tm-end-transaction(module-manager))
00049   else
00050     tau
00051   fi 
00052 endlet
00053 
00054 toolbus(InitializeRSCRIPTMetaEnvironment)
start-meta-studio.tb
