/[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 61990 - (show annotations)
Sun Jul 30 06:09:35 2006 UTC (13 years, 5 months ago) by manus
File size: 3302 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
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 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 class wizard.
29 local
30 dial: EB_CREATE_CLASS_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.set_stone_when_finished
40 dial.call_default
41 else
42 create wd.make_with_text (Warning_messages.w_unsufficient_compilation (3))
43 wd.show_modal_to_window (target.window)
44 end
45 else
46 create wd.make_with_text (Warning_messages.w_project_not_compiled)
47 wd.show_modal_to_window (target.window)
48 end
49 end
50
51 feature -- Access
52
53 mini_pixmap: EV_PIXMAP is
54 -- Pixmap representing the command for mini toolbars.
55 once
56 Result := pixmaps.mini_pixmaps.new_class_icon
57 end
58
59 feature {NONE} -- Implementation
60
61 menu_name: STRING is
62 -- Name as it appears in the menu (with & symbol).
63 do
64 Result := Interface_names.m_create_new_class
65 end
66
67 pixmap: EV_PIXMAP is
68 -- Pixmaps representing the command.
69 do
70 Result := pixmaps.icon_pixmaps.new_class_icon
71 end
72
73 tooltip: STRING is
74 -- Tooltip for the toolbar button.
75 do
76 Result := Interface_names.f_create_new_class
77 end
78
79 tooltext: STRING is
80 -- Text for the toolbar button.
81 do
82 Result := Interface_names.b_create_new_class
83 end
84
85 description: STRING is
86 -- Description for this command.
87 do
88 Result := Interface_names.f_create_new_class
89 end
90
91 name: STRING is "New_class";
92 -- Name of the command. Used to store the command in the
93 -- preferences.
94
95 indexing
96 copyright: "Copyright (c) 1984-2006, Eiffel Software"
97 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
98 licensing_options: "http://www.eiffel.com/licensing"
99 copying: "[
100 This file is part of Eiffel Software's Eiffel Development Environment.
101
102 Eiffel Software's Eiffel Development Environment is free
103 software; you can redistribute it and/or modify it under
104 the terms of the GNU General Public License as published
105 by the Free Software Foundation, version 2 of the License
106 (available at the URL listed under "license" above).
107
108 Eiffel Software's Eiffel Development Environment is
109 distributed in the hope that it will be useful, but
110 WITHOUT ANY WARRANTY; without even the implied warranty
111 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
112 See the GNU General Public License for more details.
113
114 You should have received a copy of the GNU General Public
115 License along with Eiffel Software's Eiffel Development
116 Environment; if not, write to the Free Software Foundation,
117 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
118 ]"
119 source: "[
120 Eiffel Software
121 356 Storke Road, Goleta, CA 93117 USA
122 Telephone 805-685-1006, Fax 805-685-6869
123 Website http://www.eiffel.com
124 Customer support http://support.eiffel.com
125 ]"
126
127 end -- class EB_NEW_CLASS_COMMAND
128

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23