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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62033 - (show annotations)
Sun Jul 30 06:17:51 2006 UTC (13 years, 5 months ago) by manus
File size: 2736 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description : "Command to redo diagram commands."
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_DIAGRAM_COMMAND
10
11 inherit
12 EB_CONTEXT_DIAGRAM_COMMAND
13 redefine
14 initialize
15 end
16
17 create
18 make
19
20 feature {NONE} -- Initialization
21
22 initialize is
23 -- Initialize default values.
24 do
25 create accelerator.make_with_key_combination (
26 create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_y),
27 True, False, False)
28 accelerator.actions.extend (agent execute)
29 end
30
31 feature -- Basic operations
32
33 execute is
34 -- Perform operation.
35 do
36 if is_sensitive then
37 history.redo
38 end
39 end
40
41 feature {EB_DEVELOPMENT_WINDOW} -- Accelerator action
42
43 on_ctrl_y is
44 -- Redo last cancelled action if possible and if the diagram
45 -- has the focus.
46 do
47 if is_sensitive and then tool.projector.widget.has_focus and then not history.redo_exhausted then
48 execute
49 end
50 end
51
52 feature {NONE} -- Implementation
53
54 pixmap: EV_PIXMAP is
55 -- Pixmap representing the command.
56 do
57 Result := pixmaps.icon_pixmaps.general_redo_icon
58 end
59
60 tooltip: STRING is
61 -- Tooltip for the toolbar button.
62 do
63 Result := Interface_names.f_diagram_redo
64 end
65
66 name: STRING is "Redo_command";
67 -- Name of the command. Used to store the command in the
68 -- preferences.
69
70 indexing
71 copyright: "Copyright (c) 1984-2006, Eiffel Software"
72 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
73 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 end -- class EB_REDO_DIAGRAM_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23