00001 #ifndef __ASF_EDITOR_ACTIONS__
00002 #define __ASF_EDITOR_ACTIONS__
00003 
00004 #include <asf-namespace.h>
00005 #include <asf-editor-utils.tb>
00006 
00007 process EditorEditEquationsAction(EditorId : session-id) is
00008 let 
00009   ModuleId : module-id
00010 in
00011   GetModuleId(EditorId, ModuleId?)
00012   . EditEquationsAction(ModuleId)
00013 endlet
00014 
00015 
00016 process EditEquationsAction(ModuleId : module-id) is
00017 let
00018   Path: str,
00019   Pid: int,
00020   Sid: session-id
00021 in
00022   GetModulePath(ModuleId, ASF_NAMESPACE, Path?)
00023   .
00024   if equal(Path, "") then
00025     tau
00026   else
00027     create(EditEquations(ModuleId), Pid?)
00028     . TODO("And what if it didn't start? See term-editor-utils.tb")
00029     . rec-msg(equations-editor-started(ModuleId, Sid?))
00030     . create(CleanupEditTerm(Sid), Pid?)
00031   fi
00032 endlet
00033 
00034 #endif /* __ASF_EDITOR_ACTIONS__ */
asf-editor-actions.tb
