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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_undo_command.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62004 - (show annotations)
Sun Jul 30 06:12:16 2006 UTC (13 years, 4 months ago) by manus
File size: 2595 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description : "Command to perform an undo operation"
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_UNDO_COMMAND
10
11 inherit
12 EB_UNDO_REDO_COMMAND
13 redefine
14 executable,
15 tooltext
16 end
17
18
19 create
20 make
21
22 feature -- Status report
23
24 executable: BOOLEAN is
25 -- Is the operation possible?
26 do
27 Result := editor.undo_is_possible
28 end
29
30 feature -- Execution
31
32 execute is
33 -- Execute the undo/redo operation
34 do
35 editor.undo
36 end
37
38 feature {NONE} -- Implementation
39
40 menu_name: STRING is
41 -- Name as it appears in the menu (with & symbol).
42 do
43 Result := Interface_names.m_Undo
44 end
45
46 pixmap: EV_PIXMAP is
47 -- Pixmaps representing the command.
48 do
49 Result := pixmaps.icon_pixmaps.general_undo_icon
50 end
51
52 tooltip: STRING is
53 -- Tooltip for the toolbar button.
54 do
55 Result := Interface_names.f_Undo
56 end
57
58 tooltext: STRING is
59 -- Text for the toolbar button.
60 do
61 Result := Interface_names.b_Undo
62 end
63
64 description: STRING is
65 -- Description for this command.
66 do
67 Result := Interface_names.e_Undo
68 end
69
70 name: STRING is "Undo";
71 -- Name of the command. Used to store the command in the
72 -- preferences.
73
74 indexing
75 copyright: "Copyright (c) 1984-2006, Eiffel Software"
76 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
77 licensing_options: "http://www.eiffel.com/licensing"
78 copying: "[
79 This file is part of Eiffel Software's Eiffel Development Environment.
80
81 Eiffel Software's Eiffel Development Environment is free
82 software; you can redistribute it and/or modify it under
83 the terms of the GNU General Public License as published
84 by the Free Software Foundation, version 2 of the License
85 (available at the URL listed under "license" above).
86
87 Eiffel Software's Eiffel Development Environment is
88 distributed in the hope that it will be useful, but
89 WITHOUT ANY WARRANTY; without even the implied warranty
90 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
91 See the GNU General Public License for more details.
92
93 You should have received a copy of the GNU General Public
94 License along with Eiffel Software's Eiffel Development
95 Environment; if not, write to the Free Software Foundation,
96 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
97 ]"
98 source: "[
99 Eiffel Software
100 356 Storke Road, Goleta, CA 93117 USA
101 Telephone 805-685-1006, Fax 805-685-6869
102 Website http://www.eiffel.com
103 Customer support http://support.eiffel.com
104 ]"
105
106 end -- class EB_UNDO_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23