keep compilable with EiffelStudio <= 7.1

This commit is contained in:
Jocelyn Fiat
2013-02-15 15:08:53 +01:00
parent 61c8388eba
commit 5eb8baa096
2 changed files with 3 additions and 1 deletions

View File

@@ -29,6 +29,8 @@ feature -- Status report
is_expandable: BOOLEAN = False is_expandable: BOOLEAN = False
has_children: BOOLEAN = False
children: detachable LIST [CMS_LINK] children: detachable LIST [CMS_LINK]
do do
end end

View File

@@ -86,7 +86,7 @@ feature -- Handler
s.append ("<hr/>") s.append ("<hr/>")
append_info_to ("Current dir", (create {EXECUTION_ENVIRONMENT}).current_working_path.name, e, s) append_info_to ("Current dir", (create {EXECUTION_ENVIRONMENT}).current_working_directory, e, s)
append_info_to ("Base url", cms.base_url, e, s) append_info_to ("Base url", cms.base_url, e, s)
append_info_to ("Script url", cms.script_url, e, s) append_info_to ("Script url", cms.script_url, e, s)
s.append ("<hr/>") s.append ("<hr/>")