/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/formatters/eb_implementers_formatter.e
ViewVC logotype

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/formatters/eb_implementers_formatter.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 61901 - (show annotations)
Sun Jul 30 05:52:19 2006 UTC (13 years, 4 months ago) by manus
File size: 3091 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description: "Command to display the implementers of a feature."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 author: "Xavier Rousselot"
6 date: "$Date$"
7 revision: "$Revision$"
8
9 class
10 EB_IMPLEMENTERS_FORMATTER
11
12 inherit
13 EB_FEATURE_CONTENT_FORMATTER
14 redefine
15 is_dotnet_formatter
16 end
17
18 create
19 make
20
21 feature -- Properties
22
23 symbol: ARRAY [EV_PIXMAP] is
24 -- Graphical representation of the command.
25 once
26 create Result.make (1, 2)
27 Result.put (pixmaps.icon_pixmaps.feature_implementers_icon, 1)
28 Result.put (pixmaps.icon_pixmaps.feature_implementers_icon, 2)
29 end
30
31 menu_name: STRING is
32 -- Identifier of `Current' in menus.
33 do
34 Result := Interface_names.m_Showhistory
35 end
36
37 feature {NONE} -- Properties
38
39 command_name: STRING is
40 -- Name of the command.
41 do
42 Result := Interface_names.l_Implementers
43 end
44
45 post_fix: STRING is "imp"
46 -- String symbol of the command, used as an extension when saving.
47
48 is_dotnet_formatter: BOOLEAN is
49 -- Is Current able to format .NET XML types?
50 do
51 Result := True
52 end
53
54 feature {NONE} -- Implementation
55
56 has_breakpoints: BOOLEAN is False
57 -- Should breakpoints be shown in Current?
58
59 criterion: QL_CRITERION is
60 -- Criterion of current formatter
61 do
62 create {QL_FEATURE_IMPLEMENTORS_OF_CRI}Result.make (query_feature_item_from_e_feature (associated_feature).wrapped_domain)
63 end
64
65 rebuild_browser is
66 -- Rebuild `browser'.
67 do
68 browser.set_is_branch_id_used (True)
69 browser.set_is_written_class_used (False)
70 browser.set_is_signature_displayed (False)
71 browser.set_is_version_from_displayed (True)
72 browser.set_feature_item (associated_feature)
73 browser.rebuild_interface
74 end
75
76 indexing
77 copyright: "Copyright (c) 1984-2006, Eiffel Software"
78 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
79 licensing_options: "http://www.eiffel.com/licensing"
80 copying: "[
81 This file is part of Eiffel Software's Eiffel Development Environment.
82
83 Eiffel Software's Eiffel Development Environment is free
84 software; you can redistribute it and/or modify it under
85 the terms of the GNU General Public License as published
86 by the Free Software Foundation, version 2 of the License
87 (available at the URL listed under "license" above).
88
89 Eiffel Software's Eiffel Development Environment is
90 distributed in the hope that it will be useful, but
91 WITHOUT ANY WARRANTY; without even the implied warranty
92 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
93 See the GNU General Public License for more details.
94
95 You should have received a copy of the GNU General Public
96 License along with Eiffel Software's Eiffel Development
97 Environment; if not, write to the Free Software Foundation,
98 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
99 ]"
100 source: "[
101 Eiffel Software
102 356 Storke Road, Goleta, CA 93117 USA
103 Telephone 805-685-1006, Fax 805-685-6869
104 Website http://www.eiffel.com
105 Customer support http://support.eiffel.com
106 ]"
107
108 end -- class EB_IMPLEMENTERS_FORMATTER
109
110
111

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23