00001 #ifndef __RSCRIPT_EDITOR_ACTIONS__
00002 #define __RSCRIPT_EDITOR_ACTIONS__
00003
00004 #include <rscript-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 EditorRunRScriptAction(EditorId : session-id) is
00015 let
00016 ModuleId : module-id
00017 in
00018 GetModuleId(EditorId, ModuleId?)
00019 . RunRScript(ModuleId)
00020 endlet
00021
00022 process EditorTestRScriptAction(EditorId : session-id) is
00023 let
00024 ModuleId : module-id
00025 in
00026 GetModuleId(EditorId, ModuleId?)
00027 . TestRScript(ModuleId)
00028 endlet
00029
00030 process EditorRunRScriptWithRStoreAction(EditorId : session-id) is
00031 let
00032 ModuleId : module-id
00033 in
00034 GetModuleId(EditorId, ModuleId?)
00035 . RunRScriptWithRStore(ModuleId)
00036 endlet
00037
00038 process EditSyntaxAction(ModuleId : module-id) is
00039 let
00040 Pid: int,
00041 Sid: session-id
00042 in
00043 create(EditSyntax(ModuleId), Pid?)
00044 . rec-msg(syntax-editor-started(ModuleId, Sid?))
00045 . TODO("And what if it didn't start? See term-editor-utils.tb")
00046 . create(CleanupEditTerm(Sid), Pid?)
00047 endlet
00048
00049 #endif
