keep compilable with EiffelStudio <= 7.1
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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/>")
|
||||||
|
|||||||
Reference in New Issue
Block a user