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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_new_assembly_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: 4080 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description: "Command to create a new assembly group."
3 date: "$Date$"
4 revision: "$Revision$"
5
6 class
7 EB_NEW_ASSEMBLY_COMMAND
8
9 inherit
10 EB_TOOLBARABLE_AND_MENUABLE_COMMAND
11 redefine
12 mini_pixmap,
13 tooltext
14 end
15
16 EB_DEVELOPMENT_WINDOW_COMMAND
17
18 SHARED_WORKBENCH
19
20 create
21 make
22
23 feature -- Basic operations
24
25 execute is
26 -- Pop up cluster wizard.
27 local
28 dial: CREATE_ASSEMBLY_DIALOG
29 wd: EV_WARNING_DIALOG
30 l_factory: CONF_COMP_FACTORY
31 l_target: CONF_TARGET
32 l_load: CONF_LOAD
33 do
34 if Workbench.is_already_compiled then
35 if
36 not Workbench.is_compiling or else
37 Workbench.last_reached_degree <= 5
38 then
39 create l_factory
40 create l_load.make (l_factory)
41 l_load.retrieve_configuration (universe.target.system.file_name)
42 if l_load.is_error then
43 create wd.make_with_text (Warning_messages.w_Unsufficient_compilation (3))
44 wd.show_modal_to_window (target.window)
45 else
46 l_target := l_load.last_system.targets.item (universe.target.name)
47 end
48 if l_target = Void then
49 create wd.make_with_text (Warning_messages.w_Unsufficient_compilation (3))
50 wd.show_modal_to_window (target.window)
51 else
52 create dial.make (l_target, l_factory)
53 dial.show_modal_to_window (target.window)
54 if dial.is_ok then
55 l_target.system.store
56 end
57 end
58 else
59 create wd.make_with_text (Warning_messages.w_Unsufficient_compilation (3))
60 wd.show_modal_to_window (target.window)
61 end
62 else
63 create wd.make_with_text (Warning_messages.w_Project_not_compiled)
64 wd.show_modal_to_window (target.window)
65 end
66 end
67
68 feature -- Access
69
70 mini_pixmap: EV_PIXMAP is
71 -- Pixmap representing the command for mini toolbars.
72 do
73 Result := pixmaps.mini_pixmaps.new_assembly_icon
74 end
75
76 pixel_buffer: EV_PIXEL_BUFFER is
77 -- Pixel buffer representing the command for mini toolbars.
78 do
79 Result := pixmaps.mini_pixmaps.new_assembly_icon_buffer
80 end
81
82 feature {NONE} -- Implementation
83
84 menu_name: STRING is
85 -- Name as it appears in the menu (with & symbol).
86 do
87 Result := Interface_names.m_Create_new_assembly
88 end
89
90 pixmap: EV_PIXMAP is
91 -- Pixmaps representing the command.
92 do
93 Result := pixmaps.icon_pixmaps.new_reference_icon
94 end
95
96 tooltip: STRING is
97 -- Tooltip for the toolbar button.
98 do
99 Result := Interface_names.f_Create_new_assembly
100 end
101
102 tooltext: STRING is
103 -- Text for the toolbar button.
104 do
105 Result := Interface_names.b_Create_new_assembly
106 end
107
108 description: STRING is
109 -- Description for this command.
110 do
111 Result := Interface_names.f_create_new_assembly
112 end
113
114 name: STRING is "New_assembly";
115 -- Name of the command. Used to store the command in the
116 -- preferences.
117
118 indexing
119 copyright: "Copyright (c) 1984-2006, Eiffel Software"
120 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
121 licensing_options: "http://www.eiffel.com/licensing"
122 copying: "[
123 This file is part of Eiffel Software's Eiffel Development Environment.
124
125 Eiffel Software's Eiffel Development Environment is free
126 software; you can redistribute it and/or modify it under
127 the terms of the GNU General Public License as published
128 by the Free Software Foundation, version 2 of the License
129 (available at the URL listed under "license" above).
130
131 Eiffel Software's Eiffel Development Environment is
132 distributed in the hope that it will be useful, but
133 WITHOUT ANY WARRANTY; without even the implied warranty
134 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
135 See the GNU General Public License for more details.
136
137 You should have received a copy of the GNU General Public
138 License along with Eiffel Software's Eiffel Development
139 Environment; if not, write to the Free Software Foundation,
140 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
141 ]"
142 source: "[
143 Eiffel Software
144 356 Storke Road, Goleta, CA 93117 USA
145 Telephone 805-685-1006, Fax 805-685-6869
146 Website http://www.eiffel.com
147 Customer support http://support.eiffel.com
148 ]"
149
150 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23