00001 #ifndef __SDF_EDITOR_ACTIONS__
00002 #define __SDF_EDITOR_ACTIONS__
00003 
00004 #include <sdf-editor-utils.tb>
00005 
00006 process EditorEditSyntaxAction(EditorId : session-id) is
00007 let 
00008   ModuleId : module-id
00009 in
00010   GetModuleId(EditorId, ModuleId?)
00011   . EditSyntaxAction(ModuleId)
00012 endlet
00013 
00014 process EditSyntaxAction(ModuleId : module-id) is
00015 let
00016   Pid: int,
00017   Sid: session-id
00018 in
00019   create(EditSyntax(ModuleId), Pid?)
00020   . rec-msg(syntax-editor-started(ModuleId, Sid?))
00021   . TODO("And what if it didn't start? See term-editor-utils.tb")
00022   . create(CleanupEditTerm(Sid), Pid?)
00023 endlet
00024 
00025 #endif /* __SDF_EDITOR_ACTIONS__ */
sdf-editor-actions.tb
