/[eiffelstudio]/branches/eth/eve/Src/Eiffel/interface/graphical/tools/event_list_service/error_list/es_fix_command.e
ViewVC logotype

Contents of /branches/eth/eve/Src/Eiffel/interface/graphical/tools/event_list_service/error_list/es_fix_command.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 94983 - (show annotations)
Fri May 2 11:05:28 2014 UTC (5 years, 5 months ago) by jasonw
File size: 2487 byte(s)
<<Merged from trunk#94978.>>
1 note
2 description: "Command to apply selected fixes to source code."
3
4 class
5 ES_FIX_COMMAND
6
7 inherit
8 ES_ERROR_LIST_COMMAND
9 redefine
10 make,
11 tooltext
12 end
13
14 create
15 make
16
17 feature {NONE} -- Initialization
18
19 make (a_commander: like tool_commander)
20 -- Initialize command using a tool commander.
21 --
22 -- `a_commander': A errors and warnings tool commander.
23 do
24 Precursor (a_commander)
25 if attached preferences.misc_shortcut_data.shortcuts.item ("apply_fix") as l_shortcut then
26 set_global_shortcut (l_shortcut)
27 end
28 end
29
30 feature -- Access
31
32 pixel_buffer: EV_PIXEL_BUFFER
33 -- <Precursor>
34 do
35 -- Void here.
36 end
37
38 menu_name: STRING_GENERAL
39 -- <Precursor>
40 do
41 Result := interface_names.m_apply_fix
42 end
43
44 tooltext: STRING_GENERAL
45 -- <Precursor>
46 do
47 Result := interface_names.b_apply_fix
48 end
49
50 description: STRING_GENERAL
51 -- <Precursor>
52 do
53 Result := interface_names.l_apply_fix
54 end
55
56 tooltip: STRING_GENERAL
57 -- <Precursor>
58 do
59 Result := interface_names.f_apply_fix
60 end
61
62 feature -- Execution
63
64 execute
65 -- <Precursor>
66 do
67 tool_commander.apply_fix
68 end
69
70 note
71 date: "$Date$"
72 revision: "$Revision$"
73 copyright: "Copyright (c) 1984-2014, Eiffel Software"
74 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
75 licensing_options: "http://www.eiffel.com/licensing"
76 copying: "[
77 This file is part of Eiffel Software's Eiffel Development Environment.
78
79 Eiffel Software's Eiffel Development Environment is free
80 software; you can redistribute it and/or modify it under
81 the terms of the GNU General Public License as published
82 by the Free Software Foundation, version 2 of the License
83 (available at the URL listed under "license" above).
84
85 Eiffel Software's Eiffel Development Environment is
86 distributed in the hope that it will be useful, but
87 WITHOUT ANY WARRANTY; without even the implied warranty
88 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
89 See the GNU General Public License for more details.
90
91 You should have received a copy of the GNU General Public
92 License along with Eiffel Software's Eiffel Development
93 Environment; if not, write to the Free Software Foundation,
94 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
95 ]"
96 source: "[
97 Eiffel Software
98 5949 Hollister Ave., Goleta, CA 93117 USA
99 Telephone 805-685-1006, Fax 805-685-6869
100 Website http://www.eiffel.com
101 Customer support http://support.eiffel.com
102 ]"
103 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23