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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_context_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: 2525 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description : "Commands applicable to the context diagram."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 date : "$Date$"
6 revision : "$Revision$"
7
8 deferred class
9 EB_CONTEXT_DIAGRAM_COMMAND
10
11 inherit
12 EB_TOOLBARABLE_AND_MENUABLE_COMMAND
13
14 EB_TARGET_COMMAND
15 rename
16 target as tool
17 redefine
18 tool,
19 make
20 end
21
22 feature {NONE} -- Initialization
23
24 make (a_target: like tool) is
25 -- Initialize the command with target `a_target'.
26 do
27 Precursor (a_target)
28 history := tool.history
29 disable_sensitive
30 end
31
32 feature -- Access
33
34 tool: EB_DIAGRAM_TOOL
35 -- Associated with `Current'.
36
37 history: EB_HISTORY_DIALOG
38 -- History of undoable commands.
39
40 menu_name: STRING is
41 -- Name on corresponding menu items
42 do
43 Result := "Diagram command"
44 end
45
46 description: STRING is
47 -- Description for this command.
48 do
49 Result := tooltip
50 end
51
52 shortcut_string: STRING is
53 -- String discribing shortcut combination for `Current'.
54 do
55 if accelerator = Void then
56 Result := ""
57 else
58 Result := " (" + accelerator.out + ")"
59 end
60 ensure
61 Result_exists: Result /= Void
62 end
63
64
65 indexing
66 copyright: "Copyright (c) 1984-2006, Eiffel Software"
67 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
68 licensing_options: "http://www.eiffel.com/licensing"
69 copying: "[
70 This file is part of Eiffel Software's Eiffel Development Environment.
71
72 Eiffel Software's Eiffel Development Environment is free
73 software; you can redistribute it and/or modify it under
74 the terms of the GNU General Public License as published
75 by the Free Software Foundation, version 2 of the License
76 (available at the URL listed under "license" above).
77
78 Eiffel Software's Eiffel Development Environment is
79 distributed in the hope that it will be useful, but
80 WITHOUT ANY WARRANTY; without even the implied warranty
81 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
82 See the GNU General Public License for more details.
83
84 You should have received a copy of the GNU General Public
85 License along with Eiffel Software's Eiffel Development
86 Environment; if not, write to the Free Software Foundation,
87 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
88 ]"
89 source: "[
90 Eiffel Software
91 356 Storke Road, Goleta, CA 93117 USA
92 Telephone 805-685-1006, Fax 805-685-6869
93 Website http://www.eiffel.com
94 Customer support http://support.eiffel.com
95 ]"
96
97 end -- class EB_CONTEXT_DIAGRAM_COMMAND
98
99

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23