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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23