/[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 62171 - (show annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 4 months ago) by larryl
File size: 3642 byte(s)
First commit docking tabbed Eiffel Studio.
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 pixel_buffer: EV_PIXEL_BUFFER is
79 -- Pixel buffer representing the command.
80 do
81 -- Currently there is no pixel buffer for this command.
82 end
83
84 menu_name: STRING is
85 -- Text used for menu items for `Current'.
86 do
87 Result := Interface_names.b_Terminate_c_compilation
88 end
89
90 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
91 -- Create a new toolbar button for this command.
92 --
93 -- Call `recycle' on the result when you don't need it anymore otherwise
94 -- it will never be garbage collected.
95 do
96 Result := Precursor {EB_TOOLBARABLE_AND_MENUABLE_COMMAND} (display_text)
97 Result.drop_actions.extend (agent execute_with_stone)
98 end
99
100 feature {NONE} -- Implementation
101
102 internal_execute is
103 -- Teminate running c compilation
104 do
105 if process_manager.is_c_compilation_running then
106 process_manager.terminate_c_compilation
107 end
108 end
109
110 indexing
111 copyright: "Copyright (c) 1984-2006, Eiffel Software"
112 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
113 licensing_options: "http://www.eiffel.com/licensing"
114 copying: "[
115 This file is part of Eiffel Software's Eiffel Development Environment.
116
117 Eiffel Software's Eiffel Development Environment is free
118 software; you can redistribute it and/or modify it under
119 the terms of the GNU General Public License as published
120 by the Free Software Foundation, version 2 of the License
121 (available at the URL listed under "license" above).
122
123 Eiffel Software's Eiffel Development Environment is
124 distributed in the hope that it will be useful, but
125 WITHOUT ANY WARRANTY; without even the implied warranty
126 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
127 See the GNU General Public License for more details.
128
129 You should have received a copy of the GNU General Public
130 License along with Eiffel Software's Eiffel Development
131 Environment; if not, write to the Free Software Foundation,
132 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
133 ]"
134 source: "[
135 Eiffel Software
136 356 Storke Road, Goleta, CA 93117 USA
137 Telephone 805-685-1006, Fax 805-685-6869
138 Website http://www.eiffel.com
139 Customer support http://support.eiffel.com
140 ]"
141
142 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