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

Annotation 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 - (hide 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 manus 26913 indexing
2     description : "Command to create a new feature."
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_CLASS_COMMAND
10    
11     inherit
12     EB_TOOLBARABLE_AND_MENUABLE_COMMAND
13     redefine
14 king 46334 mini_pixmap,
15 larryl 62171 tooltext,
16     pixel_buffer
17 manus 26913 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 manus 47408 dial.call_default
42 manus 26913 else
43 manus 47408 create wd.make_with_text (Warning_messages.w_unsufficient_compilation (3))
44 manus 26913 wd.show_modal_to_window (target.window)
45     end
46     else
47 manus 47408 create wd.make_with_text (Warning_messages.w_project_not_compiled)
48 manus 26913 wd.show_modal_to_window (target.window)
49     end
50     end
51    
52 manus 45562 feature -- Access
53    
54 king 56753 mini_pixmap: EV_PIXMAP is
55     -- Pixmap representing the command for mini toolbars.
56 paulb 52910 once
57 paulb 59955 Result := pixmaps.mini_pixmaps.new_class_icon
58 manus 45562 end
59    
60 manus 26913 feature {NONE} -- Implementation
61    
62     menu_name: STRING is
63     -- Name as it appears in the menu (with & symbol).
64     do
65 manus 47408 Result := Interface_names.m_create_new_class
66 manus 26913 end
67    
68 king 56753 pixmap: EV_PIXMAP is
69     -- Pixmaps representing the command.
70 manus 26913 do
71 paulb 59846 Result := pixmaps.icon_pixmaps.new_class_icon
72 manus 26913 end
73    
74 larryl 62171 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 manus 26913 tooltip: STRING is
81     -- Tooltip for the toolbar button.
82     do
83 manus 47408 Result := Interface_names.f_create_new_class
84 manus 26913 end
85    
86 king 46334 tooltext: STRING is
87     -- Text for the toolbar button.
88     do
89 manus 47408 Result := Interface_names.b_create_new_class
90 king 46334 end
91    
92 manus 26913 description: STRING is
93     -- Description for this command.
94     do
95 manus 47408 Result := Interface_names.f_create_new_class
96 manus 26913 end
97    
98 manus 56535 name: STRING is "New_class";
99 manus 26913 -- Name of the command. Used to store the command in the
100     -- preferences.
101    
102 manus 56535 indexing
103     copyright: "Copyright (c) 1984-2006, Eiffel Software"
104 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
105 manus 56535 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 manus 26913 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