/[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 62030 - (show annotations)
Sun Jul 30 06:17:17 2006 UTC (13 years, 5 months ago) by manus
File size: 2717 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
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.development_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 tooltip: STRING is
52 -- Tooltip for the toolbar button.
53 do
54 Result := Interface_names.f_diagram_new_class
55 end
56
57 name: STRING is "Create_class"
58 -- Name of the command. Used to store the command in the
59 -- preferences.
60
61 explain_dialog: EB_INFORMATION_DIALOG;
62 -- Dialog explaining how to use `Current'.
63
64 indexing
65 copyright: "Copyright (c) 1984-2006, Eiffel Software"
66 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
67 licensing_options: "http://www.eiffel.com/licensing"
68 copying: "[
69 This file is part of Eiffel Software's Eiffel Development Environment.
70
71 Eiffel Software's Eiffel Development Environment is free
72 software; you can redistribute it and/or modify it under
73 the terms of the GNU General Public License as published
74 by the Free Software Foundation, version 2 of the License
75 (available at the URL listed under "license" above).
76
77 Eiffel Software's Eiffel Development Environment is
78 distributed in the hope that it will be useful, but
79 WITHOUT ANY WARRANTY; without even the implied warranty
80 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
81 See the GNU General Public License for more details.
82
83 You should have received a copy of the GNU General Public
84 License along with Eiffel Software's Eiffel Development
85 Environment; if not, write to the Free Software Foundation,
86 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
87 ]"
88 source: "[
89 Eiffel Software
90 356 Storke Road, Goleta, CA 93117 USA
91 Telephone 805-685-1006, Fax 805-685-6869
92 Website http://www.eiffel.com
93 Customer support http://support.eiffel.com
94 ]"
95
96 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