Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Diagram tool links fix #62

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -60,10 +60,10 @@ feature -- Access
-- Container of `Current'.
-- Used to access surface on which `Current' is displayed.

class_of_id (a_id: STRING): ES_CLASS
-- Class of `a_id'
class_of_name (a_name: STRING): ES_CLASS
-- Class of `a_name'
require
a_id_not_void: a_id /= Void
a_name_not_void: a_name /= Void
local
l_nodes: like nodes
l_class: ES_CLASS
Expand All @@ -75,7 +75,7 @@ feature -- Access
l_nodes.after or Result /= Void
loop
l_class ?= l_nodes.item
if l_class /= Void and then l_class.es_class_id.is_equal (a_id) then
if l_class /= Void and then l_class.name.is_equal (a_name) then
Result := l_class
end
l_nodes.forth
Expand Down Expand Up @@ -960,7 +960,7 @@ invariant
client_supplier_links_lookup_not_void: client_supplier_links_lookup /= Void

note
copyright: "Copyright (c) 1984-2020, Eiffel Software"
copyright: "Copyright (c) 1984-2024, Eiffel Software"
license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
licensing_options: "http://www.eiffel.com/licensing"
copying: "[
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -113,8 +113,8 @@ feature -- Access
if source_name /= Void then
target_name := node.attribute_by_name (target_string).value
if target_name /= Void then
source := l_world.model.class_of_id (source_name)
target := l_world.model.class_of_id (target_name)
source := l_world.model.class_of_name (source_name)
target := l_world.model.class_of_name (target_name)
if source /= Void and target /= Void then
if node_name.same_string (xml_client_supplier_figure_node_name) then
if source.has_supplier (target) then
Expand Down Expand Up @@ -207,7 +207,7 @@ feature {NONE} -- Constants
-- Xml string constants

note
copyright: "Copyright (c) 1984-2020, Eiffel Software"
copyright: "Copyright (c) 1984-2024, Eiffel Software"
license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
licensing_options: "http://www.eiffel.com/licensing"
copying: "[
Expand Down