/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_project_cancel_command.e
ViewVC logotype

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_project_cancel_command.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62171 - (show annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 4 months ago) by larryl
File size: 2324 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description: "Cancel any current project executions."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 author: ""
6 date: "$Date$"
7 revision: "$Revision$"
8
9 class
10 EB_PROJECT_CANCEL_COMMAND
11
12 inherit
13 EB_MENUABLE_COMMAND
14 redefine
15 default_create
16 end
17
18 SHARED_EIFFEL_PROJECT
19 undefine
20 default_create
21 end
22
23 feature {NONE} -- Initialization
24
25 default_create is
26 -- Make and initialize command.
27 do
28 Precursor
29 accelerator := create {EV_ACCELERATOR}.make_with_key_combination (
30 create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_pause), True, False, False
31 )
32 accelerator.actions.extend (agent execute)
33 end
34
35 feature -- Execution
36
37 execute is
38 -- Execute the command.
39 do
40 Degree_output.user_has_requested_cancellation
41 end
42
43 feature {NONE} -- Implementation
44
45 pixmap: EV_PIXMAP
46 -- Pixmap
47
48 menu_name: STRING is
49 -- Name as it appears in the menu (with & symbol).
50 do
51 Result := interface_names.B_cancel
52 end
53
54 indexing
55 copyright: "Copyright (c) 1984-2006, Eiffel Software"
56 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
57 licensing_options: "http://www.eiffel.com/licensing"
58 copying: "[
59 This file is part of Eiffel Software's Eiffel Development Environment.
60
61 Eiffel Software's Eiffel Development Environment is free
62 software; you can redistribute it and/or modify it under
63 the terms of the GNU General Public License as published
64 by the Free Software Foundation, version 2 of the License
65 (available at the URL listed under "license" above).
66
67 Eiffel Software's Eiffel Development Environment is
68 distributed in the hope that it will be useful, but
69 WITHOUT ANY WARRANTY; without even the implied warranty
70 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
71 See the GNU General Public License for more details.
72
73 You should have received a copy of the GNU General Public
74 License along with Eiffel Software's Eiffel Development
75 Environment; if not, write to the Free Software Foundation,
76 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
77 ]"
78 source: "[
79 Eiffel Software
80 356 Storke Road, Goleta, CA 93117 USA
81 Telephone 805-685-1006, Fax 805-685-6869
82 Website http://www.eiffel.com
83 Customer support http://support.eiffel.com
84 ]"
85
86 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23