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

Annotation 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 - (hide annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 5 months ago) by larryl
File size: 3438 byte(s)
First commit docking tabbed Eiffel Studio.
1 manus 26913 indexing
2 patrickr 60478 description : "Command to create a new cluster."
3 manus 56535 legal: "See notice at end of class."
4     status: "See notice at end of class."
5 manus 26913 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 king 46334 mini_pixmap,
15     tooltext
16 manus 26913 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 manus 47407 dial.call_default
40 manus 26913 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 manus 45562 feature -- Access
51    
52 king 56753 mini_pixmap: EV_PIXMAP is
53     -- Pixmap representing the command for mini toolbars.
54 manus 45562 do
55 paulb 59955 Result := pixmaps.mini_pixmaps.new_cluster_icon
56 manus 45562 end
57    
58 manus 26913 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 king 56753 pixmap: EV_PIXMAP is
67     -- Pixmaps representing the command.
68 manus 26913 do
69 paulb 59846 Result := pixmaps.icon_pixmaps.new_cluster_icon
70 manus 26913 end
71    
72 larryl 62171 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 manus 26913 tooltip: STRING is
79     -- Tooltip for the toolbar button.
80     do
81     Result := Interface_names.f_Create_new_cluster
82     end
83    
84 king 46334 tooltext: STRING is
85     -- Text for the toolbar button.
86     do
87     Result := Interface_names.b_Create_new_cluster
88     end
89    
90 manus 26913 description: STRING is
91     -- Description for this command.
92     do
93     Result := Interface_names.f_Create_new_cluster
94     end
95    
96 manus 56535 name: STRING is "New_cluster";
97 manus 26913 -- Name of the command. Used to store the command in the
98     -- preferences.
99    
100 manus 56535 indexing
101     copyright: "Copyright (c) 1984-2006, Eiffel Software"
102 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
103 manus 56535 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 manus 26913 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