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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 61903 - (show annotations)
Sun Jul 30 05:52:43 2006 UTC (13 years, 6 months ago) by manus
File size: 4107 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 homonyms 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_HOMONYMS_FORMATTER
11
12 inherit
13 EB_FEATURE_CONTENT_FORMATTER
14 redefine
15 is_dotnet_formatter,
16 format
17 end
18
19 EB_SHARED_PREFERENCES
20
21 create
22 make
23
24 feature -- Properties
25
26 symbol: ARRAY [EV_PIXMAP] is
27 -- Graphical representation of the command.
28 once
29 create Result.make (1, 2)
30 Result.put (pixmaps.icon_pixmaps.feature_homonyms_icon, 1)
31 Result.put (pixmaps.icon_pixmaps.feature_homonyms_icon, 2)
32 end
33
34 menu_name: STRING is
35 -- Identifier of `Current' in menus.
36 do
37 Result := Interface_names.m_Showhomonyms
38 end
39
40 feature {NONE} -- Properties
41
42 command_name: STRING is
43 -- Name of the command.
44 do
45 Result := Interface_names.l_Homonyms
46 end
47
48 post_fix: STRING is "hom"
49 -- String symbol of the command, used as an extension when saving.
50
51 is_dotnet_formatter: BOOLEAN is
52 -- Is Current able to format .NET XML types?
53 do
54 Result := True
55 end
56
57 feature -- Formatting
58
59 format is
60 -- Refresh `widget'.
61 local
62 cf: STANDARD_DISCARDABLE_CONFIRMATION_DIALOG
63 do
64 if associated_feature /= Void and then selected and then displayed then
65 display_temp_header
66 setup_viewpoint
67 confirmed := False
68 create cf.make_initialized (2, preferences.dialog_data.generate_homonyms_string, Interface_names.l_homonym_confirmation, Interface_names.L_do_not_show_again, preferences.preferences)
69 cf.set_ok_action (agent confirm_generate)
70 cf.show_modal_to_window (Window_manager.last_focused_development_window.window)
71 if confirmed then
72 last_was_error := False
73 rebuild_browser
74 generate_result
75 else
76 browser.update (Void, Void)
77 last_was_error := True
78 end
79 if not widget.is_displayed then
80 widget.show
81 end
82 display_header
83 end
84 end
85
86 feature {NONE} -- Implementation
87
88 confirm_generate is
89 -- The user DOES want to generate the homonyms.
90 do
91 confirmed := True
92 end
93
94 confirmed: BOOLEAN
95 -- Did the user confirm he wanted to generate the homonyms?
96
97 has_breakpoints: BOOLEAN is False;
98 -- Should breakpoints be shown in Current?
99
100 criterion: QL_CRITERION is
101 -- Criterion of current formatter
102 do
103 create {QL_FEATURE_NAME_IS_CRI}Result.make_with_setting (associated_feature.name, False, True)
104 end
105
106 rebuild_browser is
107 -- Rebuild `browser'.
108 do
109 browser.set_is_branch_id_used (False)
110 browser.set_is_written_class_used (True)
111 browser.set_is_signature_displayed (True)
112 browser.set_is_version_from_displayed (False)
113 browser.set_feature_item (associated_feature)
114 browser.rebuild_interface
115 end
116
117 indexing
118 copyright: "Copyright (c) 1984-2006, Eiffel Software"
119 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
120 licensing_options: "http://www.eiffel.com/licensing"
121 copying: "[
122 This file is part of Eiffel Software's Eiffel Development Environment.
123
124 Eiffel Software's Eiffel Development Environment is free
125 software; you can redistribute it and/or modify it under
126 the terms of the GNU General Public License as published
127 by the Free Software Foundation, version 2 of the License
128 (available at the URL listed under "license" above).
129
130 Eiffel Software's Eiffel Development Environment is
131 distributed in the hope that it will be useful, but
132 WITHOUT ANY WARRANTY; without even the implied warranty
133 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
134 See the GNU General Public License for more details.
135
136 You should have received a copy of the GNU General Public
137 License along with Eiffel Software's Eiffel Development
138 Environment; if not, write to the Free Software Foundation,
139 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
140 ]"
141 source: "[
142 Eiffel Software
143 356 Storke Road, Goleta, CA 93117 USA
144 Telephone 805-685-1006, Fax 805-685-6869
145 Website http://www.eiffel.com
146 Customer support http://support.eiffel.com
147 ]"
148
149 end -- class EB_HOMONYMS_FORMATTER
150
151

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23