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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_create_class_diagram_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: 2860 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description : "Command to change links layout."
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_CREATE_CLASS_DIAGRAM_COMMAND
10
11 inherit
12 EB_CONTEXT_DIAGRAM_COMMAND
13 redefine
14 new_toolbar_item
15 end
16
17 create
18 make
19
20 feature -- Basic operations
21
22 execute is
23 -- Display information about `Current'.
24 local
25 dialog: EB_CREATE_CLASS_DIALOG
26 do
27 create dialog.make_default (tool.develop_window)
28 dialog.set_stone_when_finished
29 dialog.call_default
30 end
31
32 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
33 -- Create a new toolbar button for this command.
34 local
35 a_stone: CREATE_CLASS_STONE
36 do
37 create a_stone
38 Result := Precursor (display_text)
39 Result.set_pebble (a_stone)
40 Result.set_accept_cursor (Cursors.cur_Class)
41 end
42
43 feature {NONE} -- Implementation
44
45 pixmap: EV_PIXMAP is
46 -- Pixmap representing the command.
47 do
48 Result := pixmaps.icon_pixmaps.new_class_icon
49 end
50
51 pixel_buffer: EV_PIXEL_BUFFER is
52 -- Pixel buffer representing the command.
53 do
54 Result := pixmaps.icon_pixmaps.new_class_icon_buffer
55 end
56
57 tooltip: STRING is
58 -- Tooltip for the toolbar button.
59 do
60 Result := Interface_names.f_diagram_new_class
61 end
62
63 name: STRING is "Create_class"
64 -- Name of the command. Used to store the command in the
65 -- preferences.
66
67 explain_dialog: EB_INFORMATION_DIALOG;
68 -- Dialog explaining how to use `Current'.
69
70 indexing
71 copyright: "Copyright (c) 1984-2006, Eiffel Software"
72 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
73 licensing_options: "http://www.eiffel.com/licensing"
74 copying: "[
75 This file is part of Eiffel Software's Eiffel Development Environment.
76
77 Eiffel Software's Eiffel Development Environment is free
78 software; you can redistribute it and/or modify it under
79 the terms of the GNU General Public License as published
80 by the Free Software Foundation, version 2 of the License
81 (available at the URL listed under "license" above).
82
83 Eiffel Software's Eiffel Development Environment is
84 distributed in the hope that it will be useful, but
85 WITHOUT ANY WARRANTY; without even the implied warranty
86 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
87 See the GNU General Public License for more details.
88
89 You should have received a copy of the GNU General Public
90 License along with Eiffel Software's Eiffel Development
91 Environment; if not, write to the Free Software Foundation,
92 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
93 ]"
94 source: "[
95 Eiffel Software
96 356 Storke Road, Goleta, CA 93117 USA
97 Telephone 805-685-1006, Fax 805-685-6869
98 Website http://www.eiffel.com
99 Customer support http://support.eiffel.com
100 ]"
101
102 end -- class EB_CREATE_CLASS_DIAGRAM_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23