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

Annotation 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 - (hide annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 5 months ago) by larryl
File size: 2860 byte(s)
First commit docking tabbed Eiffel Studio.
1 manus 26913 indexing
2     description : "Command to change links layout."
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_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 bennob 47386 local
25     dialog: EB_CREATE_CLASS_DIALOG
26 manus 26913 do
27 larryl 62171 create dialog.make_default (tool.develop_window)
28 bennob 47959 dialog.set_stone_when_finished
29 bennob 47430 dialog.call_default
30 manus 26913 end
31    
32 king 56753 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
33 manus 26913 -- Create a new toolbar button for this command.
34     local
35     a_stone: CREATE_CLASS_STONE
36     do
37     create a_stone
38 king 56753 Result := Precursor (display_text)
39 manus 26913 Result.set_pebble (a_stone)
40     Result.set_accept_cursor (Cursors.cur_Class)
41     end
42    
43     feature {NONE} -- Implementation
44    
45 king 56753 pixmap: EV_PIXMAP is
46     -- Pixmap representing the command.
47 manus 26913 do
48 paulb 60017 Result := pixmaps.icon_pixmaps.new_class_icon
49 manus 26913 end
50    
51 larryl 62171 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 manus 26913 tooltip: STRING is
58     -- Tooltip for the toolbar button.
59     do
60 etienne 27345 Result := Interface_names.f_diagram_new_class
61 manus 26913 end
62    
63     name: STRING is "Create_class"
64     -- Name of the command. Used to store the command in the
65     -- preferences.
66    
67 manus 56535 explain_dialog: EB_INFORMATION_DIALOG;
68 manus 26913 -- Dialog explaining how to use `Current'.
69    
70 manus 56535 indexing
71     copyright: "Copyright (c) 1984-2006, Eiffel Software"
72 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
73 manus 56535 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 manus 26913 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