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

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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23