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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 61976 - (show annotations)
Sun Jul 30 06:06:43 2006 UTC (13 years, 4 months ago) by manus
File size: 3490 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description: "Object that defines a menu item and a toolbar item of Terminate C Compilation function."
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_TERMINATE_C_COMPILATION_CMD
11
12 inherit
13 EB_TOOLBARABLE_AND_MENUABLE_COMMAND
14 redefine
15 new_toolbar_item,
16 tooltext
17 end
18
19 EB_SHARED_WINDOW_MANAGER
20
21 EB_SHARED_MANAGERS
22
23 create
24 make
25
26 feature {NONE} -- Initialization
27
28 make is
29 -- Initialize `Current'.
30 do
31 end
32
33 feature -- Status setting
34
35 execute is
36 -- Launch `Current'.
37 -- Pop up an error wizard relative to the last focused development window.
38 do
39 internal_execute
40 end
41
42 execute_with_stone (st: ERROR_STONE) is
43 --
44 do
45 internal_execute
46 end
47
48
49 feature -- Status report
50
51 description: STRING is
52 -- Explanatory text for this command.
53 do
54 Result := Interface_names.e_Terminate_c_compilation
55 end
56
57 tooltip: STRING is
58 -- Tooltip for `Current's toolbar button.
59 do
60 Result := Interface_names.b_Terminate_c_compilation
61 end
62
63 tooltext: STRING is
64 -- Text for `Current's toolbar button.
65 do
66 Result := Interface_names.b_Terminate_c_compilation
67 end
68
69 name: STRING is "Terminate C compilation"
70 -- Internal textual representation.
71
72 pixmap: EV_PIXMAP is
73 -- Image used for `Current's toolbar buttons.
74 do
75 Result := Void
76 end
77
78 menu_name: STRING is
79 -- Text used for menu items for `Current'.
80 do
81 Result := Interface_names.b_Terminate_c_compilation
82 end
83
84 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
85 -- Create a new toolbar button for this command.
86 --
87 -- Call `recycle' on the result when you don't need it anymore otherwise
88 -- it will never be garbage collected.
89 do
90 Result := Precursor {EB_TOOLBARABLE_AND_MENUABLE_COMMAND} (display_text)
91 Result.drop_actions.extend (agent execute_with_stone)
92 end
93
94 feature {NONE} -- Implementation
95
96 internal_execute is
97 -- Teminate running c compilation
98 do
99 if process_manager.is_c_compilation_running then
100 process_manager.terminate_c_compilation
101 end
102 end
103
104 indexing
105 copyright: "Copyright (c) 1984-2006, Eiffel Software"
106 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
107 licensing_options: "http://www.eiffel.com/licensing"
108 copying: "[
109 This file is part of Eiffel Software's Eiffel Development Environment.
110
111 Eiffel Software's Eiffel Development Environment is free
112 software; you can redistribute it and/or modify it under
113 the terms of the GNU General Public License as published
114 by the Free Software Foundation, version 2 of the License
115 (available at the URL listed under "license" above).
116
117 Eiffel Software's Eiffel Development Environment is
118 distributed in the hope that it will be useful, but
119 WITHOUT ANY WARRANTY; without even the implied warranty
120 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
121 See the GNU General Public License for more details.
122
123 You should have received a copy of the GNU General Public
124 License along with Eiffel Software's Eiffel Development
125 Environment; if not, write to the Free Software Foundation,
126 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
127 ]"
128 source: "[
129 Eiffel Software
130 356 Storke Road, Goleta, CA 93117 USA
131 Telephone 805-685-1006, Fax 805-685-6869
132 Website http://www.eiffel.com
133 Customer support http://support.eiffel.com
134 ]"
135
136 end -- class EB_TERMINATE_C_COMPILATION_CMD

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23