/[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 62171 - (show annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 4 months ago) by larryl
File size: 2899 byte(s)
First commit docking tabbed Eiffel Studio.
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_MAIN_BUILDER} -- 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 pixel_buffer: EV_PIXEL_BUFFER is
61 -- Pixel buffer representing the command.
62 do
63 Result := pixmaps.icon_pixmaps.general_redo_icon_buffer
64 end
65
66 tooltip: STRING is
67 -- Tooltip for the toolbar button.
68 do
69 Result := Interface_names.f_diagram_redo
70 end
71
72 name: STRING is "Redo_command";
73 -- Name of the command. Used to store the command in the
74 -- preferences.
75
76 indexing
77 copyright: "Copyright (c) 1984-2006, Eiffel Software"
78 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
79 licensing_options: "http://www.eiffel.com/licensing"
80 copying: "[
81 This file is part of Eiffel Software's Eiffel Development Environment.
82
83 Eiffel Software's Eiffel Development Environment is free
84 software; you can redistribute it and/or modify it under
85 the terms of the GNU General Public License as published
86 by the Free Software Foundation, version 2 of the License
87 (available at the URL listed under "license" above).
88
89 Eiffel Software's Eiffel Development Environment is
90 distributed in the hope that it will be useful, but
91 WITHOUT ANY WARRANTY; without even the implied warranty
92 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
93 See the GNU General Public License for more details.
94
95 You should have received a copy of the GNU General Public
96 License along with Eiffel Software's Eiffel Development
97 Environment; if not, write to the Free Software Foundation,
98 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
99 ]"
100 source: "[
101 Eiffel Software
102 356 Storke Road, Goleta, CA 93117 USA
103 Telephone 805-685-1006, Fax 805-685-6869
104 Website http://www.eiffel.com
105 Customer support http://support.eiffel.com
106 ]"
107
108 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