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

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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23